source: branches/ticket_150/dll/walkem.c@ 1036

Last change on this file since 1036 was 865, checked in by Gregg Young, 18 years ago

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