#define INCL_DOS
#define INCL_WIN
#define INCL_GPI

#include <os2.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include "fm3dll.h"
#include "fm3dlg.h"
#include "fm3str.h"

#pragma data_seg(DATA1)
#pragma alloc_text(CHECKLIST,CheckListProc)
#pragma alloc_text(DNDLIST,DropListProc)
#pragma alloc_text(MISC7,PosOverOkay,CenterOverWindow,PopupMenu)


VOID CenterOverWindow (HWND hwnd) {

  SWP    swp;
  POINTL ptl;

  if(!fDontMoveMouse) {
    if(WinQueryWindowPos(hwnd,&swp)) {
      ptl.x = swp.x + (swp.cx / 2);
      ptl.y = swp.y + (swp.cy / 2);
      WinMapWindowPoints(WinQueryWindow(hwnd,QW_PARENT),HWND_DESKTOP,&ptl,1L);
      WinSetPointerPos(HWND_DESKTOP,ptl.x,ptl.y);
    }
  }
}


BOOL PopupMenu (HWND hwndParent,HWND hwndOwner,HWND hwndMenu) {

  POINTL ptl;
  BOOL   rc;

  if(!WinQueryPointerPos(HWND_DESKTOP,&ptl))
    ptl.x = ptl.y = 32;
  WinMapWindowPoints(HWND_DESKTOP,hwndParent,&ptl,1L);
  rc = WinPopupMenu(hwndParent,hwndOwner,hwndMenu,
                    ptl.x,ptl.y,0,
                    PU_HCONSTRAIN | PU_VCONSTRAIN |
                    PU_KEYBOARD   | PU_MOUSEBUTTON1);
  if(rc)
    CenterOverWindow(hwndMenu);
  return rc;
}


VOID PosOverOkay (HWND hwnd) {

  SWP    swp;
  POINTL ptl;

  if(!fDontMoveMouse) {
    if(WinQueryWindowPos(WinWindowFromID(hwnd,DID_OK),&swp)) {
      ptl.x = swp.x + (swp.cx / 2);
      ptl.y = swp.y + (swp.cy / 2);
      WinMapWindowPoints(hwnd,HWND_DESKTOP,&ptl,1L);
      WinSetPointerPos(HWND_DESKTOP,ptl.x,ptl.y);
    }
  }
}


MRESULT EXPENTRY CheckListProc (HWND hwnd,ULONG msg,MPARAM mp1,MPARAM mp2) {

  CHECKLIST *cl;

  switch(msg) {
    case WM_INITDLG:
      if(mp2) {

        SHORT x;

        WinSetWindowPtr(hwnd,0,(PVOID)mp2);
        cl = (CHECKLIST *)mp2;
        if(!cl->list || !cl->list[0]) {
          WinDismissDlg(hwnd,0);
          break;
        }
        WinSetDlgItemText(hwnd,CHECK_PROMPT,cl->prompt);
        for(x = 0;cl->list[x];x++) {
          WinSendDlgItemMsg(hwnd,CHECK_LISTBOX,LM_INSERTITEM,
                            MPFROM2SHORT(LIT_END,0),
                            MPFROMP(cl->list[x]));
          WinSendDlgItemMsg(hwnd,CHECK_LISTBOX,LM_SELECTITEM,
                            MPFROM2SHORT(x,0),MPFROMSHORT(TRUE));
        }
        PosOverOkay(hwnd);
        WinEnableWindow(WinWindowFromID(hwnd,CHECK_INFO),
                        ((cl->flags & CHECK_FILES) != 0));
        WinShowWindow(WinWindowFromID(hwnd,CHECK_INFO),
                      ((cl->flags & CHECK_FILES) != 0));
        {
          HBITMAP hbm,hbmd,hbmdd;
          HPS     hps;

          hps = WinGetPS(WinWindowFromID(hwnd,CHECK_BITMAP));
          hbm = GpiLoadBitmap(hps,0,cl->cmd,28,28);
          if(hbm) {
            hbmd = (HBITMAP)WinSendDlgItemMsg(hwnd,CHECK_BITMAP,SM_QUERYHANDLE,
                                              MPVOID,MPVOID);
            hbmdd = (HBITMAP)WinSendDlgItemMsg(hwnd,CHECK_BITMAP,SM_SETHANDLE,
                                               MPFROMLONG(hbm),MPVOID);
            if(hbmdd && hbmd && hbmd != hbmdd)
              GpiDeleteBitmap(hbmd);
          }
          if(hps)
            WinReleasePS(hps);
          WinSetWindowPos(WinWindowFromID(hwnd,CHECK_BITMAP),HWND_TOP,
                          0,0,28,28,SWP_SIZE);
        }
      }
      else
        WinDismissDlg(hwnd,0);
      break;

    case WM_ADJUSTWINDOWPOS:
      PostMsg(hwnd,UM_SETDIR,MPVOID,MPVOID);
      break;

    case UM_SETDIR:
      PaintRecessedWindow(WinWindowFromID(hwnd,CHECK_HELP),(HPS)0,FALSE,TRUE);
      return 0;

    case WM_CONTROL:
      switch(SHORT1FROMMP(mp1)) {
        case CHECK_LISTBOX:
          switch(SHORT2FROMMP(mp1)) {
            case LN_ENTER:
              {
                SHORT x;
                CHAR  szBuffer[CCHMAXPATH];

                x = (SHORT)WinSendDlgItemMsg(hwnd,CHECK_LISTBOX,
                                             LM_QUERYSELECTION,
                                             MPFROMSHORT(LIT_FIRST),MPVOID);
                if(x >= 0) {
                  *szBuffer = 0;
                  WinSendDlgItemMsg(hwnd,CHECK_LISTBOX,LM_QUERYITEMTEXT,
                                    MPFROM2SHORT(x,CCHMAXPATH),
                                    MPFROMP(szBuffer));
                  if(*szBuffer)
                    QuickView(hwnd,szBuffer);
                }
              }
              break;
          }
          break;
      }
      return 0;

    case WM_COMMAND:
      switch(SHORT1FROMMP(mp1)) {
        case CHECK_INFO:
          cl = INSTDATA(hwnd);
          if(cl)
            WinDlgBox(HWND_DESKTOP,hwnd,FileInfoProc,FM3ModHandle,
                      FLE_FRAME,(PVOID)cl->list);
          break;

        case IDM_HELP:
          if(hwndHelp)
            WinSendMsg(hwndHelp,HM_DISPLAY_HELP,
                       MPFROM2SHORT(HELP_CHECKLIST,0),
                       MPFROMSHORT(HM_RESOURCEID));
          break;

        case DID_OK:
          cl = INSTDATA(hwnd);
          if(cl) {

            CHAR  szBuffer[CCHMAXPATH + 1];
            INT   numfiles = 0,numalloc = 0,error;
            SHORT x;

            FreeList(cl->list);
            cl->list = NULL;
            x = (SHORT)WinSendDlgItemMsg(hwnd,CHECK_LISTBOX,LM_QUERYSELECTION,
                                         MPFROMSHORT(LIT_FIRST),MPVOID);
            if(x >= 0) {
              do {
                *szBuffer = 0;
                WinSendDlgItemMsg(hwnd,CHECK_LISTBOX,LM_QUERYITEMTEXT,
                                  MPFROM2SHORT(x,CCHMAXPATH),
                                  MPFROMP(szBuffer));
                if(*szBuffer) {
                  error = AddToList(szBuffer,&cl->list,&numfiles,&numalloc);
                  if(error) {
                    DosBeep(250,100);
                    break;
                  }
                }
                x = (SHORT)WinSendDlgItemMsg(hwnd,CHECK_LISTBOX,
                                             LM_QUERYSELECTION,
                                             MPFROMSHORT(x),MPVOID);
              } while(x >= 0);
            }
            WinDismissDlg(hwnd,1);
          }
          else
            WinDismissDlg(hwnd,0);
          break;

        case DID_CANCEL:
          WinDismissDlg(hwnd,0);
          break;
      }
      return 0;
  }
  return WinDefDlgProc(hwnd,msg,mp1,mp2);
}


MRESULT EXPENTRY DropListProc (HWND hwnd,ULONG msg,MPARAM mp1,MPARAM mp2) {

  CHECKLIST  *cl;
  static BOOL Shadow = FALSE,Wild = FALSE;

  switch(msg) {
    case WM_INITDLG:
      if(mp2) {

        SHORT x;

        WinSetWindowPtr(hwnd,0,(PVOID)mp2);
        cl = (CHECKLIST *)mp2;
        if(!cl->list || !cl->list[0]) {
          WinDismissDlg(hwnd,0);
          break;
        }
        if(IsRoot(cl->list[0])) {
          WinDismissDlg(hwnd,DND_COMPARE);
          break;
        }
        WinSendDlgItemMsg(hwnd,DND_LISTBOX,LM_DELETEALL,MPVOID,MPVOID);
        for(x = 0;cl->list[x];x++) {
          WinSendDlgItemMsg(hwnd,DND_LISTBOX,LM_INSERTITEM,
                            MPFROM2SHORT(LIT_END,0),
                            MPFROMP(cl->list[x]));
          WinSendDlgItemMsg(hwnd,DND_LISTBOX,LM_SELECTITEM,
                            MPFROM2SHORT(x,0),MPFROMSHORT(TRUE));
        }
        PostMsg(hwnd,UM_UNDO,MPVOID,MPVOID);
      }
      else
        WinDismissDlg(hwnd,0);
      break;

    case UM_UNDO:
      cl = INSTDATA(hwnd);
      if(cl) {

        CHAR *p;

        WinSetDlgItemText(hwnd,DND_TARGET,cl->prompt);
        WinEnableWindow(WinWindowFromID(hwnd,DND_LAUNCH),
                        (IsExecutable(cl->prompt)));
        WinEnableWindow(WinWindowFromID(hwnd,DND_COPY),TRUE);
        WinEnableWindow(WinWindowFromID(hwnd,DND_MOVE),TRUE);
        WinEnableWindow(WinWindowFromID(hwnd,DND_RENAME),TRUE);
        WinEnableWindow(WinWindowFromID(hwnd,DND_OBJECT),TRUE);
        WinEnableWindow(WinWindowFromID(hwnd,DND_SHADOW),TRUE);
        WinEnableWindow(WinWindowFromID(hwnd,DND_EXTRACT),TRUE);
        WinEnableWindow(WinWindowFromID(hwnd,DND_SETICON),FALSE);
        p = strrchr(cl->list[0],'.');
        if(p) {
          p++;
          if(!stricmp(p,"ICO") || !stricmp(p,"PTR"))
            WinEnableWindow(WinWindowFromID(hwnd,DND_SETICON),TRUE);
        }
        if(IsFile(cl->prompt)) {
          WinEnableWindow(WinWindowFromID(hwnd,DND_OBJECT),FALSE);
          WinEnableWindow(WinWindowFromID(hwnd,DND_SHADOW),FALSE);
          WinEnableWindow(WinWindowFromID(hwnd,DND_EXTRACT),FALSE);
          WinEnableWindow(WinWindowFromID(hwnd,DND_RENAME),FALSE);
        }
        else {

          ARC_TYPE *info;

          info = find_type(cl->list[0],NULL);
          if(!info)
            WinEnableWindow(WinWindowFromID(hwnd,DND_EXTRACT),FALSE);
        }
        if(Shadow)
          WinCheckButton(hwnd,DND_SHADOW,TRUE);
        if(Wild)
          WinCheckButton(hwnd,DND_RENAME,TRUE);
        PostMsg(hwnd,UM_SETUP,MPVOID,MPVOID);
        if(cl->prompt && isalpha(*cl->prompt) &&
           (driveflags[toupper(*cl->prompt) - 'A'] & DRIVE_NOTWRITEABLE)) {
          WinEnableWindow(WinWindowFromID(hwnd,DND_COPY),FALSE);
          WinEnableWindow(WinWindowFromID(hwnd,DND_MOVE),FALSE);
          WinEnableWindow(WinWindowFromID(hwnd,DND_RENAME),FALSE);
          WinEnableWindow(WinWindowFromID(hwnd,DND_OBJECT),FALSE);
          WinEnableWindow(WinWindowFromID(hwnd,DND_SHADOW),FALSE);
          WinEnableWindow(WinWindowFromID(hwnd,DND_EXTRACT),FALSE);
        }
        if(cl->prompt && IsFile(cl->prompt) == 1) {

          ARC_TYPE *info;

          info = find_type(cl->prompt,NULL);
          if(!info) {
            WinEnableWindow(WinWindowFromID(hwnd,DND_COPY),FALSE);
            WinEnableWindow(WinWindowFromID(hwnd,DND_MOVE),FALSE);
            WinEnableWindow(WinWindowFromID(hwnd,DND_RENAME),FALSE);
            WinEnableWindow(WinWindowFromID(hwnd,DND_OBJECT),FALSE);
            WinEnableWindow(WinWindowFromID(hwnd,DND_SHADOW),FALSE);
            WinEnableWindow(WinWindowFromID(hwnd,DND_EXTRACT),FALSE);
          }
        }
      }
      break;

    case UM_SETUP:
      cl = WinQueryWindowPtr(hwnd,0);
      if(cl) {
        if(cl->flags == DO_MOVE)
          WinSetFocus(HWND_DESKTOP,WinWindowFromID(hwnd,DND_MOVE));
        else if(cl->flags == DO_LINK)
          WinSetFocus(HWND_DESKTOP,WinWindowFromID(hwnd,DND_COMPARE));
        else
          WinSetFocus(HWND_DESKTOP,WinWindowFromID(hwnd,DND_COPY));
      }
      return 0;

    case WM_ADJUSTWINDOWPOS:
      PostMsg(hwnd,UM_SETDIR,MPVOID,MPVOID);
      break;

    case UM_SETDIR:
      PaintRecessedWindow(WinWindowFromID(hwnd,DND_HELP),(HPS)0,FALSE,TRUE);
      return 0;

    case WM_CONTROL:
      switch(SHORT1FROMMP(mp1)) {
        case DND_LISTBOX:
          switch(SHORT2FROMMP(mp1)) {
            case LN_SETFOCUS:
              WinSetDlgItemText(hwnd,DND_HELP,
                                GetPString(IDS_DNDLISTBOXHELPTEXT));
              break;
            case LN_KILLFOCUS:
              WinSetDlgItemText(hwnd,DND_HELP,
                                GetPString(IDS_DNDHELPTEXT));
              break;
            case LN_ENTER:
              {
                SHORT x;
                CHAR  szBuffer[CCHMAXPATH];

                x = (SHORT)WinSendDlgItemMsg(hwnd,DND_LISTBOX,LM_QUERYSELECTION,
                                             MPFROMSHORT(LIT_FIRST),MPVOID);
                if(x >= 0) {
                  *szBuffer = 0;
                  WinSendDlgItemMsg(hwnd,DND_LISTBOX,LM_QUERYITEMTEXT,
                                    MPFROM2SHORT(x,CCHMAXPATH),
                                    MPFROMP(szBuffer));
                  if(*szBuffer)
                    QuickView(hwnd,szBuffer);
                }
              }
              break;
          }
          break;
        case DND_TARGET:
          switch(SHORT2FROMMP(mp1)) {
            case EN_SETFOCUS:
              WinSetDlgItemText(hwnd,DND_HELP,
                                GetPString(IDS_DNDTARGETHELPTEXT));
              break;
            case EN_KILLFOCUS:
              WinSetDlgItemText(hwnd,DND_HELP,
                                GetPString(IDS_DNDHELPTEXT));
              break;
          }
          break;
      }
      return 0;

    case WM_COMMAND:
      switch(SHORT1FROMMP(mp1)) {
        case IDM_HELP:
          if(hwndHelp)
            WinSendMsg(hwndHelp,HM_DISPLAY_HELP,
                       MPFROM2SHORT(HELP_DNDDLG,0),
                       MPFROMSHORT(HM_RESOURCEID));
          break;

        case DND_INFO:
          cl = INSTDATA(hwnd);
          if(cl)
            WinDlgBox(HWND_DESKTOP,hwnd,FileInfoProc,FM3ModHandle,
                      FLE_FRAME,(PVOID)cl->list);
          break;

        case DND_CHANGETARGET:
          cl = INSTDATA(hwnd);
          if(cl) {
            if(cl->prompt && *cl->prompt) {
              if(!IsFile(cl->prompt)) {

                CHAR newpath[CCHMAXPATH];

                strcpy(newpath,cl->prompt);
                if(WinDlgBox(HWND_DESKTOP,hwnd,WalkAllDlgProc,
                             FM3ModHandle,WALK_FRAME,
                             MPFROMP(newpath)) && *newpath) {
                  strcpy(cl->prompt,newpath);
                  PostMsg(hwnd,UM_UNDO,MPVOID,MPVOID);
                }
              }
              else {

                FILEDLG     fdlg;
                FILESTATUS3 fs3;
                CHAR        drive[3],*pdrive = drive,
                            filename[CCHMAXPATH],*p;

                memset(&fdlg,0,sizeof(FILEDLG));
                fdlg.cbSize =       (ULONG)sizeof(FILEDLG);
                fdlg.fl     =       FDS_HELPBUTTON | FDS_CENTER |
                                    FDS_OPEN_DIALOG | FDS_CUSTOM;
                fdlg.pszTitle =     GetPString(IDS_NEWTARGETTEXT);
                fdlg.pszOKButton =  GetPString(IDS_CHANGETEXT);
                *drive = *cl->prompt;
                drive[1] = ':';
                drive[2] = 0;
                fdlg.pszIDrive = pdrive;
                strcpy(fdlg.szFullFile,cl->prompt);
                p = strrchr(fdlg.szFullFile,'\\');
                if(p)
                  *p = 0;
                strcat(fdlg.szFullFile,"\\*");

                fdlg.pfnDlgProc = (PFNWP)CustomFileDlg;
                fdlg.hMod = FM3ModHandle;
                fdlg.usDlgId = FDLG_FRAME;

                if(WinFileDlg(HWND_DESKTOP,
                              hwnd,
                              &fdlg)) {
                  if(fdlg.lReturn != DID_CANCEL &&
                     !fdlg.lSRC) {
                    if(!DosQueryPathInfo(fdlg.szFullFile,
                                         FIL_QUERYFULLNAME,
                                         filename,
                                         sizeof(filename))) {
                      if(!DosQueryPathInfo(filename,
                                           FIL_STANDARD,
                                           &fs3,
                                           sizeof(fs3))) {
                        p = filename;
                        while(*p) {
                          if(*p == '/')
                            *p = '\\';
                          p++;
                        }
                        strcpy(cl->prompt,filename);
                        PostMsg(hwnd,
                                UM_UNDO,
                                MPVOID,
                                MPVOID);
                      }
// else saymsg(MB_ENTER,hwnd,DEBUG_STRING,"DosQueryPathInfo FIL_STANDARD failed");
                    }
// else saymsg(MB_ENTER,hwnd,DEBUG_STRING,"DosQueryPathInfo FIL_QUERYFULLNAME failed");
                  }
// else saymsg(MB_ENTER,hwnd,DEBUG_STRING,"lReturn = %lu lSRC = %lu",fdlg.lReturn,fdlg.lSRC);
                }
// else saymsg(MB_ENTER,hwnd,DEBUG_STRING,"WinFileDlg failed");
              }
            }
          }
          break;

        case DND_TARGETINFO:
          cl = INSTDATA(hwnd);
          if(cl) {

            CHAR *list[2];

            list[0] = cl->prompt;
            list[1] = NULL;
            WinDlgBox(HWND_DESKTOP,hwnd,FileInfoProc,FM3ModHandle,
                      FLE_FRAME,(PVOID)&list);
          }
          break;

        case DND_EXTRACT:
        case DND_LAUNCH:
        case DND_COPY:
        case DND_MOVE:
        case DND_OBJECT:
        case DND_COMPARE:
        case DND_SETICON:
        case DND_APPEND:
          cl = INSTDATA(hwnd);
          if(cl) {

            SHORT  x;
            CHAR   szBuffer[CCHMAXPATH + 1];
            INT    numfiles = 0,numalloc = 0,error;
            USHORT cmd;

            FreeList(cl->list);
            cl->list = NULL;
            x = (SHORT)WinSendDlgItemMsg(hwnd,DND_LISTBOX,LM_QUERYSELECTION,
                                         MPFROMSHORT(LIT_FIRST),MPVOID);
            if(x >= 0) {
              do {
                *szBuffer = 0;
                WinSendDlgItemMsg(hwnd,DND_LISTBOX,LM_QUERYITEMTEXT,
                                  MPFROM2SHORT(x,CCHMAXPATH),
                                  MPFROMP(szBuffer));
                if(*szBuffer) {
                  error = AddToList(szBuffer,&cl->list,&numfiles,&numalloc);
                  if(error) {
                    DosBeep(250,100);
                    break;
                  }
                }
                x = (SHORT)WinSendDlgItemMsg(hwnd,DND_LISTBOX,
                                             LM_QUERYSELECTION,
                                             MPFROMSHORT(x),MPVOID);
              } while(x >= 0);
            }
            cmd = SHORT1FROMMP(mp1);
            switch(cmd) {
              case DND_COPY:
                if(WinQueryButtonCheckstate(hwnd,DND_RENAME)) {
                  Wild = TRUE;
                  cmd = DND_WILDCOPY;
                }
                else
                  Wild = FALSE;
                break;
              case DND_MOVE:
                if(WinQueryButtonCheckstate(hwnd,DND_RENAME)) {
                  Wild = TRUE;
                  cmd = DND_WILDMOVE;
                }
                else
                  Wild = FALSE;
                break;
              case DND_OBJECT:
                if(WinQueryButtonCheckstate(hwnd,DND_SHADOW)) {
                  Shadow = TRUE;
                  cmd = DND_SHADOW;
                }
                else
                  Shadow = FALSE;
                break;
            }
            WinDismissDlg(hwnd,cmd);
          }
          else
            WinDismissDlg(hwnd,0);
          break;

        case DID_CANCEL:
          WinDismissDlg(hwnd,0);
          break;
      }
      return 0;
  }
  return WinDefDlgProc(hwnd,msg,mp1,mp2);
}