source: trunk/dll/walkem.c@ 1029

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

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