Context Navigation

source: trunk/dll/walkem.c@ 551

Visit:

Last change on this file since 551 was 551, checked in by Gregg Young, 19 years ago
Indentation cleanup
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 35.4 KB

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

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

Download in other formats: