Context Navigation

source: trunk/dll/viewer.c@ 1395

Visit:

Last change on this file since 1395 was 1395, checked in by Gregg Young, 17 years ago
Allow user to turn off alert and/or error beeps in settings notebook. Ticket 341 Move repeated strings to PCSZs. Ticket 6 Add *DateFormat functions to format dates based on locale Ticket 28 Eliminate Win_Error2 by moving function names to PCSZs used in Win_Error Ticket 6
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 33.5 KB

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

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

Download in other formats: