Context Navigation

source: trunk/dll/viewer.c@ 177

Visit:

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

Line
1
2	/***********************************************************************
3
4	$Id: viewer.c 130 2005-05-23 19:04:06Z root $
5
6	MLE text editor/viewer
7
8	Copyright (c) 1993-97 M. Kimes
9	Copyright (c) 2005 Steven H.Levine
10
11	23 May 05 SHL Use QWL_USER
12
13	***********************************************************************/
14
15	#define INCL_DOS
16	#define INCL_WIN
17
18	#include <os2.h>
19	#include <stdlib.h>
20	#include <stdio.h>
21	#include <string.h>
22	#include <time.h>
23	#include <io.h>
24	#include "fm3dll.h"
25	#include "fm3dlg.h"
26	#include "fm3str.h"
27	#include "mle.h"
28
29	#pragma data_seg(DATA1)
30	#pragma alloc_text(VIEWER,MLEEditorProc,MLESubProc)
31	#pragma alloc_text(STARTUP,StartMLEEditor)
32
33	#define hwndMLE WinWindowFromID(hwnd,MLE_MLE)
34
35	#define COLORS_MAX 2
36
37	#define COLORS_FOREGROUND 0
38	#define COLORS_BACKGROUND 1
39
40	static LONG Colors[COLORS_MAX] = {COLR_BLACK,COLR_PALEGRAY};
41	static BOOL Firsttime = TRUE;
42
43
44	HWND StartMLEEditor (HWND hwndClient,INT flags,CHAR *filename,
45	HWND hwndRestore) {
46
47	/*
48	* create an editor window
49	* bitmapped flags:
50	* 1 = readonly
51	* 2 = don't position window for non-desktop client
52	* 4 = don't "kill app" when closed
53	* 8 = as text
54	* 16 = as binary
55	*/
56
57	HWND hwndFrame,hwnd;
58	XMLEWNDPTR *vw;
59	ULONG flFrameFlags = FCF_SYSMENU \| FCF_SIZEBORDER \| FCF_ICON \|
60	FCF_TITLEBAR \| FCF_MINMAX \| FCF_MENU \|
61	FCF_ACCELTABLE \| FCF_NOBYTEALIGN;
62
63	if(fExternalViewer \|\| strcmp(realappname,FM3Str))
64	hwndClient = HWND_DESKTOP;
65	if((flags & 1) && fUseNewViewer)
66	return StartViewer(hwndClient,(USHORT)flags,filename,hwndRestore);
67
68	vw = malloc(sizeof(XMLEWNDPTR));
69	if(!vw) {
70	DosBeep(50,100);
71	return (HWND)0;
72	}
73	memset(vw,0,sizeof(XMLEWNDPTR));
74	vw->size = sizeof(XMLEWNDPTR);
75	if(flags & 1) {
76	if(flags & 8)
77	vw->hex = 2;
78	else if(flags & 16)
79	vw->hex = 1;
80	else if(!fGuessType)
81	vw->hex = 2;
82	}
83	else
84	vw->hex = 2;
85	vw->hwndParent = (hwndClient) ? hwndClient : HWND_DESKTOP;
86	vw->srch.size = sizeof(SRCHPTR);
87	if(flags & 4)
88	vw->dontclose = TRUE;
89	if(filename)
90	strcpy(vw->exportfilename,filename);
91	vw->hwndRestore = hwndRestore;
92	if(ParentIsDesktop(hwndClient,hwndClient))
93	flFrameFlags \|= FCF_TASKLIST;
94	hwndFrame = WinCreateStdWindow(hwndClient,
95	WS_VISIBLE,
96	&flFrameFlags,
97	GetPString(IDS_WCMLEEDITOR),
98	NullStr,
99	WS_VISIBLE \| fwsAnimate,
100	FM3ModHandle,
101	MLE_FRAME,
102	&hwnd);
103	if(hwndFrame) {
104	vw->hwndFrame = hwndFrame;
105	if(!ParentIsDesktop(hwndFrame,hwndClient) && !(flags & 2)) {
106
107	SWP swp;
108
109	FillClient(hwndClient,&swp,NULL,FALSE);
110	WinSetWindowPos(hwndFrame,
111	HWND_TOP,
112	swp.x,
113	swp.y,
114	swp.cx,
115	swp.cy,
116	SWP_SIZE \| SWP_MOVE \| SWP_SHOW \| SWP_ACTIVATE \|
117	SWP_ZORDER);
118	}
119	else if(flFrameFlags & FCF_TASKLIST) {
120
121	SWP swp,swpD;
122	ULONG size = sizeof(swp);
123	LONG cxScreen,cyScreen;
124
125	WinQueryTaskSizePos(WinQueryAnchorBlock(hwndFrame),
126	0,
127	&swp);
128	if(PrfQueryProfileData(fmprof,
129	appname,
130	"ViewSizePos",
131	&swpD,
132	&size)) {
133	cxScreen = WinQuerySysValue(HWND_DESKTOP,
134	SV_CXSCREEN);
135	cyScreen = WinQuerySysValue(HWND_DESKTOP,
136	SV_CYSCREEN);
137	if(swp.x + swpD.cx > cxScreen)
138	swp.x = cxScreen - swpD.cx;
139	if(swp.y + swpD.cy > cyScreen)
140	swp.y = cyScreen - swpD.cy;
141	swp.cx = swpD.cx;
142	swp.cy = swpD.cy;
143	}
144	WinSetWindowPos(hwndFrame,
145	HWND_TOP,
146	swp.x,
147	swp.y,
148	swp.cx,
149	swp.cy,
150	SWP_SIZE \| SWP_MOVE \| SWP_SHOW \| SWP_ZORDER \|
151	SWP_ACTIVATE);
152	}
153	MLEsetreadonly(hwndMLE,((flags & 1) != 0));
154	WinSetWindowPtr(hwnd,QWL_USER,(PVOID)vw);
155	if(!PostMsg(hwnd,
156	UM_SETUP,
157	MPVOID,
158	MPFROMLONG(hwndClient)))
159	WinSendMsg(hwnd,
160	UM_SETUP,
161	MPVOID,
162	MPFROMLONG(hwndClient));
163	}
164	return hwndFrame;
165	}
166
167
168	MRESULT EXPENTRY MLESubProc (HWND hwnd,ULONG msg,MPARAM mp1,MPARAM mp2) {
169
170	PFNWP oldproc = (PFNWP)WinQueryWindowPtr(hwnd,QWL_USER);
171	XMLEWNDPTR *vw;
172
173	switch(msg) {
174	case WM_SETFOCUS:
175	if(mp2)
176	PostMsg(WinQueryWindow(hwnd,QW_PARENT),UM_SELECT,mp1,mp2);
177	break;
178
179	case WM_CHAR:
180	vw = WinQueryWindowPtr(WinQueryWindow(hwnd,QW_PARENT),QWL_USER);
181	if(vw && vw->size == sizeof(XMLEWNDPTR) && vw->hex == 1) {
182	if(!MLEgetreadonly(hwnd)) {
183	WinSetSysValue(HWND_DESKTOP,SV_INSERTMODE,FALSE);
184	if(vw->fWrap) {
185	vw->fWrap = FALSE;
186	MLEsetwrap(hwnd,FALSE);
187	}
188	MLEanctocur(hwnd);
189	{
190	static ULONG badoff[] = {11,14,17,20,23,26,29,32,35,38,41,44,
191	47,0};
192	ULONG line,pos,offset,len,x;
193	MRESULT mr;
194
195	mr = oldproc(hwnd,msg,mp1,mp2);
196
197	len = MLEcurlinelen(hwnd);
198	line = MLEcurline(hwnd);
199	pos = MLEcurpos(hwnd);
200	offset = len - MLElinelenleft(hwnd,pos);
201	if(offset < 9) {
202	if(!line \|\| offset == 8 \|\| line == MLEnumlines(hwnd) - 1)
203	MLEsetcurpos(hwnd,pos + (9 - offset));
204	else
205	MLEsetcurpos(hwnd,MLEstartofline(hwnd,line + 1) + 9);
206	}
207	else if(offset >= 71) {
208	if(vw->lastpos == offset - 1) {
209	if(line < MLEnumlines(hwnd) - 1)
210	MLEsetcurpos(hwnd,MLEstartofline(hwnd,line + 2) + 55);
211	else
212	MLEsetcurpos(hwnd,MLEstartofline(hwnd,line + 1) + 55);
213	}
214	else
215	MLEsetcurpos(hwnd,MLEstartofline(hwnd,line) + 70);
216	}
217	else if(offset == 53) {
218	if(line < MLEnumlines(hwnd) - 1)
219	MLEsetcurpos(hwnd,MLEstartofline(hwnd,line + 1) + 9);
220	else
221	MLEsetcurpos(hwnd,MLEstartofline(hwnd,line) + 9);
222	}
223	else if(offset == 54) {
224	if(line < MLEnumlines(hwnd) - 1)
225	MLEsetcurpos(hwnd,MLEstartofline(hwnd,line + 1) + 70);
226	else
227	MLEsetcurpos(hwnd,MLEstartofline(hwnd,line) + 70);
228	}
229	else {
230	for(x = 0;badoff[x];x++) {
231	if(offset == badoff[x]) {
232	if(vw->lastpos < pos)
233	MLEsetcurpos(hwnd,pos + 1);
234	else
235	MLEsetcurpos(hwnd,pos - 1);
236	}
237	}
238	}
239	{
240	CHAR s[80];
241
242	sprintf(s,
243	GetPString(IDS_VIEWPOSSTUFFTEXT),
244	len,
245	line,
246	pos,
247	offset);
248	if(hwndStatus)
249	WinSetWindowText(hwndStatus,s);
250	}
251	vw->lastpos = MLEcurpos(hwnd);
252	return mr;
253	}
254	}
255	}
256	break;
257
258	case WM_MENUEND:
259	vw = WinQueryWindowPtr(WinQueryWindow(hwnd,QW_PARENT),QWL_USER);
260	if(vw && vw->size == sizeof(XMLEWNDPTR)) {
261	if(vw->hwndPopupMenu == (HWND)mp2) {
262	WinDestroyWindow(vw->hwndPopupMenu);
263	vw->hwndPopupMenu = (HWND)0;
264	}
265	}
266	break;
267
268	case WM_CONTEXTMENU:
269	vw = WinQueryWindowPtr(WinQueryWindow(hwnd,QW_PARENT),QWL_USER);
270	if(vw && vw->size == sizeof(XMLEWNDPTR)) {
271	if(!vw->hwndPopupMenu)
272	vw->hwndPopupMenu = WinLoadMenu(HWND_DESKTOP,FM3ModHandle,MLE_POPUP);
273	if(vw->hwndPopupMenu) {
274	if(MLEgetreadonly(hwnd)) {
275	WinEnableMenuItem(vw->hwndPopupMenu,MLE_UNDO,FALSE);
276	WinEnableMenuItem(vw->hwndPopupMenu,MLE_CUTCLIP,FALSE);
277	WinEnableMenuItem(vw->hwndPopupMenu,MLE_PASTECLIP,FALSE);
278	WinEnableMenuItem(vw->hwndPopupMenu,MLE_CLEAR,FALSE);
279	WinEnableMenuItem(vw->hwndPopupMenu,MLE_BLOCKMENU,FALSE);
280	}
281	else {
282	WinEnableMenuItem(vw->hwndPopupMenu,MLE_UNDO,TRUE);
283	WinEnableMenuItem(vw->hwndPopupMenu,MLE_CUTCLIP,TRUE);
284	WinEnableMenuItem(vw->hwndPopupMenu,MLE_PASTECLIP,TRUE);
285	WinEnableMenuItem(vw->hwndPopupMenu,MLE_CLEAR,TRUE);
286	WinEnableMenuItem(vw->hwndPopupMenu,MLE_BLOCKMENU,TRUE);
287	}
288	if(!*ftprun)
289	WinSendMsg(vw->hwndPopupMenu,MM_DELETEITEM,
290	MPFROM2SHORT(MLE_VIEWFTP,FALSE),MPVOID);
291	if(!*httprun)
292	WinSendMsg(vw->hwndPopupMenu,MM_DELETEITEM,
293	MPFROM2SHORT(MLE_VIEWHTTP,FALSE),MPVOID);
294	PopupMenu(WinQueryWindow(hwnd,QW_PARENT),
295	WinQueryWindow(hwnd,QW_PARENT),
296	vw->hwndPopupMenu);
297	}
298	}
299	break;
300	}
301	return oldproc(hwnd,msg,mp1,mp2);
302	}
303
304
305	MRESULT EXPENTRY MLEEditorProc (HWND hwnd,ULONG msg,MPARAM mp1,MPARAM mp2) {
306
307	XMLEWNDPTR *vw;
308
309	if(msg != WM_CREATE &&
310	msg != UM_SETUP)
311	vw = (XMLEWNDPTR *)WinQueryWindowPtr(hwnd,QWL_USER);
312	else
313	vw = NULL;
314
315	switch(msg) {
316	case WM_CREATE:
317	/* create MLE window */
318	WinCreateWindow(hwnd,
319	WC_MLE,
320	(PSZ)NULL,
321	MLS_HSCROLL \| MLS_VSCROLL \| MLS_BORDER \|
322	WS_VISIBLE,
323	0L,
324	0L,
325	0L,
326	0L,
327	hwnd,
328	HWND_TOP,
329	MLE_MLE,
330	MPVOID,
331	MPVOID);
332	{
333	PFNWP oldproc;
334
335	oldproc = WinSubclassWindow(WinWindowFromID(hwnd,MLE_MLE),
336	(PFNWP)MLESubProc);
337	if(oldproc)
338	WinSetWindowPtr(WinWindowFromID(hwnd,MLE_MLE),
339	0,
340	(PVOID)oldproc);
341	}
342	break;
343
344	case WM_INITMENU:
345	switch(SHORT1FROMMP(mp1)) {
346	case MLE_EDITMENU:
347	{
348	ULONG ret;
349	CHAR lbl[162];
350
351	strcpy(lbl,GetPString(IDS_UNDOTEXT));
352	ret = (ULONG)WinSendMsg(hwndMLE,MLM_QUERYUNDO,MPVOID,MPVOID);
353	switch(HIUSHORT(ret)) {
354	case WM_CHAR:
355	case MLM_CUT:
356	case MLM_CLEAR:
357	case MLM_PASTE:
358	WinEnableMenuItem((HWND)mp2,MLE_UNDO,TRUE);
359	if(!LOUSHORT(ret))
360	strcpy(lbl,GetPString(IDS_REDOTEXT));
361	switch(HIUSHORT(ret)) {
362	case WM_CHAR:
363	strcat(lbl,GetPString(IDS_KEYSTROKEMENUTEXT));
364	break;
365	case MLM_CUT:
366	strcat(lbl,GetPString(IDS_CUTTOCLIPMENUTEXT));
367	break;
368	case MLM_CLEAR:
369	strcat(lbl,GetPString(IDS_CLEARSELMENUTEXT));
370	break;
371	case MLM_PASTE:
372	strcat(lbl,GetPString(IDS_PASTEFROMCLIPMENUTEXT));
373	break;
374	}
375	WinSetMenuItemText((HWND)mp2,MLE_UNDO,lbl);
376	break;
377	default:
378	WinEnableMenuItem((HWND)mp2,MLE_UNDO,FALSE);
379	break;
380	}
381	}
382	break;
383	}
384	break;
385
386	case UM_SETUP2:
387	vw = WinQueryWindowPtr(hwnd,QWL_USER);
388	if(vw) {
389
390	CHAR s[CCHMAXPATH + 8];
391
392	sprintf(s,
393	"%s: %s",
394	FM2Str,
395	(*vw->exportfilename) ?
396	vw->exportfilename :
397	GetPString(IDS_UNTITLEDTEXT));
398	WinSetWindowText(WinQueryWindow(hwnd,
399	QW_PARENT),
400	s);
401	if(WinQueryWindow(hwnd,QW_PARENT) ==
402	WinQueryActiveWindow(WinQueryWindow(WinQueryWindow(hwnd,
403	QW_PARENT),
404	QW_PARENT)) &&
405	!ParentIsDesktop(WinQueryWindow(hwnd,QW_PARENT),(HWND)0)) {
406	if(hwndStatus2)
407	WinSetWindowText(hwndStatus2,
408	(*vw->exportfilename) ?
409	vw->exportfilename :
410	GetPString(IDS_UNTITLEDTEXT));
411	if(fMoreButtons) {
412	WinSetWindowText(hwndName,
413	(*vw->exportfilename) ?
414	vw->exportfilename :
415	GetPString(IDS_UNTITLEDTEXT));
416	WinSetWindowText(hwndDate,NullStr);
417	WinSetWindowText(hwndAttr,NullStr);
418	}
419	if(hwndStatus)
420	WinSetWindowText(hwndStatus,
421	GetPString(IDS_INTERNALVIEWEREDITORTITLETEXT));
422	}
423	}
424	return 0;
425
426	case UM_SETUP:
427	vw = WinQueryWindowPtr(hwnd,QWL_USER);
428	if(vw) {
429	vw->hab = WinQueryAnchorBlock(hwnd);
430	WinSendMsg(hwnd,UM_SETUP2,MPVOID,MPVOID);
431	/* set up initial MLE conditions */
432	vw->srch.hwndmle = hwndMLE;
433	MLEsetcurpos(hwndMLE,0L);
434	MLEclearall(hwndMLE);
435	MLEsetlimit(hwndMLE,-1L);
436	MLEsetformat(hwndMLE,MLFIE_NOTRANS);
437	WinSetSysValue(HWND_DESKTOP,SV_INSERTMODE,TRUE);
438	vw->fWrap = TRUE;
439	vw->fStripTrail = TRUE;
440	vw->fStripTrailLines = TRUE;
441	vw->srch.fInsensitive = TRUE;
442	vw->ExpandTabs = 4;
443	vw->TabStops = 32;
444	{
445	ULONG size;
446
447	size = sizeof(BOOL);
448	PrfQueryProfileData(fmprof,
449	FM3Str,
450	"MLEWrap",
451	(PVOID)&vw->fWrap,
452	&size);
453	size = sizeof(BOOL);
454	PrfQueryProfileData(fmprof,
455	FM3Str,
456	"MLEstriptrail",
457	(PVOID)&vw->fStripTrail,
458	&size);
459	size = sizeof(BOOL);
460	PrfQueryProfileData(fmprof,
461	FM3Str,
462	"MLEstriptraillines",
463	(PVOID)&vw->fStripTrailLines,
464	&size);
465	size = sizeof(BOOL);
466	PrfQueryProfileData(fmprof,
467	FM3Str,
468	"MLEInsensitve",
469	(PVOID)&vw->srch.fInsensitive,
470	&size);
471	size = sizeof(INT);
472	PrfQueryProfileData(fmprof,
473	FM3Str,
474	"MLEExpandTabs",
475	(PVOID)&vw->ExpandTabs,
476	&size);
477	size = sizeof(INT);
478	PrfQueryProfileData(fmprof,
479	FM3Str,
480	"MLETabStops",
481	(PVOID)&vw->TabStops,
482	&size);
483	}
484	vw->accel = WinQueryAccelTable(vw->hab,
485	WinQueryWindow(hwnd,QW_PARENT));
486	vw->hwndMenu = WinWindowFromID(WinQueryWindow(hwnd,QW_PARENT),
487	FID_MENU);
488	vw->ch = FALSE;
489	MLEsetchanged(hwndMLE,FALSE);
490	{
491	MRESULT ret = 0;
492
493	if(vw->hwndMenu) {
494	SetMenuCheck(vw->hwndMenu,
495	MLE_TOGWRAP,
496	&vw->fWrap,
497	FALSE,
498	NULL);
499	SetMenuCheck(vw->hwndMenu,
500	MLE_STRIPTRAILBLANKS,
501	&vw->fStripTrail,
502	FALSE,
503	NULL);
504	SetMenuCheck(vw->hwndMenu,
505	MLE_STRIPTRAILLINES,
506	&vw->fStripTrailLines,
507	FALSE,
508	NULL);
509	{
510	BOOL tempbool = (vw->ExpandTabs != 0);
511
512	SetMenuCheck(vw->hwndMenu,
513	MLE_EXPANDTABS,
514	&tempbool,
515	FALSE,
516	NULL);
517	}
518	SetMenuCheck(vw->hwndMenu,
519	MLE_SENSITIVE,
520	&vw->srch.fInsensitive,
521	FALSE,
522	NULL);
523	}
524	MLEsetwrap(hwndMLE,vw->fWrap);
525	{
526	ULONG CpList[2];
527	ULONG CpSize;
528
529	if(!DosQueryCp(sizeof(CpList),
530	CpList,
531	&CpSize) &&
532	CpSize)
533	vw->cp = CpList[0];
534	}
535	{
536	ULONG size = sizeof(FATTRS),cps[50],len,x;
537	HMQ hmq;
538
539	if(!PrfQueryProfileData(fmprof,
540	FM3Str,
541	"MLEFont",
542	&vw->fattrs,
543	&size) \|\| size != sizeof(FATTRS)) {
544	vw->fattrs.usRecordLength = sizeof(FATTRS);
545	vw->fattrs.lMaxBaselineExt = 16;
546	vw->fattrs.lAveCharWidth = 8;
547	strcpy(vw->fattrs.szFacename,
548	GetPString(IDS_SYSMONOTEXT));
549	vw->fattrs.usCodePage = (USHORT)vw->cp;
550	}
551	else
552	vw->cp = vw->fattrs.usCodePage;
553	if(!DosQueryCp(sizeof(cps),
554	cps,
555	&len)) {
556	for(x = 0;x < len / sizeof(ULONG);x++) {
557	if(cps[x] == (ULONG)vw->cp) {
558	hmq = WinQueryWindowULong(hwnd,
559	QWL_HMQ);
560	WinSetCp(hmq,vw->cp);
561	break;
562	}
563	}
564	}
565	DosSetProcessCp(vw->cp);
566	WinSendMsg(hwndMLE,
567	MLM_SETFONT,
568	MPFROMP(&vw->fattrs),
569	MPVOID);
570	}
571	if(Firsttime) {
572
573	ULONG size;
574
575	Firsttime = FALSE;
576	size = sizeof(ULONG);
577	PrfQueryProfileData(fmprof,
578	FM3Str,
579	"MLEBackgroundcolor",
580	&Colors[COLORS_BACKGROUND],
581	&size);
582	size = sizeof(ULONG);
583	PrfQueryProfileData(fmprof,
584	FM3Str,
585	"MLEForegroundcolor",
586	&Colors[COLORS_FOREGROUND],
587	&size);
588	}
589	WinSendMsg(hwndMLE,
590	MLM_SETBACKCOLOR,
591	MPFROMLONG(standardcolors[Colors[COLORS_BACKGROUND]]),
592	MPVOID);
593	WinSendMsg(hwndMLE,
594	MLM_SETTEXTCOLOR,
595	MPFROMLONG(standardcolors[Colors[COLORS_FOREGROUND]]),
596	MPVOID);
597	if(*vw->exportfilename)
598	if(MLEbackgroundload(hwnd,
599	UM_CONTAINER_FILLED,
600	hwndMLE,
601	vw->exportfilename,vw->hex) !=
602	-1) {
603	vw->busy = TRUE;
604	WinEnableWindow(vw->hwndMenu,
605	FALSE);
606	}
607	if(vw->busy \|\| MLEgetreadonly(hwndMLE)) {
608	disable_menuitem(vw->hwndMenu,
609	MLE_FILEMENU,
610	FALSE);
611	disable_menuitem(vw->hwndMenu,
612	MLE_CUTCLIP,
613	FALSE);
614	disable_menuitem(vw->hwndMenu,
615	MLE_PASTECLIP,
616	FALSE);
617	disable_menuitem(vw->hwndMenu,
618	MLE_CLEAR,
619	FALSE);
620	disable_menuitem(vw->hwndMenu,
621	MLE_CUTLINE,
622	FALSE);
623	disable_menuitem(vw->hwndMenu,
624	MLE_BLOCKMENU,
625	FALSE);
626	}
627	return ret;
628	}
629	}
630	return 0;
631
632	case UM_CONTAINER_FILLED: /* file was loaded */
633	WinEnableWindow(vw->hwndMenu,
634	TRUE);
635	vw->busy = FALSE;
636	if(vw->killme) {
637	PostMsg(hwnd,
638	WM_CLOSE,
639	MPVOID,
640	MPVOID);
641	return 0;
642	}
643	if(!MLEgetreadonly(hwndMLE)) {
644	disable_menuitem(vw->hwndMenu,
645	MLE_FILEMENU,
646	TRUE);
647	disable_menuitem(vw->hwndMenu,
648	MLE_CUTCLIP,
649	TRUE);
650	disable_menuitem(vw->hwndMenu,
651	MLE_PASTECLIP,
652	TRUE);
653	disable_menuitem(vw->hwndMenu,
654	MLE_CLEAR,
655	TRUE);
656	disable_menuitem(vw->hwndMenu,
657	MLE_CUTLINE,
658	TRUE);
659	disable_menuitem(vw->hwndMenu,
660	MLE_BLOCKMENU,
661	TRUE);
662	}
663	if(mp1) {
664	if(mp2) {
665	vw->ch = FALSE;
666	strcpy(vw->exportfilename,(CHAR *)mp2);
667	}
668	}
669	else {
670	vw->ch = FALSE;
671	*vw->exportfilename = 0;
672	}
673	WinSendMsg(hwnd,UM_SETUP2,MPVOID,MPVOID);
674	return 0;
675
676	case WM_SIZE:
677	WinSetWindowPos(hwndMLE,
678	HWND_TOP,
679	0,
680	0,
681	SHORT1FROMMP(mp2),
682	SHORT2FROMMP(mp2),
683	SWP_MOVE \| SWP_SIZE);
684	break;
685
686	case UM_SELECT:
687	case WM_SETFOCUS: /* sling focus to MLE */
688	if(mp2) {
689	if(hwndMain && fAutoView)
690	PostMsg(hwndMain,
691	UM_LOADFILE,
692	MPVOID,
693	MPVOID);
694	WinSendMsg(hwnd,UM_SETUP2,MPVOID,MPVOID);
695	if(msg != UM_SELECT)
696	PostMsg(hwnd,
697	UM_FOCUSME,
698	MPVOID,
699	MPVOID);
700	}
701	if(msg == WM_SETFOCUS)
702	break;
703	return 0;
704
705	case UM_FOCUSME:
706	WinSetFocus(HWND_DESKTOP, hwndMLE);
707	return 0;
708
709	case WM_ERASEBACKGROUND:
710	WinFillRect((HPS)mp1,(PRECTL)mp2,0x00d0d0d0);
711	return 0;
712
713	case WM_PAINT:
714	{
715	RECTL rcl;
716	HPS hps;
717
718	hps = WinBeginPaint(hwnd,(HPS)0,NULL);
719	WinQueryWindowRect(hwnd,&rcl);
720	WinFillRect(hps,&rcl,CLR_PALEGRAY);
721	WinEndPaint(hps);
722	}
723	break;
724
725	case UM_LOADFILE:
726	if((CHAR *)mp1) {
727	// switch_to(mp1);
728	if(MLEbackgroundload(hwnd,
729	UM_CONTAINER_FILLED,
730	hwndMLE,
731	(CHAR *)mp1,
732	vw->hex) !=
733	-1) {
734	vw->busy = TRUE;
735	WinEnableWindow(vw->hwndMenu,
736	FALSE);
737	}
738	}
739	return 0;
740
741	case WM_CONTROL:
742	switch(SHORT1FROMMP(mp1)) {
743	case MLE_MLE:
744	switch(SHORT2FROMMP(mp1)) {
745	case MLN_CHANGE:
746	if(!vw->ch)
747	vw->ch = TRUE;
748	break;
749	}
750	break;
751	}
752	return 0;
753
754	case WM_COMMAND:
755	if(vw->busy && SHORT1FROMMP(mp1) != MLE_QUIT) {
756	DosBeep(50,100);
757	return 0;
758	}
759	switch(SHORT1FROMMP(mp1)) {
760	/*
761	case MLE_PREVIEW:
762	preview_text(hwndMLE);
763	break;
764	*/
765	case MLE_VIEWFTP:
766	MLEinternet(hwndMLE,TRUE);
767	break;
768
769	case MLE_VIEWHTTP:
770	MLEinternet(hwndMLE,FALSE);
771	break;
772
773	case IDM_NEXTWINDOW:
774	WinSendMsg(hwndMLE,
775	WM_CHAR,
776	MPFROM2SHORT((KC_CHAR \| KC_VIRTUALKEY),
777	MAKEUSHORT(1,9)),
778	MPFROM2SHORT(9,VK_TAB));
779	break;
780
781	case IDM_COLORPALETTE:
782	{
783	COLORS co;
784	LONG temp[COLORS_MAX];
785
786	memset(&co,0,sizeof(co));
787	co.size = sizeof(co);
788	co.numcolors = COLORS_MAX;
789	co.colors = Colors;
790	co.descriptions = IDS_EDCOLORS1TEXT;
791	co.origs = temp;
792	co.prompt = IDS_EDCOLORSPROMPTTEXT;
793	memcpy(temp,
794	Colors,
795	sizeof(LONG) * COLORS_MAX);
796	if(WinDlgBox(HWND_DESKTOP,
797	hwnd,
798	ColorDlgProc,
799	FM3ModHandle,
800	COLOR_FRAME,
801	(PVOID)&co)) {
802	WinSendMsg(hwndMLE,
803	MLM_SETTEXTCOLOR,
804	MPFROMLONG(standardcolors[Colors[COLORS_FOREGROUND]]),
805	MPVOID);
806	PrfWriteProfileData(fmprof,
807	FM3Str,
808	"MLEForegroundcolor",
809	&Colors[COLORS_FOREGROUND],
810	sizeof(LONG));
811	WinSendMsg(hwndMLE,
812	MLM_SETBACKCOLOR,
813	MPFROMLONG(standardcolors[Colors[COLORS_BACKGROUND]]),
814	MPVOID);
815	PrfWriteProfileData(fmprof,
816	FM3Str,
817	"MLEBackgroundcolor",
818	&Colors[COLORS_BACKGROUND],
819	sizeof(LONG));
820	}
821	}
822	break;
823
824	case IDM_HELP:
825	if(hwndHelp)
826	WinSendMsg(hwndHelp,HM_DISPLAY_HELP,
827	MPFROM2SHORT(HELP_EDITOR,0),
828	MPFROMSHORT(HM_RESOURCEID));
829	break;
830
831	case MLE_CODEPAGE:
832	vw->cp = PickCodepage(hwnd);
833	vw->fattrs.usCodePage = (USHORT)vw->cp;
834	WinSendMsg(hwndMLE,
835	MLM_SETFONT,
836	MPFROMP(&vw->fattrs),
837	MPVOID);
838	PrfWriteProfileData(fmprof,
839	FM3Str,
840	"MLEFont",
841	&vw->fattrs,
842	sizeof(FATTRS));
843	break;
844
845	case MLE_NEWFILE:
846	if(!MLEgetreadonly(hwndMLE)) {
847	if(vw->ch) {
848
849	APIRET temp;
850
851	temp = saymsg(MB_YESNOCANCEL \| MB_ICONEXCLAMATION,
852	hwnd,
853	NullStr,
854	GetPString(IDS_SAVECHANGESTEXT));
855	if(temp == MBID_CANCEL)
856	break;
857	if(temp == MBID_YES)
858	WinSendMsg(hwnd,
859	WM_COMMAND,
860	MPFROM2SHORT(MLE_EXPORTFILE,0),
861	MPVOID);
862	}
863	MLEclearall(hwndMLE);
864	*vw->exportfilename = 0;
865	vw->ch = FALSE;
866	MLEsetchanged(hwndMLE,
867	FALSE);
868	WinSendMsg(hwnd,UM_SETUP2,MPVOID,MPVOID);
869	}
870	break;
871
872	case MLE_TOGGLEREADONLY:
873	if(!vw->busy && vw->hex != 1) { /* I dunno why I gotta reset the colors... */
874
875	BOOL ro;
876	LONG fColor,bColor;
877
878	fColor = (LONG)WinSendMsg(hwndMLE,
879	MLM_QUERYTEXTCOLOR,
880	MPVOID,
881	MPVOID);
882	bColor = (LONG)WinSendMsg(hwndMLE,
883	MLM_QUERYBACKCOLOR,
884	MPVOID,
885	MPVOID);
886	ro = MLEgetreadonly(hwndMLE);
887	ro = (ro) ? FALSE : TRUE;
888	MLEsetreadonly(hwndMLE,ro);
889	disable_menuitem(vw->hwndMenu,
890	MLE_FILEMENU,
891	!ro);
892	disable_menuitem(vw->hwndMenu,
893	MLE_CUTCLIP,
894	!ro);
895	disable_menuitem(vw->hwndMenu,
896	MLE_PASTECLIP,
897	!ro);
898	disable_menuitem(vw->hwndMenu,
899	MLE_CLEAR,
900	!ro);
901	disable_menuitem(vw->hwndMenu,
902	MLE_CUTLINE,
903	!ro);
904	disable_menuitem(vw->hwndMenu,
905	MLE_BLOCKMENU,
906	!ro);
907	WinSendMsg(hwndMLE,
908	MLM_SETTEXTCOLOR,
909	MPFROMLONG(fColor),
910	MPVOID);
911	WinSendMsg(hwndMLE,
912	MLM_SETBACKCOLOR,
913	MPFROMLONG(bColor),
914	MPVOID);
915	}
916	else
917	DosBeep(50,100);
918	break;
919
920	case IDM_RENAME:
921	case MLE_SETEXPORTFILE:
922	if(vw && !MLEgetreadonly(hwndMLE)) {
923
924	CHAR filename[1027];
925
926	strcpy(filename,vw->exportfilename);
927	if(export_filename(hwnd,filename,1)) {
928	if(stricmp(filename,vw->exportfilename)) {
929	vw->ch = TRUE;
930	MLEsetchanged(hwndMLE,TRUE);
931	strcpy(vw->exportfilename,filename);
932	WinSendMsg(hwnd,UM_SETUP2,MPVOID,MPVOID);
933	}
934	}
935	}
936	break;
937
938	case MLE_EXPORTFILE:
939	if(!MLEgetreadonly(hwndMLE)) {
940
941	LONG oldsize;
942
943	if(!*vw->exportfilename \|\|
944	strchr(vw->exportfilename,'?') \|\|
945	strchr(vw->exportfilename,'*')) {
946	WinSendMsg(hwnd,
947	WM_COMMAND,
948	MPFROM2SHORT(MLE_SETEXPORTFILE,0),
949	MPVOID);
950	if(!*vw->exportfilename \|\|
951	strchr(vw->exportfilename,'?') \|\|
952	strchr(vw->exportfilename,'*'))
953	break;
954	}
955	{ /* zero file length instead of unlink (protects EAs from loss) */
956	FILE *fp;
957
958	fp = fopen(vw->exportfilename,"r+");
959	if(fp) {
960	oldsize = filelength(fileno(fp));
961	DosSetFileSize(fileno(fp),0L);
962	fclose(fp);
963	}
964	}
965	if(!MLEexportfile(hwndMLE,
966	vw->exportfilename,
967	vw->ExpandTabs,
968	vw->fStripTrailLines,
969	vw->fStripTrail)) {
970	FILE *fp;
971
972	DosBeep(50,100);
973	fp = fopen(vw->exportfilename,"r+");
974	if(fp) {
975	DosSetFileSize(fileno(fp),oldsize);
976	fclose(fp);
977	}
978	}
979	else {
980	vw->ch = FALSE;
981	MLEsetchanged(hwndMLE,FALSE);
982	}
983	}
984	break;
985
986	case IDM_EDIT:
987	case IDM_VIEW:
988	case MLE_LOADFILE:
989	if(vw->ch && !MLEgetreadonly(hwndMLE)) {
990
991	APIRET temp;
992
993	temp = saymsg(MB_YESNO,
994	hwnd,
995	NullStr,
996	GetPString(IDS_LOADOVERTEXT));
997	if(temp != MBID_YES)
998	break;
999	}
1000	/* intentional fallthru */
1001	case MLE_INSERTFILE:
1002	if(!MLEgetreadonly(hwndMLE)) {
1003
1004	CHAR filename[1027];
1005
1006	strcpy(filename,vw->importfilename);
1007	if(insert_filename(hwnd,
1008	filename,
1009	(SHORT1FROMMP(mp1) == MLE_INSERTFILE) ?
1010	FALSE :
1011	TRUE,
1012	FALSE)) {
1013	strcpy(vw->importfilename,filename);
1014	if(SHORT1FROMMP(mp1) == MLE_INSERTFILE)
1015	MLEinsertfile(hwndMLE,filename);
1016	else {
1017	// switch_to(filename);
1018	if(MLEbackgroundload(hwnd,
1019	UM_CONTAINER_FILLED,
1020	hwndMLE,
1021	filename,
1022	vw->hex) !=
1023	-1) {
1024	vw->busy = TRUE;
1025	WinEnableWindow(vw->hwndMenu,
1026	FALSE);
1027	}
1028	}
1029	}
1030	}
1031	break;
1032
1033	case MLE_STRIPTRAILBLANKS:
1034	SetMenuCheck(vw->hwndMenu,
1035	MLE_STRIPTRAILBLANKS,
1036	&vw->fStripTrail,
1037	TRUE,
1038	"MLEstriptrail");
1039	break;
1040
1041	case MLE_STRIPTRAILLINES:
1042	SetMenuCheck(vw->hwndMenu,
1043	MLE_STRIPTRAILLINES,
1044	&vw->fStripTrailLines,
1045	TRUE,
1046	"MLEstriptraillines");
1047	break;
1048
1049	case MLE_TAB:
1050	{
1051	STRINGINPARMS sip;
1052	CHAR s[35];
1053
1054	sip.help = GetPString(IDS_TABSTOPHELPTEXT);
1055	sip.ret = s;
1056	sprintf(s,
1057	"%u",
1058	vw->TabStops);
1059	sip.prompt = GetPString(IDS_TABSTOPPROMPTTEXT);
1060	sip.inputlen = 34;
1061	sip.title = GetPString(IDS_TABSTOPTITLETEXT);
1062	WinDlgBox(HWND_DESKTOP,
1063	hwnd,
1064	InputDlgProc,
1065	FM3ModHandle,
1066	STR_FRAME,
1067	&sip);
1068	if(*s && atoi(s) > -1 && atoi(s) < 512) {
1069	vw->TabStops = atoi(s);
1070	WinSendMsg(hwndMLE,
1071	MLM_SETTABSTOP,
1072	MPFROMLONG(vw->TabStops),
1073	MPVOID);
1074	PrfWriteProfileData(fmprof,
1075	FM3Str,
1076	"MLETabStops",
1077	&vw->TabStops,
1078	sizeof(INT));
1079	}
1080	}
1081	break;
1082
1083	case MLE_EXPANDTABS:
1084	{
1085	BOOL tempbool;
1086	STRINGINPARMS sip;
1087	CHAR s[35];
1088
1089	sip.help = GetPString(IDS_EXTABHELPTEXT);
1090	sip.ret = s;
1091	sprintf(s,
1092	"%u",
1093	vw->ExpandTabs);
1094	sip.prompt = GetPString(IDS_EXTABPROMPTTEXT);
1095	sip.inputlen = 34;
1096	sip.title = GetPString(IDS_EXTABTITLETEXT);
1097	WinDlgBox(HWND_DESKTOP,
1098	hwnd,
1099	InputDlgProc,
1100	FM3ModHandle,
1101	STR_FRAME,
1102	&sip);
1103	if(*s && atoi(s) > -1 && atoi(s) < 33) {
1104	vw->ExpandTabs = atoi(s);
1105	tempbool = (vw->ExpandTabs != 0);
1106	SetMenuCheck(vw->hwndMenu,
1107	MLE_EXPANDTABS,
1108	&tempbool,
1109	FALSE,
1110	NULL);
1111	PrfWriteProfileData(fmprof,
1112	FM3Str,
1113	"MLEExpandTabs",
1114	&vw->ExpandTabs,
1115	sizeof(INT));
1116	}
1117	}
1118	break;
1119
1120	case MLE_APPENDCLIP:
1121	MLEdoblock(hwndMLE,
1122	APPENDCLIP,
1123	NULL);
1124	break;
1125
1126	case MLE_WRITEBLOCK:
1127	{
1128	CHAR filename[1027];
1129
1130	strcpy(filename,vw->exportfilename);
1131	if(export_filename(hwnd,filename,1))
1132	MLEdoblock(hwndMLE,
1133	WRITE,
1134	filename);
1135	}
1136	break;
1137
1138	case MLE_FORMAT:
1139	if(!MLEgetreadonly(hwndMLE))
1140	MLEdoblock(hwndMLE,
1141	FORMAT,
1142	NULL);
1143	break;
1144
1145	case MLE_XOR:
1146	if(!MLEgetreadonly(hwndMLE))
1147	MLEdoblock(hwndMLE,
1148	XOR,
1149	NULL);
1150	break;
1151
1152	case MLE_ROT13:
1153	if(!MLEgetreadonly(hwndMLE))
1154	MLEdoblock(hwndMLE,
1155	ROT13,
1156	NULL);
1157	break;
1158
1159	case MLE_UPPERCASE:
1160	if(!MLEgetreadonly(hwndMLE))
1161	MLEdoblock(hwndMLE,
1162	UPPERCASE,
1163	NULL);
1164	break;
1165
1166	case MLE_LOWERCASE:
1167	if(!MLEgetreadonly(hwndMLE))
1168	MLEdoblock(hwndMLE,
1169	LOWERCASE,
1170	NULL);
1171	break;
1172
1173	case MLE_TOGGLECASE:
1174	if(!MLEgetreadonly(hwndMLE))
1175	MLEdoblock(hwndMLE,
1176	TOGGLECASE,
1177	NULL);
1178	break;
1179
1180	case MLE_JUMP:
1181	{
1182	ULONG numlines,linenum;
1183	CHAR s[35],ss[133];
1184	STRINGINPARMS sip;
1185
1186	sip.help = GetPString(IDS_NVLINEJUMPTEXT);
1187	sip.ret = s;
1188	*s = 0;
1189	sip.prompt = ss;
1190	sip.inputlen = 34;
1191	sip.title = GetPString(IDS_NVLINEJUMPTITLETEXT);
1192	numlines = MLEnumlines(hwndMLE);
1193	if(numlines) {
1194	sprintf(sip.prompt,
1195	GetPString(IDS_NVJUMPTEXT),
1196	GetPString(IDS_LINETEXT),
1197	1,
1198	numlines);
1199	WinDlgBox(HWND_DESKTOP,
1200	hwnd,
1201	InputDlgProc,
1202	FM3ModHandle,
1203	STR_FRAME,
1204	&sip);
1205	if(*s) {
1206	linenum = atol(s);
1207	if(linenum > 0 && linenum <= numlines) {
1208	MLEsettopline(hwndMLE,
1209	MLEstartofline(hwndMLE,
1210	linenum));
1211	MLEsetcurpos(hwndMLE,
1212	MLEstartofline(hwndMLE,
1213	linenum));
1214	}
1215	}
1216	}
1217	else
1218	DosBeep(50,100);
1219	}
1220	break;
1221
1222	case MLE_CUTLINE: /* delete current line */
1223	if(!MLEgetreadonly(hwndMLE))
1224	MLEdeletecurline(hwndMLE);
1225	break;
1226
1227	case IDM_DELETE:
1228	case MLE_CLEAR:
1229	if(!MLEgetreadonly(hwndMLE))
1230	MLEclear(hwndMLE);
1231	break;
1232
1233	case DID_CANCEL: /* escape */
1234	if(MLEgetreadonly(hwndMLE))
1235	PostMsg(hwnd,
1236	WM_CLOSE,
1237	MPVOID,
1238	MPVOID);
1239	else
1240	PostMsg(hwnd,
1241	WM_COMMAND,
1242	MPFROM2SHORT(MLE_DESELECTALL,0),
1243	MPVOID);
1244	break;
1245
1246	case MLE_QUIT: /* outtahere */
1247	MLEsetchanged(hwndMLE,
1248	FALSE);
1249	vw->ch = FALSE;
1250	/* intentional fallthru */
1251	case MLE_END:
1252	PostMsg(hwnd,
1253	WM_CLOSE,
1254	MPVOID,
1255	MPVOID);
1256	break;
1257
1258	case MLE_SETFONT: /* select a new font */
1259	SetMLEFont(hwndMLE,
1260	&vw->fattrs,
1261	0);
1262	PrfWriteProfileData(fmprof,
1263	FM3Str,
1264	"MLEFont",
1265	&vw->fattrs,
1266	sizeof(FATTRS));
1267	break;
1268
1269	case MLE_SELECTALL:
1270	MLEselectall(hwndMLE);
1271	break;
1272
1273	case MLE_DESELECTALL:
1274	MLEsetcurpos(hwndMLE,
1275	MLEcurpos(hwndMLE));
1276	break;
1277
1278	case MLE_UNDO:
1279	if(!MLEgetreadonly(hwndMLE))
1280	MLEundo(hwndMLE);
1281	break;
1282
1283	case IDM_SAVETOCLIP:
1284	case MLE_COPYCLIP:
1285	MLEcopy(hwndMLE);
1286	break;
1287
1288	case MLE_CUTCLIP:
1289	if(!MLEgetreadonly(hwndMLE))
1290	MLEcut(hwndMLE);
1291	break;
1292
1293	case IDM_COLLECTFROMCLIP:
1294	case MLE_PASTECLIP:
1295	if(!MLEgetreadonly(hwndMLE))
1296	MLEpaste(hwndMLE);
1297	break;
1298
1299	case MLE_SENSITIVE:
1300	SetMenuCheck(vw->hwndMenu,
1301	MLE_SENSITIVE,
1302	&vw->srch.fInsensitive,
1303	TRUE,
1304	"MLEInsensitive");
1305	break;
1306
1307	case MLE_FINDFIRST: /* search */
1308	if(MLEfindfirst(hwnd,&vw->srch))
1309	PostMsg(hwnd,
1310	WM_COMMAND,
1311	MPFROM2SHORT(MLE_FINDNEXT,0),
1312	MPVOID);
1313	break;
1314
1315	case IDM_GREP:
1316	case MLE_FINDNEXT:
1317	{
1318	INT temp;
1319
1320	temp = MLEfindnext(hwnd,&vw->srch);
1321	if(temp < 0)
1322	PostMsg(hwnd,
1323	WM_COMMAND,
1324	MPFROM2SHORT(MLE_FINDFIRST,0),
1325	MPVOID);
1326	else if(temp > 0)
1327	PostMsg(hwnd,
1328	WM_COMMAND,
1329	MPFROM2SHORT(MLE_FINDNEXT,0),
1330	MPVOID);
1331	}
1332	break;
1333
1334	case MLE_TOGWRAP: /* toggle wrap mode */
1335	if(vw->hex != 1) {
1336	SetMenuCheck(vw->hwndMenu,
1337	MLE_TOGWRAP,
1338	&vw->fWrap,
1339	TRUE,
1340	"MLEWrap");
1341	MLEsetwrap(hwndMLE,
1342	vw->fWrap);
1343	}
1344	break;
1345
1346	case IDM_ABOUT:
1347	case MLE_ABOUT:
1348	saymsg(MB_ENTER \| MB_ICONASTERISK,
1349	hwnd,
1350	GetPString(IDS_VIEWABOUTTITLETEXT),
1351	GetPString(IDS_VIEWABOUTTEXT));
1352	break;
1353	}
1354	return 0;
1355
1356	case WM_SAVEAPPLICATION:
1357	if(vw &&
1358	ParentIsDesktop(hwnd,vw->hwndParent)) {
1359
1360	SWP swp;
1361
1362	WinQueryWindowPos(vw->hwndFrame,
1363	&swp);
1364	if(!(swp.fl & (SWP_HIDE \| SWP_MINIMIZE \| SWP_MAXIMIZE)))
1365	PrfWriteProfileData(fmprof,
1366	appname,
1367	"ViewSizePos",
1368	&swp,
1369	sizeof(swp));
1370	}
1371	break;
1372
1373	case WM_CLOSE: /* outtahere */
1374	WinSendMsg(hwnd,
1375	WM_SAVEAPPLICATION,
1376	MPVOID,
1377	MPVOID);
1378	if(vw) {
1379	if(vw->busy) {
1380	vw->killme = TRUE;
1381	return 0;
1382	}
1383	if(vw->ch &&
1384	!MLEgetreadonly(hwndMLE)) {
1385
1386	APIRET temp;
1387
1388	temp = saymsg(MB_YESNOCANCEL \| MB_ICONEXCLAMATION,
1389	hwnd,
1390	NullStr,
1391	GetPString(IDS_SAVECHANGESTEXT));
1392	if(temp == MBID_CANCEL)
1393	return 0;
1394	if(temp == MBID_YES)
1395	WinSendMsg(hwnd,
1396	WM_COMMAND,
1397	MPFROM2SHORT(MLE_EXPORTFILE,0),
1398	MPVOID);
1399	}
1400	}
1401	WinDestroyWindow(WinQueryWindow(hwnd,QW_PARENT));
1402	return 0;
1403
1404	case WM_DESTROY:
1405	DosPostEventSem(CompactSem);
1406	{
1407	BOOL dontclose = FALSE;
1408
1409	if(vw) {
1410	if(vw->hwndPopupMenu)
1411	WinDestroyWindow(vw->hwndPopupMenu);
1412	if(vw->accel)
1413	WinDestroyAccelTable(vw->accel);
1414	dontclose = vw->dontclose;
1415	WinSetWindowPtr(hwnd,QWL_USER,NULL);
1416	if(vw->hwndRestore) {
1417
1418	ULONG fl = SWP_SHOW \| SWP_ACTIVATE \| SWP_ZORDER;
1419	SWP swp;
1420
1421	if(WinQueryWindowPos(vw->hwndRestore,
1422	&swp)) {
1423	if(!(swp.fl & SWP_MAXIMIZE))
1424	fl \|= SWP_RESTORE;
1425	WinSetWindowPos(vw->hwndRestore,
1426	HWND_TOP,
1427	0,
1428	0,
1429	0,
1430	0,
1431	fl);
1432	}
1433	}
1434	free(vw);
1435	}
1436	if(!dontclose &&
1437	ParentIsDesktop(hwnd,WinQueryWindow(WinQueryWindow(hwnd,
1438	QW_PARENT),QW_PARENT))) {
1439	if(!PostMsg((HWND)0,
1440	WM_QUIT,
1441	MPVOID,
1442	MPVOID))
1443	DosExit(EXIT_PROCESS,1);
1444	}
1445	}
1446	break;
1447	}
1448	return WinDefWindowProc(hwnd,msg,mp1,mp2);
1449	}
1450

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

Download in other formats: