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