Context Navigation

tools.c@ 1813

Visit:

Last change on this file since 1813 was 1750, checked in by John Small, 12 years ago

Ticket #524: Made "searchapath" thread-safe. Function names and signatures were changed.

So calls to these functions, direct and indirect, had to be changed.

Property svn:eol-style set to native
Property svn:keywords set to Author Date Id Revision

File size: 27.4 KB

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

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

Context Navigation

source: trunk/dll/tools.c@ 1813

Download in other formats: