#include <stdlib.h>
#include <stdio.h>

#include "simple_paint_util.h"

#include <iup.h>
#include <iupim.h>


static int SplashTimer_CB(Ihandle* timer)
{
  if (IupGetAttribute(timer, "_FIRST_STAGE"))
  {
    IupSetAttribute(timer, "RUN", "NO");
    IupSetAttribute(timer, "_FIRST_STAGE", NULL);

    IupSetAttribute(timer, "TIME", "500");
    IupSetAttribute(timer, "RUN", "YES");
  }
  else
  {
    Ihandle* dlg = (Ihandle*)IupGetAttribute(timer, "_DIALOG");
    IupSetAttribute(timer, "RUN", "NO");
    IupDestroy(dlg);
    IupDestroy(timer);
  }
  return IUP_DEFAULT;
}

static void SplashShowDlg(const char* image)
{
  Ihandle *dlg, *timer;

  Ihandle* lbl = IupLabel(NULL);
  IupSetStrAttribute(lbl, "IMAGE", image);

  dlg = IupDialog(lbl);

  IupSetAttribute(dlg,"BORDER", "NO");
  IupSetAttribute(dlg,"RESIZE", "NO");
  IupSetAttribute(dlg,"MINBOX", "NO");
  IupSetAttribute(dlg,"MAXBOX", "NO");
  IupSetAttribute(dlg,"MENUBOX", "NO");
  IupSetStrAttribute(dlg, "OPACITYIMAGE", image);

  /* show the splash for 1 second without other windows,
     then start to show the main window. */

  timer = IupTimer();
  IupSetAttribute(timer,"TIME", "1000");
  IupSetCallback(timer, "ACTION_CB", SplashTimer_CB);
  IupSetAttribute(timer, "_DIALOG", (char*)dlg);
  IupSetAttribute(timer, "_FIRST_STAGE", "YES");

  IupSetAttribute(timer, "RUN", "YES");

  IupShowXY(dlg, IUP_CENTER, IUP_CENTER);

  while(IupGetAttribute(timer, "_FIRST_STAGE"))
    IupLoopStep();
}

void SimplePaintSplash(const char* exe_filename)
{
  /* Look for the image file on the same folder of the executable 
     or in the folder above. */
  char* file_path = str_filepath(exe_filename);
  char filename[10240];
  Ihandle* image;

  if (file_path)
    sprintf(filename, "%s/%s", file_path, "TecgrafLogo.png");
  else
    sprintf(filename, "%s", "TecgrafLogo.png");

  image = IupLoadImage(filename);
  if (!image && file_path)
  {
    char* up_file_path = str_filepath(file_path);
    if (up_file_path)
    {
      sprintf(filename, "%s/%s", up_file_path, "TecgrafLogo.png");

      image = IupLoadImage(filename);
      delete up_file_path;
    }
  }

  if (file_path) delete file_path;

  if (image)
  {                                
    IupSetAttribute(image, "AUTOSCALE", "1");  /* do not autoscale the splash image */
    IupSetHandle("SPLASH", image);
    SplashShowDlg("SPLASH");
  }
}