Context Navigation

source: trunk/dll/tools.c@ 1401

Visit:

Last change on this file since 1401 was 1398, checked in by Gregg Young, 17 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

Line
1
2	/***********************************************************************
3
4	$Id: tools.c 1398 2009-02-21 17:43:00Z gyoung $
5
6	Toolbar support routines
7
8	Copyright (c) 1994-97 M. Kimes
9	Copyright (c) 2004, 2008 Steven H.Levine
10
11	01 Aug 04 SHL Rework lstrip/rstrip usage
12	23 May 05 SHL Use QWL_USER
13	22 Jul 06 SHL Check more run time errors
14	29 Jul 06 SHL Use xfgets, xfgets_bstripcr
15	18 Aug 06 SHL Report more runtime errors
16	05 Sep 06 SHL docopyf filename args must be variables
17	05 Sep 06 SHL Sync with standard source formatting
18	20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat
19	29 Feb 08 GKY Use xfree where appropriate
20	19 Jul 08 GKY Replace save_dir2(dir) with pFM2SaveDirectory and use BldFullPathName
21	24 Aug 08 GKY Warn full drive on save of .DAT & .TLS files; prevent loss of existing file
22	26 Aug 08 GKY Require unique ID plus text and help strings for all tools save toolbar on button delete
23	01 Sep 08 GKY Save toolbars immediately on change.
24	07 Feb 09 GKY Allow user to turn off alert and/or error beeps in settings notebook.
25
26	***********************************************************************/
27
28	#include <stdlib.h>
29	#include <string.h>
30	#include <share.h>
31
32	#define INCL_DOS
33	#define INCL_WIN
34	#define INCL_LONGLONG
35
36	#include "fm3dll.h"
37	#include "fm3dll2.h" // #define's for UM_*, control id's, etc.
38	#include "tools.h"
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)
43	#include "fm3dlg.h"
44	#include "fm3str.h"
45	#include "errutil.h" // Dos_Error...
46	#include "strutil.h" // GetPString
47	#include "pathutil.h" // BldFullPathName
48	#include "fortify.h"
49	#include "loadbmp.h" // LoadBitmapFromFileNum
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
60
61	// Data definitions
62	#pragma data_seg(DATA1)
63
64	static PSZ pszSrcFile = __FILE__;
65
66	#pragma data_seg(GLOBAL1)
67	BOOL fToolsChanged;
68	TOOL *toolhead = NULL;
69
70	#pragma data_seg(GLOBAL2)
71	CHAR lasttoolbar[CCHMAXPATH];
72	BOOL qtloaded;
73	CHAR *quicktool[50];
74
75	//== load_quicktools() build *.tls array ==
76
77	VOID load_quicktools(VOID)
78	{
79	FILE *fp;
80	CHAR s[CCHMAXPATH + 14];
81	INT x;
82
83	qtloaded = TRUE;
84	for (x = 0; x < 50 && quicktool[x]; x++) {
85	free(quicktool[x]);
86	quicktool[x] = NULL;
87	}
88	if (!fToolbar) {
89	qtloaded = FALSE;
90	return;
91	}
92	BldFullPathName(s, pFM2SaveDirectory, PCSZ_QUICKTLSDAT);
93	fp = _fsopen(s, "r", SH_DENYWR);
94	if (fp) {
95	x = 0;
96	while (!feof(fp)) {
97	if (!xfgets_bstripcr(s, CCHMAXPATH + 2, fp, pszSrcFile, __LINE__))
98	break;
99	if (!s \|\| s == ';')
100	continue;
101	if (x >= 50) {
102	Runtime_Error(pszSrcFile, __LINE__, "add");
103	break;
104	}
105	quicktool[x] = xstrdup(s, pszSrcFile, __LINE__);
106	if (!quicktool[x])
107	break;
108	x++;
109	}
110	fclose(fp);
111	}
112	}
113
114	VOID save_quicktools(VOID)
115	{
116	FILE *fp;
117	INT x = 0;
118	CHAR s[CCHMAXPATH + 14];
119
120	if (!quicktool[0])
121	return;
122	BldFullPathName(s, pFM2SaveDirectory, PCSZ_QUICKTLSDAT);
123	if (CheckDriveSpaceAvail(s, ullDATFileSpaceNeeded, 1) == 2)
124	return; //already gave error msg
125	fp = xfopen(s, "w", pszSrcFile, __LINE__);
126	if (fp) {
127	for (x = 0; quicktool[x] && x < 50; x++)
128	fprintf(fp, "%s\n", quicktool[x]);
129	fclose(fp);
130	}
131	}
132
133	//== load_tools() Build tools list given .tls filename ==
134
135	TOOL load_tools(CHAR filename)
136	{
137	FILE *fp;
138	CHAR help[80], text[80], flagstr[80], idstr[80], *fname;
139	TOOL *info;
140
141	if (!fToolbar) {
142	toolhead = free_tools();
143	return toolhead;
144	}
145	if (!filename \|\| !*filename)
146	filename = (*lasttoolbar) ? lasttoolbar : "CMDS.TLS";
147	if (*filename)
148	fname = searchpath(filename);
149	if (!fname \|\| !*fname)
150	fname = (PSZ) PCSZ_FM3TOOLSDAT;
151	if (fname && *fname) {
152	filename = fname;
153	strcpy(lasttoolbar, filename);
154	fp = _fsopen(filename, "r", SH_DENYWR);
155	if (fp) {
156	toolhead = free_tools();
157	while (!feof(fp)) {
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) {
174	# ifdef FORTIFY
175	Fortify_SetOwner(info, 1);
176	Fortify_SetScope(info, 1);
177	# endif
178	if (*help) {
179	literal(help);
180	if (*help) {
181	info->help = xstrdup(help, pszSrcFile, __LINE__);
182	# ifdef FORTIFY
183	Fortify_SetOwner(info->help, 1);
184	Fortify_SetScope(info->help, 1);
185	# endif
186	}
187	}
188	if (*text) {
189	info->text = xstrdup(text, pszSrcFile, __LINE__);
190	# ifdef FORTIFY
191	Fortify_SetOwner(info->text, 1);
192	Fortify_SetScope(info->text, 1);
193	# endif
194	}
195	info->flags = (atoi(flagstr) & (~(T_TEXT \| T_EMPHASIZED)));
196	info->id = (USHORT) atoi(idstr);
197	info->next = NULL;
198	add_tool(info);
199	}
200	}
201	fclose(fp);
202	fToolsChanged = FALSE;
203	}
204	}
205	return toolhead;
206	}
207
208	VOID save_tools(CHAR * filename)
209	{
210	FILE *fp;
211	CHAR *fname;
212	TOOL *info;
213
214	if (!filename)
215	filename = lasttoolbar;
216	if (*filename)
217	fname = searchpath(filename);
218	if (fname && *fname)
219	filename = fname;
220	else {
221	if (*lasttoolbar)
222	filename = lasttoolbar;
223	else
224	filename = "FM3TOOLS.TLS";
225	fname = searchpath(filename);
226	if (fname && *fname)
227	filename = fname;
228	}
229
230	if (stristr(filename, PCSZ_FM3TOOLSDAT))
231	filename = "FM3TOOLS.TLS";
232	if (toolhead && filename && *filename) {
233	strcpy(lasttoolbar, filename);
234	PrfWriteProfileString(fmprof, FM3Str, "LastToolbar", filename);
235	}
236	if (!toolhead) {
237	unlinkf("%s", filename);
238	return;
239	}
240	if (CheckDriveSpaceAvail(filename, ullDATFileSpaceNeeded, 1) == 2)
241	return; //already gave error msg
242	fp = xfopen(filename, "w", pszSrcFile, __LINE__);
243	if (fp) {
244	fprintf(fp, GetPString(IDS_TOOLFILETEXT), filename);
245	info = toolhead;
246	while (info) {
247	fprintf(fp,
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);
252	info = info->next;
253	}
254	fclose(fp);
255	fToolsChanged = FALSE;
256	}
257	if (hwndMain)
258	PostMsg(hwndMain, UM_FILLBUTTONLIST, MPVOID, MPVOID);
259	}
260
261	TOOL add_tool(TOOL tool)
262	{
263	TOOL *info;
264
265	if (tool) {
266	info = toolhead;
267	if (info) {
268	while (info->next)
269	info = info->next;
270	}
271	if (info)
272	info->next = tool;
273	else
274	toolhead = tool;
275	fToolsChanged = TRUE;
276	}
277	return toolhead;
278	}
279
280	TOOL insert_tool(TOOL tool, TOOL * after)
281	{
282	if (tool) {
283	if (!toolhead)
284	return add_tool(tool);
285	if (!after) {
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
299	TOOL del_tool(TOOL tool)
300	{
301	TOOL info, prev = NULL;
302
303	if (tool) {
304	info = toolhead;
305	while (info) {
306	if (info == tool) {
307	if (info == toolhead)
308	toolhead = info->next;
309	if (prev)
310	prev->next = info->next;
311	xfree(info->help, pszSrcFile, __LINE__);
312	xfree(info->text, pszSrcFile, __LINE__);
313	free(info);
314	fToolsChanged = TRUE;
315	break;
316	}
317	prev = info;
318	info = info->next;
319	}
320	}
321	return toolhead;
322	}
323
324	TOOL *find_tool(USHORT id)
325	{
326	TOOL *tool;
327
328	if (id) {
329	tool = toolhead;
330	while (tool) {
331	if (id && tool->id == id)
332	return tool;
333	tool = tool->next;
334	}
335	}
336	return NULL;
337	}
338
339	TOOL next_tool(TOOL tool, BOOL skipinvisible)
340	{
341	while (tool) {
342	if (tool->next && (skipinvisible && (tool->next->flags & T_INVISIBLE)))
343	tool = tool->next;
344	else
345	return (tool->next) ? tool->next : toolhead;
346	}
347	return NULL;
348	}
349
350	TOOL prev_tool(TOOL tool, BOOL skipinvisible)
351	{
352	TOOL *info;
353
354	Again:
355	while (tool) {
356	info = toolhead;
357	while (info) {
358	if (info->next == tool) {
359	if (skipinvisible && (info->flags & T_INVISIBLE)) {
360	tool = info;
361	goto Again;
362	}
363	return info;
364	}
365	if (!info->next && tool == toolhead)
366	return info;
367	info = info->next;
368	}
369	return toolhead;
370	}
371	return NULL;
372	}
373
374	TOOL swap_tools(TOOL tool1, TOOL * tool2)
375	{
376	TOOL prev1 = NULL, prev2 = NULL, *info;
377
378	if (tool1 && tool2 && tool1 != tool2) {
379	info = toolhead;
380	while (info && !prev1 && !prev2) {
381	if (info->next == tool1)
382	prev1 = info;
383	else if (info->next == tool2)
384	prev2 = info;
385	info = info->next;
386	}
387	info = tool2;
388	tool2 = tool1;
389	tool1 = info;
390	info = tool2->next;
391	if (prev1)
392	prev1->next = tool2;
393	if (prev2)
394	prev2->next = tool1;
395	tool2->next = tool1->next;
396	tool1->next = info;
397	fToolsChanged = TRUE;
398	}
399	return toolhead;
400	}
401
402	TOOL *free_tools(VOID)
403	{
404	TOOL tool, next;
405
406	tool = toolhead;
407	while (tool) {
408	next = tool->next;
409	xfree(tool->help, pszSrcFile, __LINE__);
410	xfree(tool->text, pszSrcFile, __LINE__);
411	free(tool);
412	tool = next;
413	}
414	toolhead = NULL;
415	return toolhead;
416	}
417
418	MRESULT EXPENTRY ReOrderToolsProc(HWND hwnd, ULONG msg, MPARAM mp1,
419	MPARAM mp2)
420	{
421	switch (msg) {
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;
430
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;
444	}
445	}
446	break;
447
448	case WM_CONTROL:
449	return 0;
450
451	case WM_COMMAND:
452	switch (SHORT1FROMMP(mp1)) {
453	case DID_CANCEL:
454	WinDismissDlg(hwnd, 0);
455	break;
456
457	case DID_OK:
458	{
459	TOOL tool, thead = NULL, *last = NULL;
460	SHORT sSelect = 0, numitems;
461
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	}
499	save_tools(NULL);
500	WinDismissDlg(hwnd, 1);
501	break;
502
503	case IDM_HELP:
504	if (hwndHelp)
505	WinSendMsg(hwndHelp, HM_DISPLAY_HELP,
506	MPFROM2SHORT(HELP_REORDERBUTTONS, 0),
507	MPFROMSHORT(HM_RESOURCEID));
508	break;
509
510	case RE_ADD:
511	{
512	SHORT sSelect, sSelect2;
513	CHAR s[133];
514	TOOL *tool;
515
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;
555
556	case RE_REMOVE:
557	{
558	SHORT sSelect, sSelect2;
559	CHAR s[133];
560	TOOL *tool;
561
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	}
599	}
600	break;
601	}
602	return 0;
603	}
604	return WinDefDlgProc(hwnd, msg, mp1, mp2);
605	}
606
607	MRESULT EXPENTRY AddToolProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
608	{
609	switch (msg) {
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];
628
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;
652
653	case WM_ADJUSTWINDOWPOS:
654	PostMsg(hwnd, UM_SETDIR, MPVOID, MPVOID);
655	break;
656
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;
663
664	case UM_SETUP:
665	{
666	HBITMAP hbm = (HBITMAP) 0, hbmd, hbmdd;
667	HPS hps;
668	CHAR idstr[7];
669	USHORT id;
670
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	}
688	}
689	}
690	return 0;
691
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;
701
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;
709
710	case ADDBTN_ID:
711	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) {
712	WinSetDlgItemText(hwnd, ADDBTN_HELPME, NullStr);
713	PostMsg(hwnd, UM_SETUP, MPVOID, MPVOID);
714	}
715	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
716	WinSetDlgItemText(hwnd,
717	ADDBTN_HELPME, GetPString(IDS_ADDTOOLBUTTONIDTEXT));
718	break;
719
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;
727
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;
734	TOOL *tool;
735	BOOL BadID = FALSE;
736
737	help[0] = text[0] = NULL;
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);
760	xfree(tool->help, pszSrcFile, __LINE__);
761	tool->help = NULL;
762	xfree(tool->text, pszSrcFile, __LINE__);
763	tool->text = NULL;
764	if (help && text && help && text) {
765	tool->help = xstrdup(help, pszSrcFile, __LINE__);
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	}
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));
780	save_tools(NULL);
781	WinDismissDlg(hwnd, 1);
782	break;
783	}
784	*idstr = 0;
785	WinQueryDlgItemText(hwnd, ADDBTN_ID, 6, idstr);
786	if (!(USHORT) atoi(idstr)) {
787	if (!fAlertBeepOff)
788	DosBeep(250, 100);
789	break;
790	}
791	tool = toolhead;
792	while (tool) {
793	if (tool->id == (USHORT) atoi(idstr)) { // && tool != tool) {
794	saymsg(MB_ENTER,
795	hwnd,
796	GetPString(IDS_DUPLICATETEXT),
797	GetPString(IDS_TOOLIDEXISTS));
798	WinSetDlgItemText(hwnd, ADDBTN_ID, NullStr);
799	WinSetFocus(HWND_DESKTOP, WinWindowFromID(hwnd, ADDBTN_ID));
800	BadID =TRUE;
801	break;
802	}
803	tool = tool->next;
804	}
805	if (BadID)
806	break;
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));
818	add_tool(tool);
819	save_tools(NULL);
820	WinDismissDlg(hwnd, tool->id);
821	}
822	}
823	break;
824
825	case DID_CANCEL:
826	WinDismissDlg(hwnd, 0);
827	break;
828
829	case ADDBTN_EDITBMP:
830	{
831	CHAR idstr[6], filename[34];
832
833	*idstr = 0;
834	WinQueryDlgItemText(hwnd, ADDBTN_ID, 6, idstr);
835	if (!(USHORT) atoi(idstr)) {
836	if (!fAlertBeepOff)
837	DosBeep(250, 100);
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,
847	hwnd, pszSrcFile, __LINE__,
848	NULL, NULL, "ICONEDIT.EXE %s", filename);
849	}
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;
866	}
867	return WinDefDlgProc(hwnd, msg, mp1, mp2);
868	}
869
870	MRESULT EXPENTRY PickToolProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
871	{
872	switch (msg) {
873	case WM_INITDLG:
874	if (mp2) {
875	CHAR s[133];
876
877	sprintf(s, GetPString(IDS_PICKTOOLTITLETEXT), (CHAR *)mp2);
878	WinSetWindowText(hwnd, s);
879	}
880	{
881	TOOL *tool;
882	CHAR s[133];
883
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;
891	}
892	}
893	break;
894
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;
901	}
902	}
903	return 0;
904
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];
914
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	}
925	}
926	break;
927	}
928	return 0;
929	}
930	return WinDefDlgProc(hwnd, msg, mp1, mp2);
931	}
932
933	MRESULT EXPENTRY ToolIODlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
934	{
935	switch (msg) {
936	case WM_INITDLG:
937	if (mp2)
938	WinSetWindowULong(hwnd, QWL_USER, TRUE);
939	else {
940	WinSetWindowULong(hwnd, QWL_USER, FALSE);
941	WinSetWindowText(hwnd, GetPString(IDS_LOADTOOLBARTITLETEXT));
942	}
943	WinSendDlgItemMsg(hwnd,
944	SVBTN_ENTRY,
945	EM_SETTEXTLIMIT, MPFROM2SHORT(CCHMAXPATH, 0), MPVOID);
946	{
947	FILEFINDBUF3 findbuf;
948	HDIR hDir;
949	ULONG ulSearchCount, x = 0;
950	CHAR masks[] = { ".TLS", "FM3TOOLS.DAT", NULL };
951
952	if (mp2)
953	masks[1] = NULL;
954	while (masks[x]) {
955	hDir = HDIR_CREATE;
956	ulSearchCount = 1;
957	DosError(FERR_DISABLEHARDERR);
958	if (!DosFindFirst(masks[x],
959	&hDir,
960	FILE_ARCHIVED,
961	&findbuf,
962	sizeof(FILEFINDBUF3),
963	&ulSearchCount, FIL_STANDARD)) {
964	do {
965	priority_bumped();
966	WinSendMsg(WinWindowFromID(hwnd,
967	SVBTN_LISTBOX),
968	LM_INSERTITEM,
969	MPFROM2SHORT(LIT_SORTASCENDING, 0),
970	MPFROMP(findbuf.achName));
971	ulSearchCount = 1;
972	} while (!DosFindNext(hDir,
973	&findbuf,
974	sizeof(FILEFINDBUF3), &ulSearchCount));
975	DosFindClose(hDir);
976	priority_bumped();
977	}
978	x++;
979	}
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,
990	(*lasttoolbar) ? lasttoolbar : PCSZ_FM3TOOLSDAT);
991	break;
992
993	case UM_SETUP:
994	WinSetFocus(HWND_DESKTOP, WinWindowFromID(hwnd, SVBTN_ENTRY));
995	return 0;
996
997	case WM_CONTROL:
998	if (SHORT1FROMMP(mp1) == SVBTN_LISTBOX) {
999	SHORT sSelect;
1000	CHAR szBuffer[CCHMAXPATH];
1001
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;
1016
1017	case LN_ENTER:
1018	PostMsg(hwnd, WM_COMMAND, MPFROM2SHORT(DID_OK, 0), MPVOID);
1019	break;
1020	}
1021	}
1022	return 0;
1023
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));
1036	}
1037	break;
1038
1039	case DID_CANCEL:
1040	WinDismissDlg(hwnd, 0);
1041	break;
1042
1043	case DID_OK:
1044	{
1045	BOOL saving = WinQueryWindowULong(hwnd, QWL_USER);
1046	CHAR temptools[CCHMAXPATH];
1047
1048	strcpy(temptools, lasttoolbar);
1049	if (fToolsChanged)
1050	save_tools(NULL);
1051	WinQueryDlgItemText(hwnd,
1052	SVBTN_ENTRY, sizeof(lasttoolbar), lasttoolbar);
1053	if (*lasttoolbar) {
1054	if (!strchr(lasttoolbar, '.'))
1055	strcat(lasttoolbar, PCSZ_DOTTLS);
1056	}
1057	if (saving && *lasttoolbar)
1058	save_tools(NULL);
1059	else {
1060	if (!load_tools(NULL)) {
1061	strcpy(lasttoolbar, temptools);
1062	if (!load_tools(NULL)) {
1063	*lasttoolbar = 0;
1064	load_tools(NULL);
1065	}
1066	}
1067	}
1068	PrfWriteProfileString(fmprof, FM3Str, "LastToolbar", lasttoolbar);
1069	}
1070	WinDismissDlg(hwnd, 1);
1071	break;
1072	}
1073	return 0;
1074	}
1075	return WinDefDlgProc(hwnd, msg, mp1, mp2);
1076	}
1077
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)
1080	#pragma alloc_text(TOOLS1,ReOrderToolsProc,PickToolProc,AddToolProc,ToolIODlgProc)

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

Download in other formats: