source: trunk/dll/command.c@ 443

Last change on this file since 443 was 406, checked in by root, 19 years ago

Use xfgets_bstripcr
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 25.1 KB
Line 
1
2/***********************************************************************
3
4 $Id: command.c 406 2006-07-29 20:02:17Z root $
5
6 Custom commands
7
8 Copyright (c) 1993-98 M. Kimes
9 Copyright (c) 2004, 2006 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
16***********************************************************************/
17
18#define INCL_DOS
19#define INCL_WIN
20#include <os2.h>
21
22#include <stdio.h>
23#include <stdlib.h>
24#include <string.h>
25#include <ctype.h>
26#include <share.h>
27
28#include "fm3dll.h"
29#include "fm3dlg.h"
30#include "fm3str.h"
31#include "tools.h"
32
33typedef struct {
34 CHAR cl[1001];
35 INT flags;
36 CHAR title[34];
37} COMMAND;
38
39#pragma data_seg(DATA1)
40
41static PSZ pszSrcFile = __FILE__;
42
43#pragma alloc_text(COMMAND,command_title,free_commands,add_command,kill_command)
44#pragma alloc_text(COMMAND,CommandDlgProc,EditCommands,ReOrderProc,CommandTextProc)
45
46
47MRESULT EXPENTRY CommandTextProc (HWND hwnd,ULONG msg,MPARAM mp1,MPARAM mp2)
48{
49 PFNWP oldproc = (PFNWP)WinQueryWindowPtr(hwnd,0);
50 static BOOL emphasized = FALSE;
51
52 switch(msg) {
53 case DM_DRAGOVER:
54 if(!emphasized) {
55 emphasized = TRUE;
56 DrawTargetEmphasis(hwnd,emphasized);
57 }
58 if(AcceptOneDrop(mp1,mp2))
59 return MRFROM2SHORT(DOR_DROP,
60 DO_MOVE);
61 return MRFROM2SHORT(DOR_NEVERDROP,0);
62
63 case DM_DRAGLEAVE:
64 if(emphasized) {
65 emphasized = FALSE;
66 DrawTargetEmphasis(hwnd,emphasized);
67 }
68 break;
69
70 case DM_DROPHELP:
71 DropHelp(mp1,
72 mp2,
73 hwnd,
74 GetPString(IDS_DROPCMDHELPTEXT));
75 return 0;
76
77 case DM_DROP:
78 {
79 char szFrom[CCHMAXPATH + 5];
80
81 if(emphasized) {
82 emphasized = FALSE;
83 DrawTargetEmphasis(hwnd,emphasized);
84 }
85 if(GetOneDrop(mp1,mp2,szFrom,CCHMAXPATH)) {
86 strcat(szFrom," %a");
87 WinSetWindowText(hwnd,szFrom);
88 }
89 }
90 return 0;
91 }
92 return (oldproc) ? oldproc(hwnd,msg,mp1,mp2) :
93 WinDefWindowProc(hwnd,msg,mp1,mp2);
94}
95
96
97MRESULT EXPENTRY ReOrderProc (HWND hwnd,ULONG msg,MPARAM mp1,MPARAM mp2)
98{
99 switch(msg) {
100 case WM_INITDLG:
101 if(!cmdhead) {
102 WinDismissDlg(hwnd,0);
103 break;
104 }
105 {
106 LINKCMDS *info;
107 SHORT x;
108
109 info = cmdhead;
110 while(info) {
111 x = (SHORT)WinSendDlgItemMsg(hwnd,RE_ADDLISTBOX,LM_INSERTITEM,
112 MPFROMSHORT(LIT_END),
113 MPFROMP(info->title));
114 if(x < 0) {
115 Runtime_Error(pszSrcFile, __LINE__, "no cmd");
116 WinDismissDlg(hwnd,0);
117 }
118 else {
119 WinSendDlgItemMsg(hwnd,RE_ADDLISTBOX,LM_SETITEMHANDLE,
120 MPFROMSHORT(x),MPFROMP(info));
121 }
122 info = info->next;
123 }
124 }
125 break;
126
127 case WM_CONTROL:
128 return 0;
129
130 case WM_COMMAND:
131 switch(SHORT1FROMMP(mp1)) {
132 case DID_CANCEL:
133 WinDismissDlg(hwnd,0);
134 break;
135
136 case DID_OK:
137 {
138 LINKCMDS *temphead = NULL,*info,*last = NULL,*temptail = NULL;
139 SHORT sSelect,numitems;
140
141 sSelect = 0;
142 numitems = (SHORT)WinSendDlgItemMsg(hwnd,RE_REMOVELISTBOX,
143 LM_QUERYITEMCOUNT,
144 MPVOID,MPVOID);
145 while(numitems) {
146 info = (LINKCMDS *)WinSendDlgItemMsg(hwnd,RE_REMOVELISTBOX,
147 LM_QUERYITEMHANDLE,
148 MPFROMSHORT(sSelect++),
149 MPVOID);
150 if(info) {
151 if(!temphead) {
152 temphead = info;
153 info->prev = NULL;
154 }
155 else {
156 last->next = info;
157 info->prev = last;
158 }
159 temptail = info;
160 last = info;
161 info->next = NULL;
162 }
163 numitems--;
164 }
165 sSelect = 0;
166 numitems = (SHORT)WinSendDlgItemMsg(hwnd,RE_ADDLISTBOX,
167 LM_QUERYITEMCOUNT,
168 MPVOID,MPVOID);
169 while(numitems) {
170 info = (LINKCMDS *)WinSendDlgItemMsg(hwnd,RE_ADDLISTBOX,
171 LM_QUERYITEMHANDLE,
172 MPFROMSHORT(sSelect++),
173 MPVOID);
174 if(info) {
175 if(!temphead) {
176 temphead = info;
177 info->prev = NULL;
178 }
179 else {
180 last->next = info;
181 info->prev = last;
182 }
183 temptail = info;
184 last = info;
185 info->next = NULL;
186 }
187 numitems--;
188 }
189 cmdhead = temphead;
190 cmdtail = temptail;
191 }
192 WinDismissDlg(hwnd,1);
193 break;
194
195 case IDM_HELP:
196 if(hwndHelp)
197 WinSendMsg(hwndHelp,HM_DISPLAY_HELP,
198 MPFROM2SHORT(HELP_REORDERCOMMANDS,0),
199 MPFROMSHORT(HM_RESOURCEID));
200 break;
201
202 case RE_ADD:
203 {
204 SHORT sSelect,x;
205 LINKCMDS *info;
206
207 sSelect = (SHORT)WinSendDlgItemMsg(hwnd,RE_ADDLISTBOX,
208 LM_QUERYSELECTION,
209 MPFROMSHORT(LIT_FIRST),
210 MPVOID);
211 while(sSelect >= 0) {
212 info = (LINKCMDS *)WinSendDlgItemMsg(hwnd,RE_ADDLISTBOX,
213 LM_QUERYITEMHANDLE,
214 MPFROMSHORT(sSelect),
215 MPVOID);
216 if(info) {
217 x = (SHORT)WinSendDlgItemMsg(hwnd,RE_REMOVELISTBOX,
218 LM_INSERTITEM,
219 MPFROM2SHORT(LIT_END,0),
220 MPFROMP(info->title));
221 if(x >= 0) {
222 WinSendDlgItemMsg(hwnd,RE_REMOVELISTBOX,
223 LM_SETITEMHANDLE,
224 MPFROMSHORT(x),
225 MPFROMP(info));
226 WinSendDlgItemMsg(hwnd,RE_ADDLISTBOX,LM_DELETEITEM,
227 MPFROMSHORT(sSelect),MPVOID);
228 }
229 }
230 else
231 WinSendDlgItemMsg(hwnd,RE_ADDLISTBOX,LM_SELECTITEM,
232 MPFROMSHORT(sSelect),MPFROMSHORT(FALSE));
233 sSelect = (USHORT)WinSendDlgItemMsg(hwnd,RE_ADDLISTBOX,
234 LM_QUERYSELECTION,
235 MPFROMSHORT(LIT_FIRST),
236 MPVOID);
237 }
238 }
239 break;
240
241 case RE_REMOVE:
242 {
243 SHORT sSelect,x;
244 LINKCMDS *info;
245
246 sSelect = (SHORT)WinSendDlgItemMsg(hwnd,RE_REMOVELISTBOX,
247 LM_QUERYSELECTION,
248 MPFROMSHORT(LIT_FIRST),
249 MPVOID);
250 while(sSelect >= 0) {
251 info = (LINKCMDS *)WinSendDlgItemMsg(hwnd,RE_REMOVELISTBOX,
252 LM_QUERYITEMHANDLE,
253 MPFROMSHORT(sSelect),
254 MPVOID);
255 if(info) {
256 x = (SHORT)WinSendDlgItemMsg(hwnd,RE_ADDLISTBOX,
257 LM_INSERTITEM,
258 MPFROM2SHORT(LIT_END,0),
259 MPFROMP(info->title));
260 if(x >= 0) {
261 WinSendDlgItemMsg(hwnd,RE_ADDLISTBOX,
262 LM_SETITEMHANDLE,
263 MPFROMSHORT(x),
264 MPFROMP(info));
265 WinSendDlgItemMsg(hwnd,RE_REMOVELISTBOX,LM_DELETEITEM,
266 MPFROMSHORT(sSelect),MPVOID);
267 }
268 }
269 else
270 WinSendDlgItemMsg(hwnd,RE_REMOVELISTBOX,LM_SELECTITEM,
271 MPFROMSHORT(sSelect),MPFROMSHORT(FALSE));
272 sSelect = (USHORT)WinSendDlgItemMsg(hwnd,RE_REMOVELISTBOX,
273 LM_QUERYSELECTION,
274 MPFROMSHORT(LIT_FIRST),
275 MPVOID);
276 }
277 }
278 break;
279 }
280 return 0;
281 }
282 return WinDefDlgProc(hwnd,msg,mp1,mp2);
283}
284
285
286CHAR *command_title (INT cx)
287{
288 static CHAR duh[] = "???";
289 LINKCMDS *info;
290 INT x = 0;
291
292 if(!cmdloaded)
293 load_commands();
294 info = cmdhead;
295 while(info) {
296 if(x == cx)
297 return info->title;
298 info = info->next;
299 }
300 return duh;
301}
302
303
304VOID free_commands (VOID)
305{
306 LINKCMDS *info,*next;
307
308 info = cmdhead;
309 while(info) {
310 next = info->next;
311 free(info->title);
312 free(info->cl);
313 free(info);
314 info = next;
315 }
316 cmdhead = cmdtail = NULL;
317}
318
319
320VOID load_commands (VOID)
321{
322 FILE *fp;
323 LINKCMDS *info;
324 CHAR cl[1024];
325 CHAR title[100];
326 CHAR flags[72];
327
328 if(cmdhead)
329 free_commands();
330 cmdloaded = TRUE;
331 save_dir2(cl);
332 if(cl[strlen(cl) - 1] != '\\')
333 strcat(cl,"\\");
334 strcat(cl,"COMMANDS.DAT");
335 fp = _fsopen(cl,"r",SH_DENYWR);
336 if(fp) {
337 while (!feof(fp)) {
338 if (!xfgets_bstripcr(title,sizeof(title),fp,pszSrcFile,__LINE__))
339 break;
340 title[34] = 0; // fixme to know why chopped this way?
341 bstripcr(title);
342 if (!*title || *title == ';')
343 continue;
344 if (!xfgets(cl,sizeof(cl),fp,pszSrcFile,__LINE__))
345 break; /* error! */
346 if (!xfgets(flags,72,fp,pszSrcFile,__LINE__))
347 break; /* error! */
348 cl[1000] = 0; // fixme to know why chopped this way?
349 bstripcr(cl);
350 flags[34] = 0;
351 bstripcr(flags);
352 if(!*cl)
353 continue;
354 info = xmallocz(sizeof(LINKCMDS),pszSrcFile,__LINE__);
355 if (info) {
356 info->cl = xstrdup(cl,pszSrcFile,__LINE__);
357 info->title = xstrdup(title,pszSrcFile,__LINE__);
358 info->flags = atol(flags);
359 if(!info->cl || !info->title) {
360 if(info->cl)
361 free(info->cl);
362 if(info->title)
363 free(info->title);
364 free(info);
365 break;
366 }
367 if(!cmdhead)
368 cmdhead = info;
369 else {
370 cmdtail->next = info;
371 info->prev = cmdtail;
372 }
373 cmdtail = info;
374 }
375 }
376 fclose(fp);
377 }
378}
379
380
381VOID save_commands (VOID)
382{
383 LINKCMDS *info;
384 FILE *fp;
385 CHAR s[CCHMAXPATH + 14];
386
387 if(!cmdloaded || !cmdhead)
388 return;
389 info = cmdhead;
390 save_dir2(s);
391 if(s[strlen(s) - 1] != '\\')
392 strcat(s,"\\");
393 strcat(s,"COMMANDS.DAT");
394 fp = xfopen(s,"w",pszSrcFile,__LINE__);
395 if (fp) {
396 fputs(GetPString(IDS_COMMANDFILETEXT),fp);
397 info = cmdhead;
398 while(info) {
399 fprintf(fp,
400 ";\n%0.34s\n%0.1000s\n%lu\n",
401 info->title,
402 info->cl,
403 info->flags);
404 info = info->next;
405 }
406 fclose(fp);
407 }
408}
409
410
411LINKCMDS * add_command (COMMAND *addme)
412{
413 LINKCMDS *info;
414
415 if(addme && *addme->cl && *addme->title) {
416 info = cmdhead;
417 while(info) {
418 if(!stricmp(info->title,addme->title))
419 return NULL;
420 info = info->next;
421 }
422 if(!info) {
423 info = xmallocz(sizeof(LINKCMDS),pszSrcFile,__LINE__);
424 if(info) {
425 info->cl = xstrdup(addme->cl,pszSrcFile,__LINE__);
426 info->title = xstrdup(addme->title,pszSrcFile,__LINE__);
427 if(addme->flags)
428 info->flags = addme->flags;
429 if(!info->cl || !info->title) {
430 if(info->cl)
431 free(info->cl);
432 if(info->title)
433 free(info->title);
434 free(info);
435 }
436 else {
437 if(!cmdhead) /* only item in list */
438 cmdhead = cmdtail = info;
439 else { /* place at tail */
440 cmdtail->next = info;
441 info->prev = cmdtail;
442 cmdtail = info;
443 }
444 return info;
445 }
446 }
447 }
448 }
449 return NULL;
450}
451
452
453BOOL kill_command (CHAR *killme)
454{
455 LINKCMDS *info;
456
457 if(killme && *killme) {
458 info = cmdhead;
459 while(info) {
460 if(!stricmp(info->title,killme)) {
461 if(info == cmdhead) {
462 cmdhead = info->next;
463 if(info == cmdtail)
464 cmdtail = info->prev;
465 }
466 else {
467 if(info->next)
468 (info->next)->prev = info->prev;
469 if(info->prev)
470 (info->prev)->next = info->next;
471 if(info == cmdtail)
472 cmdtail = info->prev;
473 }
474 free(info->cl);
475 free(info->title);
476 free(info);
477 return TRUE;
478 }
479 info = info->next;
480 }
481 }
482 return FALSE;
483}
484
485
486MRESULT EXPENTRY CommandDlgProc (HWND hwnd,ULONG msg,MPARAM mp1,MPARAM mp2)
487{
488 SHORT x;
489 LINKCMDS *info;
490
491 switch(msg) {
492 case WM_INITDLG:
493 WinSendDlgItemMsg(hwnd,CMD_LISTBOX,LM_DELETEALL,MPVOID,MPVOID);
494 WinSendDlgItemMsg(hwnd,CMD_CL,EM_SETTEXTLIMIT,
495 MPFROM2SHORT(1000,0),MPVOID);
496 WinSendDlgItemMsg(hwnd,CMD_TITLE,EM_SETTEXTLIMIT,
497 MPFROM2SHORT(33,0),MPVOID);
498 WinSetDlgItemText(hwnd,CMD_CL,NullStr);
499 WinSetDlgItemText(hwnd,CMD_TITLE,NullStr);
500 WinCheckButton(hwnd,CMD_DEFAULT,TRUE);
501 WinCheckButton(hwnd,CMD_PROMPT,FALSE);
502 WinCheckButton(hwnd,CMD_ONCE,FALSE);
503 info = cmdhead;
504 while(info) {
505 x = (SHORT)WinSendDlgItemMsg(hwnd,CMD_LISTBOX,LM_INSERTITEM,
506 MPFROM2SHORT(LIT_END,0),
507 MPFROMP(info->title));
508 if(x >= 0)
509 WinSendDlgItemMsg(hwnd,CMD_LISTBOX,LM_SETITEMHANDLE,
510 MPFROMSHORT(x),MPFROMP(info));
511 info = info->next;
512 }
513 WinSendDlgItemMsg(hwnd,CMD_LISTBOX,LM_SELECTITEM,
514 MPFROMSHORT(0),MPFROMSHORT(TRUE));
515 {
516 PFNWP oldproc;
517
518 oldproc = WinSubclassWindow(WinWindowFromID(hwnd,CMD_CL),
519 (PFNWP)CommandTextProc);
520 if(oldproc)
521 WinSetWindowPtr(WinWindowFromID(hwnd,CMD_CL),0,(PVOID)oldproc);
522 }
523 break;
524
525 case WM_CONTROL:
526 if(SHORT1FROMMP(mp1) == CMD_LISTBOX) {
527 switch(SHORT2FROMMP(mp1)) {
528 case LN_ENTER:
529 case LN_SELECT:
530 x = (SHORT)WinSendDlgItemMsg(hwnd,CMD_LISTBOX,
531 LM_QUERYSELECTION,
532 MPFROMSHORT(LIT_FIRST),
533 MPVOID);
534 if(x >= 0) {
535 info = (LINKCMDS *)WinSendDlgItemMsg(hwnd,CMD_LISTBOX,
536 LM_QUERYITEMHANDLE,
537 MPFROMSHORT(x),
538 MPVOID);
539 if(!info) {
540 Runtime_Error(pszSrcFile, __LINE__, "LM_QUERYITEMHANDLE");
541 break;
542 }
543 WinSetDlgItemText(hwnd,CMD_CL,info->cl);
544 if(!(info->flags & 1023))
545 WinCheckButton(hwnd,CMD_DEFAULT,TRUE);
546 else {
547 if(info->flags & FULLSCREEN)
548 WinCheckButton(hwnd,CMD_FULLSCREEN,TRUE);
549 else if(info->flags & MINIMIZED)
550 WinCheckButton(hwnd,CMD_MINIMIZED,TRUE);
551 else if(info->flags & MAXIMIZED)
552 WinCheckButton(hwnd,CMD_MAXIMIZED,TRUE);
553 else if(info->flags & INVISIBLE)
554 WinCheckButton(hwnd,CMD_INVISIBLE,TRUE);
555 }
556 WinCheckButton(hwnd,CMD_PROMPT,((info->flags & PROMPT) != 0));
557 WinCheckButton(hwnd,CMD_KEEP,((info->flags & KEEP) != 0));
558 WinCheckButton(hwnd,CMD_ONCE,((info->flags & ONCE) != 0));
559 WinSetDlgItemText(hwnd,CMD_TITLE,info->title);
560 {
561 CHAR env[1002];
562 ULONG size;
563
564 *env = 0;
565 size = sizeof(env) - 1;
566 if(PrfQueryProfileData(fmprof,FM3Str,info->cl,env,&size) &&
567 *env)
568 WinSetDlgItemText(hwnd,CMD_ENVIRON,env);
569 else
570 WinSetDlgItemText(hwnd,CMD_ENVIRON,NullStr);
571 }
572 }
573 break;
574 }
575 }
576 return 0;
577
578 case WM_COMMAND:
579 switch(SHORT1FROMMP(mp1)) {
580 case CMD_FIND:
581 {
582 CHAR filename[CCHMAXPATH + 9];
583
584 *filename = 0;
585 if(insert_filename(hwnd,filename,2,FALSE) && *filename) {
586 strcat(filename," %a");
587 WinSetDlgItemText(hwnd,CMD_CL,filename);
588 }
589 }
590 break;
591
592 case CMD_REORDER:
593 if(!cmdhead || !cmdhead->next) {
594 Runtime_Error(pszSrcFile, __LINE__, "no cmd");
595 break;
596 }
597 if(WinDlgBox(HWND_DESKTOP,hwnd,ReOrderProc,FM3ModHandle,
598 RE_FRAME,MPVOID)) {
599 WinSendDlgItemMsg(hwnd,
600 CMD_LISTBOX,
601 LM_DELETEALL,
602 MPVOID,
603 MPVOID);
604 WinSetDlgItemText(hwnd,
605 CMD_CL,
606 NullStr);
607 WinSetDlgItemText(hwnd,
608 CMD_TITLE,
609 NullStr);
610 info = cmdhead;
611 while(info) {
612 x = (SHORT)WinSendDlgItemMsg(hwnd,
613 CMD_LISTBOX,
614 LM_INSERTITEM,
615 MPFROM2SHORT(LIT_END,0),
616 MPFROMP(info->title));
617 if(x >= 0)
618 WinSendDlgItemMsg(hwnd,
619 CMD_LISTBOX,
620 LM_SETITEMHANDLE,
621 MPFROMSHORT(x),
622 MPFROMP(info));
623 info = info->next;
624 }
625 WinSendDlgItemMsg(hwnd,
626 CMD_LISTBOX,
627 LM_SELECTITEM,
628 MPFROMSHORT(0),
629 MPFROMSHORT(TRUE));
630 WinCheckButton(hwnd,
631 CMD_DEFAULT,
632 TRUE);
633 WinCheckButton(hwnd,
634 CMD_PROMPT,
635 FALSE);
636 WinCheckButton(hwnd,
637 CMD_ONCE,
638 FALSE);
639 save_commands();
640 }
641 break;
642
643 case DID_OK:
644 x = (SHORT)WinSendDlgItemMsg(hwnd,
645 CMD_LISTBOX,
646 LM_QUERYSELECTION,
647 MPFROMSHORT(LIT_FIRST),
648 MPVOID);
649 WinDismissDlg(hwnd,0);
650 break;
651
652 case DID_CANCEL:
653 WinDismissDlg(hwnd,0);
654 break;
655
656 case IDM_HELP:
657 if(hwndHelp)
658 WinSendMsg(hwndHelp,
659 HM_DISPLAY_HELP,
660 MPFROM2SHORT(HELP_COMMAND,0),
661 MPFROMSHORT(HM_RESOURCEID));
662 break;
663
664 case CMD_ADD:
665 {
666 COMMAND temp;
667
668 memset(&temp,0,sizeof(COMMAND));
669 WinQueryDlgItemText(hwnd,
670 CMD_CL,
671 sizeof(temp.cl),
672 temp.cl);
673 bstrip(temp.cl);
674 WinQueryDlgItemText(hwnd,CMD_TITLE,sizeof(temp.title),temp.title);
675 if(WinQueryButtonCheckstate(hwnd,CMD_DEFAULT))
676 temp.flags = 0;
677 else if(WinQueryButtonCheckstate(hwnd,CMD_FULLSCREEN))
678 temp.flags = FULLSCREEN;
679 else if(WinQueryButtonCheckstate(hwnd,CMD_MINIMIZED))
680 temp.flags = MINIMIZED;
681 else if(WinQueryButtonCheckstate(hwnd,CMD_MAXIMIZED))
682 temp.flags = MAXIMIZED;
683 else if(WinQueryButtonCheckstate(hwnd,CMD_INVISIBLE))
684 temp.flags = INVISIBLE;
685 if(WinQueryButtonCheckstate(hwnd,CMD_KEEP))
686 temp.flags |= KEEP;
687 if(WinQueryButtonCheckstate(hwnd,CMD_PROMPT))
688 temp.flags |= PROMPT;
689 if(WinQueryButtonCheckstate(hwnd,CMD_ONCE))
690 temp.flags |= ONCE;
691 info = add_command(&temp);
692 if(!info)
693 Runtime_Error(pszSrcFile, __LINE__, "add_command");
694 else {
695 {
696 CHAR env[1002];
697
698 *env = 0;
699 WinQueryDlgItemText(hwnd,
700 CMD_ENVIRON,
701 1000,
702 env);
703 bstripcr(env);
704 if(*env)
705 PrfWriteProfileString(fmprof,
706 FM3Str,
707 temp.cl,
708 env);
709 }
710 x = (SHORT)WinSendDlgItemMsg(hwnd,
711 CMD_LISTBOX,
712 LM_INSERTITEM,
713 MPFROM2SHORT(LIT_END,0),
714 MPFROMP(temp.title));
715 if(x >= 0) {
716 WinSendDlgItemMsg(hwnd,
717 CMD_LISTBOX,
718 LM_SETITEMHANDLE,
719 MPFROMSHORT(x),
720 MPFROMP(info));
721 WinSendDlgItemMsg(hwnd,
722 CMD_LISTBOX,
723 LM_SELECTITEM,
724 MPFROMSHORT(x),
725 MPFROMSHORT(TRUE));
726 save_commands();
727 }
728 }
729 }
730 break;
731
732 case CMD_DELETE:
733 {
734 CHAR temp[34];
735
736 WinQueryDlgItemText(hwnd,CMD_TITLE,34,temp);
737 bstrip(temp);
738 if (!kill_command(temp))
739 Runtime_Error(pszSrcFile, __LINE__, "kill_command");
740 else {
741 x = (SHORT)WinSendDlgItemMsg(hwnd,
742 CMD_LISTBOX,
743 LM_QUERYSELECTION,
744 MPFROMSHORT(LIT_FIRST),
745 MPVOID);
746 if(x >= 0) {
747 WinSendDlgItemMsg(hwnd,
748 CMD_LISTBOX,
749 LM_DELETEITEM,
750 MPFROMSHORT(x),
751 MPVOID);
752 WinSendDlgItemMsg(hwnd,
753 CMD_LISTBOX,
754 LM_SELECTITEM,
755 MPFROMSHORT(LIT_NONE),
756 MPFROMSHORT(FALSE));
757 }
758 save_commands();
759 }
760 }
761 break;
762 }
763 return 0;
764 }
765 return WinDefDlgProc(hwnd,msg,mp1,mp2);
766}
767
768
769VOID RunCommand (HWND hwnd,INT cx)
770{
771 INT x;
772 CHAR **list;
773 LINKCMDS *info;
774
775 list = BuildList(hwnd);
776 if(!list || !list[0])
777 return;
778 x = 0;
779 info = cmdhead;
780 while(info) {
781 x++;
782 if(x == cx)
783 break;
784 info = info->next;
785 }
786 if(info) {
787
788 INT flags;
789
790 x--;
791 flags = info->flags;
792 if(!(flags & FULLSCREEN))
793 flags |= WINDOWED;
794 if(flags & KEEP)
795 flags |= SEPARATEKEEP;
796 else
797 flags |= SEPARATE;
798 flags &= ~(KEEP | DIEAFTER);
799 if((flags & ONCE) && list && list[0]) {
800
801 CHAR *fakelist[2];
802 INT cntr;
803
804 flags &= (~ONCE);
805 for(cntr = 0;list[cntr];cntr++) {
806 *fakelist = list[cntr];
807 fakelist[1] = NULL;
808 ExecOnList(hwnd,
809 info->cl,
810 flags,
811 NULL,
812 fakelist,
813 GetPString(IDS_EXECCMDTITLETEXT));
814 }
815 }
816 else
817 ExecOnList(hwnd,
818 info->cl,
819 flags,
820 NULL,
821 list,
822 GetPString(IDS_EXECCMDTITLETEXT));
823 }
824 FreeList(list);
825 DosPostEventSem(CompactSem);
826}
827
828
829VOID EditCommands (HWND hwnd)
830{
831 static CHAR stop = 0;
832
833 if(stop)
834 return;
835 stop++;
836 if(!cmdloaded)
837 load_commands();
838 WinDlgBox(HWND_DESKTOP,
839 hwnd,
840 CommandDlgProc,
841 FM3ModHandle,
842 CMD_FRAME,
843 MPFROMP(&hwnd));
844 stop = 0;
845}
Note: See TracBrowser for help on using the repository browser.