/**************************************************************************/
/* Toolbar support routines for FM/2                                      */
/* copyright (c) 1994-97 by M. Kimes -- all rights reserved               */
/**************************************************************************/

#define INCL_DOS
#define INCL_WIN

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

#pragma data_seg(DATA1)
#pragma alloc_text(TOOLS,load_tools,save_tools,add_tool,insert_tool,del_tool,free_tools,swap_tools,load_quicktools,save_quicktools)
#pragma alloc_text(TOOLS1,ReOrderToolsProc,PickToolProc,AddToolProc,ToolIODlgProc)

TOOL *toolhead = NULL;


VOID load_quicktools (VOID) {

  FILE      *fp;
  CHAR       s[CCHMAXPATH + 14];
  INT        x = 0;

  qtloaded = TRUE;
  while(x < 50 && quicktool[x]) {
    free(quicktool[x]);
    quicktool[x] = NULL;
    x++;
  }
  if(!fToolbar) {
    qtloaded = FALSE;
    return;
  }
  x = 0;
  save_dir2(s);
  if(s[strlen(s) - 1] != '\\')
    strcat(s,"\\");
  strcat(s,"QUICKTLS.DAT");
  fp = _fsopen(s,"r",SH_DENYWR);
  if(fp) {
    while(x < 50 && !feof(fp)) {
      if(!fgets(s,CCHMAXPATH + 2,fp))
        break;
      s[CCHMAXPATH - 1] = 0;
      stripcr(s);
      lstrip(rstrip(s));
      if(*s && *s != ';') {
        quicktool[x] = strdup(s);
        if(quicktool[x])
          x++;
      }
    }
    fclose(fp);
  }
}


VOID save_quicktools (VOID) {

  FILE *fp;
  INT   x = 0;
  CHAR  s[CCHMAXPATH + 14];

  if(!quicktool[0])
    return;
  save_dir2(s);
  if(s[strlen(s) - 1] != '\\')
    strcat(s,"\\");
  strcat(s,"QUICKTLS.DAT");
  fp = fopen(s,"w");
  if(fp) {
    for(x = 0;quicktool[x] && x < 50;x++)
      fprintf(fp,"%s\n",quicktool[x]);
    fclose(fp);
  }
}


TOOL *load_tools (CHAR *filename) {

  FILE  *fp;
  CHAR   help[81],text[81],flagstr[81],idstr[81],*fname;
  TOOL  *info;

  if(!fToolbar) {
    toolhead = free_tools();
    return toolhead;
  }
  if(!filename ||
     !*filename)
    filename = (*lasttoolbox) ? lasttoolbox : "CMDS.TLS";
  if(*filename)
    fname = searchpath(filename);
  if(!fname ||
     !*fname)
    fname = "FM3TOOLS.DAT";
  if(fname &&
     *fname) {
    filename = fname;
    strcpy(lasttoolbox,filename);
    fp = _fsopen(filename,"r",SH_DENYWR);
    if(fp) {
      toolhead = free_tools();
      while(!feof(fp)) {
        do {
          if(!fgets(help,80,fp))
            break;
        } while(*help == ';' && !feof(fp));
        stripcr(help);
        if(!fgets(text,80,fp))
          break;
        stripcr(text);
        if(!fgets(flagstr,80,fp))
          break;
        if(!fgets(idstr,80,fp))
          break;
        if(!(USHORT)atoi(idstr))
          continue;
        info = malloc(sizeof(TOOL));
        if(info) {
          memset(info,0,sizeof(TOOL));
          if(*help) {
            literal(help);
            if(*help)
              info->help = strdup(help);
          }
          if(*text)
            info->text = strdup(text);
          info->flags = (atoi(flagstr) & (~(T_TEXT | T_EMPHASIZED)));
          info->id = (USHORT)atoi(idstr);
          info->next = NULL;
          add_tool(info);
        }
      }
      fclose(fp);
      fToolsChanged = FALSE;
    }
  }
  return toolhead;
}


VOID save_tools (CHAR *filename) {

  FILE  *fp;
  CHAR  *fname;
  TOOL  *info;

  if(!filename)
    filename = lasttoolbox;
  if(*filename)
    fname = searchpath(filename);
  if(fname && *fname)
    filename = fname;
  else {
    if(*lasttoolbox)
      filename = lasttoolbox;
    else
      filename = "FM3TOOLS.TLS";
    fname = searchpath(filename);
    if(fname && *fname)
      filename = fname;
  }

  if(stristr(filename,"FM3TOOLS.DAT"))
    filename = "FM3TOOLS.TLS";
  if(toolhead && filename && *filename) {
    strcpy(lasttoolbox,filename);
    PrfWriteProfileString(fmprof,
                          FM3Str,
                          "LastToolBox",
                          filename);
  }
  if(!toolhead) {
    unlinkf("%s",filename);
    return;
  }
  fp = fopen(filename,"w");
  if(fp) {
    fprintf(fp,GetPString(IDS_TOOLFILETEXT),filename);
    info = toolhead;
    while(info) {
      fprintf(fp,
              "%s\n%s\n%u\n%u\n;\n",
              (info->help) ? info->help : NullStr,
              (info->text) ? info->text : NullStr,
              (info->flags & (~(T_EMPHASIZED | T_TEXT))),
              info->id);
      info = info->next;
    }
    fclose(fp);
    fToolsChanged = FALSE;
  }
  if(hwndMain)
    PostMsg(hwndMain,
            UM_FILLBUTTONLIST,
            MPVOID,
            MPVOID);
}


TOOL *add_tool (TOOL *tool) {

  TOOL *info;

  if(tool) {
    info = toolhead;
    if(info) {
      while(info->next)
        info = info->next;
    }
    if(info)
      info->next = tool;
    else
      toolhead = tool;
    fToolsChanged = TRUE;
  }
  return toolhead;
}


TOOL *insert_tool (TOOL *tool,TOOL *after) {

  if(tool) {
    if(!toolhead)
      return add_tool(tool);
    if(!after) {
      tool->next = toolhead;
      toolhead = tool;
      fToolsChanged = TRUE;
    }
    else {
      tool->next = after->next;
      after->next = tool;
      fToolsChanged = TRUE;
    }
  }
  return toolhead;
}


TOOL *del_tool (TOOL *tool) {

  TOOL *info,*prev = NULL;

  if(tool) {
    info = toolhead;
    while(info) {
      if(info == tool) {
        if(info == toolhead)
          toolhead = info->next;
        if(prev)
          prev->next = info->next;
        if(info->help)
          free(info->help);
        if(info->text)
          free(info->text);
        free(info);
        fToolsChanged = TRUE;
        break;
      }
      prev = info;
      info = info->next;
    }
  }
  return toolhead;
}


TOOL *find_tool (USHORT id) {

  TOOL *tool;

  if(id) {
    tool = toolhead;
    while(tool) {
      if(id && tool->id == id)
        return tool;
      tool = tool->next;
    }
  }
  return NULL;
}


TOOL *next_tool (TOOL *tool,BOOL skipinvisible) {

  while(tool) {
    if(tool->next && (skipinvisible && (tool->next->flags & T_INVISIBLE)))
      tool = tool->next;
    else
      return (tool->next) ? tool->next : toolhead;
  }
  return NULL;
}


TOOL *prev_tool (TOOL *tool,BOOL skipinvisible) {

  TOOL *info;

Again:
  while(tool) {
    info = toolhead;
    while(info) {
      if(info->next == tool) {
        if(skipinvisible && (info->flags & T_INVISIBLE)) {
          tool = info;
          goto Again;
        }
        return info;
      }
      if(!info->next && tool == toolhead)
        return info;
      info = info->next;
    }
    return toolhead;
  }
  return NULL;
}


TOOL *swap_tools (TOOL *tool1,TOOL *tool2) {

  TOOL *prev1 = NULL,*prev2 = NULL,*info;

  if(tool1 && tool2 && tool1 != tool2) {
    info = toolhead;
    while(info && !prev1 && !prev2) {
      if(info->next == tool1)
        prev1 = info;
      else if(info->next == tool2)
        prev2 = info;
      info = info->next;
    }
    info = tool2;
    tool2 = tool1;
    tool1 = info;
    info = tool2->next;
    if(prev1)
      prev1->next = tool2;
    if(prev2)
      prev2->next = tool1;
    tool2->next = tool1->next;
    tool1->next = info;
    fToolsChanged = TRUE;
  }
  return toolhead;
}


TOOL *free_tools (VOID) {

  TOOL *tool,*next;

  tool = toolhead;
  while(tool) {
    next = tool->next;
    if(tool->help)
      free(tool->help);
    if(tool->text)
      free(tool->text);
    free(tool);
    tool = next;
  }
  toolhead = NULL;
  return toolhead;
}


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

  switch(msg) {
    case WM_INITDLG:
      if(!toolhead || !toolhead->next)
        WinDismissDlg(hwnd,0);
      WinSetWindowText(hwnd,
                       GetPString(IDS_RETOOLTEXT));
      {
        TOOL  *tool;
        CHAR   s[133];
        SHORT  sSelect;

        tool = toolhead;
        while(tool) {
          sprintf(s,
                  "%-5u  %s",
                  tool->id,
                  (tool->help) ? tool->help : "?");
          sSelect = (SHORT)WinSendDlgItemMsg(hwnd,
                                             RE_ADDLISTBOX,
                                             LM_INSERTITEM,
                                             MPFROMSHORT(LIT_END),
                                             MPFROMP(s));
          if(sSelect >= 0)
            WinSendDlgItemMsg(hwnd,
                              RE_ADDLISTBOX,
                              LM_SETITEMHANDLE,
                              MPFROMSHORT(sSelect),
                              MPFROMLONG((ULONG)tool));
          tool = tool->next;
        }
      }
      break;

    case WM_CONTROL:
      return 0;

    case WM_COMMAND:
      switch(SHORT1FROMMP(mp1)) {
        case DID_CANCEL:
          WinDismissDlg(hwnd,0);
          break;

        case DID_OK:
          {
            TOOL    *tool,*thead = NULL,*last = NULL;
            SHORT    sSelect = 0,numitems;

            numitems = (SHORT)WinSendDlgItemMsg(hwnd,RE_REMOVELISTBOX,
                                                LM_QUERYITEMCOUNT,
                                                MPVOID,MPVOID);
            while(numitems) {
              tool = (TOOL *)WinSendDlgItemMsg(hwnd,RE_REMOVELISTBOX,
                                               LM_QUERYITEMHANDLE,
                                               MPFROMSHORT(sSelect++),MPVOID);
              if(tool) {
                if(!thead)
                  thead = tool;
                else
                  last->next = tool;
                last = tool;
              }
              numitems--;
            }
            sSelect = 0;
            numitems = (SHORT)WinSendDlgItemMsg(hwnd,RE_ADDLISTBOX,
                                                LM_QUERYITEMCOUNT,
                                                MPVOID,MPVOID);
            while(numitems) {
              tool = (TOOL *)WinSendDlgItemMsg(hwnd,RE_ADDLISTBOX,
                                               LM_QUERYITEMHANDLE,
                                               MPFROMSHORT(sSelect++),
                                               MPVOID);
              if(tool) {
                if(!thead)
                  thead = tool;
                else
                  last->next = tool;
                last = tool;
              }
              numitems--;
            }
            if(last)
              last->next = NULL;
            toolhead = thead;
          }
          fToolsChanged = TRUE;
          WinDismissDlg(hwnd,1);
          break;

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

        case RE_ADD:
          {
            SHORT sSelect,sSelect2;
            CHAR  s[133];
            TOOL *tool;

            sSelect = (USHORT)WinSendDlgItemMsg(hwnd,
                                                RE_ADDLISTBOX,
                                                LM_QUERYSELECTION,
                                                MPFROMSHORT(LIT_FIRST),
                                                MPVOID);
            while(sSelect >= 0) {
              tool = (TOOL *)WinSendDlgItemMsg(hwnd,
                                               RE_ADDLISTBOX,
                                               LM_QUERYITEMHANDLE,
                                               MPFROMSHORT(sSelect),
                                               MPVOID);
              if(tool) {
                sprintf(s,
                        "%-5u  %s",
                        tool->id,
                        (tool->help) ? tool->help : "?");
                sSelect2 = (SHORT)WinSendDlgItemMsg(hwnd,
                                                    RE_REMOVELISTBOX,
                                                    LM_INSERTITEM,
                                                    MPFROM2SHORT(LIT_END,0),
                                                    MPFROMP(s));
                if(sSelect2 >= 0)
                  WinSendDlgItemMsg(hwnd,
                                    RE_REMOVELISTBOX,
                                    LM_SETITEMHANDLE,
                                    MPFROMSHORT(sSelect2),
                                    MPFROMLONG((ULONG)tool));
                WinSendDlgItemMsg(hwnd,
                                  RE_ADDLISTBOX,
                                  LM_DELETEITEM,
                                  MPFROMSHORT(sSelect),
                                  MPVOID);
              }
              else
                WinSendDlgItemMsg(hwnd,
                                  RE_ADDLISTBOX,
                                  LM_SELECTITEM,
                                  MPFROMSHORT(sSelect),
                                  MPFROMSHORT(FALSE));
              sSelect = (USHORT)WinSendDlgItemMsg(hwnd,
                                                  RE_ADDLISTBOX,
                                                  LM_QUERYSELECTION,
                                                  MPFROMSHORT(LIT_FIRST),
                                                  MPVOID);
            }
          }
          break;

        case RE_REMOVE:
          {
            SHORT sSelect,sSelect2;
            CHAR  s[133];
            TOOL *tool;

            sSelect = (USHORT)WinSendDlgItemMsg(hwnd,
                                                RE_REMOVELISTBOX,
                                                LM_QUERYSELECTION,
                                                MPFROMSHORT(LIT_FIRST),
                                                MPVOID);
            while(sSelect >= 0) {
              tool = (TOOL *)WinSendDlgItemMsg(hwnd,
                                               RE_REMOVELISTBOX,
                                               LM_QUERYITEMHANDLE,
                                               MPFROMSHORT(sSelect),
                                               MPVOID);
              if(tool) {
                sprintf(s,
                        "%-5u  %s",
                        tool->id,
                        (tool->help) ? tool->help : "?");
                sSelect2 = (SHORT)WinSendDlgItemMsg(hwnd,
                                                    RE_ADDLISTBOX,
                                                    LM_INSERTITEM,
                                                    MPFROM2SHORT(LIT_END,0),
                                                    MPFROMP(s));
                if(sSelect2 >= 0)
                  WinSendDlgItemMsg(hwnd,
                                    RE_ADDLISTBOX,
                                    LM_SETITEMHANDLE,
                                    MPFROMSHORT(sSelect2),
                                    MPFROMLONG((ULONG)tool));
                WinSendDlgItemMsg(hwnd,
                                  RE_REMOVELISTBOX,
                                  LM_DELETEITEM,
                                  MPFROMSHORT(sSelect),
                                  MPVOID);
              }
              else
                WinSendDlgItemMsg(hwnd,
                                  RE_REMOVELISTBOX,
                                  LM_SELECTITEM,
                                  MPFROMSHORT(sSelect),
                                  MPFROMSHORT(FALSE));
              sSelect = (USHORT)WinSendDlgItemMsg(hwnd,
                                                  RE_REMOVELISTBOX,
                                                  LM_QUERYSELECTION,
                                                  MPFROMSHORT(LIT_FIRST),
                                                  MPVOID);
            }
          }
          break;
      }
      return 0;
  }
  return WinDefDlgProc(hwnd,msg,mp1,mp2);
}


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

  switch(msg) {
    case WM_INITDLG:
      WinSetWindowPtr(hwnd,0,mp2);
      if(mp2) {
        WinSetWindowText(hwnd,GetPString(IDS_EDITTOOLTEXT));
        WinSendDlgItemMsg(hwnd,ADDBTN_ID,EM_SETREADONLY,
                          MPFROM2SHORT(TRUE,0),MPVOID);
      }
      WinSendDlgItemMsg(hwnd,ADDBTN_HELP,EM_SETTEXTLIMIT,
                        MPFROM2SHORT(80,0),MPVOID);
      WinSendDlgItemMsg(hwnd,ADDBTN_TEXT,EM_SETTEXTLIMIT,
                        MPFROM2SHORT(80,0),MPVOID);
      WinSendDlgItemMsg(hwnd,ADDBTN_ID,EM_SETTEXTLIMIT,
                        MPFROM2SHORT(5,0),MPVOID);
      if(!mp2)
        WinCheckButton(hwnd,ADDBTN_VISIBLE,TRUE);
      else {

        TOOL *tool = (TOOL *)mp2;
        CHAR  s[33];

        if(tool->help)
          WinSetDlgItemText(hwnd,ADDBTN_HELP,tool->help);
        if(tool->text)
          WinSetDlgItemText(hwnd,ADDBTN_TEXT,tool->text);
        if(tool->flags & T_MYICON)
          WinCheckButton(hwnd,ADDBTN_MYICON,TRUE);
        else
          WinEnableWindow(WinWindowFromID(hwnd,ADDBTN_EDITBMP),FALSE);
        if(tool->flags & T_DROPABLE)
          WinCheckButton(hwnd,ADDBTN_DROPABLE,TRUE);
        if(!(tool->flags & T_INVISIBLE))
          WinCheckButton(hwnd,ADDBTN_VISIBLE,TRUE);
        if(tool->flags & T_SEPARATOR)
          WinCheckButton(hwnd,ADDBTN_SEPARATOR,TRUE);
        if(tool->flags & T_TEXT)
          WinCheckButton(hwnd,ADDBTN_SHOWTEXT,TRUE);
        sprintf(s,
                "%u",
                tool->id);
        WinSetDlgItemText(hwnd,
                          ADDBTN_ID,
                          s);
        WinEnableWindow(WinWindowFromID(hwnd,ADDBTN_SHOWTEXT),
                        FALSE);
      }
      WinShowWindow(WinWindowFromID(hwnd,ADDBTN_SHOWTEXT),
                    FALSE);
      PostMsg(hwnd,
              UM_SETUP,
              MPVOID,
              MPVOID);
      break;

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

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

    case UM_SETUP:
      {
        HBITMAP hbm = (HBITMAP)0,hbmd,hbmdd;
        HPS     hps;
        CHAR    idstr[7];
        USHORT  id;

        *idstr = 0;
        WinQueryDlgItemText(hwnd,ADDBTN_ID,6,idstr);
        id = atoi(idstr);
        if(id) {
          hps = WinGetPS(WinWindowFromID(hwnd,ADDBTN_BMP));
          if(!WinQueryButtonCheckstate(hwnd,ADDBTN_MYICON))
            hbm = GpiLoadBitmap(hps,0,id,28,28);
          if(!hbm)
            hbm = LoadBitmapFromFileNum(id);
          if(hbm) {
            hbmd = (HBITMAP)WinSendDlgItemMsg(hwnd,ADDBTN_BMP,SM_QUERYHANDLE,
                                              MPVOID,MPVOID);
            hbmdd = (HBITMAP)WinSendDlgItemMsg(hwnd,ADDBTN_BMP,SM_SETHANDLE,
                                               MPFROMLONG(hbm),MPVOID);
            if(hbmdd && hbmd && hbmd != hbmdd)
              GpiDeleteBitmap(hbmd);
          }
        }
      }
      return 0;

    case WM_CONTROL:
      switch(SHORT1FROMMP(mp1)) {
        case ADDBTN_HELP:
          if(SHORT2FROMMP(mp1) == EN_KILLFOCUS)
            WinSetDlgItemText(hwnd,
                              ADDBTN_HELPME,
                              NullStr);
          if(SHORT2FROMMP(mp1) == EN_SETFOCUS)
            WinSetDlgItemText(hwnd,ADDBTN_HELPME,
                              GetPString(IDS_ADDTOOLQUICKHELPTEXT));
          break;

        case ADDBTN_TEXT:
          if(SHORT2FROMMP(mp1) == EN_KILLFOCUS)
            WinSetDlgItemText(hwnd,
                              ADDBTN_HELPME,
                              NullStr);
          if(SHORT2FROMMP(mp1) == EN_SETFOCUS)
            WinSetDlgItemText(hwnd,ADDBTN_HELPME,
                              GetPString(IDS_ADDTOOLBUTTONTEXT));
          break;

        case ADDBTN_ID:
          if(SHORT2FROMMP(mp1) == EN_KILLFOCUS) {
            WinSetDlgItemText(hwnd,
                              ADDBTN_HELPME,
                              NullStr);
            PostMsg(hwnd,
                    UM_SETUP,
                    MPVOID,
                    MPVOID);
          }
          if(SHORT2FROMMP(mp1) == EN_SETFOCUS)
            WinSetDlgItemText(hwnd,
                              ADDBTN_HELPME,
                              GetPString(IDS_ADDTOOLBUTTONIDTEXT));
          break;

        case ADDBTN_MYICON:
          PostMsg(hwnd,UM_SETUP,MPVOID,MPVOID);
          WinEnableWindow(WinWindowFromID(hwnd,ADDBTN_EDITBMP),
                          WinQueryButtonCheckstate(hwnd,ADDBTN_MYICON));
          break;
      }
      return 0;

    case WM_COMMAND:
      switch(SHORT1FROMMP(mp1)) {
        case DID_OK:
          {
            CHAR  help[81],text[81],idstr[7];
            BOOL  invisible,dropable,separator,istext,myicon;
            TOOL *tool;

            WinQueryDlgItemText(hwnd,ADDBTN_HELP,80,help);
            WinQueryDlgItemText(hwnd,ADDBTN_TEXT,80,text);
            if(WinQueryButtonCheckstate(hwnd,ADDBTN_DROPABLE))
              dropable = TRUE;
            else
              dropable = FALSE;
            myicon = WinQueryButtonCheckstate(hwnd,ADDBTN_MYICON);
            if(WinQueryButtonCheckstate(hwnd,ADDBTN_VISIBLE))
              invisible = FALSE;
            else
              invisible = TRUE;
            if(WinQueryButtonCheckstate(hwnd,ADDBTN_SEPARATOR))
              separator = TRUE;
            else
              separator = FALSE;
            if(WinQueryButtonCheckstate(hwnd,ADDBTN_SHOWTEXT))
              istext = TRUE;
            else
              istext = FALSE;
            tool = INSTDATA(hwnd);
            if(tool) {        /* just editing strings... */
              istext = ((tool->flags & T_TEXT) != 0);
              if(tool->help)
                free(tool->help);
              tool->help = NULL;
              if(tool->text)
                free(tool->text);
              tool->text = NULL;
              if(*help)
                tool->help = strdup(help);
              if(*text)
                tool->text = strdup(text);
              tool->flags = (((dropable) ? T_DROPABLE : 0)  |
                            ((invisible) ? T_INVISIBLE : 0) |
                            ((separator) ? T_SEPARATOR : 0) |
                            ((myicon) ? T_MYICON : 0) |
                            ((istext) ? T_TEXT : 0));
              fToolsChanged = TRUE;
              WinDismissDlg(hwnd,1);
              break;
            }
            *idstr = 0;
            WinQueryDlgItemText(hwnd,ADDBTN_ID,6,idstr);
            if(!(USHORT)atoi(idstr)) {
              DosBeep(250,100);
              break;
            }
            tool = toolhead;
            while(tool) {
              if(tool->id == (USHORT)atoi(idstr) && tool != tool) {
                saymsg(MB_ENTER,
                       hwnd,
                       GetPString(IDS_DUPLICATETEXT),
                       GetPString(IDS_TOOLIDEXISTS));
                WinSetDlgItemText(hwnd,
                                  ADDBTN_ID,
                                  NullStr);
                WinSetFocus(HWND_DESKTOP,
                            WinWindowFromID(hwnd,ADDBTN_ID));
                break;
              }
              tool = tool->next;
            }
            tool = malloc(sizeof(TOOL));
            if(tool) {
              memset(tool,0,sizeof(TOOL));
              if(*help)
                tool->help = strdup(help);
              if(*text)
                tool->text = strdup(text);
              tool->id = (USHORT)atoi(idstr);
              tool->flags = (((dropable) ? T_DROPABLE : 0)  |
                            ((invisible) ? T_INVISIBLE : 0) |
                            ((separator) ? T_SEPARATOR : 0) |
                            ((myicon) ? T_MYICON : 0) |
                            ((istext) ? T_TEXT : 0));
              add_tool(tool);
              WinDismissDlg(hwnd,tool->id);
            }
          }
          break;

        case DID_CANCEL:
          WinDismissDlg(hwnd,0);
          break;

        case ADDBTN_EDITBMP:
          {
            CHAR idstr[6],filename[34];

            *idstr = 0;
            WinQueryDlgItemText(hwnd,ADDBTN_ID,6,idstr);
            if(!(USHORT)atoi(idstr)) {
              DosBeep(250,100);
              break;
            }
            sprintf(filename,
                    "%u.BMP",
                    atoi(idstr));
            if(IsFile(filename) != 1)
              docopyf(COPY,
                      "EMPTY.BMP",
                      filename);
            runemf2(SEPARATE | WINDOWED,
                    hwnd,
                    NULL,
                    NULL,
                    "ICONEDIT.EXE %s",
                    filename);
          }
          break;

        case IDM_HELP:
          if(hwndHelp) {
            if(INSTDATA(hwnd))
              WinSendMsg(hwndHelp,HM_DISPLAY_HELP,
                         MPFROM2SHORT(HELP_CHANGEBUTTON,0),
                         MPFROMSHORT(HM_RESOURCEID));
            else
              WinSendMsg(hwndHelp,HM_DISPLAY_HELP,
                         MPFROM2SHORT(HELP_ADDBUTTON,0),
                         MPFROMSHORT(HM_RESOURCEID));
          }
          break;
      }
      return 0;
  }
  return WinDefDlgProc(hwnd,msg,mp1,mp2);
}


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

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

        CHAR s[133];

        sprintf(s,
                GetPString(IDS_PICKTOOLTITLETEXT),
                (CHAR *)mp2);
        WinSetWindowText(hwnd,s);
      }
      {
        TOOL  *tool;
        CHAR   s[133];

        tool = toolhead;
        while(tool) {
          sprintf(s,
                  "%-5u  %s",
                  tool->id,
                  (tool->help) ? tool->help : "?");
          WinSendDlgItemMsg(hwnd,
                            PICKBTN_LISTBOX,
                            LM_INSERTITEM,
                            MPFROMSHORT(LIT_END),
                            MPFROMP(s));
          tool = tool->next;
        }
      }
      break;

    case WM_CONTROL:
      if(SHORT1FROMMP(mp1) == PICKBTN_LISTBOX) {
        switch(SHORT2FROMMP(mp1)) {
          case LN_ENTER:
            PostMsg(hwnd,WM_COMMAND,MPFROM2SHORT(DID_OK,0),MPVOID);
            break;
        }
      }
      return 0;

    case WM_COMMAND:
      switch(SHORT1FROMMP(mp1)) {
        case DID_CANCEL:
          WinDismissDlg(hwnd,0);
          break;
        case DID_OK:
          {
            SHORT  sSelect;
            CHAR   s[33];

            sSelect = (SHORT)WinSendDlgItemMsg(hwnd,PICKBTN_LISTBOX,
                                               LM_QUERYSELECTION,
                                               MPFROMSHORT(LIT_FIRST),
                                               MPVOID);
            if(sSelect >= 0) {
              *s = 0;
              WinSendDlgItemMsg(hwnd,PICKBTN_LISTBOX,LM_QUERYITEMTEXT,
                                MPFROM2SHORT(sSelect,32),MPFROMP(s));
              if(*s)
                WinDismissDlg(hwnd,(USHORT)atoi(s));
            }
          }
          break;
      }
      return 0;
  }
  return WinDefDlgProc(hwnd,msg,mp1,mp2);
}


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

  switch(msg) {
    case WM_INITDLG:
      if(mp2)
        WinSetWindowULong(hwnd,0,TRUE);
      else {
        WinSetWindowULong(hwnd,0,FALSE);
        WinSetWindowText(hwnd,
                         GetPString(IDS_LOADTOOLBOXTITLETEXT));
      }
      WinSendDlgItemMsg(hwnd,
                        SVBTN_ENTRY,
                        EM_SETTEXTLIMIT,
                        MPFROM2SHORT(CCHMAXPATH,0),
                        MPVOID);
      {
        FILEFINDBUF3 findbuf;
        HDIR         hDir;
        ULONG        ulSearchCount,x = 0;
        CHAR        *masks[] = {"*.TLS","FM3TOOLS.DAT",NULL};

        if(mp2)
          masks[1] = NULL;
        while(masks[x]) {
          hDir = HDIR_CREATE;
          ulSearchCount = 1L;
          DosError(FERR_DISABLEHARDERR);
          if(!DosFindFirst(masks[x],
                           &hDir,
                           FILE_ARCHIVED,
                           &findbuf,
                           sizeof(FILEFINDBUF3),
                           &ulSearchCount,
                           FIL_STANDARD)) {
            do {
              priority_bumped();
              WinSendMsg(WinWindowFromID(hwnd,
                                         SVBTN_LISTBOX),
                         LM_INSERTITEM,
                         MPFROM2SHORT(LIT_SORTASCENDING,0),
                         MPFROMP(findbuf.achName));
              ulSearchCount = 1L;
            } while(!DosFindNext(hDir,
                                 &findbuf,
                                 sizeof(FILEFINDBUF3),
                                 &ulSearchCount));
            DosFindClose(hDir);
            priority_bumped();
          }
          x++;
        }
        DosError(FERR_DISABLEHARDERR);
      }
      if(!WinSendDlgItemMsg(hwnd,
                            SVBTN_LISTBOX,
                            LM_QUERYITEMCOUNT,
                            MPVOID,
                            MPVOID)) {
        WinEnableWindow(WinWindowFromID(hwnd,
                                        SVBTN_LISTBOX),
                        FALSE);
        PostMsg(hwnd,
                UM_SETUP,
                MPVOID,
                MPVOID);
      }
      WinSetDlgItemText(hwnd,
                        SVBTN_CURRENT,
                        (*lasttoolbox) ?
                         lasttoolbox :
                         "FM3TOOLS.DAT");
      break;

    case UM_SETUP:
      WinSetFocus(HWND_DESKTOP,WinWindowFromID(hwnd,SVBTN_ENTRY));
      return 0;

    case WM_CONTROL:
      if(SHORT1FROMMP(mp1) == SVBTN_LISTBOX) {

        SHORT sSelect;
        CHAR  szBuffer[CCHMAXPATH];

        switch(SHORT2FROMMP(mp1)) {
          case LN_SELECT:
            sSelect = (SHORT)WinSendDlgItemMsg(hwnd,SVBTN_LISTBOX,
                                               LM_QUERYSELECTION,
                                               MPFROMSHORT(LIT_FIRST),
                                               MPVOID);
            if(sSelect >= 0) {
              *szBuffer = 0;
              WinSendDlgItemMsg(hwnd,SVBTN_LISTBOX,LM_QUERYITEMTEXT,
                                MPFROM2SHORT(sSelect,CCHMAXPATH),
                                MPFROMP(szBuffer));
              if(*szBuffer)
                WinSetDlgItemText(hwnd,SVBTN_ENTRY,szBuffer);
            }
            break;

          case LN_ENTER:
            PostMsg(hwnd,WM_COMMAND,MPFROM2SHORT(DID_OK,0),MPVOID);
            break;
        }
      }
      return 0;

    case WM_COMMAND:
      switch(SHORT1FROMMP(mp1)) {
        case IDM_HELP:
          if(hwndHelp) {
            if(INSTDATA(hwnd))
              WinSendMsg(hwndHelp,HM_DISPLAY_HELP,
                         MPFROM2SHORT(HELP_SAVETOOLS,0),
                         MPFROMSHORT(HM_RESOURCEID));
            else
              WinSendMsg(hwndHelp,HM_DISPLAY_HELP,
                         MPFROM2SHORT(HELP_LOADTOOLS,0),
                         MPFROMSHORT(HM_RESOURCEID));
          }
          break;

        case DID_CANCEL:
          WinDismissDlg(hwnd,0);
          break;

        case DID_OK:
          {
            BOOL saving = WinQueryWindowULong(hwnd,0);
            CHAR temptools[CCHMAXPATH];

            strcpy(temptools,lasttoolbox);
            if(fToolsChanged)
              save_tools(NULL);
            WinQueryDlgItemText(hwnd,
                                SVBTN_ENTRY,
                                sizeof(lasttoolbox),
                                lasttoolbox);
            if(*lasttoolbox) {
              if(!strchr(lasttoolbox,'.'))
                strcat(lasttoolbox,".TLS");
            }
            if(saving && *lasttoolbox)
              save_tools(NULL);
            else {
              if(!load_tools(NULL)) {
                strcpy(lasttoolbox,temptools);
                if(!load_tools(NULL)) {
                  *lasttoolbox = 0;
                  load_tools(NULL);
                }
              }
            }
            PrfWriteProfileString(fmprof,
                                  FM3Str,
                                  "LastToolBox",
                                  lasttoolbox);
          }
          WinDismissDlg(hwnd,1);
          break;
      }
      return 0;
  }
  return WinDefDlgProc(hwnd,msg,mp1,mp2);
}