source: trunk/dll/walkem.c@ 1118

Last change on this file since 1118 was 1118, checked in by Gregg Young, 17 years ago

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