Context Navigation

source: trunk/dll/command.c@ 918

Visit:

Last change on this file since 918 was 918, checked in by Gregg Young, 18 years ago
Fix CheckApp_QuoteAddExe to return a pointer on the stack instead of a string. Use MAXCOMLINESTRG for command line length.
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 25.7 KB

Line
1
2	/***********************************************************************
3
4	$Id: command.c 918 2008-01-12 20:16:37Z gyoung $
5
6	Custom commands
7
8	Copyright (c) 1993-98 M. Kimes
9	Copyright (c) 2004, 2008 Steven H. Levine
10
11	01 Aug 04 SHL Rework lstrip/rstrip usage
12	06 Jun 05 SHL Drop unused code
13	14 Jul 06 SHL Use Runtime_Error
14	29 Jul 06 SHL Use xfgets_bstripcr
15	15 Aug 06 SHL Better can't add message
16	18 Sep 06 GKY Add replace command and update okay to add if changed
17	17 Feb 07 GKY Move error messages etc to string file
18	22 Mar 07 GKY Use QWL_USER
19	23 Mar 07 GKY Replace doesn't change item position
20	23 Mar 07 GKY Okay fails silently when item not changed
21	19 Apr 07 SHL Sync with AcceptOneDrop GetOneDrop mods
22	20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat
23	06 Jan 08 GKY Use CheckApp_QuoteAddExe to check program strings on entry
24
25	***********************************************************************/
26
27	#include <stdlib.h>
28	#include <string.h>
29	#include <share.h>
30
31	#define INCL_DOS
32	#define INCL_WIN
33	#define INCL_LONGLONG // dircnrs.h
34
35	#include "fm3dlg.h"
36	#include "fm3str.h"
37	#include "tools.h"
38	#include "arccnrs.h" // BldQuotedFileName
39	#include "errutil.h" // Dos_Error...
40	#include "strutil.h" // GetPString
41	#include "fm3dll.h"
42
43
44	typedef struct
45	{
46	CHAR cl[MAXCOMLINESTRG];
47	INT flags;
48	CHAR title[34];
49	}
50	COMMAND;
51
52	#pragma data_seg(DATA1)
53
54	static PSZ pszSrcFile = __FILE__;
55
56	MRESULT EXPENTRY CommandTextProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
57	{
58	PFNWP oldproc = (PFNWP) WinQueryWindowPtr(hwnd, QWL_USER);
59	static BOOL emphasized = FALSE;
60
61	switch (msg) {
62	case DM_DRAGOVER:
63	if (!emphasized) {
64	emphasized = TRUE;
65	DrawTargetEmphasis(hwnd, emphasized);
66	}
67	if (AcceptOneDrop(hwnd, mp1, mp2))
68	return MRFROM2SHORT(DOR_DROP, DO_MOVE);
69	return MRFROM2SHORT(DOR_NEVERDROP, 0);
70
71	case DM_DRAGLEAVE:
72	if (emphasized) {
73	emphasized = FALSE;
74	DrawTargetEmphasis(hwnd, emphasized);
75	}
76	break;
77
78	case DM_DROPHELP:
79	DropHelp(mp1, mp2, hwnd, GetPString(IDS_DROPCMDHELPTEXT));
80	return 0;
81
82	case DM_DROP:
83	{
84	char szFrom[CCHMAXPATH + 5];
85
86	if (emphasized) {
87	emphasized = FALSE;
88	DrawTargetEmphasis(hwnd, emphasized);
89	}
90	if (GetOneDrop(hwnd, mp1, mp2, szFrom, CCHMAXPATH)) {
91	strcat(szFrom, " %a");
92	WinSetWindowText(hwnd, szFrom);
93	}
94	}
95	return 0;
96	}
97	return (oldproc) ? oldproc(hwnd, msg, mp1, mp2) :
98	WinDefWindowProc(hwnd, msg, mp1, mp2);
99	}
100
101	MRESULT EXPENTRY ReOrderProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
102	{
103	switch (msg) {
104	case WM_INITDLG:
105	if (!cmdhead) {
106	WinDismissDlg(hwnd, 0);
107	break;
108	}
109	{
110	LINKCMDS *info;
111	SHORT x;
112
113	info = cmdhead;
114	while (info) {
115	x = (SHORT) WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX, LM_INSERTITEM,
116	MPFROMSHORT(LIT_END),
117	MPFROMP(info->title));
118	if (x < 0) {
119	Runtime_Error(pszSrcFile, __LINE__, "no cmd");
120	WinDismissDlg(hwnd, 0);
121	}
122	else {
123	WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX, LM_SETITEMHANDLE,
124	MPFROMSHORT(x), MPFROMP(info));
125	}
126	info = info->next;
127	}
128	}
129	break;
130
131	case WM_CONTROL:
132	return 0;
133
134	case WM_COMMAND:
135	switch (SHORT1FROMMP(mp1)) {
136	case DID_CANCEL:
137	WinDismissDlg(hwnd, 0);
138	break;
139
140	case DID_OK:
141	{
142	LINKCMDS temphead = NULL, info, last = NULL, temptail = NULL;
143	SHORT sSelect, numitems;
144
145	sSelect = 0;
146	numitems = (SHORT) WinSendDlgItemMsg(hwnd, RE_REMOVELISTBOX,
147	LM_QUERYITEMCOUNT,
148	MPVOID, MPVOID);
149	while (numitems) {
150	info = (LINKCMDS *) WinSendDlgItemMsg(hwnd, RE_REMOVELISTBOX,
151	LM_QUERYITEMHANDLE,
152	MPFROMSHORT(sSelect++),
153	MPVOID);
154	if (info) {
155	if (!temphead) {
156	temphead = info;
157	info->prev = NULL;
158	}
159	else {
160	last->next = info;
161	info->prev = last;
162	}
163	temptail = info;
164	last = info;
165	info->next = NULL;
166	}
167	numitems--;
168	}
169	sSelect = 0;
170	numitems = (SHORT) WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX,
171	LM_QUERYITEMCOUNT,
172	MPVOID, MPVOID);
173	while (numitems) {
174	info = (LINKCMDS *) WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX,
175	LM_QUERYITEMHANDLE,
176	MPFROMSHORT(sSelect++),
177	MPVOID);
178	if (info) {
179	if (!temphead) {
180	temphead = info;
181	info->prev = NULL;
182	}
183	else {
184	last->next = info;
185	info->prev = last;
186	}
187	temptail = info;
188	last = info;
189	info->next = NULL;
190	}
191	numitems--;
192	}
193	cmdhead = temphead;
194	cmdtail = temptail;
195	}
196	WinDismissDlg(hwnd, 1);
197	break;
198
199	case IDM_HELP:
200	if (hwndHelp)
201	WinSendMsg(hwndHelp, HM_DISPLAY_HELP,
202	MPFROM2SHORT(HELP_REORDERCOMMANDS, 0),
203	MPFROMSHORT(HM_RESOURCEID));
204	break;
205
206	case RE_ADD:
207	{
208	SHORT sSelect, x;
209	LINKCMDS *info;
210
211	sSelect = (SHORT) WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX,
212	LM_QUERYSELECTION,
213	MPFROMSHORT(LIT_FIRST), MPVOID);
214	while (sSelect >= 0) {
215	info = (LINKCMDS *) WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX,
216	LM_QUERYITEMHANDLE,
217	MPFROMSHORT(sSelect), MPVOID);
218	if (info) {
219	x = (SHORT) WinSendDlgItemMsg(hwnd, RE_REMOVELISTBOX,
220	LM_INSERTITEM,
221	MPFROM2SHORT(LIT_END, 0),
222	MPFROMP(info->title));
223	if (x >= 0) {
224	WinSendDlgItemMsg(hwnd, RE_REMOVELISTBOX,
225	LM_SETITEMHANDLE,
226	MPFROMSHORT(x), MPFROMP(info));
227	WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX, LM_DELETEITEM,
228	MPFROMSHORT(sSelect), MPVOID);
229	}
230	}
231	else
232	WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX, LM_SELECTITEM,
233	MPFROMSHORT(sSelect), MPFROMSHORT(FALSE));
234	sSelect = (USHORT) WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX,
235	LM_QUERYSELECTION,
236	MPFROMSHORT(LIT_FIRST),
237	MPVOID);
238	}
239	}
240	break;
241
242	case RE_REMOVE:
243	{
244	SHORT sSelect, x;
245	LINKCMDS *info;
246
247	sSelect = (SHORT) WinSendDlgItemMsg(hwnd, RE_REMOVELISTBOX,
248	LM_QUERYSELECTION,
249	MPFROMSHORT(LIT_FIRST), MPVOID);
250	while (sSelect >= 0) {
251	info = (LINKCMDS *) WinSendDlgItemMsg(hwnd, RE_REMOVELISTBOX,
252	LM_QUERYITEMHANDLE,
253	MPFROMSHORT(sSelect), MPVOID);
254	if (info) {
255	x = (SHORT) WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX,
256	LM_INSERTITEM,
257	MPFROM2SHORT(LIT_END, 0),
258	MPFROMP(info->title));
259	if (x >= 0) {
260	WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX,
261	LM_SETITEMHANDLE,
262	MPFROMSHORT(x), MPFROMP(info));
263	WinSendDlgItemMsg(hwnd, RE_REMOVELISTBOX, LM_DELETEITEM,
264	MPFROMSHORT(sSelect), MPVOID);
265	}
266	}
267	else
268	WinSendDlgItemMsg(hwnd, RE_REMOVELISTBOX, LM_SELECTITEM,
269	MPFROMSHORT(sSelect), MPFROMSHORT(FALSE));
270	sSelect = (USHORT) WinSendDlgItemMsg(hwnd, RE_REMOVELISTBOX,
271	LM_QUERYSELECTION,
272	MPFROMSHORT(LIT_FIRST),
273	MPVOID);
274	}
275	}
276	break;
277	}
278	return 0;
279	}
280	return WinDefDlgProc(hwnd, msg, mp1, mp2);
281	}
282
283	CHAR *command_title(INT cx)
284	{
285	static CHAR duh[] = "???";
286	LINKCMDS *info;
287	INT x = 0;
288
289	if (!cmdloaded)
290	load_commands();
291	info = cmdhead;
292	while (info) {
293	if (x == cx)
294	return info->title;
295	info = info->next;
296	}
297	return duh;
298	}
299
300	VOID free_commands(VOID)
301	{
302	LINKCMDS info, next;
303
304	info = cmdhead;
305	while (info) {
306	next = info->next;
307	free(info->title);
308	free(info->cl);
309	free(info);
310	info = next;
311	}
312	cmdhead = cmdtail = NULL;
313	}
314
315	VOID load_commands(VOID)
316	{
317	FILE *fp;
318	LINKCMDS *info;
319	CHAR cl[1024];
320	CHAR title[100];
321	CHAR flags[72];
322
323	if (cmdhead)
324	free_commands();
325	cmdloaded = TRUE;
326	save_dir2(cl);
327	if (cl[strlen(cl) - 1] != '\\')
328	strcat(cl, "\\");
329	strcat(cl, "COMMANDS.DAT");
330	fp = _fsopen(cl, "r", SH_DENYWR);
331	if (fp) {
332	while (!feof(fp)) {
333	if (!xfgets_bstripcr(title, sizeof(title), fp, pszSrcFile, __LINE__))
334	break;
335	title[34] = 0; // fixme to know why chopped this way?
336	bstripcr(title);
337	if (!title \|\| title == ';')
338	continue;
339	if (!xfgets(cl, sizeof(cl), fp, pszSrcFile, __LINE__))
340	break; /* error! */
341	if (!xfgets(flags, 72, fp, pszSrcFile, __LINE__))
342	break; /* error! */
343	cl[1000] = 0; // fixme to know why chopped this way?
344	bstripcr(cl);
345	flags[34] = 0;
346	bstripcr(flags);
347	if (!*cl)
348	continue;
349	info = xmallocz(sizeof(LINKCMDS), pszSrcFile, __LINE__);
350	if (info) {
351	info->cl = xstrdup(cl, pszSrcFile, __LINE__);
352	info->title = xstrdup(title, pszSrcFile, __LINE__);
353	info->flags = atol(flags);
354	if (!info->cl \|\| !info->title) {
355	if (info->cl)
356	free(info->cl);
357	if (info->title)
358	free(info->title);
359	free(info);
360	break;
361	}
362	if (!cmdhead)
363	cmdhead = info;
364	else {
365	cmdtail->next = info;
366	info->prev = cmdtail;
367	}
368	cmdtail = info;
369	}
370	}
371	fclose(fp);
372	}
373	}
374
375	VOID save_commands(VOID)
376	{
377	LINKCMDS *info;
378	FILE *fp;
379	CHAR s[CCHMAXPATH + 14];
380
381	if (!cmdloaded \|\| !cmdhead)
382	return;
383	info = cmdhead;
384	save_dir2(s);
385	if (s[strlen(s) - 1] != '\\')
386	strcat(s, "\\");
387	strcat(s, "COMMANDS.DAT");
388	fp = xfopen(s, "w", pszSrcFile, __LINE__);
389	if (fp) {
390	fputs(GetPString(IDS_COMMANDFILETEXT), fp);
391	info = cmdhead;
392	while (info) {
393	fprintf(fp,
394	";\n%0.34s\n%0.1000s\n%lu\n",
395	info->title, info->cl, info->flags);
396	info = info->next;
397	}
398	fclose(fp);
399	}
400	}
401
402	//== add_command() Add command to list ==
403
404	LINKCMDS add_command(COMMAND addme)
405	{
406	LINKCMDS *info;
407
408	if (!addme \|\| !addme->cl \|\| !addme->title)
409	return NULL; // No data
410	info = cmdhead;
411	while (info) {
412	if (!stricmp(info->title, addme->title))
413	return NULL; // Got a dup
414	info = info->next;
415	}
416	info = xmallocz(sizeof(LINKCMDS), pszSrcFile, __LINE__);
417	if (!info)
418	return NULL;
419	info->cl = xstrdup(addme->cl, pszSrcFile, __LINE__);
420	info->title = xstrdup(addme->title, pszSrcFile, __LINE__);
421	if (addme->flags)
422	info->flags = addme->flags;
423	if (!info->cl \|\| !info->title) {
424	xfree(info->cl);
425	xfree(info->title);
426	free(info);
427	return NULL;
428	}
429	if (!cmdhead) /* only item in list */
430	cmdhead = cmdtail = info;
431	else {
432	/* place at tail */
433	cmdtail->next = info;
434	info->prev = cmdtail;
435	cmdtail = info;
436	}
437	return info;
438	}
439
440	BOOL kill_command(CHAR * killme)
441	{
442	LINKCMDS *info;
443
444	if (killme && *killme) {
445	info = cmdhead;
446	while (info) {
447	if (!stricmp(info->title, killme)) {
448	if (info == cmdhead) {
449	cmdhead = info->next;
450	if (info == cmdtail)
451	cmdtail = info->prev;
452	}
453	else {
454	if (info->next)
455	(info->next)->prev = info->prev;
456	if (info->prev)
457	(info->prev)->next = info->next;
458	if (info == cmdtail)
459	cmdtail = info->prev;
460	}
461	free(info->cl);
462	free(info->title);
463	free(info);
464	return TRUE;
465	}
466	info = info->next;
467	}
468	}
469	return FALSE;
470	}
471
472	MRESULT EXPENTRY CommandDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
473	{
474	SHORT x, y;
475	LINKCMDS *info;
476
477	switch (msg) {
478	case WM_INITDLG:
479	WinSendDlgItemMsg(hwnd, CMD_LISTBOX, LM_DELETEALL, MPVOID, MPVOID);
480	WinSendDlgItemMsg(hwnd, CMD_CL, EM_SETTEXTLIMIT,
481	MPFROM2SHORT(1000, 0), MPVOID);
482	WinSendDlgItemMsg(hwnd, CMD_TITLE, EM_SETTEXTLIMIT,
483	MPFROM2SHORT(33, 0), MPVOID);
484	WinSetDlgItemText(hwnd, CMD_CL, NullStr);
485	WinSetDlgItemText(hwnd, CMD_TITLE, NullStr);
486	WinCheckButton(hwnd, CMD_DEFAULT, TRUE);
487	WinCheckButton(hwnd, CMD_PROMPT, FALSE);
488	WinCheckButton(hwnd, CMD_ONCE, FALSE);
489	info = cmdhead;
490	while (info) {
491	x = (SHORT) WinSendDlgItemMsg(hwnd, CMD_LISTBOX, LM_INSERTITEM,
492	MPFROM2SHORT(LIT_END, 0),
493	MPFROMP(info->title));
494	if (x >= 0)
495	WinSendDlgItemMsg(hwnd, CMD_LISTBOX, LM_SETITEMHANDLE,
496	MPFROMSHORT(x), MPFROMP(info));
497	info = info->next;
498	}
499	WinSendDlgItemMsg(hwnd, CMD_LISTBOX, LM_SELECTITEM,
500	MPFROMSHORT(0), MPFROMSHORT(TRUE));
501	{
502	PFNWP oldproc;
503
504	oldproc = WinSubclassWindow(WinWindowFromID(hwnd, CMD_CL),
505	(PFNWP) CommandTextProc);
506	if (oldproc)
507	WinSetWindowPtr(WinWindowFromID(hwnd, CMD_CL), QWL_USER, (PVOID) oldproc);
508	}
509	break;
510
511	case WM_CONTROL:
512	if (SHORT1FROMMP(mp1) == CMD_LISTBOX) {
513	switch (SHORT2FROMMP(mp1)) {
514	case LN_ENTER:
515	case LN_SELECT:
516	x = (SHORT) WinSendDlgItemMsg(hwnd, CMD_LISTBOX,
517	LM_QUERYSELECTION,
518	MPFROMSHORT(LIT_FIRST), MPVOID);
519	if (x >= 0) {
520	info = (LINKCMDS *) WinSendDlgItemMsg(hwnd, CMD_LISTBOX,
521	LM_QUERYITEMHANDLE,
522	MPFROMSHORT(x), MPVOID);
523	if (!info) {
524	Runtime_Error(pszSrcFile, __LINE__, "LM_QUERYITEMHANDLE");
525	break;
526	}
527	WinSetDlgItemText(hwnd, CMD_CL, info->cl);
528	if (!(info->flags & 1023))
529	WinCheckButton(hwnd, CMD_DEFAULT, TRUE);
530	else {
531	if (info->flags & FULLSCREEN)
532	WinCheckButton(hwnd, CMD_FULLSCREEN, TRUE);
533	else if (info->flags & MINIMIZED)
534	WinCheckButton(hwnd, CMD_MINIMIZED, TRUE);
535	else if (info->flags & MAXIMIZED)
536	WinCheckButton(hwnd, CMD_MAXIMIZED, TRUE);
537	else if (info->flags & INVISIBLE)
538	WinCheckButton(hwnd, CMD_INVISIBLE, TRUE);
539	}
540	WinCheckButton(hwnd, CMD_PROMPT, ((info->flags & PROMPT) != 0));
541	WinCheckButton(hwnd, CMD_KEEP, ((info->flags & KEEP) != 0));
542	WinCheckButton(hwnd, CMD_ONCE, ((info->flags & ONCE) != 0));
543	WinSetDlgItemText(hwnd, CMD_TITLE, info->title);
544	{
545	CHAR env[1002];
546	ULONG size;
547
548	*env = 0;
549	size = sizeof(env) - 1;
550	if (PrfQueryProfileData(fmprof, FM3Str, info->cl, env, &size) &&
551	*env)
552	WinSetDlgItemText(hwnd, CMD_ENVIRON, env);
553	else
554	WinSetDlgItemText(hwnd, CMD_ENVIRON, NullStr);
555	}
556	}
557	break;
558	}
559	}
560	return 0;
561
562	case WM_COMMAND:
563	switch (SHORT1FROMMP(mp1)) {
564	case CMD_FIND:
565	{
566	CHAR filename[CCHMAXPATH + 9], szfilename[CCHMAXPATH + 9];
567
568	*filename = 0;
569	if (insert_filename(hwnd, filename, 2, FALSE) && *filename) {
570	BldQuotedFileName(szfilename, filename);
571	WinSetDlgItemText(hwnd, CMD_CL, szfilename);
572	}
573	}
574	break;
575
576	case CMD_REORDER:
577	if (!cmdhead \|\| !cmdhead->next) {
578	Runtime_Error(pszSrcFile, __LINE__, "no cmd");
579	break;
580	}
581	if (WinDlgBox(HWND_DESKTOP, hwnd, ReOrderProc, FM3ModHandle,
582	RE_FRAME, MPVOID)) {
583	WinSendDlgItemMsg(hwnd, CMD_LISTBOX, LM_DELETEALL, MPVOID, MPVOID);
584	WinSetDlgItemText(hwnd, CMD_CL, NullStr);
585	WinSetDlgItemText(hwnd, CMD_TITLE, NullStr);
586	info = cmdhead;
587	while (info) {
588	x = (SHORT) WinSendDlgItemMsg(hwnd,
589	CMD_LISTBOX,
590	LM_INSERTITEM,
591	MPFROM2SHORT(LIT_END, 0),
592	MPFROMP(info->title));
593	if (x >= 0)
594	WinSendDlgItemMsg(hwnd,
595	CMD_LISTBOX,
596	LM_SETITEMHANDLE,
597	MPFROMSHORT(x), MPFROMP(info));
598	info = info->next;
599	}
600	WinSendDlgItemMsg(hwnd,
601	CMD_LISTBOX,
602	LM_SELECTITEM, MPFROMSHORT(0), MPFROMSHORT(TRUE));
603	WinCheckButton(hwnd, CMD_DEFAULT, TRUE);
604	WinCheckButton(hwnd, CMD_PROMPT, FALSE);
605	WinCheckButton(hwnd, CMD_ONCE, FALSE);
606	save_commands();
607	}
608	break;
609
610	case DID_OK:
611	{
612	x = (SHORT) WinSendDlgItemMsg(hwnd,
613	CMD_LISTBOX,
614	LM_QUERYSELECTION, MPVOID, MPVOID);
615	if (x == LIT_NONE)
616	x = (SHORT) WinSendDlgItemMsg(hwnd,
617	CMD_LISTBOX,
618	LM_SELECTITEM,
619	MPFROMSHORT(0), MPFROMSHORT(TRUE));
620	}
621	{
622	COMMAND temp;
623	PSZ psz;
624	APIRET ret;
625
626	psz = xmalloc(MAXCOMLINESTRG, pszSrcFile, __LINE__);
627	memset(&temp, 0, sizeof(COMMAND));
628	WinQueryDlgItemText(hwnd, CMD_CL, sizeof(temp.cl), temp.cl);
629	CheckApp_QuoteAddExe(psz, temp.cl);
630	memcpy(temp.cl, psz, strlen(psz) + 1);
631	if (!strchr(temp.cl, '%')){
632	ret = saymsg(MB_YESNO,
633	HWND_DESKTOP,
634	NullStr,
635	GetPString(IDS_TOACTONSELECTEDTEXT));
636	if (ret == MBID_YES)
637	strcat(temp.cl, " %a");
638	}
639	WinQueryDlgItemText(hwnd, CMD_TITLE, sizeof(temp.title), temp.title);
640	if (WinQueryButtonCheckstate(hwnd, CMD_DEFAULT))
641	temp.flags = 0;
642	else if (WinQueryButtonCheckstate(hwnd, CMD_FULLSCREEN))
643	temp.flags = FULLSCREEN;
644	else if (WinQueryButtonCheckstate(hwnd, CMD_MINIMIZED))
645	temp.flags = MINIMIZED;
646	else if (WinQueryButtonCheckstate(hwnd, CMD_MAXIMIZED))
647	temp.flags = MAXIMIZED;
648	else if (WinQueryButtonCheckstate(hwnd, CMD_INVISIBLE))
649	temp.flags = INVISIBLE;
650	if (WinQueryButtonCheckstate(hwnd, CMD_KEEP))
651	temp.flags \|= KEEP;
652	if (WinQueryButtonCheckstate(hwnd, CMD_PROMPT))
653	temp.flags \|= PROMPT;
654	if (WinQueryButtonCheckstate(hwnd, CMD_ONCE))
655	temp.flags \|= ONCE;
656	if (fCancelAction){
657	fCancelAction = FALSE;
658	break;
659	}
660	else
661	info = add_command(&temp);
662	if (!info)
663	{
664	WinDismissDlg(hwnd, 0);
665	/*saymsg(MB_ENTER, hwnd,
666	GetPString(IDS_ERRORTEXT),
667	GetPString(IDS_CANTADDCOMMANDTEXT),
668	temp.title);*/
669	}
670	else {
671	CHAR env[1002];
672
673	*env = 0;
674	WinQueryDlgItemText(hwnd, CMD_ENVIRON, 1000, env);
675	bstripcr(env);
676	if (*env) {
677	PrfWriteProfileString(fmprof, FM3Str, temp.cl, env);
678	}
679	x = (SHORT) WinSendDlgItemMsg(hwnd,
680	CMD_LISTBOX,
681	LM_INSERTITEM,
682	MPFROM2SHORT(LIT_END, 0),
683	MPFROMP(temp.title));
684	if (x >= 0) {
685	WinSendDlgItemMsg(hwnd,
686	CMD_LISTBOX,
687	LM_SETITEMHANDLE,
688	MPFROMSHORT(x), MPFROMP(info));
689	WinSendDlgItemMsg(hwnd,
690	CMD_LISTBOX,
691	LM_SELECTITEM,
692	MPFROMSHORT(x), MPFROMSHORT(TRUE));
693	save_commands();
694	}
695	}
696	}
697	x = (SHORT) WinSendDlgItemMsg(hwnd,
698	CMD_LISTBOX,
699	LM_QUERYSELECTION,
700	MPFROMSHORT(LIT_FIRST), MPVOID);
701	WinDismissDlg(hwnd, 0);
702	break;
703
704	case DID_CANCEL:
705	WinDismissDlg(hwnd, 0);
706	break;
707
708	case IDM_HELP:
709	if (hwndHelp)
710	WinSendMsg(hwndHelp,
711	HM_DISPLAY_HELP,
712	MPFROM2SHORT(HELP_COMMAND, 0), MPFROMSHORT(HM_RESOURCEID));
713	break;
714
715	case CMD_ADD:
716	{
717	COMMAND temp;
718	PSZ psz;
719	APIRET ret;
720
721	psz = xmalloc(MAXCOMLINESTRG, pszSrcFile, __LINE__);
722	memset(&temp, 0, sizeof(COMMAND));
723	WinQueryDlgItemText(hwnd, CMD_CL, sizeof(temp.cl), temp.cl);
724	CheckApp_QuoteAddExe(psz, temp.cl);
725	memcpy(temp.cl, psz, strlen(psz) + 1);
726	if (!strchr(temp.cl, '%')){
727	ret = saymsg(MB_YESNO,
728	HWND_DESKTOP,
729	NullStr,
730	GetPString(IDS_TOACTONSELECTEDTEXT));
731	if (ret == MBID_YES)
732	strcat(temp.cl, " %a");
733	}
734	WinQueryDlgItemText(hwnd, CMD_TITLE, sizeof(temp.title), temp.title);
735	if (WinQueryButtonCheckstate(hwnd, CMD_DEFAULT))
736	temp.flags = 0;
737	else if (WinQueryButtonCheckstate(hwnd, CMD_FULLSCREEN))
738	temp.flags = FULLSCREEN;
739	else if (WinQueryButtonCheckstate(hwnd, CMD_MINIMIZED))
740	temp.flags = MINIMIZED;
741	else if (WinQueryButtonCheckstate(hwnd, CMD_MAXIMIZED))
742	temp.flags = MAXIMIZED;
743	else if (WinQueryButtonCheckstate(hwnd, CMD_INVISIBLE))
744	temp.flags = INVISIBLE;
745	if (WinQueryButtonCheckstate(hwnd, CMD_KEEP))
746	temp.flags \|= KEEP;
747	if (WinQueryButtonCheckstate(hwnd, CMD_PROMPT))
748	temp.flags \|= PROMPT;
749	if (WinQueryButtonCheckstate(hwnd, CMD_ONCE))
750	temp.flags \|= ONCE;
751	if (fCancelAction){
752	fCancelAction = FALSE;
753	break;
754	}
755	else
756	info = add_command(&temp);
757	if (!info) {
758	saymsg(MB_ENTER, hwnd, GetPString(IDS_ERRORTEXT),
759	GetPString(IDS_CANTADDCOMMANDTEXTDUP), temp.title);
760	}
761	else {
762	CHAR env[1002];
763
764	*env = 0;
765	WinQueryDlgItemText(hwnd, CMD_ENVIRON, 1000, env);
766	bstripcr(env);
767	if (*env) {
768	PrfWriteProfileString(fmprof, FM3Str, temp.cl, env);
769	}
770	x = (SHORT) WinSendDlgItemMsg(hwnd,
771	CMD_LISTBOX,
772	LM_INSERTITEM,
773	MPFROM2SHORT(LIT_END, 0),
774	MPFROMP(temp.title));
775	if (x >= 0) {
776	WinSendDlgItemMsg(hwnd,
777	CMD_LISTBOX,
778	LM_SETITEMHANDLE,
779	MPFROMSHORT(x), MPFROMP(info));
780	WinSendDlgItemMsg(hwnd,
781	CMD_LISTBOX,
782	LM_SELECTITEM,
783	MPFROMSHORT(x), MPFROMSHORT(TRUE));
784	save_commands();
785	}
786	}
787	}
788	break;
789
790	case CMD_DELETE:
791	{
792	CHAR temp[34];
793
794	WinQueryDlgItemText(hwnd, CMD_TITLE, 34, temp);
795	bstrip(temp);
796	if (!kill_command(temp))
797	Runtime_Error(pszSrcFile, __LINE__, "kill_command");
798	else {
799	x = (SHORT) WinSendDlgItemMsg(hwnd,
800	CMD_LISTBOX,
801	LM_QUERYSELECTION,
802	MPFROMSHORT(LIT_FIRST), MPVOID);
803	if (x >= 0) {
804	WinSendDlgItemMsg(hwnd,
805	CMD_LISTBOX,
806	LM_DELETEITEM, MPFROMSHORT(x), MPVOID);
807	WinSendDlgItemMsg(hwnd,
808	CMD_LISTBOX,
809	LM_SELECTITEM,
810	MPFROMSHORT(LIT_NONE), MPFROMSHORT(FALSE));
811	}
812	save_commands();
813	}
814	}
815	break;
816	case CMD_REPLACE:
817	{ //Delete first
818	PSZ psz;
819	COMMAND temp;
820	APIRET ret;
821
822	psz = xmalloc(MAXCOMLINESTRG, pszSrcFile, __LINE__);
823	memset(&temp, 0, sizeof(COMMAND));
824	WinQueryDlgItemText(hwnd, CMD_CL, sizeof(temp.cl), temp.cl);
825	CheckApp_QuoteAddExe(psz, temp.cl);
826	memcpy(temp.cl, psz, strlen(psz) + 1);
827	if (fCancelAction){
828	fCancelAction = FALSE;
829	break;
830	}
831	if (!strchr(temp.cl, '%')){
832	ret = saymsg(MB_YESNO,
833	HWND_DESKTOP,
834	NullStr,
835	GetPString(IDS_TOACTONSELECTEDTEXT));
836	if (ret == MBID_YES)
837	strcat(temp.cl, " %a");
838	}
839	//remember item location in the list
840	y = (SHORT) WinSendDlgItemMsg(hwnd,
841	CMD_LISTBOX,
842	LM_QUERYSELECTION,
843	MPFROMSHORT(LIT_CURSOR), MPVOID);
844	WinQueryDlgItemText(hwnd, CMD_TITLE, sizeof(temp.title), temp.title);
845	bstrip(temp.title);
846	if (kill_command(temp.title)){
847	x = (SHORT) WinSendDlgItemMsg(hwnd,
848	CMD_LISTBOX,
849	LM_QUERYSELECTION,
850	MPFROMSHORT(LIT_FIRST), MPVOID);
851	if (x >= 0) {
852	WinSendDlgItemMsg(hwnd,
853	CMD_LISTBOX,
854	LM_DELETEITEM, MPFROMSHORT(x), MPVOID);
855	WinSendDlgItemMsg(hwnd,
856	CMD_LISTBOX,
857	LM_SELECTITEM,
858	MPFROMSHORT(LIT_NONE), MPFROMSHORT(FALSE));
859	}
860	} // then do an add
861	if (WinQueryButtonCheckstate(hwnd, CMD_DEFAULT))
862	temp.flags = 0;
863	else if (WinQueryButtonCheckstate(hwnd, CMD_FULLSCREEN))
864	temp.flags = FULLSCREEN;
865	else if (WinQueryButtonCheckstate(hwnd, CMD_MINIMIZED))
866	temp.flags = MINIMIZED;
867	else if (WinQueryButtonCheckstate(hwnd, CMD_MAXIMIZED))
868	temp.flags = MAXIMIZED;
869	else if (WinQueryButtonCheckstate(hwnd, CMD_INVISIBLE))
870	temp.flags = INVISIBLE;
871	if (WinQueryButtonCheckstate(hwnd, CMD_KEEP))
872	temp.flags \|= KEEP;
873	if (WinQueryButtonCheckstate(hwnd, CMD_PROMPT))
874	temp.flags \|= PROMPT;
875	if (WinQueryButtonCheckstate(hwnd, CMD_ONCE))
876	temp.flags \|= ONCE;
877	info = add_command(&temp);
878	if (!info) {
879	saymsg(MB_ENTER, hwnd, GetPString(IDS_ERRORTEXT),
880	GetPString(IDS_CANTADDCOMMANDTEXT),
881	temp.title);
882	}
883
884	else {
885	CHAR env[1002];
886
887	*env = 0;
888	WinQueryDlgItemText(hwnd, CMD_ENVIRON, 1000, env);
889	bstripcr(env);
890	if (*env) {
891	PrfWriteProfileString(fmprof, FM3Str, temp.cl, env);
892	} //put item back in original place
893	x = (SHORT) WinSendDlgItemMsg(hwnd,
894	CMD_LISTBOX,
895	LM_INSERTITEM,
896	MPFROM2SHORT(y, 0),
897	MPFROMP(temp.title));
898	if (x >= 0) {
899	LINKCMDS temphead = NULL,last = NULL, *temptail = NULL;
900	SHORT numitems, sSelect = 0;
901
902	WinSendDlgItemMsg(hwnd,
903	CMD_LISTBOX,
904	LM_SETITEMHANDLE,
905	MPFROMSHORT(x), MPFROMP(info));
906	WinSendDlgItemMsg(hwnd,
907	CMD_LISTBOX,
908	LM_SELECTITEM,
909	MPFROMSHORT(x), MPFROMSHORT(TRUE));
910	//then reorder
911	numitems = (SHORT) WinSendDlgItemMsg(hwnd, CMD_LISTBOX,
912	LM_QUERYITEMCOUNT,
913	MPVOID, MPVOID);
914
915	while (numitems) {
916
917
918	info = (LINKCMDS *) WinSendDlgItemMsg(hwnd, CMD_LISTBOX,
919	LM_QUERYITEMHANDLE,
920	MPFROMSHORT(sSelect++),
921	MPVOID);
922	if (info) {
923	if (!temphead) {
924	temphead = info;
925	info->prev = NULL;
926	}
927	else {
928	last->next = info;
929	info->prev = last;
930	}
931	temptail = info;
932	last = info;
933	info->next = NULL;
934	}
935	numitems--;
936	}
937	cmdhead = temphead;
938	cmdtail = temptail;
939	save_commands();
940	}
941	}
942	}
943	break;
944	}
945	return 0;
946	}
947	return WinDefDlgProc(hwnd, msg, mp1, mp2);
948	}
949
950	VOID RunCommand(HWND hwnd, INT cx)
951	{
952	INT x;
953	CHAR **list;
954	LINKCMDS *info;
955
956	list = BuildList(hwnd);
957	if (!list \|\| !list[0])
958	return;
959	x = 0;
960	info = cmdhead;
961	while (info) {
962	x++;
963	if (x == cx)
964	break;
965	info = info->next;
966	}
967	if (info) {
968
969	INT flags;
970
971	x--;
972	flags = info->flags;
973	if (!(flags & FULLSCREEN))
974	flags \|= WINDOWED;
975	if (flags & KEEP)
976	flags \|= SEPARATEKEEP;
977	else
978	flags \|= SEPARATE;
979	flags &= ~(KEEP \| DIEAFTER);
980	if ((flags & ONCE) && list && list[0]) {
981
982	CHAR *fakelist[2];
983	INT cntr;
984
985	flags &= (~ONCE);
986	for (cntr = 0; list[cntr]; cntr++) {
987	*fakelist = list[cntr];
988	fakelist[1] = NULL;
989	ExecOnList(hwnd,
990	info->cl,
991	flags, NULL, fakelist, GetPString(IDS_EXECCMDTITLETEXT),
992	pszSrcFile, __LINE__);
993	}
994	}
995	else
996	ExecOnList(hwnd,
997	info->cl,
998	flags, NULL, list, GetPString(IDS_EXECCMDTITLETEXT),
999	pszSrcFile, __LINE__);
1000	}
1001	FreeList(list);
1002	DosPostEventSem(CompactSem);
1003	}
1004
1005	VOID EditCommands(HWND hwnd)
1006	{
1007	static CHAR stop = 0;
1008
1009	if (stop)
1010	return;
1011	stop++;
1012	if (!cmdloaded)
1013	load_commands();
1014	WinDlgBox(HWND_DESKTOP,
1015	hwnd, CommandDlgProc, FM3ModHandle, CMD_FRAME, MPFROMP(&hwnd));
1016	stop = 0;
1017	}
1018
1019	#pragma alloc_text(COMMAND,command_title,free_commands,add_command,kill_command)
1020	#pragma alloc_text(COMMAND,CommandDlgProc,EditCommands,ReOrderProc,CommandTextProc)

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

Download in other formats: