Context Navigation

source: trunk/dll/walkem.c@ 721

Visit:

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

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

Download in other formats: