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