/***********************************************************************

  $Id: tools.c 551 2007-02-28 01:33:51Z gyoung $

  Toolbar support routines

  Copyright (c) 1994-97 M. Kimes
  Copyright (c) 2004, 2006 Steven H.Levine

  01 Aug 04 SHL Rework lstrip/rstrip usage
  23 May 05 SHL Use QWL_USER
  22 Jul 06 SHL Check more run time errors
  29 Jul 06 SHL Use xfgets, xfgets_bstripcr
  18 Aug 06 SHL Report more runtime errors
  05 Sep 06 SHL docopyf filename args must be variables
  05 Sep 06 SHL Sync with standard source formatting

***********************************************************************/

#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)

static PSZ pszSrcFile = __FILE__;

#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;

//== load_quicktools() build *.tls array ==

VOID load_quicktools(VOID)
{
  FILE *fp;
  CHAR s[CCHMAXPATH + 14];
  INT x;

  qtloaded = TRUE;
  for (x = 0; x < 50 && quicktool[x]; x++) {
    free(quicktool[x]);
    quicktool[x] = NULL;
  }
  if (!fToolbar) {
    qtloaded = FALSE;
    return;
  }
  save_dir2(s);
  if (s[strlen(s) - 1] != '\\')
    strcat(s, "\\");
  strcat(s, "QUICKTLS.DAT");
  fp = _fsopen(s, "r", SH_DENYWR);
  if (fp) {
    x = 0;
    while (!feof(fp)) {
      if (!xfgets_bstripcr(s, CCHMAXPATH + 2, fp, pszSrcFile, __LINE__))
	break;
      if (!*s || *s == ';')
	continue;
      if (x >= 50) {
	Runtime_Error(pszSrcFile, __LINE__, "add");
	break;
      }
      quicktool[x] = xstrdup(s, pszSrcFile, __LINE__);
      if (!quicktool[x])
	break;
      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 = xfopen(s, "w", pszSrcFile, __LINE__);
  if (fp) {
    for (x = 0; quicktool[x] && x < 50; x++)
      fprintf(fp, "%s\n", quicktool[x]);
    fclose(fp);
  }
}

//== load_tools() Build tools list given .tls filename ==

TOOL *load_tools(CHAR * filename)
{
  FILE *fp;
  CHAR help[80], text[80], flagstr[80], idstr[80], *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 (!xfgets(help, sizeof(help), fp, pszSrcFile, __LINE__))
	    break;
	} while (*help == ';' && !feof(fp));
	stripcr(help);
	if (!xfgets(text, sizeof(text), fp, pszSrcFile, __LINE__))
	  break;
	stripcr(text);
	if (!xfgets(flagstr, sizeof(flagstr), fp, pszSrcFile, __LINE__))
	  break;
	if (!xfgets(idstr, sizeof(idstr), fp, pszSrcFile, __LINE__))
	  break;
	if (!(USHORT) atoi(idstr))
	  continue;
	info = xmallocz(sizeof(TOOL), pszSrcFile, __LINE__);
	if (info) {
	  if (*help) {
	    literal(help);
	    if (*help)
	      info->help = xstrdup(help, pszSrcFile, __LINE__);
	  }
	  if (*text)
	    info->text = xstrdup(text, pszSrcFile, __LINE__);
	  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 = xfopen(filename, "w", pszSrcFile, __LINE__);
  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, QWL_USER, 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 = xstrdup(help, pszSrcFile, __LINE__);
	  if (*text)
	    tool->text = xstrdup(text, pszSrcFile, __LINE__);
	  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 = xmallocz(sizeof(TOOL), pszSrcFile, __LINE__);
	if (tool) {
	  if (*help)
	    tool->help = xstrdup(help, pszSrcFile, __LINE__);
	  if (*text)
	    tool->text = xstrdup(text, pszSrcFile, __LINE__);
	  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) {
	  CHAR s[CCHMAXPATH] = "EMPTY.BMP";

	  docopyf(COPY, s, 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, QWL_USER, TRUE);
    else {
      WinSetWindowULong(hwnd, QWL_USER, 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, QWL_USER);
	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);
}