Context Navigation

source: trunk/dll/walkem.c@ 242

Visit:

Last change on this file since 242 was 242, checked in by root, 20 years ago
Indent
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 35.8 KB

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

Note: See TracBrowser for help on using the repository browser.

Download in other formats: