source: trunk/dll/walkem.c@ 689

Last change on this file since 689 was 617, checked in by Steven Levine, 18 years ago

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