#include "drag.h"
#include <intuition/gadgetclass.h>
#include <intuition/screens.h>
#include <workbench/workbench.h>

#include <clib/alib_stdio_protos.h>
#include <proto/intuition.h>
#include <proto/exec.h>
#include <proto/icon.h>
#include "proto/drag.h"

struct IntuitionBase *IntuitionBase;
struct Library *IconBase;
struct ClassLibrary *DragBase;
struct Window *win;

ULONG __saveds __asm hookfunc(register __a0 struct Hook *hook,
                              register __a2 struct Gadget *g,
                              register __a1 struct DragInfo *di)
{
  return SetGadgetAttrs(g,win,NULL,GA_Selected,FALSE,NULL);
}

struct Hook hook = {NULL,NULL,hookfunc,NULL,NULL};

main()
{
  struct Gadget *dg[2];
  struct Screen *scr;
  APTR sc,dw;
  struct MsgPort *dwport;
  struct IntuiMessage *msg;
  struct DropMessage *dmsg;
  struct DiskObject *icon,*icon2;
  struct Image *image,*image2,*image3,*image4;
  BOOL done=FALSE;

  if(DragBase=(struct ClassLibrary*)OpenLibrary("gadgets/drag.gadget",40))
  {
    if( (IntuitionBase=(struct IntuitionBase*)OpenLibrary("intuition.library",37)) &&
        (IconBase=OpenLibrary("icon.library",37)) )
    {
      scr=LockPubScreen(NULL);

      sc=CreateDContext(scr); /* Create drag context for public screen */

      if(win=OpenWindowTags(NULL,WA_Left,100,
                                 WA_Top,100,
                                 WA_Width,200,
                                 WA_Height,200,
                                 WA_Title,(ULONG)"drag&drop-test",
                                 WA_IDCMP,IDCMP_CLOSEWINDOW|IDCMP_GADGETUP|IDCMP_MOUSEBUTTONS,
                                 WA_CloseGadget,TRUE,
                                 WA_DragBar,TRUE,
                                 WA_DepthGadget,TRUE,
                                 WA_GimmeZeroZero,TRUE,
                                 WA_NoCareRefresh,TRUE,NULL))
      {
        if( (icon=GetDiskObject("sys:prefs/locale")) &&
            (icon2=GetDiskObject("sys:prefs/palette")) )
        {
          image=icon->do_Gadget.GadgetRender;
          image2=icon->do_Gadget.SelectRender;
          image3=icon2->do_Gadget.GadgetRender;
          image4=icon2->do_Gadget.SelectRender;

          if(dg[0]=NewObject(DragBase->cl_Class,NULL,
                                   GA_Left,20,
                                   GA_Top,20,
                                   GA_ID,0,
                                   DGA_Context,sc,
                                   DGA_DropActHook,&hook,
                                   DGA_ExtSelect,TRUE,
                                   GA_Image,(ULONG)image,
                                   GA_SelectRender,(ULONG)image2,
                                   GA_RelVerify,TRUE,
                                   GA_Highlight,(icon->do_Gadget.Flags) & GFLG_GADGHIGHBITS,
                                   NULL))
          {
            if(dg[1]=NewObject(DragBase->cl_Class,NULL,
                                     GA_Left,20,
                                     GA_Top,70,
                                     GA_ID,1,
                                     GA_Previous,(ULONG)dg[0],
                                     DGA_Context,sc,
                                     DGA_DropActHook,&hook,
                                     DGA_ExtSelect,TRUE,
                                     GA_Image,(ULONG)image3,
                                     GA_SelectRender,(ULONG)image4,
                                     GA_RelVerify,TRUE,
                                     GA_Highlight,(icon2->do_Gadget.Flags) & GFLG_GADGHIGHBITS,
                                     NULL))
            {
              if(dwport=CreateMsgPort())
              {
                dw=AddDropWindow(sc,1,0,win,dwport);
                AddGList(win,dg[0],-1,2,NULL);
                RefreshGList(dg[0],win,NULL,2);
                while(!done)
                {
                  Wait((1<<win->UserPort->mp_SigBit)|(1<<dwport->mp_SigBit));

                  while(dmsg=(struct DropMessage*)GetMsg(dwport))
                  {
                    struct DragInfo *di=dmsg->dm_DragInfo;
                    WORD woleft=win->LeftEdge + win->BorderLeft;
                    WORD wotop =win->TopEdge + win->BorderTop;

                    RemoveGadget(win,dg[di->id]);
                    EraseImage(win->RPort,dg[di->id]->SelectRender,
                               dg[di->id]->LeftEdge,dg[di->id]->TopEdge);
                    SetGadgetAttrs(dg[di->id],win,NULL,
                                    GA_Left,di->mouse.X - woleft - di->offset.X,
                                    GA_Top,di->mouse.Y - wotop - di->offset.Y,
                                    NULL);
                    AddGadget(win,dg[di->id],0);
                    RefreshGadgets(win->FirstGadget,win,NULL);

                    ReplyMsg((struct Message*)dmsg);
                  }

                  while(msg=(struct IntuiMessage*)GetMsg(win->UserPort))
                  {
                    struct DragInfo *di;

                    switch (msg->Class)
                    {
                      case IDCMP_CLOSEWINDOW:
                        done=TRUE;
                        break;
                      case IDCMP_GADGETUP:
                        GetAttr(DGA_DragInfo,msg->IAddress,(ULONG*)&di);
                        if(di->type==DGT_NoObject)
                        {
                          printf("Gadget %d",di->id);
                          printf(" dropped at (%d;%d)\n",di->mouse.X,
                                                         di->mouse.Y);
                        }
                        break;
                      case IDCMP_MOUSEBUTTONS:
                        if(msg->Code==SELECTDOWN)
                        {
                          SetGadgetAttrs(dg[0],win,NULL,GA_Selected,FALSE,NULL);
                          SetGadgetAttrs(dg[1],win,NULL,GA_Selected,FALSE,NULL);
                        }
                    }
                    ReplyMsg((struct Message*)msg);
                  }
                }
                RemoveGadget(win,dg[0]);
                RemoveGadget(win,dg[1]);
                RemoveDropWindow(dw);
                DeleteMsgPort(dwport);
              }
              DisposeObject(dg[1]);
            }
            DisposeObject(dg[0]);
          }
          if(icon) FreeDiskObject(icon);
          if(icon2) FreeDiskObject(icon2);
        }
        CloseWindow(win);
      }
      DeleteDContext(sc);
      UnlockPubScreen(NULL,scr);

      if(IntuitionBase) CloseLibrary((struct Library*)IntuitionBase);
      if(IconBase) CloseLibrary(IconBase);
    }
    CloseLibrary((struct Library*)DragBase);
  }
}