Context Navigation

source: trunk/dll/tools.c@ 1398

Visit:

Last change on this file since 1398 was 1398, checked in by Gregg Young, 16 years ago
Move embeded strings to PCSZ variables or string table; Eliminate Error2 functions Runtime_Error with NULL format string returns "No data" error. Change declares from PSZ to PCSZ in functions where the variable isn't changed. Added btm as an executable file type in several additional places. Use fProtectOnly to prevent attempt to execute Dos and Win programs on "Protect only" installs in several additional places.
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 26.3 KB

Rev	Line
[2]	1
[123]	2	/***********************************************************************
	3
	4	$Id: tools.c 1398 2009-02-21 17:43:00Z gyoung $
	5
[329]	6	Toolbar support routines
[123]	7
	8	Copyright (c) 1994-97 M. Kimes
[1348]	9	Copyright (c) 2004, 2008 Steven H.Levine
[123]	10
[130]	11	01 Aug 04 SHL Rework lstrip/rstrip usage
	12	23 May 05 SHL Use QWL_USER
[329]	13	22 Jul 06 SHL Check more run time errors
[401]	14	29 Jul 06 SHL Use xfgets, xfgets_bstripcr
[440]	15	18 Aug 06 SHL Report more runtime errors
[487]	16	05 Sep 06 SHL docopyf filename args must be variables
[512]	17	05 Sep 06 SHL Sync with standard source formatting
[793]	18	20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat
[985]	19	29 Feb 08 GKY Use xfree where appropriate
[1082]	20	19 Jul 08 GKY Replace save_dir2(dir) with pFM2SaveDirectory and use BldFullPathName
[1119]	21	24 Aug 08 GKY Warn full drive on save of .DAT & .TLS files; prevent loss of existing file
[1121]	22	26 Aug 08 GKY Require unique ID plus text and help strings for all tools save toolbar on button delete
[1140]	23	01 Sep 08 GKY Save toolbars immediately on change.
[1395]	24	07 Feb 09 GKY Allow user to turn off alert and/or error beeps in settings notebook.
[123]	25
	26	***********************************************************************/
	27
[907]	28	#include <stdlib.h>
	29	#include <string.h>
	30	#include <share.h>
	31
[2]	32	#define INCL_DOS
	33	#define INCL_WIN
[841]	34	#define INCL_LONGLONG
[2]	35
[1184]	36	#include "fm3dll.h"
[1227]	37	#include "fm3dll2.h" // #define's for UM_*, control id's, etc.
	38	#include "tools.h"
[1213]	39	#include "arccnrs.h" // Data declaration(s)
	40	#include "notebook.h" // Data declaration(s)
	41	#include "init.h" // Data declaration(s)
	42	#include "mainwnd.h" // Data declaration(s)
[2]	43	#include "fm3dlg.h"
	44	#include "fm3str.h"
[907]	45	#include "errutil.h" // Dos_Error...
	46	#include "strutil.h" // GetPString
[1082]	47	#include "pathutil.h" // BldFullPathName
[1079]	48	#include "fortify.h"
[1160]	49	#include "loadbmp.h" // LoadBitmapFromFileNum
[1184]	50	#include "copyf.h" // docopyf
	51	#include "literal.h" // literal
	52	#include "wrappers.h" // xfgets
	53	#include "misc.h" // CheckDriveSpaceAvail
	54	#include "srchpath.h" // searchpath
	55	#include "stristr.h" // stristr
	56	#include "valid.h" // IsFile
	57	#include "systemf.h" // runemf2
	58	#include "dirs.h" // save_dir2
	59	#include "strips.h" // bstrip
[2]	60
[1213]	61	// Data definitions
[2]	62	#pragma data_seg(DATA1)
[329]	63
	64	static PSZ pszSrcFile = __FILE__;
	65
[1213]	66	#pragma data_seg(GLOBAL1)
	67	BOOL fToolsChanged;
[2]	68	TOOL *toolhead = NULL;
	69
[1213]	70	#pragma data_seg(GLOBAL2)
	71	CHAR lasttoolbar[CCHMAXPATH];
	72	BOOL qtloaded;
	73	CHAR *quicktool[50];
	74
[440]	75	//== load_quicktools() build *.tls array ==
[2]	76
[440]	77	VOID load_quicktools(VOID)
	78	{
[551]	79	FILE *fp;
	80	CHAR s[CCHMAXPATH + 14];
	81	INT x;
[2]	82
	83	qtloaded = TRUE;
[440]	84	for (x = 0; x < 50 && quicktool[x]; x++) {
[1039]	85	free(quicktool[x]);
[2]	86	quicktool[x] = NULL;
	87	}
[440]	88	if (!fToolbar) {
[2]	89	qtloaded = FALSE;
	90	return;
	91	}
[1398]	92	BldFullPathName(s, pFM2SaveDirectory, PCSZ_QUICKTLSDAT);
[551]	93	fp = _fsopen(s, "r", SH_DENYWR);
[329]	94	if (fp) {
[440]	95	x = 0;
	96	while (!feof(fp)) {
[551]	97	if (!xfgets_bstripcr(s, CCHMAXPATH + 2, fp, pszSrcFile, __LINE__))
	98	break;
[440]	99	if (!s \|\| s == ';')
[551]	100	continue;
[440]	101	if (x >= 50) {
	102	Runtime_Error(pszSrcFile, __LINE__, "add");
	103	break;
[2]	104	}
[551]	105	quicktool[x] = xstrdup(s, pszSrcFile, __LINE__);
[440]	106	if (!quicktool[x])
[551]	107	break;
[440]	108	x++;
[2]	109	}
	110	fclose(fp);
	111	}
	112	}
	113
[440]	114	VOID save_quicktools(VOID)
	115	{
[2]	116	FILE *fp;
[551]	117	INT x = 0;
	118	CHAR s[CCHMAXPATH + 14];
[2]	119
[487]	120	if (!quicktool[0])
[2]	121	return;
[1398]	122	BldFullPathName(s, pFM2SaveDirectory, PCSZ_QUICKTLSDAT);
[1118]	123	if (CheckDriveSpaceAvail(s, ullDATFileSpaceNeeded, 1) == 2)
[1117]	124	return; //already gave error msg
[551]	125	fp = xfopen(s, "w", pszSrcFile, __LINE__);
[329]	126	if (fp) {
[551]	127	for (x = 0; quicktool[x] && x < 50; x++)
	128	fprintf(fp, "%s\n", quicktool[x]);
[2]	129	fclose(fp);
	130	}
	131	}
	132
[440]	133	//== load_tools() Build tools list given .tls filename ==
[2]	134
[551]	135	TOOL load_tools(CHAR filename)
[440]	136	{
[551]	137	FILE *fp;
	138	CHAR help[80], text[80], flagstr[80], idstr[80], *fname;
	139	TOOL *info;
[2]	140
[487]	141	if (!fToolbar) {
[2]	142	toolhead = free_tools();
	143	return toolhead;
	144	}
[551]	145	if (!filename \|\| !*filename)
[1122]	146	filename = (*lasttoolbar) ? lasttoolbar : "CMDS.TLS";
[487]	147	if (*filename)
[2]	148	fname = searchpath(filename);
[551]	149	if (!fname \|\| !*fname)
[1398]	150	fname = (PSZ) PCSZ_FM3TOOLSDAT;
[551]	151	if (fname && *fname) {
[2]	152	filename = fname;
[1122]	153	strcpy(lasttoolbar, filename);
[551]	154	fp = _fsopen(filename, "r", SH_DENYWR);
[329]	155	if (fp) {
[2]	156	toolhead = free_tools();
[487]	157	while (!feof(fp)) {
[551]	158	do {
	159	if (!xfgets(help, sizeof(help), fp, pszSrcFile, __LINE__))
	160	break;
	161	} while (*help == ';' && !feof(fp));
	162	stripcr(help);
	163	if (!xfgets(text, sizeof(text), fp, pszSrcFile, __LINE__))
	164	break;
	165	stripcr(text);
	166	if (!xfgets(flagstr, sizeof(flagstr), fp, pszSrcFile, __LINE__))
	167	break;
	168	if (!xfgets(idstr, sizeof(idstr), fp, pszSrcFile, __LINE__))
	169	break;
	170	if (!(USHORT) atoi(idstr))
	171	continue;
	172	info = xmallocz(sizeof(TOOL), pszSrcFile, __LINE__);
	173	if (info) {
[1079]	174	# ifdef FORTIFY
	175	Fortify_SetOwner(info, 1);
	176	Fortify_SetScope(info, 1);
	177	# endif
[551]	178	if (*help) {
	179	literal(help);
[1079]	180	if (*help) {
[551]	181	info->help = xstrdup(help, pszSrcFile, __LINE__);
[1079]	182	# ifdef FORTIFY
	183	Fortify_SetOwner(info->help, 1);
	184	Fortify_SetScope(info->help, 1);
	185	# endif
	186	}
[551]	187	}
[1079]	188	if (*text) {
[551]	189	info->text = xstrdup(text, pszSrcFile, __LINE__);
[1079]	190	# ifdef FORTIFY
	191	Fortify_SetOwner(info->text, 1);
	192	Fortify_SetScope(info->text, 1);
	193	# endif
	194	}
[551]	195	info->flags = (atoi(flagstr) & (~(T_TEXT \| T_EMPHASIZED)));
	196	info->id = (USHORT) atoi(idstr);
	197	info->next = NULL;
	198	add_tool(info);
	199	}
[2]	200	}
	201	fclose(fp);
	202	fToolsChanged = FALSE;
	203	}
	204	}
	205	return toolhead;
	206	}
	207
[551]	208	VOID save_tools(CHAR * filename)
[440]	209	{
[551]	210	FILE *fp;
	211	CHAR *fname;
	212	TOOL *info;
[2]	213
[487]	214	if (!filename)
[1122]	215	filename = lasttoolbar;
[487]	216	if (*filename)
[2]	217	fname = searchpath(filename);
[487]	218	if (fname && *fname)
[2]	219	filename = fname;
	220	else {
[1122]	221	if (*lasttoolbar)
	222	filename = lasttoolbar;
[2]	223	else
	224	filename = "FM3TOOLS.TLS";
	225	fname = searchpath(filename);
[487]	226	if (fname && *fname)
[2]	227	filename = fname;
	228	}
	229
[1398]	230	if (stristr(filename, PCSZ_FM3TOOLSDAT))
[2]	231	filename = "FM3TOOLS.TLS";
[487]	232	if (toolhead && filename && *filename) {
[1122]	233	strcpy(lasttoolbar, filename);
	234	PrfWriteProfileString(fmprof, FM3Str, "LastToolbar", filename);
[2]	235	}
[487]	236	if (!toolhead) {
[551]	237	unlinkf("%s", filename);
[2]	238	return;
	239	}
[1118]	240	if (CheckDriveSpaceAvail(filename, ullDATFileSpaceNeeded, 1) == 2)
[1117]	241	return; //already gave error msg
[551]	242	fp = xfopen(filename, "w", pszSrcFile, __LINE__);
[329]	243	if (fp) {
[551]	244	fprintf(fp, GetPString(IDS_TOOLFILETEXT), filename);
[2]	245	info = toolhead;
[487]	246	while (info) {
[2]	247	fprintf(fp,
[551]	248	"%s\n%s\n%u\n%u\n;\n",
	249	(info->help) ? info->help : NullStr,
	250	(info->text) ? info->text : NullStr,
	251	(info->flags & (~(T_EMPHASIZED \| T_TEXT))), info->id);
[2]	252	info = info->next;
	253	}
	254	fclose(fp);
	255	fToolsChanged = FALSE;
	256	}
[487]	257	if (hwndMain)
[551]	258	PostMsg(hwndMain, UM_FILLBUTTONLIST, MPVOID, MPVOID);
[2]	259	}
	260
[551]	261	TOOL add_tool(TOOL tool)
[440]	262	{
[2]	263	TOOL *info;
	264
[487]	265	if (tool) {
[2]	266	info = toolhead;
[487]	267	if (info) {
	268	while (info->next)
[551]	269	info = info->next;
[2]	270	}
[487]	271	if (info)
[2]	272	info->next = tool;
	273	else
	274	toolhead = tool;
	275	fToolsChanged = TRUE;
	276	}
	277	return toolhead;
	278	}
	279
[551]	280	TOOL insert_tool(TOOL tool, TOOL * after)
[440]	281	{
[487]	282	if (tool) {
	283	if (!toolhead)
[2]	284	return add_tool(tool);
[487]	285	if (!after) {
[2]	286	tool->next = toolhead;
	287	toolhead = tool;
	288	fToolsChanged = TRUE;
	289	}
	290	else {
	291	tool->next = after->next;
	292	after->next = tool;
	293	fToolsChanged = TRUE;
	294	}
	295	}
	296	return toolhead;
	297	}
	298
[551]	299	TOOL del_tool(TOOL tool)
[440]	300	{
[551]	301	TOOL info, prev = NULL;
[2]	302
[487]	303	if (tool) {
[2]	304	info = toolhead;
[487]	305	while (info) {
	306	if (info == tool) {
[551]	307	if (info == toolhead)
	308	toolhead = info->next;
	309	if (prev)
	310	prev->next = info->next;
[1009]	311	xfree(info->help, pszSrcFile, __LINE__);
	312	xfree(info->text, pszSrcFile, __LINE__);
[1039]	313	free(info);
[551]	314	fToolsChanged = TRUE;
	315	break;
[2]	316	}
	317	prev = info;
	318	info = info->next;
	319	}
	320	}
	321	return toolhead;
	322	}
	323
[440]	324	TOOL *find_tool(USHORT id)
	325	{
[2]	326	TOOL *tool;
	327
[487]	328	if (id) {
[2]	329	tool = toolhead;
[487]	330	while (tool) {
	331	if (id && tool->id == id)
[551]	332	return tool;
[2]	333	tool = tool->next;
	334	}
	335	}
	336	return NULL;
	337	}
	338
[551]	339	TOOL next_tool(TOOL tool, BOOL skipinvisible)
[440]	340	{
[487]	341	while (tool) {
	342	if (tool->next && (skipinvisible && (tool->next->flags & T_INVISIBLE)))
[2]	343	tool = tool->next;
	344	else
	345	return (tool->next) ? tool->next : toolhead;
	346	}
	347	return NULL;
	348	}
	349
[551]	350	TOOL prev_tool(TOOL tool, BOOL skipinvisible)
[440]	351	{
[2]	352	TOOL *info;
	353
	354	Again:
[487]	355	while (tool) {
[2]	356	info = toolhead;
[487]	357	while (info) {
	358	if (info->next == tool) {
[551]	359	if (skipinvisible && (info->flags & T_INVISIBLE)) {
	360	tool = info;
	361	goto Again;
	362	}
	363	return info;
[2]	364	}
[487]	365	if (!info->next && tool == toolhead)
[551]	366	return info;
[2]	367	info = info->next;
	368	}
	369	return toolhead;
	370	}
	371	return NULL;
	372	}
	373
[551]	374	TOOL swap_tools(TOOL tool1, TOOL * tool2)
[440]	375	{
[551]	376	TOOL prev1 = NULL, prev2 = NULL, *info;
[2]	377
[487]	378	if (tool1 && tool2 && tool1 != tool2) {
[2]	379	info = toolhead;
[487]	380	while (info && !prev1 && !prev2) {
	381	if (info->next == tool1)
[551]	382	prev1 = info;
[487]	383	else if (info->next == tool2)
[551]	384	prev2 = info;
[2]	385	info = info->next;
	386	}
	387	info = tool2;
	388	tool2 = tool1;
	389	tool1 = info;
	390	info = tool2->next;
[487]	391	if (prev1)
[2]	392	prev1->next = tool2;
[487]	393	if (prev2)
[2]	394	prev2->next = tool1;
	395	tool2->next = tool1->next;
	396	tool1->next = info;
	397	fToolsChanged = TRUE;
	398	}
	399	return toolhead;
	400	}
	401
[440]	402	TOOL *free_tools(VOID)
	403	{
[551]	404	TOOL tool, next;
[2]	405
	406	tool = toolhead;
[487]	407	while (tool) {
[2]	408	next = tool->next;
[1009]	409	xfree(tool->help, pszSrcFile, __LINE__);
	410	xfree(tool->text, pszSrcFile, __LINE__);
[1039]	411	free(tool);
[2]	412	tool = next;
	413	}
	414	toolhead = NULL;
	415	return toolhead;
	416	}
	417
[551]	418	MRESULT EXPENTRY ReOrderToolsProc(HWND hwnd, ULONG msg, MPARAM mp1,
	419	MPARAM mp2)
[440]	420	{
[487]	421	switch (msg) {
[551]	422	case WM_INITDLG:
	423	if (!toolhead \|\| !toolhead->next)
	424	WinDismissDlg(hwnd, 0);
	425	WinSetWindowText(hwnd, GetPString(IDS_RETOOLTEXT));
	426	{
	427	TOOL *tool;
	428	CHAR s[133];
	429	SHORT sSelect;
[2]	430
[551]	431	tool = toolhead;
	432	while (tool) {
	433	sprintf(s, "%-5u %s", tool->id, (tool->help) ? tool->help : "?");
	434	sSelect = (SHORT) WinSendDlgItemMsg(hwnd,
	435	RE_ADDLISTBOX,
	436	LM_INSERTITEM,
	437	MPFROMSHORT(LIT_END), MPFROMP(s));
	438	if (sSelect >= 0)
	439	WinSendDlgItemMsg(hwnd,
	440	RE_ADDLISTBOX,
	441	LM_SETITEMHANDLE,
	442	MPFROMSHORT(sSelect), MPFROMLONG((ULONG) tool));
	443	tool = tool->next;
[2]	444	}
[551]	445	}
	446	break;
[2]	447
[551]	448	case WM_CONTROL:
	449	return 0;
[2]	450
[551]	451	case WM_COMMAND:
	452	switch (SHORT1FROMMP(mp1)) {
	453	case DID_CANCEL:
	454	WinDismissDlg(hwnd, 0);
	455	break;
[2]	456
[551]	457	case DID_OK:
	458	{
	459	TOOL tool, thead = NULL, *last = NULL;
	460	SHORT sSelect = 0, numitems;
[2]	461
[551]	462	numitems = (SHORT) WinSendDlgItemMsg(hwnd, RE_REMOVELISTBOX,
	463	LM_QUERYITEMCOUNT,
	464	MPVOID, MPVOID);
	465	while (numitems) {
	466	tool = (TOOL *) WinSendDlgItemMsg(hwnd, RE_REMOVELISTBOX,
	467	LM_QUERYITEMHANDLE,
	468	MPFROMSHORT(sSelect++), MPVOID);
	469	if (tool) {
	470	if (!thead)
	471	thead = tool;
	472	else
	473	last->next = tool;
	474	last = tool;
	475	}
	476	numitems--;
	477	}
	478	sSelect = 0;
	479	numitems = (SHORT) WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX,
	480	LM_QUERYITEMCOUNT,
	481	MPVOID, MPVOID);
	482	while (numitems) {
	483	tool = (TOOL *) WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX,
	484	LM_QUERYITEMHANDLE,
	485	MPFROMSHORT(sSelect++), MPVOID);
	486	if (tool) {
	487	if (!thead)
	488	thead = tool;
	489	else
	490	last->next = tool;
	491	last = tool;
	492	}
	493	numitems--;
	494	}
	495	if (last)
	496	last->next = NULL;
	497	toolhead = thead;
	498	}
[1131]	499	save_tools(NULL);
[551]	500	WinDismissDlg(hwnd, 1);
	501	break;
[2]	502
[551]	503	case IDM_HELP:
	504	if (hwndHelp)
	505	WinSendMsg(hwndHelp, HM_DISPLAY_HELP,
	506	MPFROM2SHORT(HELP_REORDERBUTTONS, 0),
	507	MPFROMSHORT(HM_RESOURCEID));
	508	break;
[2]	509
[551]	510	case RE_ADD:
	511	{
	512	SHORT sSelect, sSelect2;
	513	CHAR s[133];
	514	TOOL *tool;
[2]	515
[551]	516	sSelect = (USHORT) WinSendDlgItemMsg(hwnd,
	517	RE_ADDLISTBOX,
	518	LM_QUERYSELECTION,
	519	MPFROMSHORT(LIT_FIRST), MPVOID);
	520	while (sSelect >= 0) {
	521	tool = (TOOL *) WinSendDlgItemMsg(hwnd,
	522	RE_ADDLISTBOX,
	523	LM_QUERYITEMHANDLE,
	524	MPFROMSHORT(sSelect), MPVOID);
	525	if (tool) {
	526	sprintf(s, "%-5u %s", tool->id, (tool->help) ? tool->help : "?");
	527	sSelect2 = (SHORT) WinSendDlgItemMsg(hwnd,
	528	RE_REMOVELISTBOX,
	529	LM_INSERTITEM,
	530	MPFROM2SHORT(LIT_END, 0),
	531	MPFROMP(s));
	532	if (sSelect2 >= 0)
	533	WinSendDlgItemMsg(hwnd,
	534	RE_REMOVELISTBOX,
	535	LM_SETITEMHANDLE,
	536	MPFROMSHORT(sSelect2),
	537	MPFROMLONG((ULONG) tool));
	538	WinSendDlgItemMsg(hwnd,
	539	RE_ADDLISTBOX,
	540	LM_DELETEITEM, MPFROMSHORT(sSelect), MPVOID);
	541	}
	542	else
	543	WinSendDlgItemMsg(hwnd,
	544	RE_ADDLISTBOX,
	545	LM_SELECTITEM,
	546	MPFROMSHORT(sSelect), MPFROMSHORT(FALSE));
	547	sSelect = (USHORT) WinSendDlgItemMsg(hwnd,
	548	RE_ADDLISTBOX,
	549	LM_QUERYSELECTION,
	550	MPFROMSHORT(LIT_FIRST),
	551	MPVOID);
	552	}
	553	}
	554	break;
[2]	555
[551]	556	case RE_REMOVE:
	557	{
	558	SHORT sSelect, sSelect2;
	559	CHAR s[133];
	560	TOOL *tool;
[2]	561
[551]	562	sSelect = (USHORT) WinSendDlgItemMsg(hwnd,
	563	RE_REMOVELISTBOX,
	564	LM_QUERYSELECTION,
	565	MPFROMSHORT(LIT_FIRST), MPVOID);
	566	while (sSelect >= 0) {
	567	tool = (TOOL *) WinSendDlgItemMsg(hwnd,
	568	RE_REMOVELISTBOX,
	569	LM_QUERYITEMHANDLE,
	570	MPFROMSHORT(sSelect), MPVOID);
	571	if (tool) {
	572	sprintf(s, "%-5u %s", tool->id, (tool->help) ? tool->help : "?");
	573	sSelect2 = (SHORT) WinSendDlgItemMsg(hwnd,
	574	RE_ADDLISTBOX,
	575	LM_INSERTITEM,
	576	MPFROM2SHORT(LIT_END, 0),
	577	MPFROMP(s));
	578	if (sSelect2 >= 0)
	579	WinSendDlgItemMsg(hwnd,
	580	RE_ADDLISTBOX,
	581	LM_SETITEMHANDLE,
	582	MPFROMSHORT(sSelect2),
	583	MPFROMLONG((ULONG) tool));
	584	WinSendDlgItemMsg(hwnd,
	585	RE_REMOVELISTBOX,
	586	LM_DELETEITEM, MPFROMSHORT(sSelect), MPVOID);
	587	}
	588	else
	589	WinSendDlgItemMsg(hwnd,
	590	RE_REMOVELISTBOX,
	591	LM_SELECTITEM,
	592	MPFROMSHORT(sSelect), MPFROMSHORT(FALSE));
	593	sSelect = (USHORT) WinSendDlgItemMsg(hwnd,
	594	RE_REMOVELISTBOX,
	595	LM_QUERYSELECTION,
	596	MPFROMSHORT(LIT_FIRST),
	597	MPVOID);
	598	}
[2]	599	}
[551]	600	break;
	601	}
	602	return 0;
[2]	603	}
[551]	604	return WinDefDlgProc(hwnd, msg, mp1, mp2);
[2]	605	}
	606
[551]	607	MRESULT EXPENTRY AddToolProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
[440]	608	{
[487]	609	switch (msg) {
[551]	610	case WM_INITDLG:
	611	WinSetWindowPtr(hwnd, QWL_USER, mp2);
	612	if (mp2) {
	613	WinSetWindowText(hwnd, GetPString(IDS_EDITTOOLTEXT));
	614	WinSendDlgItemMsg(hwnd, ADDBTN_ID, EM_SETREADONLY,
	615	MPFROM2SHORT(TRUE, 0), MPVOID);
	616	}
	617	WinSendDlgItemMsg(hwnd, ADDBTN_HELP, EM_SETTEXTLIMIT,
	618	MPFROM2SHORT(80, 0), MPVOID);
	619	WinSendDlgItemMsg(hwnd, ADDBTN_TEXT, EM_SETTEXTLIMIT,
	620	MPFROM2SHORT(80, 0), MPVOID);
	621	WinSendDlgItemMsg(hwnd, ADDBTN_ID, EM_SETTEXTLIMIT,
	622	MPFROM2SHORT(5, 0), MPVOID);
	623	if (!mp2)
	624	WinCheckButton(hwnd, ADDBTN_VISIBLE, TRUE);
	625	else {
	626	TOOL tool = (TOOL ) mp2;
	627	CHAR s[33];
[2]	628
[551]	629	if (tool->help)
	630	WinSetDlgItemText(hwnd, ADDBTN_HELP, tool->help);
	631	if (tool->text)
	632	WinSetDlgItemText(hwnd, ADDBTN_TEXT, tool->text);
	633	if (tool->flags & T_MYICON)
	634	WinCheckButton(hwnd, ADDBTN_MYICON, TRUE);
	635	else
	636	WinEnableWindow(WinWindowFromID(hwnd, ADDBTN_EDITBMP), FALSE);
	637	if (tool->flags & T_DROPABLE)
	638	WinCheckButton(hwnd, ADDBTN_DROPABLE, TRUE);
	639	if (!(tool->flags & T_INVISIBLE))
	640	WinCheckButton(hwnd, ADDBTN_VISIBLE, TRUE);
	641	if (tool->flags & T_SEPARATOR)
	642	WinCheckButton(hwnd, ADDBTN_SEPARATOR, TRUE);
	643	if (tool->flags & T_TEXT)
	644	WinCheckButton(hwnd, ADDBTN_SHOWTEXT, TRUE);
	645	sprintf(s, "%u", tool->id);
	646	WinSetDlgItemText(hwnd, ADDBTN_ID, s);
	647	WinEnableWindow(WinWindowFromID(hwnd, ADDBTN_SHOWTEXT), FALSE);
	648	}
	649	WinShowWindow(WinWindowFromID(hwnd, ADDBTN_SHOWTEXT), FALSE);
	650	PostMsg(hwnd, UM_SETUP, MPVOID, MPVOID);
	651	break;
[2]	652
[551]	653	case WM_ADJUSTWINDOWPOS:
	654	PostMsg(hwnd, UM_SETDIR, MPVOID, MPVOID);
	655	break;
[2]	656
[551]	657	case UM_SETDIR:
	658	PaintRecessedWindow(WinWindowFromID(hwnd, ADDBTN_HELPME), (HPS) 0, FALSE,
	659	TRUE);
	660	PaintRecessedWindow(WinWindowFromID(hwnd, ADDBTN_BMP), (HPS) 0, TRUE,
	661	FALSE);
	662	return 0;
[2]	663
[551]	664	case UM_SETUP:
	665	{
	666	HBITMAP hbm = (HBITMAP) 0, hbmd, hbmdd;
	667	HPS hps;
	668	CHAR idstr[7];
	669	USHORT id;
[2]	670
[551]	671	*idstr = 0;
	672	WinQueryDlgItemText(hwnd, ADDBTN_ID, 6, idstr);
	673	id = atoi(idstr);
	674	if (id) {
	675	hps = WinGetPS(WinWindowFromID(hwnd, ADDBTN_BMP));
	676	if (!WinQueryButtonCheckstate(hwnd, ADDBTN_MYICON))
	677	hbm = GpiLoadBitmap(hps, 0, id, 28, 28);
	678	if (!hbm)
	679	hbm = LoadBitmapFromFileNum(id);
	680	if (hbm) {
	681	hbmd = (HBITMAP) WinSendDlgItemMsg(hwnd, ADDBTN_BMP, SM_QUERYHANDLE,
	682	MPVOID, MPVOID);
	683	hbmdd = (HBITMAP) WinSendDlgItemMsg(hwnd, ADDBTN_BMP, SM_SETHANDLE,
	684	MPFROMLONG(hbm), MPVOID);
	685	if (hbmdd && hbmd && hbmd != hbmdd)
	686	GpiDeleteBitmap(hbmd);
	687	}
[2]	688	}
[551]	689	}
	690	return 0;
[2]	691
[551]	692	case WM_CONTROL:
	693	switch (SHORT1FROMMP(mp1)) {
	694	case ADDBTN_HELP:
	695	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	696	WinSetDlgItemText(hwnd, ADDBTN_HELPME, NullStr);
	697	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	698	WinSetDlgItemText(hwnd, ADDBTN_HELPME,
	699	GetPString(IDS_ADDTOOLQUICKHELPTEXT));
	700	break;
[2]	701
[551]	702	case ADDBTN_TEXT:
	703	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	704	WinSetDlgItemText(hwnd, ADDBTN_HELPME, NullStr);
	705	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	706	WinSetDlgItemText(hwnd, ADDBTN_HELPME,
	707	GetPString(IDS_ADDTOOLBUTTONTEXT));
	708	break;
[2]	709
[551]	710	case ADDBTN_ID:
	711	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) {
	712	WinSetDlgItemText(hwnd, ADDBTN_HELPME, NullStr);
	713	PostMsg(hwnd, UM_SETUP, MPVOID, MPVOID);
[2]	714	}
[551]	715	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	716	WinSetDlgItemText(hwnd,
	717	ADDBTN_HELPME, GetPString(IDS_ADDTOOLBUTTONIDTEXT));
	718	break;
[2]	719
[551]	720	case ADDBTN_MYICON:
	721	PostMsg(hwnd, UM_SETUP, MPVOID, MPVOID);
	722	WinEnableWindow(WinWindowFromID(hwnd, ADDBTN_EDITBMP),
	723	WinQueryButtonCheckstate(hwnd, ADDBTN_MYICON));
	724	break;
	725	}
	726	return 0;
[2]	727
[551]	728	case WM_COMMAND:
	729	switch (SHORT1FROMMP(mp1)) {
	730	case DID_OK:
	731	{
	732	CHAR help[81], text[81], idstr[7];
	733	BOOL invisible, dropable, separator, istext, myicon;
[1121]	734	TOOL *tool;
	735	BOOL BadID = FALSE;
[2]	736
[1121]	737	help[0] = text[0] = NULL;
[551]	738	WinQueryDlgItemText(hwnd, ADDBTN_HELP, 80, help);
	739	WinQueryDlgItemText(hwnd, ADDBTN_TEXT, 80, text);
	740	if (WinQueryButtonCheckstate(hwnd, ADDBTN_DROPABLE))
	741	dropable = TRUE;
	742	else
	743	dropable = FALSE;
	744	myicon = WinQueryButtonCheckstate(hwnd, ADDBTN_MYICON);
	745	if (WinQueryButtonCheckstate(hwnd, ADDBTN_VISIBLE))
	746	invisible = FALSE;
	747	else
	748	invisible = TRUE;
	749	if (WinQueryButtonCheckstate(hwnd, ADDBTN_SEPARATOR))
	750	separator = TRUE;
	751	else
	752	separator = FALSE;
	753	if (WinQueryButtonCheckstate(hwnd, ADDBTN_SHOWTEXT))
	754	istext = TRUE;
	755	else
	756	istext = FALSE;
	757	tool = INSTDATA(hwnd);
	758	if (tool) { /* just editing strings... */
	759	istext = ((tool->flags & T_TEXT) != 0);
[1009]	760	xfree(tool->help, pszSrcFile, __LINE__);
[551]	761	tool->help = NULL;
[1009]	762	xfree(tool->text, pszSrcFile, __LINE__);
[551]	763	tool->text = NULL;
[1121]	764	if (help && text && help && text) {
[551]	765	tool->help = xstrdup(help, pszSrcFile, __LINE__);
[1121]	766	tool->text = xstrdup(text, pszSrcFile, __LINE__);
	767	}
	768	else {
	769	saymsg(MB_ENTER,
	770	hwnd,
	771	GetPString(IDS_MISSINGTEXT),
	772	GetPString(IDS_TOOLHELPTEXTBLANK));
	773	WinSetFocus(HWND_DESKTOP, WinWindowFromID(hwnd, ADDBTN_HELP));
	774	break;
	775	}
[551]	776	tool->flags = (((dropable) ? T_DROPABLE : 0) \|
	777	((invisible) ? T_INVISIBLE : 0) \|
	778	((separator) ? T_SEPARATOR : 0) \|
	779	((myicon) ? T_MYICON : 0) \| ((istext) ? T_TEXT : 0));
[1131]	780	save_tools(NULL);
[551]	781	WinDismissDlg(hwnd, 1);
	782	break;
	783	}
	784	*idstr = 0;
	785	WinQueryDlgItemText(hwnd, ADDBTN_ID, 6, idstr);
	786	if (!(USHORT) atoi(idstr)) {
[1395]	787	if (!fAlertBeepOff)
	788	DosBeep(250, 100);
[551]	789	break;
	790	}
	791	tool = toolhead;
	792	while (tool) {
[1121]	793	if (tool->id == (USHORT) atoi(idstr)) { // && tool != tool) {
[551]	794	saymsg(MB_ENTER,
	795	hwnd,
	796	GetPString(IDS_DUPLICATETEXT),
	797	GetPString(IDS_TOOLIDEXISTS));
	798	WinSetDlgItemText(hwnd, ADDBTN_ID, NullStr);
[1121]	799	WinSetFocus(HWND_DESKTOP, WinWindowFromID(hwnd, ADDBTN_ID));
	800	BadID =TRUE;
[551]	801	break;
	802	}
	803	tool = tool->next;
[1121]	804	}
	805	if (BadID)
	806	break;
[551]	807	tool = xmallocz(sizeof(TOOL), pszSrcFile, __LINE__);
	808	if (tool) {
	809	if (*help)
	810	tool->help = xstrdup(help, pszSrcFile, __LINE__);
	811	if (*text)
	812	tool->text = xstrdup(text, pszSrcFile, __LINE__);
	813	tool->id = (USHORT) atoi(idstr);
	814	tool->flags = (((dropable) ? T_DROPABLE : 0) \|
	815	((invisible) ? T_INVISIBLE : 0) \|
	816	((separator) ? T_SEPARATOR : 0) \|
	817	((myicon) ? T_MYICON : 0) \| ((istext) ? T_TEXT : 0));
[1108]	818	add_tool(tool);
	819	save_tools(NULL);
[551]	820	WinDismissDlg(hwnd, tool->id);
	821	}
	822	}
	823	break;
[2]	824
[551]	825	case DID_CANCEL:
	826	WinDismissDlg(hwnd, 0);
	827	break;
[2]	828
[551]	829	case ADDBTN_EDITBMP:
	830	{
	831	CHAR idstr[6], filename[34];
[2]	832
[551]	833	*idstr = 0;
	834	WinQueryDlgItemText(hwnd, ADDBTN_ID, 6, idstr);
	835	if (!(USHORT) atoi(idstr)) {
[1395]	836	if (!fAlertBeepOff)
	837	DosBeep(250, 100);
[551]	838	break;
	839	}
	840	sprintf(filename, "%u.BMP", atoi(idstr));
	841	if (IsFile(filename) != 1) {
	842	CHAR s[CCHMAXPATH] = "EMPTY.BMP";
	843
	844	docopyf(COPY, s, filename);
	845	}
	846	runemf2(SEPARATE \| WINDOWED,
[888]	847	hwnd, pszSrcFile, __LINE__,
	848	NULL, NULL, "ICONEDIT.EXE %s", filename);
[2]	849	}
[551]	850	break;
	851
	852	case IDM_HELP:
	853	if (hwndHelp) {
	854	if (INSTDATA(hwnd))
	855	WinSendMsg(hwndHelp, HM_DISPLAY_HELP,
	856	MPFROM2SHORT(HELP_CHANGEBUTTON, 0),
	857	MPFROMSHORT(HM_RESOURCEID));
	858	else
	859	WinSendMsg(hwndHelp, HM_DISPLAY_HELP,
	860	MPFROM2SHORT(HELP_ADDBUTTON, 0),
	861	MPFROMSHORT(HM_RESOURCEID));
	862	}
	863	break;
	864	}
	865	return 0;
[2]	866	}
[551]	867	return WinDefDlgProc(hwnd, msg, mp1, mp2);
[2]	868	}
	869
[551]	870	MRESULT EXPENTRY PickToolProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
[440]	871	{
[487]	872	switch (msg) {
[551]	873	case WM_INITDLG:
	874	if (mp2) {
	875	CHAR s[133];
[2]	876
[1009]	877	sprintf(s, GetPString(IDS_PICKTOOLTITLETEXT), (CHAR *)mp2);
[551]	878	WinSetWindowText(hwnd, s);
	879	}
	880	{
	881	TOOL *tool;
	882	CHAR s[133];
[2]	883
[551]	884	tool = toolhead;
	885	while (tool) {
	886	sprintf(s, "%-5u %s", tool->id, (tool->help) ? tool->help : "?");
	887	WinSendDlgItemMsg(hwnd,
	888	PICKBTN_LISTBOX,
	889	LM_INSERTITEM, MPFROMSHORT(LIT_END), MPFROMP(s));
	890	tool = tool->next;
[2]	891	}
[551]	892	}
	893	break;
[2]	894
[551]	895	case WM_CONTROL:
	896	if (SHORT1FROMMP(mp1) == PICKBTN_LISTBOX) {
	897	switch (SHORT2FROMMP(mp1)) {
	898	case LN_ENTER:
	899	PostMsg(hwnd, WM_COMMAND, MPFROM2SHORT(DID_OK, 0), MPVOID);
	900	break;
[2]	901	}
[551]	902	}
	903	return 0;
[2]	904
[551]	905	case WM_COMMAND:
	906	switch (SHORT1FROMMP(mp1)) {
	907	case DID_CANCEL:
	908	WinDismissDlg(hwnd, 0);
	909	break;
	910	case DID_OK:
	911	{
	912	SHORT sSelect;
	913	CHAR s[33];
[2]	914
[551]	915	sSelect = (SHORT) WinSendDlgItemMsg(hwnd, PICKBTN_LISTBOX,
	916	LM_QUERYSELECTION,
	917	MPFROMSHORT(LIT_FIRST), MPVOID);
	918	if (sSelect >= 0) {
	919	*s = 0;
	920	WinSendDlgItemMsg(hwnd, PICKBTN_LISTBOX, LM_QUERYITEMTEXT,
	921	MPFROM2SHORT(sSelect, 32), MPFROMP(s));
	922	if (*s)
	923	WinDismissDlg(hwnd, (USHORT) atoi(s));
	924	}
[2]	925	}
[551]	926	break;
	927	}
	928	return 0;
[2]	929	}
[551]	930	return WinDefDlgProc(hwnd, msg, mp1, mp2);
[2]	931	}
	932
[551]	933	MRESULT EXPENTRY ToolIODlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
[440]	934	{
[487]	935	switch (msg) {
[551]	936	case WM_INITDLG:
	937	if (mp2)
	938	WinSetWindowULong(hwnd, QWL_USER, TRUE);
	939	else {
	940	WinSetWindowULong(hwnd, QWL_USER, FALSE);
[1122]	941	WinSetWindowText(hwnd, GetPString(IDS_LOADTOOLBARTITLETEXT));
[551]	942	}
	943	WinSendDlgItemMsg(hwnd,
	944	SVBTN_ENTRY,
	945	EM_SETTEXTLIMIT, MPFROM2SHORT(CCHMAXPATH, 0), MPVOID);
	946	{
[847]	947	FILEFINDBUF3 findbuf;
[551]	948	HDIR hDir;
	949	ULONG ulSearchCount, x = 0;
	950	CHAR masks[] = { ".TLS", "FM3TOOLS.DAT", NULL };
	951
[487]	952	if (mp2)
[551]	953	masks[1] = NULL;
	954	while (masks[x]) {
	955	hDir = HDIR_CREATE;
[766]	956	ulSearchCount = 1;
[551]	957	DosError(FERR_DISABLEHARDERR);
[847]	958	if (!DosFindFirst(masks[x],
	959	&hDir,
	960	FILE_ARCHIVED,
	961	&findbuf,
	962	sizeof(FILEFINDBUF3),
	963	&ulSearchCount, FIL_STANDARD)) {
[551]	964	do {
	965	priority_bumped();
	966	WinSendMsg(WinWindowFromID(hwnd,
	967	SVBTN_LISTBOX),
	968	LM_INSERTITEM,
	969	MPFROM2SHORT(LIT_SORTASCENDING, 0),
	970	MPFROMP(findbuf.achName));
[766]	971	ulSearchCount = 1;
[847]	972	} while (!DosFindNext(hDir,
	973	&findbuf,
	974	sizeof(FILEFINDBUF3), &ulSearchCount));
[551]	975	DosFindClose(hDir);
	976	priority_bumped();
	977	}
	978	x++;
[2]	979	}
[551]	980	DosError(FERR_DISABLEHARDERR);
	981	}
	982	if (!WinSendDlgItemMsg(hwnd,
	983	SVBTN_LISTBOX,
	984	LM_QUERYITEMCOUNT, MPVOID, MPVOID)) {
	985	WinEnableWindow(WinWindowFromID(hwnd, SVBTN_LISTBOX), FALSE);
	986	PostMsg(hwnd, UM_SETUP, MPVOID, MPVOID);
	987	}
	988	WinSetDlgItemText(hwnd,
	989	SVBTN_CURRENT,
[1398]	990	(*lasttoolbar) ? lasttoolbar : PCSZ_FM3TOOLSDAT);
[551]	991	break;
[2]	992
[551]	993	case UM_SETUP:
	994	WinSetFocus(HWND_DESKTOP, WinWindowFromID(hwnd, SVBTN_ENTRY));
	995	return 0;
[2]	996
[551]	997	case WM_CONTROL:
	998	if (SHORT1FROMMP(mp1) == SVBTN_LISTBOX) {
	999	SHORT sSelect;
	1000	CHAR szBuffer[CCHMAXPATH];
[2]	1001
[551]	1002	switch (SHORT2FROMMP(mp1)) {
	1003	case LN_SELECT:
	1004	sSelect = (SHORT) WinSendDlgItemMsg(hwnd, SVBTN_LISTBOX,
	1005	LM_QUERYSELECTION,
	1006	MPFROMSHORT(LIT_FIRST), MPVOID);
	1007	if (sSelect >= 0) {
	1008	*szBuffer = 0;
	1009	WinSendDlgItemMsg(hwnd, SVBTN_LISTBOX, LM_QUERYITEMTEXT,
	1010	MPFROM2SHORT(sSelect, CCHMAXPATH),
	1011	MPFROMP(szBuffer));
	1012	if (*szBuffer)
	1013	WinSetDlgItemText(hwnd, SVBTN_ENTRY, szBuffer);
	1014	}
	1015	break;
[2]	1016
[551]	1017	case LN_ENTER:
	1018	PostMsg(hwnd, WM_COMMAND, MPFROM2SHORT(DID_OK, 0), MPVOID);
	1019	break;
	1020	}
	1021	}
	1022	return 0;
[2]	1023
[551]	1024	case WM_COMMAND:
	1025	switch (SHORT1FROMMP(mp1)) {
	1026	case IDM_HELP:
	1027	if (hwndHelp) {
	1028	if (INSTDATA(hwnd))
	1029	WinSendMsg(hwndHelp, HM_DISPLAY_HELP,
	1030	MPFROM2SHORT(HELP_SAVETOOLS, 0),
	1031	MPFROMSHORT(HM_RESOURCEID));
	1032	else
	1033	WinSendMsg(hwndHelp, HM_DISPLAY_HELP,
	1034	MPFROM2SHORT(HELP_LOADTOOLS, 0),
	1035	MPFROMSHORT(HM_RESOURCEID));
[2]	1036	}
[551]	1037	break;
[2]	1038
[551]	1039	case DID_CANCEL:
	1040	WinDismissDlg(hwnd, 0);
	1041	break;
[2]	1042
[551]	1043	case DID_OK:
	1044	{
	1045	BOOL saving = WinQueryWindowULong(hwnd, QWL_USER);
	1046	CHAR temptools[CCHMAXPATH];
[2]	1047
[1122]	1048	strcpy(temptools, lasttoolbar);
[551]	1049	if (fToolsChanged)
	1050	save_tools(NULL);
	1051	WinQueryDlgItemText(hwnd,
[1122]	1052	SVBTN_ENTRY, sizeof(lasttoolbar), lasttoolbar);
	1053	if (*lasttoolbar) {
	1054	if (!strchr(lasttoolbar, '.'))
[1398]	1055	strcat(lasttoolbar, PCSZ_DOTTLS);
[551]	1056	}
[1122]	1057	if (saving && *lasttoolbar)
[551]	1058	save_tools(NULL);
	1059	else {
	1060	if (!load_tools(NULL)) {
[1122]	1061	strcpy(lasttoolbar, temptools);
[551]	1062	if (!load_tools(NULL)) {
[1122]	1063	*lasttoolbar = 0;
[551]	1064	load_tools(NULL);
	1065	}
	1066	}
	1067	}
[1122]	1068	PrfWriteProfileString(fmprof, FM3Str, "LastToolbar", lasttoolbar);
[2]	1069	}
[551]	1070	WinDismissDlg(hwnd, 1);
	1071	break;
	1072	}
	1073	return 0;
[2]	1074	}
[551]	1075	return WinDefDlgProc(hwnd, msg, mp1, mp2);
[2]	1076	}
[793]	1077
[1108]	1078	#pragma alloc_text(TOOLS,load_tools,save_tools,add_tool,insert_tool,del_tool,free_tools,swap_tools)
	1079	#pragma alloc_text(TOOLS,load_quicktools,save_quicktools)
[793]	1080	#pragma alloc_text(TOOLS1,ReOrderToolsProc,PickToolProc,AddToolProc,ToolIODlgProc)

Note: See TracBrowser for help on using the repository browser.

Download in other formats: