source: trunk/dll/walkem.c@ 536

Last change on this file since 536 was 518, checked in by root, 19 years ago

Correct . .. check
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 36.9 KB
Line 
1
2/***********************************************************************
3
4 $Id: walkem.c 518 2006-11-02 08:52:20Z root $
5
6 Copyright (c) 1993-98 M. Kimes
7 Copyright (c) 2005, 2006 Steven H. Levine
8
9 01 Aug 04 SHL Rework lstrip/rstrip usage
10 05 Jun 05 SHL Use QWL_USER
11 13 Aug 05 SHL Run through indent
12 13 Aug 05 SHL remove_udir - avoid corrupting last dirs list
13 17 Jul 06 SHL Use Runtime_Error
14 29 Jul 06 SHL Use xfgets
15 20 Oct 06 SHL Correct . .. check
16
17***********************************************************************/
18
19#define INCL_WIN
20#define INCL_DOS
21#define INCL_DOSERRORS
22#include <os2.h>
23
24#include <stdlib.h>
25#include <stdio.h>
26#include <string.h>
27#include <ctype.h>
28#include <time.h>
29#include <share.h>
30
31#include "fm3dll.h"
32#include "fm3dlg.h"
33#include "fm3str.h"
34
35#pragma data_seg(DATA1)
36
37static PSZ pszSrcFile = __FILE__;
38
39#pragma alloc_text(WALKER,FillPathListBox,WalkDlgProc,TextSubProc)
40#pragma alloc_text(WALKER,WalkAllDlgProc,WalkCopyDlgProc)
41#pragma alloc_text(WALKER,WalkMoveDlgProc,WalkExtractDlgProc,WalkTargetDlgProc)
42#pragma alloc_text(WALK2,WalkTwoDlgProc,WalkTwoCmpDlgProc,WalkTwoSetDlgProc)
43#pragma alloc_text(UDIRS,add_udir,remove_udir,remove_ldir,load_udirs)
44#pragma alloc_text(UDIRS,save_udirs,load_setup,save_setup,add_setup)
45#pragma alloc_text(UDIRS,remove_setup)
46
47typedef struct
48{
49 USHORT size;
50 USHORT changed;
51 BOOL nounwriteable;
52 CHAR szCurrentPath[CCHMAXPATH];
53 CHAR *szReturnPath;
54} WALKER;
55
56static CHAR WalkFont[CCHMAXPATH] = "";
57static ULONG WalkFontSize = sizeof(WalkFont);
58
59VOID load_setups(VOID)
60{
61 ULONG len = sizeof(lastsetups);
62
63 memset(lastsetups, 0, len);
64 PrfQueryProfileData(fmprof,
65 FM3Str,
66 "LastSetups",
67 lastsetups,
68 &len);
69 len = sizeof(INT);
70 lastsetup = 0;
71 PrfQueryProfileData(fmprof,
72 FM3Str,
73 "LastSetup",
74 &lastsetup,
75 &len);
76 loadedsetups = TRUE;
77}
78
79VOID save_setups(VOID)
80{
81 if (!loadedsetups)
82 return;
83 PrfWriteProfileData(fmprof,
84 FM3Str,
85 "LastSetups",
86 lastsetups,
87 (ULONG) sizeof(lastsetups));
88 PrfWriteProfileData(fmprof,
89 FM3Str,
90 "LastSetup",
91 &lastsetup,
92 (ULONG) sizeof(INT));
93}
94
95BOOL add_setup(CHAR * name)
96{
97 INT x;
98
99 if (!name || !*name)
100 return FALSE;
101 if (!loadedsetups)
102 load_setups();
103 for (x = 0; x < MAXNUMSETUPS; x++)
104 {
105 if (!stricmp(lastsetups[x], name))
106 return FALSE;
107 }
108 lastsetup++;
109 if (lastsetup >= MAXNUMSETUPS)
110 lastsetup = 0;
111 strcpy(lastsetups[lastsetup], name);
112 return TRUE;
113}
114
115BOOL remove_setup(CHAR * name)
116{
117 INT x, y;
118
119 if (!name || !*name)
120 return FALSE;
121 if (!loadedsetups)
122 load_setups();
123 for (x = 0; x < MAXNUMSETUPS; x++)
124 {
125 if (!stricmp(lastsetups[x], name))
126 {
127 *lastsetups[x] = 0;
128 for (y = x + 1; y < MAXNUMSETUPS; y++)
129 strcpy(lastsetups[y - 1], lastsetups[y]);
130 *lastsetups[MAXNUMSETUPS - 1] = 0;
131 if (lastsetup >= x)
132 lastsetup--;
133 return TRUE;
134 }
135 }
136 return FALSE;
137}
138
139VOID load_udirs(VOID)
140{
141 /* load linked list of user directories from USERDIRS.DAT file */
142
143 FILE *fp;
144 LINKDIRS *info;
145 LINKDIRS *last = NULL;
146 CHAR s[CCHMAXPATH + 24];
147
148 loadedudirs = TRUE;
149 fUdirsChanged = FALSE;
150 save_dir2(s);
151 if (s[strlen(s) - 1] != '\\')
152 strcat(s, "\\");
153 strcat(s, "USERDIRS.DAT");
154 fp = _fsopen(s, "r", SH_DENYWR);
155 if (fp)
156 {
157 while (!feof(fp))
158 {
159 if (!xfgets(s, CCHMAXPATH + 24, fp,pszSrcFile,__LINE__))
160 break;
161 s[CCHMAXPATH] = 0;
162 bstripcr(s);
163 if (*s && *s != ';')
164 {
165 info = xmalloc(sizeof(LINKDIRS),pszSrcFile,__LINE__);
166 if (info) {
167 info -> path = xstrdup(s,pszSrcFile,__LINE__);
168 if (!info -> path)
169 free(info);
170 else
171 {
172 info -> next = NULL;
173 if (!udirhead)
174 udirhead = info;
175 else
176 last -> next = info;
177 last = info;
178 }
179 }
180 }
181 }
182 fclose(fp);
183 }
184}
185
186VOID save_udirs(VOID)
187{
188 FILE *fp;
189 LINKDIRS *info;
190 CHAR s[CCHMAXPATH + 14];
191
192 if (loadedudirs)
193 {
194 fUdirsChanged = FALSE;
195 if (udirhead)
196 {
197 save_dir2(s);
198 if (s[strlen(s) - 1] != '\\')
199 strcat(s, "\\");
200 strcat(s, "USERDIRS.DAT");
201 fp = xfopen(s, "w",pszSrcFile,__LINE__);
202 if (fp)
203 {
204 fputs(GetPString(IDS_USERDEFDIRSTEXT), fp);
205 info = udirhead;
206 while (info)
207 {
208 fprintf(fp,
209 "%0.*s\n",
210 CCHMAXPATH,
211 info -> path);
212 info = info -> next;
213 }
214 fclose(fp);
215 }
216 }
217 }
218}
219
220//=== add_udir - add path to user dir list or last used dir list ===
221
222BOOL add_udir(BOOL userdirs, CHAR * inpath)
223{
224 CHAR path[CCHMAXPATH];
225 LINKDIRS *info;
226 LINKDIRS *last = NULL;
227 LINKDIRS *temp;
228
229 if (inpath &&
230 *inpath)
231 {
232 if (DosQueryPathInfo(inpath,
233 FIL_QUERYFULLNAME,
234 path,
235 sizeof(path)))
236 strcpy(path, inpath);
237 if (!userdirs &&
238 IsRoot(path))
239 return FALSE;
240 if (IsFullName(path))
241 {
242 if (!loadedudirs)
243 load_udirs();
244 // Search user dir list first unless doing last dirs
245 info = userdirs ? udirhead : ldirhead;
246 while (info)
247 {
248 if (!stricmp(info -> path, path))
249 return FALSE; // Already in list
250 last = info; // Remember append to location
251 info = info -> next;
252 }
253 // Search last dir list unless doing just last dirs
254 if (!userdirs)
255 {
256 info = udirhead;
257 while (info)
258 {
259 if (!stricmp(info -> path, path))
260 return FALSE;
261 info = info -> next;
262 }
263 }
264 else
265 {
266 /* if adding manual directory, remove from auto list if present */
267 info = ldirhead;
268 temp = NULL;
269 while (info)
270 {
271 if (!stricmp(info -> path, path))
272 {
273 if (temp)
274 temp -> next = info -> next;
275 else
276 ldirhead = info -> next;
277 free(info -> path);
278 free(info);
279 break;
280 }
281 temp = info;
282 info = info -> next;
283 }
284 }
285 // Append entry to end of user dirs list
286 info = xmalloc(sizeof(LINKDIRS),pszSrcFile,__LINE__);
287 if (info)
288 {
289 info -> path = xstrdup(path,pszSrcFile,__LINE__);
290 if (!info -> path)
291 free(info);
292 else
293 {
294 info -> next = NULL;
295 if (userdirs)
296 {
297 fUdirsChanged = TRUE;
298 if (!udirhead)
299 udirhead = info;
300 else
301 last -> next = info;
302 }
303 else
304 {
305 if (!ldirhead)
306 ldirhead = info;
307 else
308 last -> next = info;
309 }
310 return TRUE;
311 }
312 }
313 }
314 }
315 return FALSE;
316}
317
318//=== remove_udir - remove path from user dir list or last directory list ===
319
320BOOL remove_udir(CHAR * path)
321{
322 LINKDIRS *info;
323 LINKDIRS *last = NULL;
324
325 if (path && *path)
326 {
327 if (!loadedudirs)
328 load_udirs();
329 info = udirhead;
330 while (info)
331 {
332 if (!stricmp(info -> path, path))
333 {
334 if (last)
335 last -> next = info -> next;
336 else
337 udirhead = info -> next;
338 free(info -> path);
339 free(info);
340 fUdirsChanged = TRUE;
341 return TRUE;
342 }
343 last = info;
344 info = info -> next;
345 }
346
347 info = ldirhead;
348 last = NULL;
349 while (info)
350 {
351 if (!stricmp(info -> path, path))
352 {
353 if (last)
354 last -> next = info -> next;
355 else
356 ldirhead = info -> next;
357 free(info -> path);
358 free(info);
359 return TRUE;
360 }
361 last = info;
362 info = info -> next;
363 }
364 }
365 return FALSE;
366}
367
368BOOL remove_ldir(CHAR * path)
369{
370 LINKDIRS *info;
371 LINKDIRS *last = NULL;
372
373 if (path && *path)
374 {
375 info = ldirhead;
376 while (info)
377 {
378 if (!stricmp(info -> path, path))
379 {
380 if (last)
381 last -> next = info -> next;
382 else
383 ldirhead = info -> next;
384 free(info -> path);
385 free(info);
386 return TRUE;
387 }
388 last = info;
389 info = info -> next;
390 }
391 }
392 return FALSE;
393}
394
395VOID FillPathListBox(HWND hwnd, HWND hwnddrive, HWND hwnddir, CHAR * path,
396 BOOL nounwriteable)
397{
398 /*
399 * this function fills one or two list boxes with drive and directory
400 * information showing all available drives and all directories off of
401 * the directory represented by path. This works independently of the
402 * current directory.
403 */
404
405 CHAR szDrive[] = " :", szTemp[1032];
406 FILEFINDBUF3 findbuf;
407 HDIR hDir = HDIR_CREATE;
408 SHORT sDrive;
409 ULONG ulDriveNum, ulSearchCount = 1L, ulDriveMap;
410
411 DosError(FERR_DISABLEHARDERR);
412 DosQCurDisk(&ulDriveNum, &ulDriveMap);
413 if (hwnddrive)
414 WinSendMsg(hwnddrive, LM_DELETEALL, MPVOID, MPVOID);
415 if (hwnddrive != hwnddir && hwnddir)
416 WinSendMsg(hwnddir, LM_DELETEALL, MPVOID, MPVOID);
417
418 if (hwnddrive)
419 {
420 for (sDrive = 0; sDrive < 26; sDrive++)
421 {
422 if (ulDriveMap & (1L << sDrive))
423 {
424 *szDrive = (CHAR) (sDrive + 'A');
425 if ((!nounwriteable || !(driveflags[sDrive] & DRIVE_NOTWRITEABLE)) &&
426 !(driveflags[sDrive] & (DRIVE_IGNORE | DRIVE_INVALID)))
427 WinSendMsg(hwnddrive, LM_INSERTITEM, MPFROM2SHORT(LIT_END, 0),
428 MPFROMP(szDrive));
429 }
430 }
431 if (hwnddrive != hwnddir && path && isalpha(*path) && path[1] == ':')
432 {
433 *szDrive = toupper(*path);
434 WinSetWindowText(hwnddrive, szDrive);
435 }
436 }
437
438 if (hwnddir)
439 {
440 sprintf(szTemp,
441 "%s%s*",
442 path,
443 (path[strlen(path) - 1] == '\\') ? "" : "\\");
444 DosError(FERR_DISABLEHARDERR);
445 if (!DosFindFirst(szTemp,
446 &hDir,
447 FILE_DIRECTORY | MUST_HAVE_DIRECTORY |
448 FILE_READONLY | FILE_ARCHIVED | FILE_SYSTEM |
449 FILE_HIDDEN,
450 &findbuf,
451 sizeof(FILEFINDBUF3),
452 &ulSearchCount,
453 FIL_STANDARD))
454 {
455 do
456 {
457 if (findbuf.attrFile & FILE_DIRECTORY) {
458 if (strlen(path) > 3 || path[1] != ':') {
459 // Skip . and .. too
460 if (findbuf.achName[0] != '.' ||
461 (findbuf.achName[1] &&
462 (findbuf.achName[1] != '.' ||
463 findbuf.achName[2]))) {
464 WinSendMsg(hwnddir,
465 LM_INSERTITEM,
466 MPFROM2SHORT(LIT_SORTASCENDING, 0),
467 MPFROMP(findbuf.achName));
468 }
469 }
470 }
471 ulSearchCount = 1L;
472 }
473 while (!DosFindNext(hDir,
474 &findbuf,
475 sizeof(FILEFINDBUF3),
476 &ulSearchCount));
477 DosFindClose(hDir);
478 }
479 DosError(FERR_DISABLEHARDERR);
480 }
481}
482
483MRESULT EXPENTRY TextSubProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
484{
485 PFNWP oldproc = (PFNWP) WinQueryWindowPtr(hwnd, 0);
486
487 switch (msg)
488 {
489 case WM_CHAR:
490 if (SHORT1FROMMP(mp1) & KC_KEYUP)
491 {
492 if ((SHORT1FROMMP(mp1) & KC_VIRTUALKEY) &&
493 (SHORT1FROMMP(mp2) & 255) == '\r')
494 PostMsg(WinQueryWindow(hwnd, QW_PARENT), WM_COMMAND,
495 MPFROM2SHORT(DID_OK, 0), MPVOID);
496 }
497 break;
498 }
499 return oldproc(hwnd, msg, mp1, mp2);
500}
501
502MRESULT EXPENTRY WalkDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
503{
504 WALKER *wa;
505 CHAR szBuff[CCHMAXPATH + 1], szBuffer[CCHMAXPATH + 1], *p;
506 SHORT sSelect;
507 static BOOL okay; /* avoid combobox selecting as filled */
508 static CHAR lastdir[CCHMAXPATH + 1];
509
510 switch (msg)
511 {
512 case UM_SETUP2:
513 case WM_INITDLG:
514 okay = FALSE;
515 *lastdir = 0;
516 if (!mp2)
517 {
518 Runtime_Error2(pszSrcFile, __LINE__, IDS_NODATATEXT);
519 WinDismissDlg(hwnd, 0);
520 break;
521 }
522 wa = xmallocz(sizeof(WALKER),pszSrcFile,__LINE__);
523 if (!wa)
524 {
525 WinDismissDlg(hwnd, 0);
526 break;
527 }
528 wa -> size = (USHORT) sizeof(WALKER);
529 WinSetWindowPtr(hwnd, 0, (PVOID) wa);
530 wa -> szReturnPath = (CHAR *) mp2;
531 {
532 PFNWP oldproc;
533
534 oldproc = WinSubclassWindow(WinWindowFromID(hwnd, WALK_PATH),
535 (PFNWP) TextSubProc);
536 if (oldproc)
537 WinSetWindowPtr(WinWindowFromID(hwnd, WALK_PATH),
538 QWL_USER,
539 (PVOID) oldproc);
540 WinSendDlgItemMsg(WinWindowFromID(hwnd, WALK_RECENT),
541 CBID_EDIT,
542 EM_SETTEXTLIMIT,
543 MPFROM2SHORT(CCHMAXPATH, 0),
544 MPVOID);
545 WinSendDlgItemMsg(WinWindowFromID(hwnd, WALK_RECENT),
546 CBID_EDIT,
547 EM_SETREADONLY,
548 MPFROM2SHORT(TRUE, 0),
549 MPVOID);
550 }
551 PosOverOkay(hwnd);
552 if (msg == UM_SETUP2)
553 wa -> nounwriteable = FALSE;
554 else
555 wa -> nounwriteable = TRUE;
556 if (!*wa -> szReturnPath)
557 save_dir2(wa -> szCurrentPath);
558 else
559 {
560 strcpy(wa -> szCurrentPath,
561 wa -> szReturnPath);
562 MakeFullName(wa -> szCurrentPath);
563 }
564 if (wa -> nounwriteable &&
565 (driveflags[toupper(*wa -> szCurrentPath) - 'A'] &
566 DRIVE_NOTWRITEABLE))
567 {
568
569 ULONG bd;
570
571 strcpy(wa -> szCurrentPath, "C:\\");
572 if (DosQuerySysInfo(QSV_BOOT_DRIVE,
573 QSV_BOOT_DRIVE,
574 (PVOID) & bd,
575 (ULONG) sizeof(ULONG)))
576 bd = 3L;
577 *wa -> szCurrentPath = (CHAR) bd + '@';
578 }
579 WinSendDlgItemMsg(hwnd,
580 WALK_PATH,
581 EM_SETTEXTLIMIT,
582 MPFROM2SHORT(CCHMAXPATH, 0),
583 MPVOID);
584 WinSetDlgItemText(hwnd,
585 WALK_PATH,
586 wa -> szCurrentPath);
587 if (!loadedudirs)
588 load_udirs();
589 { /* fill user list box */
590 ULONG ulDriveNum, ulDriveMap;
591 ULONG ulSearchCount;
592 FILEFINDBUF3 findbuf;
593 HDIR hDir;
594 APIRET rc;
595 LINKDIRS *info, *temp;
596
597 DosError(FERR_DISABLEHARDERR);
598 DosQCurDisk(&ulDriveNum, &ulDriveMap);
599 info = udirhead;
600 while (info)
601 {
602 if (IsFullName(info -> path) &&
603 !(driveflags[toupper(*info -> path) - 'A'] &
604 (DRIVE_IGNORE | DRIVE_INVALID)))
605 {
606 DosError(FERR_DISABLEHARDERR);
607 hDir = HDIR_CREATE;
608 ulSearchCount = 1L;
609 if (!IsRoot(info -> path))
610 rc = DosFindFirst(info -> path, &hDir, FILE_DIRECTORY |
611 MUST_HAVE_DIRECTORY | FILE_READONLY |
612 FILE_ARCHIVED | FILE_SYSTEM | FILE_HIDDEN,
613 &findbuf, sizeof(FILEFINDBUF3),
614 &ulSearchCount, FIL_STANDARD);
615 else
616 {
617 rc = 0;
618 findbuf.attrFile = FILE_DIRECTORY;
619 }
620 if (!rc)
621 {
622 if (!IsRoot(info -> path))
623 DosFindClose(hDir);
624 if (findbuf.attrFile & FILE_DIRECTORY)
625 WinSendDlgItemMsg(hwnd, WALK_USERLIST, LM_INSERTITEM,
626 MPFROM2SHORT(LIT_SORTASCENDING, 0),
627 MPFROMP(info -> path));
628 else
629 {
630 temp = info -> next;
631 remove_udir(info -> path);
632 info = temp;
633 continue;
634 }
635 }
636 else if (!(ulDriveMap & (1L << (toupper(*info -> path) - 'A'))))
637 {
638 temp = info -> next;
639 remove_udir(info -> path);
640 info = temp;
641 continue;
642 }
643 }
644 info = info -> next;
645 }
646 info = ldirhead;
647 while (info)
648 {
649 if (IsFullName(info -> path) &&
650 !(driveflags[toupper(*info -> path) - 'A'] &
651 (DRIVE_IGNORE | DRIVE_INVALID)))
652 {
653 DosError(FERR_DISABLEHARDERR);
654 hDir = HDIR_CREATE;
655 ulSearchCount = 1L;
656 if (!IsRoot(info -> path))
657 rc = DosFindFirst(info -> path, &hDir, FILE_DIRECTORY |
658 MUST_HAVE_DIRECTORY | FILE_READONLY |
659 FILE_ARCHIVED | FILE_SYSTEM | FILE_HIDDEN,
660 &findbuf, sizeof(FILEFINDBUF3),
661 &ulSearchCount, FIL_STANDARD);
662 else
663 {
664 rc = 0;
665 findbuf.attrFile = FILE_DIRECTORY;
666 }
667 if (!rc)
668 {
669 if (!IsRoot(info -> path))
670 DosFindClose(hDir);
671 if (findbuf.attrFile & FILE_DIRECTORY)
672 WinSendDlgItemMsg(hwnd, WALK_RECENT, LM_INSERTITEM,
673 MPFROM2SHORT(LIT_SORTASCENDING, 0),
674 MPFROMP(info -> path));
675 else
676 {
677 temp = info -> next;
678 remove_ldir(info -> path);
679 info = temp;
680 continue;
681 }
682 WinSetDlgItemText(hwnd, WALK_RECENT,
683 GetPString(IDS_WALKRECENTDIRSTEXT));
684 }
685 else if (!(ulDriveMap & (1L << (toupper(*info -> path) - 'A'))))
686 {
687 temp = info -> next;
688 remove_ldir(info -> path);
689 info = temp;
690 continue;
691 }
692 }
693 info = info -> next;
694 }
695 }
696 FillPathListBox(hwnd,
697 WinWindowFromID(hwnd, WALK_DRIVELIST),
698 WinWindowFromID(hwnd, WALK_DIRLIST),
699 wa -> szCurrentPath, wa -> nounwriteable);
700 if (!PostMsg(hwnd,
701 UM_SETUP4,
702 MPVOID,
703 MPVOID))
704 okay = TRUE;
705 {
706 MRESULT ret;
707
708 ret = WinDefDlgProc(hwnd, WM_INITDLG, mp1, mp2);
709 WinSendMsg(hwnd, UM_SETUP, MPVOID, MPVOID);
710 WinInvalidateRect(WinWindowFromID(hwnd, WALK_PATH), NULL, TRUE);
711 return ret;
712 }
713
714 case UM_SETUP4:
715 okay = TRUE;
716 return 0;
717
718 case WM_ADJUSTWINDOWPOS:
719 PostMsg(hwnd, UM_SETDIR, MPVOID, MPVOID);
720 break;
721
722 case UM_SETDIR:
723 PaintRecessedWindow(WinWindowFromID(hwnd, WALK_HELP), (HPS) 0, FALSE, TRUE);
724 return 0;
725
726 case WM_PRESPARAMCHANGED:
727 {
728 ULONG AttrFound, AttrValue[64], cbRetLen;
729
730 cbRetLen = WinQueryPresParam(hwnd, (ULONG) mp1, 0, &AttrFound,
731 (ULONG) sizeof(AttrValue),
732 &AttrValue, 0);
733 if (cbRetLen)
734 {
735 switch (AttrFound)
736 {
737 case PP_FONTNAMESIZE:
738 PrfWriteProfileData(fmprof,
739 appname,
740 "WalkFont",
741 (PVOID) AttrValue,
742 cbRetLen);
743 *WalkFont = 0;
744 WalkFontSize = sizeof(WalkFont);
745 WinInvalidateRect(WinWindowFromID(hwnd, WALK_PATH),
746 NULL,
747 TRUE);
748 break;
749 }
750 }
751 }
752 break;
753
754 case UM_SETUP3:
755 save_udirs();
756 if (hwndMain)
757 PostMsg(hwndMain,
758 UM_FILLUSERLIST,
759 MPVOID,
760 MPVOID);
761 return 0;
762
763 case UM_SETUP:
764 {
765 INT x;
766 USHORT id[] =
767 {WALK_PATH, WALK_DIRLIST, WALK_USERLIST,
768 WALK_RECENT, 0};
769
770 if (*WalkFont ||
771 (PrfQueryProfileData(fmprof,
772 appname,
773 "WalkFont",
774 (PVOID) WalkFont,
775 &WalkFontSize) &&
776 WalkFontSize))
777 {
778 for (x = 0; id[x]; x++)
779 WinSetPresParam(WinWindowFromID(hwnd, id[x]),
780 PP_FONTNAMESIZE,
781 WalkFontSize,
782 (PVOID) WalkFont);
783 }
784 }
785 return 0;
786
787 case UM_CONTROL:
788 case WM_CONTROL:
789 wa = WinQueryWindowPtr(hwnd, 0);
790 if (SHORT1FROMMP(mp1) == WALK_DRIVELIST ||
791 SHORT1FROMMP(mp1) == WALK_DIRLIST ||
792 SHORT1FROMMP(mp1) == WALK_USERLIST ||
793 SHORT1FROMMP(mp1) == WALK_RECENT)
794 {
795 sSelect = (USHORT) WinSendDlgItemMsg(hwnd,
796 SHORT1FROMMP(mp1),
797 LM_QUERYSELECTION,
798 MPVOID, MPVOID);
799 *szBuffer = 0;
800 if (sSelect >= 0)
801 WinSendDlgItemMsg(hwnd, SHORT1FROMMP(mp1), LM_QUERYITEMTEXT,
802 MPFROM2SHORT(sSelect, CCHMAXPATH),
803 MPFROMP(szBuffer));
804 }
805 switch (SHORT1FROMMP(mp1))
806 {
807 case WALK_PATH:
808 if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
809 WinSetDlgItemText(hwnd, WALK_HELP,
810 GetPString(IDS_WALKCURRDIRTEXT));
811 else if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
812 WinSetDlgItemText(hwnd, WALK_HELP,
813 GetPString(IDS_WALKDEFAULTHELPTEXT));
814 break;
815
816 case WALK_RECENT:
817 if (okay && SHORT2FROMMP(mp1) == CBN_LBSELECT)
818 {
819
820 ULONG ulSearchCount;
821 FILEFINDBUF3 findbuf;
822 HDIR hDir;
823 APIRET rc;
824
825 // *szBuffer = 0;
826 // WinQueryDlgItemText(hwnd,WALK_RECENT,CCHMAXPATH,szBuffer);
827 if (!*szBuffer)
828 break;
829 DosError(FERR_DISABLEHARDERR);
830 hDir = HDIR_CREATE;
831 ulSearchCount = 1L;
832 if (!IsRoot(szBuffer))
833 {
834 rc = DosFindFirst(szBuffer, &hDir, FILE_DIRECTORY |
835 MUST_HAVE_DIRECTORY | FILE_READONLY |
836 FILE_ARCHIVED | FILE_SYSTEM | FILE_HIDDEN,
837 &findbuf, sizeof(FILEFINDBUF3),
838 &ulSearchCount, FIL_STANDARD);
839 if (!rc)
840 DosFindClose(hDir);
841 }
842 else
843 {
844 findbuf.attrFile = FILE_DIRECTORY;
845 rc = 0;
846 }
847 if (rc)
848 Dos_Error(MB_CANCEL,rc,hwnd,pszSrcFile,__LINE__,"DosFindFirst");
849 else if (~findbuf.attrFile & FILE_DIRECTORY)
850 Runtime_Error(pszSrcFile, __LINE__, "not a directory");
851 else
852 {
853 strcpy(wa -> szCurrentPath, szBuffer);
854 WinSetDlgItemText(hwnd, WALK_PATH, wa -> szCurrentPath);
855 WinSetDlgItemText(hwnd, WALK_RECENT, wa -> szCurrentPath);
856 FillPathListBox(hwnd,
857 WinWindowFromID(hwnd, WALK_DRIVELIST),
858 WinWindowFromID(hwnd, WALK_DIRLIST),
859 wa -> szCurrentPath, FALSE);
860 }
861 }
862 else if (SHORT2FROMMP(mp1) == CBN_ENTER)
863 PostMsg(hwnd, WM_COMMAND, MPFROM2SHORT(DID_OK, 0), MPVOID);
864 else if (SHORT2FROMMP(mp1) == CBN_SHOWLIST)
865 WinSetDlgItemText(hwnd, WALK_HELP,
866 GetPString(IDS_WALKRECENTDIRSHELPTEXT));
867 break;
868
869 case WALK_USERLIST:
870 if (okay && *szBuffer && SHORT2FROMMP(mp1) == LN_SELECT)
871 {
872
873 ULONG ulSearchCount;
874 FILEFINDBUF3 findbuf;
875 HDIR hDir;
876 APIRET rc;
877
878 DosError(FERR_DISABLEHARDERR);
879 hDir = HDIR_CREATE;
880 ulSearchCount = 1L;
881 if (!IsRoot(szBuffer))
882 {
883 rc = DosFindFirst(szBuffer,
884 &hDir,
885 FILE_DIRECTORY |
886 MUST_HAVE_DIRECTORY | FILE_READONLY |
887 FILE_ARCHIVED | FILE_SYSTEM | FILE_HIDDEN,
888 &findbuf,
889 sizeof(FILEFINDBUF3),
890 &ulSearchCount,
891 FIL_STANDARD);
892 if (!rc)
893 DosFindClose(hDir);
894 }
895 else
896 {
897 findbuf.attrFile = FILE_DIRECTORY;
898 rc = 0;
899 }
900 if (rc)
901 Dos_Error(MB_CANCEL,rc,hwnd,pszSrcFile,__LINE__,"DosFindFirst");
902 else if (~findbuf.attrFile & FILE_DIRECTORY)
903 Runtime_Error(pszSrcFile, __LINE__, "not a directory");
904 else
905 {
906 strcpy(wa -> szCurrentPath, szBuffer);
907 WinSetDlgItemText(hwnd, WALK_PATH, wa -> szCurrentPath);
908 FillPathListBox(hwnd,
909 WinWindowFromID(hwnd, WALK_DRIVELIST),
910 WinWindowFromID(hwnd, WALK_DIRLIST),
911 wa -> szCurrentPath, FALSE);
912 }
913 }
914 else if (SHORT2FROMMP(mp1) == LN_ENTER)
915 PostMsg(hwnd,
916 WM_COMMAND,
917 MPFROM2SHORT(DID_OK, 0),
918 MPVOID);
919 else if (SHORT2FROMMP(mp1) == LN_SETFOCUS)
920 WinSetDlgItemText(hwnd,
921 WALK_HELP,
922 GetPString(IDS_WALKUSERDIRSHELPTEXT));
923 else if (SHORT2FROMMP(mp1) == LN_KILLFOCUS)
924 WinSetDlgItemText(hwnd,
925 WALK_HELP,
926 GetPString(IDS_WALKDEFAULTHELPTEXT));
927 break;
928
929 case WALK_DRIVELIST:
930 if (okay && *szBuffer && SHORT2FROMMP(mp1) == LN_ENTER)
931 {
932
933 ULONG ulDirLen = CCHMAXPATH;
934 APIRET rc;
935
936 rc = DosQCurDir(toupper(*szBuffer) - '@',
937 &szBuff[3], &ulDirLen);
938 if (!rc)
939 {
940 strcpy(wa -> szCurrentPath, "C:\\");
941 *wa -> szCurrentPath = toupper(*szBuffer);
942 WinSetDlgItemText(hwnd,
943 WALK_PATH,
944 wa -> szCurrentPath);
945 FillPathListBox(hwnd,
946 WinWindowFromID(hwnd, WALK_DRIVELIST),
947 WinWindowFromID(hwnd, WALK_DIRLIST),
948 wa -> szCurrentPath, FALSE);
949 }
950 }
951 else if (SHORT2FROMMP(mp1) == LN_SETFOCUS)
952 WinSetDlgItemText(hwnd, WALK_HELP,
953 GetPString(IDS_WALKDRIVELISTHELPTEXT));
954 else if (SHORT2FROMMP(mp1) == LN_KILLFOCUS)
955 WinSetDlgItemText(hwnd, WALK_HELP,
956 GetPString(IDS_WALKDEFAULTHELPTEXT));
957 break;
958
959 case WALK_DIRLIST:
960 if (okay && SHORT2FROMMP(mp1) == LN_ENTER)
961 {
962
963 ULONG ulSearchCount;
964 FILEFINDBUF3 findbuf;
965 HDIR hDir;
966 APIRET rc;
967
968 bstrip(szBuffer);
969 if (*szBuffer)
970 {
971 strcpy(szBuff, wa -> szCurrentPath);
972 if (szBuff[strlen(szBuff) - 1] != '\\')
973 strcat(szBuff, "\\");
974 strcat(szBuff,
975 szBuffer);
976 MakeFullName(szBuff);
977 DosError(FERR_DISABLEHARDERR);
978 hDir = HDIR_CREATE;
979 ulSearchCount = 1L;
980 if (!IsRoot(szBuff))
981 {
982 rc = DosFindFirst(szBuff,
983 &hDir,
984 FILE_DIRECTORY |
985 MUST_HAVE_DIRECTORY | FILE_READONLY |
986 FILE_ARCHIVED | FILE_SYSTEM | FILE_HIDDEN,
987 &findbuf,
988 sizeof(FILEFINDBUF3),
989 &ulSearchCount,
990 FIL_STANDARD);
991 if (!rc)
992 DosFindClose(hDir);
993 }
994 else
995 {
996 findbuf.attrFile = FILE_DIRECTORY;
997 rc = 0;
998 }
999 if (!rc && (findbuf.attrFile & FILE_DIRECTORY))
1000 {
1001 strcpy(wa -> szCurrentPath, szBuff);
1002 WinSetDlgItemText(hwnd, WALK_PATH, wa -> szCurrentPath);
1003 FillPathListBox(hwnd,
1004 WinWindowFromID(hwnd, WALK_DRIVELIST),
1005 WinWindowFromID(hwnd, WALK_DIRLIST),
1006 wa -> szCurrentPath, FALSE);
1007 }
1008 }
1009 }
1010 else if (SHORT2FROMMP(mp1) == LN_SETFOCUS)
1011 WinSetDlgItemText(hwnd, WALK_HELP,
1012 GetPString(IDS_WALKDIRLISTHELPTEXT));
1013 else if (SHORT2FROMMP(mp1) == LN_KILLFOCUS)
1014 WinSetDlgItemText(hwnd, WALK_HELP,
1015 GetPString(IDS_WALKDEFAULTHELPTEXT));
1016 break;
1017 }
1018 return 0;
1019
1020 case WM_COMMAND:
1021 wa = WinQueryWindowPtr(hwnd, 0);
1022 if (!wa)
1023 WinDismissDlg(hwnd, 0);
1024 *szBuff = 0;
1025 WinQueryDlgItemText(hwnd,
1026 WALK_PATH,
1027 CCHMAXPATH,
1028 szBuff);
1029 bstrip(szBuff);
1030 while ((p = strchr(szBuff, '/')) != NULL)
1031 *p = '\\';
1032 while (strlen(szBuff) > 3 &&
1033 szBuff[strlen(szBuff) - 1] == '\\')
1034 szBuff[strlen(szBuff) - 1] = 0;
1035 MakeFullName(szBuff);
1036 if (*szBuff &&
1037 stricmp(szBuff, wa -> szCurrentPath))
1038 {
1039 if (!SetDir(WinQueryWindow(WinQueryWindow(hwnd, QW_PARENT),
1040 QW_OWNER),
1041 hwnd,
1042 szBuff,
1043 0))
1044 strcpy(wa -> szCurrentPath,
1045 szBuff);
1046 else if (SHORT1FROMMP(mp1) != DID_CANCEL)
1047 return 0;
1048 }
1049 WinSetDlgItemText(hwnd,
1050 WALK_PATH,
1051 wa -> szCurrentPath);
1052 switch (SHORT1FROMMP(mp1))
1053 {
1054 case WALK_ADD:
1055 *szBuff = 0;
1056 WinQueryDlgItemText(hwnd,
1057 WALK_PATH,
1058 CCHMAXPATH,
1059 szBuff);
1060 bstrip(szBuff);
1061 while ((p = strchr(szBuff, '/')) != NULL)
1062 *p = '\\';
1063 if (*szBuff &&
1064 !IsFile(szBuff))
1065 {
1066 MakeFullName(szBuff);
1067 if (!add_udir(TRUE, szBuff))
1068 Runtime_Error(pszSrcFile, __LINE__, "add_udir");
1069 else {
1070 WinSendDlgItemMsg(hwnd,
1071 WALK_USERLIST,
1072 LM_INSERTITEM,
1073 MPFROM2SHORT(LIT_SORTASCENDING, 0),
1074 MPFROMP(szBuff));
1075 wa -> changed = 1;
1076 }
1077 }
1078 break;
1079
1080 case WALK_DELETE:
1081 *szBuff = 0;
1082 WinQueryDlgItemText(hwnd, WALK_PATH, CCHMAXPATH, szBuff);
1083 bstrip(szBuff);
1084 while ((p = strchr(szBuff, '/')) != NULL)
1085 *p = '\\';
1086 if (*szBuff &&
1087 !IsFile(szBuff))
1088 {
1089 MakeFullName(szBuff);
1090 sSelect = (SHORT) WinSendDlgItemMsg(hwnd,
1091 WALK_USERLIST,
1092 LM_SEARCHSTRING,
1093 MPFROM2SHORT(0, LIT_FIRST),
1094 MPFROMP(szBuff));
1095 if (sSelect >= 0)
1096 {
1097 WinSendDlgItemMsg(hwnd,
1098 WALK_USERLIST,
1099 LM_DELETEITEM,
1100 MPFROM2SHORT(sSelect, 0),
1101 MPVOID);
1102 remove_udir(szBuff);
1103 wa -> changed = 1;
1104 }
1105 }
1106 break;
1107
1108 case DID_OK:
1109 if (*wa -> szCurrentPath)
1110 {
1111 strcpy(wa -> szReturnPath,
1112 wa -> szCurrentPath);
1113 MakeValidDir(wa -> szReturnPath);
1114 if (fAutoAddAllDirs)
1115 add_udir(FALSE,
1116 wa -> szReturnPath);
1117 if (fChangeTarget)
1118 {
1119 strcpy(targetdir,
1120 wa -> szReturnPath);
1121 PrfWriteProfileString(fmprof,
1122 appname,
1123 "Targetdir",
1124 targetdir);
1125 }
1126 }
1127 if (wa -> changed)
1128 WinSendMsg(hwnd,
1129 UM_SETUP3,
1130 MPVOID,
1131 MPVOID);
1132 WinDismissDlg(hwnd, 1);
1133 break;
1134
1135 case IDM_HELP:
1136 if (hwndHelp)
1137 WinSendMsg(hwndHelp,
1138 HM_DISPLAY_HELP,
1139 MPFROM2SHORT(HELP_WALKEM, 0),
1140 MPFROMSHORT(HM_RESOURCEID));
1141 break;
1142
1143 case DID_CANCEL:
1144 if (wa -> changed)
1145 WinSendMsg(hwnd,
1146 UM_SETUP3,
1147 MPVOID,
1148 MPVOID);
1149 free(wa);
1150 WinDismissDlg(hwnd, 0);
1151 break;
1152 }
1153 return 0;
1154
1155 case WM_CLOSE:
1156 break;
1157 }
1158 return WinDefDlgProc(hwnd, msg, mp1, mp2);
1159}
1160
1161MRESULT EXPENTRY WalkAllDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
1162{
1163 switch (msg)
1164 {
1165 case WM_INITDLG:
1166 return WalkDlgProc(hwnd,
1167 UM_SETUP2,
1168 mp1,
1169 mp2);
1170 }
1171 return WalkDlgProc(hwnd, msg, mp1, mp2);
1172}
1173
1174MRESULT EXPENTRY WalkCopyDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
1175{
1176 switch (msg)
1177 {
1178 case WM_INITDLG:
1179 WinSetWindowText(hwnd,
1180 GetPString(IDS_WALKCOPYDLGTEXT));
1181 return WalkDlgProc(hwnd,
1182 UM_SETUP2,
1183 mp1,
1184 mp2);
1185 }
1186 return WalkDlgProc(hwnd, msg, mp1, mp2);
1187}
1188
1189MRESULT EXPENTRY WalkMoveDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
1190{
1191 switch (msg)
1192 {
1193 case WM_INITDLG:
1194 WinSetWindowText(hwnd,
1195 GetPString(IDS_WALKMOVEDLGTEXT));
1196 return WalkDlgProc(hwnd,
1197 UM_SETUP2,
1198 mp1,
1199 mp2);
1200 }
1201 return WalkDlgProc(hwnd, msg, mp1, mp2);
1202}
1203
1204MRESULT EXPENTRY WalkExtractDlgProc(HWND hwnd, ULONG msg, MPARAM mp1,
1205 MPARAM mp2)
1206{
1207 switch (msg)
1208 {
1209 case WM_INITDLG:
1210 WinSetWindowText(hwnd,
1211 GetPString(IDS_WALKEXTRACTDLGTEXT));
1212 return WalkDlgProc(hwnd,
1213 UM_SETUP2,
1214 mp1,
1215 mp2);
1216 }
1217 return WalkDlgProc(hwnd, msg, mp1, mp2);
1218}
1219
1220MRESULT EXPENTRY WalkTargetDlgProc(HWND hwnd, ULONG msg, MPARAM mp1,
1221 MPARAM mp2)
1222{
1223 switch (msg)
1224 {
1225 case WM_INITDLG:
1226 {
1227 char s[CCHMAXPATH + 32];
1228
1229 sprintf(s,
1230 GetPString(IDS_WALKTARGETDLGTEXT),
1231 (*targetdir) ?
1232 NullStr :
1233 " (",
1234 (*targetdir) ?
1235 NullStr :
1236 GetPString(IDS_NONE),
1237 (*targetdir) ?
1238 NullStr :
1239 ")");
1240 WinSetWindowText(hwnd, s);
1241 }
1242 return WalkDlgProc(hwnd,
1243 UM_SETUP2,
1244 mp1,
1245 mp2);
1246 }
1247 return WalkDlgProc(hwnd, msg, mp1, mp2);
1248}
1249
1250MRESULT EXPENTRY WalkTwoDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
1251{
1252 WALK2 *wa;
1253 CHAR szBuff[CCHMAXPATH + 1], szBuffer[CCHMAXPATH + 1], *p;
1254 SHORT sSelect;
1255 static BOOL okay; /* avoid combobox selecting as filled */
1256
1257 switch (msg)
1258 {
1259 case UM_SETUP2:
1260 case WM_INITDLG:
1261 okay = FALSE;
1262 if (!mp2)
1263 {
1264 WinDismissDlg(hwnd, 0);
1265 break;
1266 }
1267 WinSetWindowPtr(hwnd, 0, mp2);
1268 wa = mp2;
1269 {
1270 PFNWP oldproc;
1271
1272 oldproc = WinSubclassWindow(WinWindowFromID(hwnd, WALK_PATH),
1273 (PFNWP) TextSubProc);
1274 if (oldproc)
1275 WinSetWindowPtr(WinWindowFromID(hwnd, WALK_PATH),
1276 QWL_USER,
1277 (PVOID) oldproc);
1278 oldproc = WinSubclassWindow(WinWindowFromID(hwnd, WALK2_PATH),
1279 (PFNWP) TextSubProc);
1280 if (oldproc)
1281 WinSetWindowPtr(WinWindowFromID(hwnd, WALK2_PATH),
1282 QWL_USER,
1283 (PVOID) oldproc);
1284 }
1285 if (!*wa -> szCurrentPath1)
1286 save_dir2(wa -> szCurrentPath1);
1287 MakeFullName(wa -> szCurrentPath1);
1288 if (!*wa -> szCurrentPath2)
1289 save_dir2(wa -> szCurrentPath2);
1290 MakeFullName(wa -> szCurrentPath2);
1291 WinSendDlgItemMsg(hwnd,
1292 WALK_PATH,
1293 EM_SETTEXTLIMIT,
1294 MPFROM2SHORT(CCHMAXPATH, 0),
1295 MPVOID);
1296 WinSetDlgItemText(hwnd, WALK_PATH, wa -> szCurrentPath1);
1297 WinSendDlgItemMsg(hwnd, WALK2_PATH, EM_SETTEXTLIMIT,
1298 MPFROM2SHORT(CCHMAXPATH, 0), MPVOID);
1299 WinSetDlgItemText(hwnd, WALK2_PATH, wa -> szCurrentPath2);
1300 FillPathListBox(hwnd,
1301 WinWindowFromID(hwnd, WALK_DRIVELIST),
1302 WinWindowFromID(hwnd, WALK_DIRLIST),
1303 wa -> szCurrentPath1, FALSE);
1304 FillPathListBox(hwnd,
1305 WinWindowFromID(hwnd, WALK2_DRIVELIST),
1306 WinWindowFromID(hwnd, WALK2_DIRLIST),
1307 wa -> szCurrentPath2, FALSE);
1308 if (!PostMsg(hwnd, UM_SETUP4, MPVOID, MPVOID))
1309 okay = TRUE;
1310 {
1311 MRESULT ret;
1312
1313 ret = WinDefDlgProc(hwnd, WM_INITDLG, mp1, mp2);
1314 WinSendMsg(hwnd, UM_SETUP, MPVOID, MPVOID);
1315 WinInvalidateRect(WinWindowFromID(hwnd, WALK_PATH), NULL, TRUE);
1316 WinInvalidateRect(WinWindowFromID(hwnd, WALK2_PATH), NULL, TRUE);
1317 return ret;
1318 }
1319
1320 case UM_SETUP4:
1321 okay = TRUE;
1322 return 0;
1323
1324 case WM_PRESPARAMCHANGED:
1325 {
1326 ULONG AttrFound, AttrValue[64], cbRetLen;
1327
1328 cbRetLen = WinQueryPresParam(hwnd, (ULONG) mp1, 0, &AttrFound,
1329 (ULONG) sizeof(AttrValue),
1330 &AttrValue, 0);
1331 if (cbRetLen)
1332 {
1333 switch (AttrFound)
1334 {
1335 case PP_FONTNAMESIZE:
1336 PrfWriteProfileData(fmprof,
1337 appname,
1338 "WalkFont",
1339 (PVOID) AttrValue,
1340 cbRetLen);
1341 *WalkFont = 0;
1342 WalkFontSize = sizeof(WalkFont);
1343 WinInvalidateRect(WinWindowFromID(hwnd, WALK_PATH),
1344 NULL,
1345 TRUE);
1346 break;
1347 }
1348 }
1349 }
1350 break;
1351
1352 case UM_SETUP:
1353 {
1354 INT x;
1355 USHORT id[] =
1356 {WALK_PATH, WALK_DIRLIST,
1357 WALK2_PATH, WALK2_DIRLIST, 0};
1358
1359 if (*WalkFont ||
1360 (PrfQueryProfileData(fmprof,
1361 appname,
1362 "WalkFont",
1363 (PVOID) WalkFont,
1364 &WalkFontSize) &&
1365 WalkFontSize))
1366 {
1367 for (x = 0; id[x]; x++)
1368 WinSetPresParam(WinWindowFromID(hwnd, id[x]),
1369 PP_FONTNAMESIZE,
1370 WalkFontSize,
1371 (PVOID) WalkFont);
1372 }
1373 }
1374 return 0;
1375
1376 case UM_CONTROL:
1377 case WM_CONTROL:
1378 wa = WinQueryWindowPtr(hwnd, 0);
1379 if (SHORT1FROMMP(mp1) == WALK_DRIVELIST ||
1380 SHORT1FROMMP(mp1) == WALK_DIRLIST ||
1381 SHORT1FROMMP(mp1) == WALK2_DRIVELIST ||
1382 SHORT1FROMMP(mp1) == WALK2_DIRLIST)
1383 {
1384 sSelect = (USHORT) WinSendDlgItemMsg(hwnd,
1385 SHORT1FROMMP(mp1),
1386 LM_QUERYSELECTION,
1387 MPVOID, MPVOID);
1388 *szBuffer = 0;
1389 if (sSelect >= 0)
1390 WinSendDlgItemMsg(hwnd, SHORT1FROMMP(mp1), LM_QUERYITEMTEXT,
1391 MPFROM2SHORT(sSelect, CCHMAXPATH),
1392 MPFROMP(szBuffer));
1393 }
1394 switch (SHORT1FROMMP(mp1))
1395 {
1396 case WALK_DRIVELIST:
1397 if (okay && *szBuffer && SHORT2FROMMP(mp1) == LN_ENTER)
1398 {
1399
1400 ULONG ulDirLen = CCHMAXPATH;
1401 APIRET rc;
1402
1403 rc = DosQCurDir(toupper(*szBuffer) - '@',
1404 &szBuff[3], &ulDirLen);
1405 if (!rc)
1406 {
1407 strcpy(wa -> szCurrentPath1, "C:\\");
1408 *wa -> szCurrentPath1 = toupper(*szBuffer);
1409 WinSetDlgItemText(hwnd,
1410 WALK_PATH,
1411 wa -> szCurrentPath1);
1412 FillPathListBox(hwnd,
1413 WinWindowFromID(hwnd, WALK_DRIVELIST),
1414 WinWindowFromID(hwnd, WALK_DIRLIST),
1415 wa -> szCurrentPath1, FALSE);
1416 }
1417 }
1418 break;
1419
1420 case WALK_DIRLIST:
1421 if (okay && SHORT2FROMMP(mp1) == LN_ENTER)
1422 {
1423
1424 ULONG ulSearchCount;
1425 FILEFINDBUF3 findbuf;
1426 HDIR hDir;
1427 APIRET rc;
1428
1429 bstrip(szBuffer);
1430 if (*szBuffer)
1431 {
1432 strcpy(szBuff, wa -> szCurrentPath1);
1433 if (szBuff[strlen(szBuff) - 1] != '\\')
1434 strcat(szBuff, "\\");
1435 strcat(szBuff, szBuffer);
1436 MakeFullName(szBuff);
1437 DosError(FERR_DISABLEHARDERR);
1438 hDir = HDIR_CREATE;
1439 ulSearchCount = 1L;
1440 if (!IsRoot(szBuff))
1441 {
1442 rc = DosFindFirst(szBuff,
1443 &hDir,
1444 FILE_DIRECTORY |
1445 MUST_HAVE_DIRECTORY | FILE_READONLY |
1446 FILE_ARCHIVED | FILE_SYSTEM | FILE_HIDDEN,
1447 &findbuf,
1448 sizeof(FILEFINDBUF3),
1449 &ulSearchCount,
1450 FIL_STANDARD);
1451 if (!rc)
1452 DosFindClose(hDir);
1453 }
1454 else
1455 {
1456 findbuf.attrFile = FILE_DIRECTORY;
1457 rc = 0;
1458 }
1459 if (!rc && (findbuf.attrFile & FILE_DIRECTORY))
1460 {
1461 strcpy(wa -> szCurrentPath1, szBuff);
1462 WinSetDlgItemText(hwnd, WALK_PATH, wa -> szCurrentPath1);
1463 FillPathListBox(hwnd,
1464 WinWindowFromID(hwnd, WALK_DRIVELIST),
1465 WinWindowFromID(hwnd, WALK_DIRLIST),
1466 wa -> szCurrentPath1, FALSE);
1467 }
1468 }
1469 }
1470 break;
1471
1472 case WALK2_DRIVELIST:
1473 if (okay && *szBuffer && SHORT2FROMMP(mp1) == LN_ENTER)
1474 {
1475
1476 ULONG ulDirLen = CCHMAXPATH;
1477 APIRET rc;
1478
1479 rc = DosQCurDir(toupper(*szBuffer) - '@',
1480 &szBuff[3], &ulDirLen);
1481 if (!rc)
1482 {
1483 strcpy(wa -> szCurrentPath2, "C:\\");
1484 *wa -> szCurrentPath2 = toupper(*szBuffer);
1485 WinSetDlgItemText(hwnd,
1486 WALK2_PATH,
1487 wa -> szCurrentPath2);
1488 FillPathListBox(hwnd,
1489 WinWindowFromID(hwnd, WALK2_DRIVELIST),
1490 WinWindowFromID(hwnd, WALK2_DIRLIST),
1491 wa -> szCurrentPath2, FALSE);
1492 }
1493 }
1494 break;
1495
1496 case WALK2_DIRLIST:
1497 if (okay && SHORT2FROMMP(mp1) == LN_ENTER)
1498 {
1499
1500 ULONG ulSearchCount;
1501 FILEFINDBUF3 findbuf;
1502 HDIR hDir;
1503 APIRET rc;
1504
1505 bstrip(szBuffer);
1506 if (*szBuffer)
1507 {
1508 strcpy(szBuff, wa -> szCurrentPath2);
1509 if (szBuff[strlen(szBuff) - 1] != '\\')
1510 strcat(szBuff, "\\");
1511 strcat(szBuff, szBuffer);
1512 MakeFullName(szBuff);
1513 DosError(FERR_DISABLEHARDERR);
1514 hDir = HDIR_CREATE;
1515 ulSearchCount = 1L;
1516 if (!IsRoot(szBuff))
1517 {
1518 rc = DosFindFirst(szBuff,
1519 &hDir,
1520 FILE_DIRECTORY |
1521 MUST_HAVE_DIRECTORY | FILE_READONLY |
1522 FILE_ARCHIVED | FILE_SYSTEM | FILE_HIDDEN,
1523 &findbuf,
1524 sizeof(FILEFINDBUF3),
1525 &ulSearchCount,
1526 FIL_STANDARD);
1527 if (!rc)
1528 DosFindClose(hDir);
1529 }
1530 else
1531 {
1532 findbuf.attrFile = FILE_DIRECTORY;
1533 rc = 0;
1534 }
1535 if (!rc && (findbuf.attrFile & FILE_DIRECTORY))
1536 {
1537 strcpy(wa -> szCurrentPath2, szBuff);
1538 WinSetDlgItemText(hwnd, WALK2_PATH, wa -> szCurrentPath2);
1539 FillPathListBox(hwnd,
1540 WinWindowFromID(hwnd, WALK2_DRIVELIST),
1541 WinWindowFromID(hwnd, WALK2_DIRLIST),
1542 wa -> szCurrentPath2, FALSE);
1543 }
1544 }
1545 }
1546 break;
1547 }
1548 return 0;
1549
1550 case WM_COMMAND:
1551 wa = WinQueryWindowPtr(hwnd, 0);
1552 if (!wa)
1553 WinDismissDlg(hwnd, 0);
1554 *szBuff = 0;
1555 WinQueryDlgItemText(hwnd,
1556 WALK_PATH,
1557 CCHMAXPATH,
1558 szBuff);
1559 bstrip(szBuff);
1560 while ((p = strchr(szBuff, '/')) != NULL)
1561 *p = '\\';
1562 while (strlen(szBuff) > 3 &&
1563 szBuff[strlen(szBuff) - 1] == '\\')
1564 szBuff[strlen(szBuff) - 1] = 0;
1565 MakeFullName(szBuff);
1566 if (*szBuff &&
1567 stricmp(szBuff, wa -> szCurrentPath1))
1568 {
1569 if (!SetDir(WinQueryWindow(WinQueryWindow(hwnd, QW_PARENT),
1570 QW_OWNER),
1571 hwnd,
1572 szBuff,
1573 0))
1574 strcpy(wa -> szCurrentPath1, szBuff);
1575 else if (SHORT1FROMMP(mp1) != DID_CANCEL)
1576 return 0;
1577 }
1578 WinSetDlgItemText(hwnd,
1579 WALK_PATH,
1580 wa -> szCurrentPath1);
1581 *szBuff = 0;
1582 WinQueryDlgItemText(hwnd,
1583 WALK2_PATH,
1584 CCHMAXPATH,
1585 szBuff);
1586 bstrip(szBuff);
1587 while ((p = strchr(szBuff, '/')) != NULL)
1588 *p = '\\';
1589 while (strlen(szBuff) > 3 &&
1590 szBuff[strlen(szBuff) - 1] == '\\')
1591 szBuff[strlen(szBuff) - 1] = 0;
1592 MakeFullName(szBuff);
1593 if (*szBuff &&
1594 stricmp(szBuff, wa -> szCurrentPath2))
1595 {
1596 if (!SetDir(WinQueryWindow(WinQueryWindow(hwnd, QW_PARENT),
1597 QW_OWNER),
1598 hwnd,
1599 szBuff,
1600 0))
1601 strcpy(wa -> szCurrentPath2, szBuff);
1602 else if (SHORT1FROMMP(mp1) != DID_CANCEL)
1603 return 0;
1604 }
1605 WinSetDlgItemText(hwnd,
1606 WALK2_PATH,
1607 wa -> szCurrentPath2);
1608 switch (SHORT1FROMMP(mp1))
1609 {
1610 case DID_OK:
1611 WinDismissDlg(hwnd, 1);
1612 break;
1613
1614 case IDM_HELP:
1615 if (hwndHelp)
1616 WinSendMsg(hwndHelp,
1617 HM_DISPLAY_HELP,
1618 MPFROM2SHORT(HELP_WALKEM2, 0),
1619 MPFROMSHORT(HM_RESOURCEID));
1620 break;
1621
1622 case DID_CANCEL:
1623 WinDismissDlg(hwnd, 0);
1624 break;
1625 }
1626 return 0;
1627
1628 case WM_CLOSE:
1629 break;
1630 }
1631 return WinDefDlgProc(hwnd, msg, mp1, mp2);
1632}
1633
1634MRESULT EXPENTRY WalkTwoCmpDlgProc(HWND hwnd, ULONG msg, MPARAM mp1,
1635 MPARAM mp2)
1636{
1637 switch (msg)
1638 {
1639 case WM_INITDLG:
1640 WinSetWindowText(hwnd,
1641 GetPString(IDS_WALKCOMPAREDLGTEXT));
1642 return WalkTwoDlgProc(hwnd,
1643 UM_SETUP2,
1644 mp1,
1645 mp2);
1646 }
1647 return WalkTwoDlgProc(hwnd, msg, mp1, mp2);
1648}
1649
1650MRESULT EXPENTRY WalkTwoSetDlgProc(HWND hwnd, ULONG msg, MPARAM mp1,
1651 MPARAM mp2)
1652{
1653 switch (msg)
1654 {
1655 case WM_INITDLG:
1656 WinSetWindowText(hwnd,
1657 GetPString(IDS_WALKSETDIRSDLGTEXT));
1658 return WalkTwoDlgProc(hwnd,
1659 UM_SETUP2,
1660 mp1,
1661 mp2);
1662 }
1663 return WalkTwoDlgProc(hwnd, msg, mp1, mp2);
1664}
Note: See TracBrowser for help on using the repository browser.