/*********************************************************************** $Id$ fm/4 main window Copyright (c) 1993-98 M. Kimes Copyright (c) 2005, 2010 Steven H. Levine 23 May 05 SHL Use datamin.h 26 May 05 SHL Comments and localize code 06 Aug 05 SHL Renames 02 Jan 06 SHL Use QWL_USER more 02 Jan 06 SHL Map IDM_WINDOWDLG to match IBM_TWODIRS 17 Jul 06 SHL Use Runtime_Error 30 Mar 07 GKY Remove GetPString for window class names 12 May 07 SHL Pass ulItemsToUnHilite to UnHilite 06 Aug 07 GKY Reduce DosSleep times (ticket 148) 07 Aug 07 SHL Use BldQuotedFileName 20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat 10 Jan 08 SHL Sync with CfgDlgProc mods 19 Jan 08 GKY Rework Utilities menu 14 Feb 08 SHL Rework to support settings menu conditional cascade 29 Feb 08 GKY Use xfree where appropriate 27 Aug 08 JBS Ticket 259: Support saving/restoring toolbars with states 01 Sep 08 GKY Add bmps for default toolbars 10 Dec 08 SHL Integrate exception handler support 03 Jan 09 GKY Check for system that is protectonly to gray out Dos/Win command lines and prevent Dos/Win programs from being inserted into the execute dialog with message why. 21 Jun 09 GKY Added drive letter to bitmap buttons in drive bar; Eliminate static drive letter windows; Use button ID to identify drive letter for processing. 22 Jul 09 GKY Code changes to use semaphores to serialize drive scanning 12 Sep 09 GKY Add FM3.INI User ini and system ini to submenu for view ini 13 Dec 09 GKY Fixed separate paramenters. Please note that appname should be used in profile calls for user settings that work and are setable in more than one miniapp; FM3Str should be used for setting only relavent to FM/2 or that aren't user settable; realappname should be used for setting applicable to one or more miniapp but not to FM/2 17 JAN 10 GKY Changes to get working with Watcom 1.9 Beta (1/16/10). Mostly cast CHAR CONSTANT * as CHAR *. 11 Apr 10 GKY Fix drive tree rescan failure and program hang caused by event sem never being posted 12 Aug 12 GKY Allow for selection of include subdirectories or a list file on initial startup of compare dirs 28 Jun 14 GKY Fix errors identified with CPPCheck; ***********************************************************************/ #include #include #include #define INCL_DOS #define INCL_WIN #define INCL_GPI #define INCL_LONGLONG #include "fm3dll.h" #include "fm3dll2.h" // #define's for UM_*, control id's, etc. #include "killproc.h" // Data declaration(s) #include "grep.h" // Data declaration(s) #include "autoview.h" // Data declaration(s) #include "dircnrs.h" // Data declaration(s) #include "worker.h" // Data declaration(s) #include "init.h" // Data declaration(s) #include "fm3dlg.h" #include "fm3str.h" #include "tools.h" #include "datamin.h" #include "comp.h" // COMPARE #include "pathutil.h" // BldQuotedFileName #include "errutil.h" // Dos_Error... #include "strutil.h" // GetPString #include "notebook.h" // CfgDlgProc #include "command.h" // RunCommand #include "misc.h" // BoxWindow, FixSwitchList, SetConditionalCascade // SetSysMenu #include "mainwnd.h" // CloseChildren, MainWMCommand, MakeMainObjWin, ResizeDrives // TopWindow #include "common.h" // CommonCreateMainChildren, CommonMainWndProc #include "notify.h" // HideNote #include "mainwnd2.h" #include "remap.h" // RemapDlgProc #include "treecnr.h" // StartTreeCnr #include "walkem.h" // WalkTwoCmpDlgProc, WalkTwoSetDlgProc #include "dirs.h" // switch_to #include "filter.h" // Filter #include "collect.h" // StartCollector #include "select.h" // UnHilite #include "valid.h" // MakeValidDir #include "systemf.h" // runemf2 #include "wrappers.h" // xfree #include "fortify.h" #include "excputil.h" // xbeginthread typedef struct { USHORT size; USHORT dummy; HWND hwndDir1; HWND hwndDir2; HWND hwndCurr; HWND hwndLastDir; HWND hwndMax; } PERSON1DATA; // Data definitions static PSZ pszSrcFile = __FILE__; static ULONG TreeWidth; #pragma data_seg(GLOBAL1) PFNWP PFNWPFrame; #pragma data_seg(GLOBAL2) CHAR realappname[12]; static MRESULT EXPENTRY MainFrameWndProc2(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2) { PFNWP oldproc = (PFNWP) WinQueryWindowPtr(hwnd, QWL_USER); switch (msg) { case WM_ADJUSTWINDOWPOS: { SWP *pswp; pswp = (SWP *) mp1; if (pswp->fl & (SWP_SHOW | SWP_RESTORE)) PostMsg(WinWindowFromID(hwnd, FID_CLIENT), UM_SIZE, MPVOID, MPVOID); if (fDataMin && !fAmClosing) { if (pswp->fl & (SWP_HIDE | SWP_MINIMIZE)) { SWP swp; WinQueryWindowPos(hwnd, &swp); PostMsg(hwnd, UM_FOCUSME, MPFROMLONG(swp.fl), MPVOID); HideNote(); } else if (pswp->fl & (SWP_SHOW | SWP_RESTORE)) { if (DataHwnd) PostMsg(DataHwnd, WM_CLOSE, MPVOID, MPVOID); } } if (!fAmClosing) { if (pswp->fl & (SWP_HIDE | SWP_MINIMIZE)) HideNote(); } } break; case UM_FOCUSME: CreateDataBar(HWND_DESKTOP, (ULONG) mp1); return 0; case WM_BUTTON1UP: case WM_BUTTON2UP: case WM_BUTTON3UP: case WM_MOUSEMOVE: case WM_CHORD: shiftstate = (SHORT2FROMMP(mp2) & (KC_ALT | KC_SHIFT | KC_CTRL)); break; case WM_CHAR: shiftstate = (SHORT1FROMMP(mp1) & (KC_SHIFT | KC_ALT | KC_CTRL)); break; case WM_CONTROL: return WinSendMsg(WinWindowFromID(hwnd, FID_CLIENT), UM_CONTROL, mp1, mp2); case WM_COMMAND: return WinSendMsg(WinWindowFromID(hwnd, FID_CLIENT), msg, mp1, mp2); case WM_CALCFRAMERECT: { MRESULT mr; PRECTL prectl; LONG sheight = 20, bheight = 20; mr = (oldproc) ? oldproc(hwnd, msg, mp1, mp2) : PFNWPFrame(hwnd, msg, mp1, mp2); /** * Calculate the position of the client rectangle. * Otherwise, we'll see a lot of redraw when we move the * client during WM_FORMATFRAME. */ if (mr && mp2) { prectl = (PRECTL) mp1; if (prectl->yBottom != prectl->yTop) { { HPS hps; POINTL aptl[TXTBOX_COUNT]; hps = WinGetPS(hwndStatus); GpiQueryTextBox(hps, 6, "$`WjgT", TXTBOX_COUNT, aptl); WinReleasePS(hps); sheight = aptl[TXTBOX_TOPLEFT].y + 6; hps = WinGetPS(hwndName); GpiQueryTextBox(hps, 6, "$`WjgT", TXTBOX_COUNT, aptl); WinReleasePS(hps); bheight = aptl[TXTBOX_TOPLEFT].y + 6; } prectl->yBottom += (sheight + 4); prectl->yTop -= (sheight + 4); prectl->yBottom += (bheight + 4); prectl->yTop -= (bheight + 4); if (fToolbar) { if (!fTextTools) prectl->yTop -= ((fToolTitles) ? 50 : 40); else prectl->yTop -= 32; } ResizeDrives(WinWindowFromID(hwnd, MAIN_DRIVES), ((prectl->xRight - (WinQuerySysValue(HWND_DESKTOP, SV_CYSIZEBORDER) * 2)) - 4)); prectl->yTop -= (16 * (DriveLines * 22)); prectl->yTop -= 2; if (fAutoView) { AutoviewHeight = min(AutoviewHeight, (prectl->yTop - prectl->yBottom) - 116); AutoviewHeight = max(AutoviewHeight, 44); prectl->yBottom += (AutoviewHeight + 6); } } } return mr; } case WM_FORMATFRAME: { SHORT sCount, soldCount; PSWP pswp, pswpClient, pswpNew; SWP swpClient; ULONG theight = 48L, dheight = DRIVE_BUTTON_HEIGHT, bheight = 20, sheight = 20; LONG width, lastx; sCount = (SHORT) ((oldproc) ? oldproc(hwnd, msg, mp1, mp2) : PFNWPFrame(hwnd, msg, mp1, mp2)); soldCount = sCount; /** * Reformat the frame to "squeeze" the client * and make room for status window sibling beneath * and toolbar above (if toolbar's on) and userlists * (if userlists are on). */ pswp = (PSWP) mp1; { SHORT x; for (x = 0; x < sCount; x++) { if (WinQueryWindowUShort(pswp->hwnd, QWS_ID) == FID_CLIENT) { pswpClient = pswp; break; } pswp++; } } { HPS hps; POINTL aptl[TXTBOX_COUNT]; hps = WinGetPS(hwndStatus); GpiQueryTextBox(hps, 6, "$`WjgT", TXTBOX_COUNT, aptl); WinReleasePS(hps); bheight = sheight = aptl[TXTBOX_TOPLEFT].y + 6; hps = WinGetPS(hwndName); GpiQueryTextBox(hps, 6, "$`WjgT", TXTBOX_COUNT, aptl); WinReleasePS(hps); bheight = aptl[TXTBOX_TOPLEFT].y + 6; } pswpNew = (PSWP) mp1 + soldCount; *pswpNew = *pswpClient; swpClient = *pswpClient; pswpNew->hwnd = hwndStatus; pswpNew->x = swpClient.x + 3; pswpNew->y = swpClient.y + 2; width = (swpClient.cx / 2) - 6; width = max(width, 10); pswpNew->cx = width - 6; pswpNew->cy = sheight; pswpClient->y = pswpNew->y + pswpNew->cy + 3; pswpClient->cy = (swpClient.cy - pswpNew->cy) - 3; sCount++; pswpNew = (PSWP) mp1 + (soldCount + 1); *pswpNew = *pswpClient; pswpNew->hwnd = hwndStatus2; pswpNew->x = width + 8; pswpNew->y = swpClient.y + 2; pswpNew->cx = width - 6; pswpNew->cy = sheight; sCount++; if (fToolbar) { if (fTextTools) theight = 32L; else if (!fToolTitles) theight = 40L; pswpNew = (PSWP) mp1 + (soldCount + 2); *pswpNew = *pswpClient; pswpNew->hwnd = WinWindowFromID(hwnd, MAIN_TOOLS); pswpNew->x = swpClient.x + 2; pswpNew->y = (swpClient.y + swpClient.cy) - (theight - 2); pswpNew->cx = swpClient.cx - 4; pswpNew->cy = theight - 4; pswpClient->cy -= theight; sCount++; } else WinShowWindow(WinWindowFromID(hwnd, MAIN_TOOLS), FALSE); ResizeDrives(WinWindowFromID(hwnd, MAIN_DRIVES), pswpClient->cx - 4); pswpNew = (PSWP) mp1 + (soldCount + 2 + (fToolbar != FALSE)); *pswpNew = *pswpClient; pswpNew->hwnd = WinWindowFromID(hwnd, MAIN_DRIVES); pswpNew->x = swpClient.x + 2; dheight += ((dheight) * DriveLines); pswpNew->y = (swpClient.y + swpClient.cy) - (dheight); if (fToolbar) pswpNew->y -= theight; pswpNew->cx = swpClient.cx - 4; pswpNew->cy = dheight; pswpClient->cy -= dheight; pswpClient->cy -= 2; sCount++; if (fAutoView) { pswpNew = (PSWP) mp1 + (soldCount + 3 + (fToolbar != FALSE)); *pswpNew = *pswpClient; pswpNew->hwnd = (fComments) ? hwndAutoMLE : hwndAutoview; pswpNew->x = pswpClient->x + 3; pswpNew->y = pswpClient->y + 3; if (fMoreButtons) pswpNew->y += (bheight + 4); pswpNew->cx = pswpClient->cx - 6; AutoviewHeight = min(AutoviewHeight, pswpClient->cy - 116); AutoviewHeight = max(AutoviewHeight, 44); pswpNew->cy = AutoviewHeight; pswpClient->y += (AutoviewHeight + 6); pswpClient->cy -= (AutoviewHeight + 6); sCount++; WinShowWindow((fComments) ? hwndAutoview : hwndAutoMLE, FALSE); } else { WinShowWindow(hwndAutoview, FALSE); WinShowWindow(hwndAutoMLE, FALSE); } pswpNew = (PSWP) mp1 + (soldCount + 3 + (fToolbar != FALSE) + (fAutoView != FALSE)); *pswpNew = *pswpClient; pswpNew->hwnd = WinWindowFromID(hwnd, MAIN_LED); pswpNew->x = (swpClient.x + swpClient.cx) - 12; pswpNew->y = swpClient.y; pswpNew->cx = 12; pswpNew->cy = 12; sCount++; pswpNew = (PSWP) mp1 + (soldCount + 4 + (fToolbar != FALSE) + (fAutoView != FALSE)); *pswpNew = *pswpClient; pswpNew->hwnd = WinWindowFromID(hwnd, MAIN_LEDHDR); pswpNew->x = (swpClient.x + swpClient.cx) - 12; pswpNew->y = swpClient.y + 12; pswpNew->cx = 12; pswpNew->cy = sheight - 8; sCount++; pswpNew = (PSWP) mp1 + (soldCount + 5 + (fToolbar != FALSE) + (fAutoView != FALSE)); *pswpNew = *pswpClient; pswpNew->hwnd = hwndName; pswpNew->x = swpClient.x + 3; pswpNew->y = swpClient.y + (sheight + 6); pswpNew->cx = ((swpClient.cx / 2) + (swpClient.cx / 5)) - 3; lastx = pswpNew->x + pswpNew->cx; pswpNew->cy = bheight; pswpClient->y += (bheight + 4); pswpClient->cy -= (bheight + 4); sCount++; pswpNew = (PSWP) mp1 + (soldCount + 6 + (fToolbar != FALSE) + (fAutoView != FALSE)); *pswpNew = *pswpClient; pswpNew->hwnd = hwndDate; pswpNew->x = lastx + 3; pswpNew->y = swpClient.y + (sheight + 6); pswpNew->cx = (swpClient.cx / 6) + (swpClient.cx / 16) - 3; lastx = pswpNew->x + pswpNew->cx; pswpNew->cy = bheight; sCount++; pswpNew = (PSWP) mp1 + (soldCount + 7 + (fToolbar != FALSE) + (fAutoView != FALSE)); *pswpNew = *pswpClient; pswpNew->hwnd = hwndAttr; pswpNew->x = lastx + 3; pswpNew->y = swpClient.y + (sheight + 6); pswpNew->cx = (swpClient.cx - pswpNew->x) - 1; pswpNew->cy = bheight; sCount++; return MRFROMSHORT(sCount); } case WM_QUERYFRAMECTLCOUNT: { SHORT sCount; sCount = (SHORT) ((oldproc) ? oldproc(hwnd, msg, mp1, mp2) : PFNWPFrame(hwnd, msg, mp1, mp2)); sCount += 8; if (fToolbar) sCount++; if (fAutoView) sCount++; return MRFROMSHORT(sCount); } case WM_CLOSE: WinSendMsg(WinWindowFromID(hwnd, FID_CLIENT), msg, mp1, mp2); return 0; } return (oldproc) ? oldproc(hwnd, msg, mp1, mp2) : PFNWPFrame(hwnd, msg, mp1, mp2); } static MRESULT EXPENTRY MainWMCommand2(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2) { PERSON1DATA *pd; BOOL yes; SetShiftState(); switch (SHORT1FROMMP(mp1)) { case IDM_TOAUTOMLE: case IDM_CLI: case IDM_CREATETOOL: case IDM_ABOUT: case IDM_WINFULLSCREEN: case IDM_DOSCOMMANDLINE: case IDM_INIVIEWER: case IDM_INIVIEWERFM2: case IDM_INIVIEWERSYS: case IDM_EDITASSOC: case IDM_COMMANDLINE: case IDM_KILLPROC: case IDM_TOOLBAR: case IDM_TEXTTOOLS: case IDM_TOOLTITLES: case IDM_TOOLLEFT: case IDM_TOOLRIGHT: case IDM_AUTOVIEWCOMMENTS: case IDM_AUTOVIEWFILE: case IDM_AUTOVIEW: case IDM_CONFIRMDELETE: // 2014-05-17 SHL case IDM_TOGGLEDRAGDIALOG: // 2014-05-15 SHL case IDM_HIDENOTEWND: case IDM_SHOWNOTEWND: case IDM_INSTANT: case IDM_HELPCONTEXT: case IDM_HELPHINTS: case IDM_HELPPIX: case IDM_KILLME: case IDM_EXIT: case IDM_HELPTUTOR: case IDM_HELPCONTENTS: case IDM_HELPGENERAL: case IDM_HELPKEYS: case IDM_HELPMOUSE: case IDM_HELP: case IDM_FONTPALETTE: case IDM_HICOLORPALETTE: case IDM_COLORPALETTE: case IDM_SYSTEMCLOCK: return MainWMCommand(hwnd, msg, mp1, mp2); case IDM_REMAP: WinDlgBox(HWND_DESKTOP, hwnd, RemapDlgProc, FM3ModHandle, MAP_FRAME, NULL); break; case IDM_TWODIRS: // Menu action case IDM_WINDOWDLG: // Toolbar action pd = WinQueryWindowPtr(hwnd, QWL_USER + 4); if (pd) { WALK2 wa; memset(&wa, 0, sizeof(wa)); wa.size = sizeof(wa); *wa.szCurrentPath1 = 0; WinSendMsg(pd->hwndDir1, UM_CONTAINERDIR, MPFROMP(wa.szCurrentPath1), MPVOID); MakeValidDir(wa.szCurrentPath1); *wa.szCurrentPath2 = 0; WinSendMsg(pd->hwndDir2, UM_CONTAINERDIR, MPFROMP(wa.szCurrentPath2), MPVOID); MakeValidDir(wa.szCurrentPath2); if (WinDlgBox(HWND_DESKTOP, hwnd, WalkTwoSetDlgProc, FM3ModHandle, WALK2FM4_FRAME, MPFROMP(&wa)) && (IsRoot(wa.szCurrentPath1) || !IsFile(wa.szCurrentPath1)) && (IsRoot(wa.szCurrentPath2) || !IsFile(wa.szCurrentPath2))) { WinSendMsg(WinWindowFromID(WinWindowFromID(pd->hwndDir1, FID_CLIENT), DIR_CNR), UM_SETDIR, MPFROMP(wa.szCurrentPath1), MPVOID); WinSendMsg(WinWindowFromID(WinWindowFromID(pd->hwndDir2, FID_CLIENT), DIR_CNR), UM_SETDIR, MPFROMP(wa.szCurrentPath2), MPVOID); } } break; case IDM_COMPARE: pd = WinQueryWindowPtr(hwnd, QWL_USER + 4); if (pd) { WALK2 wa; memset(&wa, 0, sizeof(wa)); wa.size = sizeof(wa); *wa.szCurrentPath1 = 0; WinSendMsg(pd->hwndDir1, UM_CONTAINERDIR, MPFROMP(wa.szCurrentPath1), MPVOID); MakeValidDir(wa.szCurrentPath1); *wa.szCurrentPath2 = 0; WinSendMsg(pd->hwndDir2, UM_CONTAINERDIR, MPFROMP(wa.szCurrentPath2), MPVOID); MakeValidDir(wa.szCurrentPath2); if (WinDlgBox(HWND_DESKTOP, hwnd, WalkTwoCmpDlgProc, FM3ModHandle, WALK2_FRAME, MPFROMP(&wa)) && (IsRoot(wa.szCurrentPath1) || !IsFile(wa.szCurrentPath1)) && (IsRoot(wa.szCurrentPath2) || !IsFile(wa.szCurrentPath2))) { if (!*dircompare) { COMPARE *cmp; cmp = xmallocz(sizeof(COMPARE), pszSrcFile, __LINE__); if (cmp) { cmp->size = sizeof(COMPARE); strcpy(cmp->leftdir, wa.szCurrentPath1); strcpy(cmp->rightdir, wa.szCurrentPath2); cmp->listfile = wa.listfile; cmp->includesubdirs = wa.includesubdirs; cmp->includemetadirs = wa.includemetadirs; cmp->hwndParent = hwnd; cmp->dcd.hwndParent = hwnd; WinDlgBox(HWND_DESKTOP, HWND_DESKTOP, CompareDlgProc, FM3ModHandle, COMP_FRAME, MPFROMP(cmp)); } } else { CHAR szPath1[CCHMAXPATH]; CHAR szPath2[CCHMAXPATH]; runemf2(SEPARATE, HWND_DESKTOP, pszSrcFile, __LINE__, NULL, NULL, "%s %s %s", dircompare, BldQuotedFileName(szPath1, wa.szCurrentPath1), BldQuotedFileName(szPath2, wa.szCurrentPath2)); } } } break; case IDM_VTREE: WinSendMsg(hwnd, UM_SETUP2, MPFROMLONG(1), MPVOID); if (hwndTree) { // Hide WinShowWindow(hwndTree, FALSE); PostMsg(hwndTree, WM_CLOSE, MPVOID, MPVOID); hwndTree = NULLHANDLE; } else { // Create tree window if needed and make visible ULONG size = sizeof(ULONG); hwndTree = StartTreeCnr(hwnd, 3); PrfQueryProfileData(fmprof, realappname, "FM/4 TreeWidth", (PVOID)&TreeWidth, &size); TreeWidth = max(TreeWidth, 80); } yes = hwndTree != NULLHANDLE; PrfWriteProfileData(fmprof, realappname, "FM/4 TreeUp", (PVOID)&yes, sizeof(yes)); PostMsg(hwnd, UM_SIZE, MPVOID, MPVOID); break; case IDM_TILEBACKWARDS: WinSendMsg(hwnd, UM_SETUP2, MPFROMLONG(1), MPVOID); fTileBackwards = (fTileBackwards) ? FALSE : TRUE; PrfWriteProfileData(fmprof, FM3Str, "TileBackwards", (PVOID) & fTileBackwards, sizeof(BOOL)); PostMsg(hwnd, UM_SIZE, MPVOID, MPVOID); break; case IDM_NEXTWINDOW: case IDM_PREVWINDOW: pd = WinQueryWindowPtr(hwnd, QWL_USER + 4); if (pd) { HWND hwndFocus; if (hwndTree) { if (pd->hwndMax) { if (hwndTree == pd->hwndCurr) hwndFocus = pd->hwndMax; else hwndFocus = hwndTree; } else { if (hwndTree == pd->hwndCurr) hwndFocus = (SHORT1FROMMP(mp1) == IDM_PREVWINDOW) ? pd->hwndDir1 : pd->hwndDir2; else if (pd->hwndDir1 == pd->hwndCurr) hwndFocus = (SHORT1FROMMP(mp1) == IDM_PREVWINDOW) ? pd->hwndDir2 : hwndTree; else hwndFocus = (SHORT1FROMMP(mp1) == IDM_PREVWINDOW) ? hwndTree : pd->hwndDir1; } } else { if (pd->hwndMax) hwndFocus = pd->hwndMax; else hwndFocus = pd->hwndCurr == pd->hwndDir1 ? pd->hwndDir2 : pd->hwndDir1; } WinSetFocus(HWND_DESKTOP, hwndFocus); } break; case IDM_NOTEBOOK: case IDM_DIRCNRSETTINGS: case IDM_DIRVIEWSETTINGS: case IDM_DIRSORTSETTINGS: case IDM_COLLECTORVIEWSETTINGS: case IDM_COLLECTORSORTSETTINGS: case IDM_ARCHIVERSETTINGS: case IDM_TREECNRVIEWSETTINGS: case IDM_TREECNRSORTSETTINGS: case IDM_VIEWERSETTINGS: case IDM_VIEWERSETTINGS2: case IDM_COMPARESETTINGS: case IDM_MONOLITHICSETTINGS: case IDM_GENERALSETTINGS: case IDM_SCANSETTINGS: case IDM_BUBBLESSETTINGS: WinDlgBox(HWND_DESKTOP, hwnd, CfgDlgProc, FM3ModHandle, CFG_FRAME, MPFROMLONG(mp1)); // 15 Feb 08 SHL PostMsg(hwnd, UM_SIZE, MPVOID, MPVOID); break; case IDM_SEEALL: case IDM_GREP: case IDM_COLLECTOR: { HWND hwndC; hwndC = StartCollector(HWND_DESKTOP, 4); if (hwndC) { WinSetWindowPos(hwndC, HWND_TOP, 0, 0, 0, 0, SWP_SHOW | SWP_RESTORE | SWP_ACTIVATE); if (SHORT1FROMMP(mp1) == IDM_GREP) PostMsg(WinWindowFromID(hwndC, FID_CLIENT), WM_COMMAND, MPFROM2SHORT(IDM_GREP, 0), MPVOID); if (SHORT1FROMMP(mp1) == IDM_SEEALL) PostMsg(WinWindowFromID(hwndC, FID_CLIENT), WM_COMMAND, MPFROM2SHORT(IDM_SEEALL, 0), MPVOID); } } break; case IDM_EDITCOMMANDS: EditCommands(hwnd); break; default: if (SHORT1FROMMP(mp1) >= IDM_SWITCHSTART && SHORT1FROMMP(mp1) < IDM_SWITCHSTART + 499) { if (SHORT1FROMMP(mp1) - IDM_SWITCHSTART < numswitches) WinSwitchToProgram(switches[SHORT1FROMMP(mp1) - IDM_SWITCHSTART]); break; } else if (SHORT1FROMMP(mp1) >= IDM_COMMANDSTART && SHORT1FROMMP(mp1) < IDM_QUICKTOOLSTART) { INT x; HWND hwndCnr; if (!cmdloaded) load_commands(); hwndCnr = TopWindow(hwnd, (HWND) 0); hwndCnr = (HWND) WinSendMsg(WinWindowFromID(hwndCnr, FID_CLIENT), UM_CONTAINERHWND, MPVOID, MPVOID); if (!hwndCnr) { Runtime_Error(pszSrcFile, __LINE__, NULL); break; } x = SHORT1FROMMP(mp1); if (x >= 0) { RunCommand(hwndCnr, x); if (fUnHilite) { PCNRITEM pci; DIRCNRDATA *dcd = NULL; if (WinQueryWindowUShort(hwndCnr, QWS_ID) != TREE_CNR) dcd = INSTDATA(hwndCnr); pci = (PCNRITEM) WinSendMsg(hwndCnr, CM_QUERYRECORDEMPHASIS, MPFROMLONG(CMA_FIRST), MPFROMSHORT(CRA_CURSORED)); if (pci && (INT) pci != -1 && (pci->rc.flRecordAttr & CRA_SELECTED)) { UnHilite(hwnd, TRUE, dcd ? &dcd->lastselection : NULL, dcd ? dcd->ulItemsToUnHilite : 0); } } } } else if (SHORT1FROMMP(mp1) >= IDM_QUICKTOOLSTART && SHORT1FROMMP(mp1) < IDM_QUICKTOOLSTART + 51) { if (!qtloaded) load_quicktools(); if (quicktool[SHORT1FROMMP(mp1) - IDM_QUICKTOOLSTART - 1]) { if (fToolsChanged) save_tools(NULL); if (!load_tools(quicktool[SHORT1FROMMP(mp1) - IDM_QUICKTOOLSTART - 1])) load_tools(NULL); else { strcpy(lasttoolbar, quicktool[SHORT1FROMMP(mp1) - IDM_QUICKTOOLSTART - 1]); PrfWriteProfileString(fmprof, appname, "LastToolbar", lasttoolbar); } PostMsg(hwndToolback, UM_SETUP2, MPVOID, MPVOID); } } else { HWND hwndActive; hwndActive = TopWindow(hwnd, (HWND) 0); if (hwndActive) PostMsg(WinWindowFromID(hwndActive, FID_CLIENT), msg, mp1, mp2); } break; } return 0; } static MRESULT EXPENTRY MainWMOnce2(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2) { PERSON1DATA *pd; TID tid; SWP swp; PFNWP oldproc; HWND hwndMenu; DIRCNRDATA *dcd; HWND hwndC; ULONG which; ULONG size; BOOL yes; switch (msg) { case WM_CREATE: WinQueryWindowProcess(hwnd, &mypid, &tid); hwndMain = hwnd; WinSetWindowUShort(hwnd, QWL_USER + 8, 0); WinSetWindowUShort(hwnd, QWL_USER + 10, 0); WinSetWindowUShort(hwnd, QWL_USER + 12, 0); WinSetWindowUShort(hwnd, QWL_USER + 16, 0); if (xbeginthread(MakeMainObjWin, 245760, MPVOID, pszSrcFile, __LINE__) == -1) { PostMsg(hwnd, WM_CLOSE, MPVOID, MPVOID); return 0; } else DosSleep(32); pd = xmallocz(sizeof(PERSON1DATA), pszSrcFile, __LINE__); if (!pd) WinDestroyWindow(WinQueryWindow(hwnd, QW_PARENT)); else { pd->size = sizeof(PERSON1DATA); WinSetWindowPtr(hwnd, QWL_USER + 4, (PVOID) pd); } // create frame children (not client children, frame children) DosSleep(1); WinQueryWindowPos(WinQueryWindow(hwnd, QW_PARENT), &swp); oldproc = WinSubclassWindow(WinQueryWindow(hwnd, QW_PARENT), (PFNWP) MainFrameWndProc2); if (oldproc) WinSetWindowPtr(WinQueryWindow(hwnd, QW_PARENT), QWL_USER, (PVOID) oldproc); CommonCreateMainChildren(hwnd, &swp); hwndMenu = WinWindowFromID(WinQueryWindow(hwnd, QW_PARENT), FID_MENU); WinSetWindowULong(hwnd, QWL_USER, hwndMenu); // 2014-05-15 SHL FIXME to be sure needed // WinCheckMenuItem(hwndMenu, IDM_TOGGLEDRAGDIALOG, fDragndropDlg); // 2014-05-15 SHL CfgMenuInit(hwndMenu, FALSE); // 14 Feb 08 SHL SetConditionalCascade(hwndMenu, IDM_COMMANDLINESUBMENU, IDM_COMMANDLINE); if (fProtectOnly) { WinEnableMenuItem(hwndMenu, IDM_DOSCOMMANDLINE, FALSE); WinEnableMenuItem(hwndMenu, IDM_WINFULLSCREEN, FALSE); } SetConditionalCascade(hwndMenu, IDM_COMMANDSMENU, IDM_DOITYOURSELF); SetConditionalCascade(hwndMenu, IDM_TOOLSUBMENU, IDM_TOOLBAR); WinSetWindowText(WinWindowFromID(WinQueryWindow(hwnd, QW_PARENT), FID_TITLEBAR), "FM/2 Lite"); FixSwitchList(WinQueryWindow(hwnd, QW_PARENT), NULL); SetSysMenu(WinWindowFromID(WinQueryWindow(hwnd, QW_PARENT), FID_SYSMENU)); break; case UM_SETUP: pd = WinQueryWindowPtr(hwnd, QWL_USER + 4); if (pd) { CHAR s[CCHMAXPATH]; yes = TRUE; size = sizeof(BOOL); PrfQueryProfileData(fmprof, realappname, "FM/4 TreeUp", (PVOID)&yes, &size); if (yes) { hwndTree = StartTreeCnr(hwnd, 3); size = sizeof(TreeWidth); PrfQueryProfileData(fmprof, realappname, "FM/4 TreeWidth", (PVOID)&TreeWidth, &size); TreeWidth = max(TreeWidth, 80); } size = sizeof(BOOL); if (PrfQueryProfileData(fmprof, appname, "Toolbar", &yes, &size) && size && !yes) { WinSendMsg(hwnd, WM_COMMAND, MPFROM2SHORT(IDM_TOOLBAR, 0), MPVOID); } // 2017-12-30 SHL FIXME to support directory override from command line size = sizeof(s); *s = 0; if (PrfQueryProfileData(fmprof, realappname, "FM/4 Dir1", s, &size) && *s) MakeValidDir(s); else save_dir(s); pd->hwndLastDir = pd->hwndCurr = pd->hwndDir1 = StartDirCnr(hwnd, s, (HWND) 0, 3); size = sizeof(s); *s = 0; if (PrfQueryProfileData(fmprof, realappname, "FM/4 Dir2", s, &size) && *s) MakeValidDir(s); else save_dir(s); pd->hwndDir2 = StartDirCnr(hwnd, s, (HWND) 0, 3); WinSetFocus(HWND_DESKTOP, pd->hwndCurr); hwndC = WinWindowFromID(pd->hwndDir1, FID_CLIENT); if (hwndC) { dcd = WinQueryWindowPtr(WinWindowFromID(hwndC, DIR_CNR), QWL_USER); if (dcd) { size = sizeof(INT); if (PrfQueryProfileData(fmprof, realappname, "FM/4 Dir1.Sort", (PVOID) & dcd->sortFlags, &size) && size == sizeof(INT)) { if (!dcd->sortFlags) dcd->sortFlags = SORT_PATHNAME; } size = sizeof(MASK); if (PrfQueryProfileData(fmprof, realappname, "FM/4 Dir1.Filter", (PVOID) & dcd->mask, &size) && size) { if (*dcd->mask.szMask) WinSendMsg(WinWindowFromID(hwndC, DIR_CNR), UM_FILTER, MPFROMP(dcd->mask.szMask), MPVOID); } *(dcd->mask.prompt) = 0; size = sizeof(ULONG); if (PrfQueryProfileData(fmprof, realappname, "FM/4 Dir1.View", (PVOID) & dcd->flWindowAttr, &size) && size == sizeof(ULONG)) { CNRINFO cnri; memset(&cnri, 0, sizeof(CNRINFO)); cnri.cb = sizeof(CNRINFO); if (WinSendMsg(WinWindowFromID(hwndC, DIR_CNR), CM_QUERYCNRINFO, MPFROMP(&cnri), MPFROMLONG(sizeof(CNRINFO)))) { cnri.flWindowAttr = dcd->flWindowAttr; WinSendMsg(WinWindowFromID(hwndC, DIR_CNR), CM_SETCNRINFO, MPFROMP(&cnri), MPFROMLONG(CMA_FLWINDOWATTR)); } } } } hwndC = WinWindowFromID(pd->hwndDir2, FID_CLIENT); if (hwndC) { dcd = WinQueryWindowPtr(WinWindowFromID(hwndC, DIR_CNR), QWL_USER); if (dcd) { size = sizeof(INT); if (PrfQueryProfileData(fmprof, realappname, "FM/4 Dir2.Sort", (PVOID) & dcd->sortFlags, &size) && size == sizeof(INT)) { if (!dcd->sortFlags) dcd->sortFlags = SORT_PATHNAME; } size = sizeof(MASK); if (PrfQueryProfileData(fmprof, realappname, "FM/4 Dir2.Filter", (PVOID) & dcd->mask, &size) && size) { if (*dcd->mask.szMask) WinSendMsg(WinWindowFromID(hwndC, DIR_CNR), UM_FILTER, MPFROMP(dcd->mask.szMask), MPVOID); } *(dcd->mask.prompt) = 0; size = sizeof(ULONG); if (PrfQueryProfileData(fmprof, realappname, "FM/4 Dir2.View", (PVOID) & dcd->flWindowAttr, &size) && size == sizeof(ULONG)) { CNRINFO cnri; memset(&cnri, 0, sizeof(CNRINFO)); cnri.cb = sizeof(CNRINFO); if (WinSendMsg(WinWindowFromID(hwndC, DIR_CNR), CM_QUERYCNRINFO, MPFROMP(&cnri), MPFROMLONG(sizeof(CNRINFO)))) { cnri.flWindowAttr = dcd->flWindowAttr; WinSendMsg(WinWindowFromID(hwndC, DIR_CNR), CM_SETCNRINFO, MPFROMP(&cnri), MPFROMLONG(CMA_FLWINDOWATTR)); } } } } // 2014-06-11 SHL Initialize view, sort and filter button text if (pd->hwndDir1) { hwndC = WinWindowFromID(pd->hwndDir1, FID_CLIENT); if (hwndC) { dcd = WinQueryWindowPtr(WinWindowFromID(hwndC, DIR_CNR), QWL_USER); if (dcd && dcd->hwndCnr) PostMsg(dcd->hwndCnr, UM_SETUP2, MPVOID, MPVOID); } } if (pd->hwndDir2) { hwndC = WinWindowFromID(pd->hwndDir2, FID_CLIENT); if (hwndC) { dcd = WinQueryWindowPtr(WinWindowFromID(hwndC, DIR_CNR), QWL_USER); if (dcd && dcd->hwndCnr) PostMsg(dcd->hwndCnr, UM_SETUP2, MPVOID, MPVOID); } } which = 0; size = sizeof(ULONG); if (PrfQueryProfileData(fmprof, realappname, "FM/4 Max", (PVOID)&which, &size) && size == sizeof(ULONG) && which) { PostMsg(hwnd, UM_MAXIMIZE, MPFROMLONG(((which == 1) ? pd->hwndDir1 : pd->hwndDir2)), MPVOID); } PostMsg(hwnd, UM_SIZE, MPVOID, MPVOID); if (!hwndTree) PostMsg(hwnd, UM_BUILDDRIVEBAR, MPVOID, MPVOID); load_tools(NULL); PostMsg(hwndToolback, UM_SETUP2, MPVOID, MPVOID); fRunning = TRUE; } // if pd return 0; case WM_SAVEAPPLICATION: WinStoreWindowPos((CHAR *) FM2Str, "MainWindowPos2", WinQueryWindow(hwnd, QW_PARENT)); pd = WinQueryWindowPtr(hwnd, QWL_USER + 4); if (pd) { CHAR s[CCHMAXPATH]; HWND hwndC; DIRCNRDATA *dcd; ULONG flWindowAttr; *s = 0; WinSendMsg(pd->hwndDir1, UM_CONTAINERDIR, MPFROMP(s), MPVOID); if (*s) { MakeValidDir(s); PrfWriteProfileString(fmprof, realappname, "FM/4 Dir1", s); } *s = 0; WinSendMsg(pd->hwndDir2, UM_CONTAINERDIR, MPFROMP(s), MPVOID); if (*s) { MakeValidDir(s); PrfWriteProfileString(fmprof, realappname, "FM/4 Dir2", s); } flWindowAttr = (pd->hwndMax == pd->hwndDir1) ? 1 : (pd->hwndMax == pd->hwndDir2) ? 2 : 0; PrfWriteProfileData(fmprof, realappname, "FM/4 Max", &flWindowAttr, sizeof(flWindowAttr)); hwndC = WinWindowFromID(pd->hwndDir1, FID_CLIENT); if (hwndC) { dcd = WinQueryWindowPtr(WinWindowFromID(hwndC, DIR_CNR), QWL_USER); if (dcd) { flWindowAttr = dcd->flWindowAttr; if (!fLeaveTree && (flWindowAttr & CV_TREE)) { flWindowAttr &= (~(CV_TREE | CV_ICON | CV_DETAIL | CV_TEXT)); if (dcd->lastattr) { if (dcd->lastattr & CV_TEXT) flWindowAttr |= CV_TEXT; else if (dcd->lastattr & CV_DETAIL) flWindowAttr |= CV_DETAIL; else if (dcd->lastattr & CV_ICON) flWindowAttr |= CV_ICON; else flWindowAttr |= CV_NAME; } else flWindowAttr |= CV_NAME; } PrfWriteProfileData(fmprof, realappname, "FM/4 Dir1.Sort", (PVOID) & dcd->sortFlags, sizeof(INT)); PrfWriteProfileData(fmprof, realappname, "FM/4 Dir1.Filter", (PVOID) & dcd->mask, sizeof(MASK)); PrfWriteProfileData(fmprof, realappname, "FM/4 Dir1.View", (PVOID) & flWindowAttr, sizeof(ULONG)); } } hwndC = WinWindowFromID(pd->hwndDir2, FID_CLIENT); if (hwndC) { dcd = WinQueryWindowPtr(WinWindowFromID(hwndC, DIR_CNR), QWL_USER); if (dcd) { flWindowAttr = dcd->flWindowAttr; if (!fLeaveTree && (flWindowAttr & CV_TREE)) { flWindowAttr &= (~(CV_TREE | CV_ICON | CV_DETAIL | CV_TEXT)); if (dcd->lastattr) { if (dcd->lastattr & CV_TEXT) flWindowAttr |= CV_TEXT; else if (dcd->lastattr & CV_DETAIL) flWindowAttr |= CV_DETAIL; else if (dcd->lastattr & CV_ICON) flWindowAttr |= CV_ICON; else flWindowAttr |= CV_NAME; } else flWindowAttr |= CV_NAME; } PrfWriteProfileData(fmprof, realappname, "FM/4 Dir2.Sort", (PVOID) & dcd->sortFlags, sizeof(INT)); PrfWriteProfileData(fmprof, realappname, "FM/4 Dir2.Filter", (PVOID) & dcd->mask, sizeof(MASK)); PrfWriteProfileData(fmprof, realappname, "FM/4 Dir2.View", (PVOID) & flWindowAttr, sizeof(ULONG)); } } } break; } return WinDefWindowProc(hwnd, msg, mp1, mp2); } MRESULT EXPENTRY MainWndProc2(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2) { PERSON1DATA *pd; switch (msg) { case WM_SAVEAPPLICATION: case UM_SETUP: case WM_CREATE: return MainWMOnce2(hwnd, msg, mp1, mp2); case UM_THREADUSE: case UM_LOADFILE: case UM_BUILDDRIVEBAR: case WM_TIMER: return CommonMainWndProc(hwnd, msg, mp1, mp2); case UM_SETUP2: pd = WinQueryWindowPtr(hwnd, QWL_USER + 4); if (pd) { if (mp1) { if (pd->hwndDir1 && (!pd->hwndMax || pd->hwndMax == pd->hwndDir1)) BoxWindow(pd->hwndDir1, (HPS) 0, CLR_PALEGRAY); if (pd->hwndDir2 && (!pd->hwndMax || pd->hwndMax == pd->hwndDir2)) BoxWindow(pd->hwndDir2, (HPS) 0, CLR_PALEGRAY); if (hwndTree) BoxWindow(hwndTree, (HPS) 0, CLR_PALEGRAY); } else { if (hwndTree) BoxWindow(hwndTree, (HPS) 0, (pd->hwndCurr == hwndTree) ? CLR_RED : CLR_WHITE); if (!pd->hwndMax || pd->hwndMax == pd->hwndDir1) BoxWindow(pd->hwndDir1, (HPS) 0, (pd->hwndDir1 == pd->hwndCurr) ? CLR_RED : (pd->hwndDir1 == pd->hwndLastDir) ? CLR_DARKRED : CLR_PALEGRAY); if (!pd->hwndMax || pd->hwndMax == pd->hwndDir2) BoxWindow(pd->hwndDir2, (HPS) 0, (pd->hwndDir2 == pd->hwndCurr) ? CLR_RED : (pd->hwndDir2 == pd->hwndLastDir) ? CLR_DARKRED : CLR_PALEGRAY); } } return 0; case WM_BUTTON1DOWN: shiftstate = (SHORT2FROMMP(mp2) & (KC_ALT | KC_SHIFT | KC_CTRL)); if (hwndTree) { SWP swp; WinQueryWindowPos(hwndTree, &swp); if (SHORT1FROMMP(mp1) > (swp.x + swp.cx) - 3 && SHORT1FROMMP(mp1) < (swp.x + swp.cx) + 3) { SWP swpC; TRACKINFO track; WinQueryWindowPos(hwnd, &swpC); track.cxBorder = 4; track.cyBorder = 4; track.cxGrid = 1; track.cyGrid = 1; track.cxKeyboard = 8; track.cyKeyboard = 8; track.rclTrack.yBottom = 2; track.rclTrack.yTop = swpC.cy - 4; track.rclTrack.xLeft = 2; track.rclTrack.xRight = swp.x + swp.cx + 2; track.rclBoundary = track.rclTrack; track.rclBoundary.xRight = swpC.cx - 80; track.ptlMinTrackSize.x = 80; track.ptlMinTrackSize.y = swpC.cy - 4; track.ptlMaxTrackSize.x = swpC.cx - 80; track.ptlMaxTrackSize.y = swpC.cy - 4; track.fs = TF_RIGHT; if (WinTrackRect(hwnd, (HPS) 0, &track)) { TreeWidth = track.rclTrack.xRight - track.rclTrack.xLeft; PrfWriteProfileData(fmprof, realappname, "FM/4 TreeWidth", &TreeWidth, sizeof(ULONG)); WinSendMsg(hwnd, UM_SETUP2, MPFROMLONG(1), MPVOID); PostMsg(hwnd, UM_SIZE, MPVOID, MPVOID); } return (MRESULT) TRUE; } } break; case WM_MOUSEMOVE: shiftstate = (SHORT2FROMMP(mp2) & (KC_ALT | KC_SHIFT | KC_CTRL)); if (hwndTree) { SWP swp; if (WinQueryWindowPos(hwndTree, &swp)) { if (SHORT1FROMMP(mp1) > (swp.x + swp.cx) - 3 && SHORT1FROMMP(mp1) < (swp.x + swp.cx) + 3) WinSetPointer(HWND_DESKTOP, hptrEW); else WinSetPointer(HWND_DESKTOP, hptrArrow); } else WinSetPointer(HWND_DESKTOP, hptrArrow); } return (MRESULT) TRUE; case WM_BUTTON1UP: case WM_BUTTON2UP: case WM_BUTTON3UP: case WM_CHAR: shiftstate = (SHORT1FROMMP(mp1) & (KC_SHIFT | KC_ALT | KC_CTRL)); break; case UM_ADVISEFOCUS: pd = WinQueryWindowPtr(hwnd, QWL_USER + 4); if (mp1 && pd && (HWND) mp1 != pd->hwndCurr) { if ((HWND) mp1 != hwndTree) pd->hwndLastDir = (HWND) mp1; pd->hwndCurr = (HWND) mp1; WinSendMsg(hwnd, UM_SETUP2, MPVOID, MPVOID); } return 0; case UM_MAXIMIZE: if (mp1) { pd = WinQueryWindowPtr(hwnd, QWL_USER + 4); if (pd) { WinSendMsg(hwnd, UM_SETUP2, MPFROMLONG(1), MPVOID); if (pd->hwndMax != (HWND) mp1) { pd->hwndMax = (HWND) mp1; WinSetFocus(HWND_DESKTOP, pd->hwndMax); } else pd->hwndMax = (HWND) 0; PostMsg(hwnd, UM_SIZE, MPVOID, MPVOID); } } return 0; case WM_INITMENU: switch (SHORT1FROMMP(mp1)) { case IDM_FILESMENU: case IDM_VIEWSMENU: case IDM_DETAILSSETUP: case IDM_COMMANDSMENU: case IDM_SORTSUBMENU: pd = WinQueryWindowPtr(hwnd, QWL_USER + 4); if (pd) WinSendMsg(pd->hwndCurr, UM_INITMENU, mp1, mp2); break; case IDM_CONFIGMENU: // 2014-05-17 SHL FIXME to use SetToggleChecks maybe WinCheckMenuItem((HWND) mp2, IDM_TOOLSUBMENU, fToolbar); WinCheckMenuItem((HWND) mp2, IDM_AUTOVIEW, fAutoView); WinCheckMenuItem((HWND) mp2, IDM_CONFIRMDELETE, fConfirmDelete); // 2014-05-17 SHL WinCheckMenuItem((HWND) mp2, IDM_TOGGLEDRAGDIALOG, fDragndropDlg); // 2014-05-15 SHL break; case IDM_TOOLSUBMENU: // 2014-05-17 SHL FIXME to use SetToggleChecks maybe WinCheckMenuItem((HWND) mp2, IDM_TOOLBAR, fToolbar); WinCheckMenuItem((HWND) mp2, IDM_TEXTTOOLS, fTextTools); WinCheckMenuItem((HWND) mp2, IDM_TOOLTITLES, fToolTitles); break; case IDM_WINDOWSMENU: // 2014-05-17 SHL FIXME to use SetToggleChecks maybe WinCheckMenuItem((HWND) mp2, IDM_VTREE, (hwndTree != (HWND) 0)); WinCheckMenuItem((HWND) mp2, IDM_TILEBACKWARDS, fTileBackwards); SetupWinList((HWND) mp2, hwnd, WinQueryWindow(hwnd, QW_PARENT)); break; } break; case WM_SETFOCUS: if (mp2) PostMsg(hwnd, UM_FOCUSME, MPVOID, MPVOID); break; case UM_FOCUSME: pd = WinQueryWindowPtr(hwnd, QWL_USER + 4); if (pd) WinSetFocus(HWND_DESKTOP, pd->hwndCurr); return 0; case UM_RESCAN: return 0; case UM_SIZE: { SWP swp; if (WinQueryWindowPos(hwnd, &swp)) { mp1 = MPFROM2SHORT(swp.cx, swp.cy); mp2 = MPFROM2SHORT(swp.cx, swp.cy); } else return 0; } // intentional fallthru case WM_SIZE: pd = WinQueryWindowPtr(hwnd, QWL_USER + 4); if (mp1 && mp2 && pd && pd->hwndDir1 && pd->hwndDir2) { if (hwndTree) WinSetWindowPos(hwndTree, HWND_TOP, 2, 2, TreeWidth - 4, SHORT2FROMMP(mp2) - 4, SWP_SHOW | SWP_MOVE | SWP_SIZE); else TreeWidth = 0; if (!pd->hwndMax) { if (fTileBackwards) { WinSetWindowPos(pd->hwndDir1, HWND_TOP, (((SHORT1FROMMP(mp2) - TreeWidth) / 2) + TreeWidth) + 2, 2, ((SHORT1FROMMP(mp2) - TreeWidth) / 2) - 4, SHORT2FROMMP(mp2) - 4, SWP_SHOW | SWP_MOVE | SWP_SIZE); WinSetWindowPos(pd->hwndDir2, HWND_TOP, TreeWidth + 2, 2, ((SHORT1FROMMP(mp2) - TreeWidth) / 2) - 4, SHORT2FROMMP(mp2) - 4, SWP_SHOW | SWP_MOVE | SWP_SIZE); } else { WinSetWindowPos(pd->hwndDir1, HWND_TOP, TreeWidth + 2, 2, (SHORT1FROMMP(mp2) - TreeWidth) - 4, (SHORT2FROMMP(mp2) / 2) - 4, SWP_SHOW | SWP_MOVE | SWP_SIZE); WinSetWindowPos(pd->hwndDir2, HWND_TOP, TreeWidth + 2, (SHORT2FROMMP(mp2) / 2) + 2, (SHORT1FROMMP(mp2) - TreeWidth) - 4, (SHORT2FROMMP(mp2) / 2) - 4, SWP_SHOW | SWP_MOVE | SWP_SIZE); } } else { HWND hwndOther; WinSetWindowPos(pd->hwndMax, HWND_TOP, TreeWidth + 2, 2, (SHORT1FROMMP(mp2) - TreeWidth) - 4, SHORT2FROMMP(mp2) - 4, SWP_SHOW | SWP_MOVE | SWP_SIZE); hwndOther = (pd->hwndMax == pd->hwndDir1) ? pd->hwndDir2 : pd->hwndDir1; WinSetWindowPos(hwndOther, HWND_BOTTOM, 0, 0, 0, 0, SWP_HIDE); } WinSendMsg(hwnd, UM_SETUP2, MPVOID, MPVOID); } if (msg == UM_SIZE) return 0; break; case WM_ERASEBACKGROUND: WinFillRect((HPS) mp1, (PRECTL) mp2, 0x00d0d0d0); return 0; case WM_PAINT: { HPS hps; RECTL rcl; hps = WinBeginPaint(hwnd, NULLHANDLE, NULL); if (hps) { WinQueryWindowRect(hwnd, &rcl); WinFillRect(hps, (PRECTL) & rcl, CLR_PALEGRAY); WinEndPaint(hps); WinSendMsg(hwnd, UM_SETUP2, MPVOID, MPVOID); } } break; case UM_COMMAND: case WM_COMMAND: return MainWMCommand2(hwnd, msg, mp1, mp2); case WM_CLOSE: fAmClosing = TRUE; WinSendMsg(hwnd, WM_SAVEAPPLICATION, MPVOID, MPVOID); CloseChildren(hwnd); PostMsg(hwnd, UM_CLOSE, MPVOID, MPVOID); fAmQuitting = TRUE; // Let world know quit in progress DosSleep(1); return 0; // Suppress WinDefWindowProc WM_QUIT message generation case UM_CLOSE: WinDestroyWindow(WinQueryWindow(hwnd, QW_PARENT)); return 0; case WM_DESTROY: hwndMain = (HWND) 0; pd = WinQueryWindowPtr(hwnd, QWL_USER + 4); xfree(pd, pszSrcFile, __LINE__); if (!PostMsg((HWND) 0, WM_QUIT, MPVOID, MPVOID)) WinSendMsg((HWND) 0, WM_QUIT, MPVOID, MPVOID); break; } return WinDefWindowProc(hwnd, msg, mp1, mp2); } HWND StartFM32(HAB hab, INT argc, CHAR ** argv) { HWND hwndFrame, hwndClient; ULONG FrameFlags = FCF_TITLEBAR | FCF_SYSMENU | FCF_SIZEBORDER | FCF_MINMAX | FCF_ACCELTABLE | FCF_MENU | FCF_ICON | FCF_TASKLIST | FCF_NOBYTEALIGN; { INT x; for (x = 1; x < argc; x++) { if (*argv[x] == '+' && !argv[x][1]) fLogFile = TRUE; if (*argv[x] == '-') { if (argv[x][1]) strcpy(profile, &argv[x][1]); } } } { CHAR inipath[CCHMAXPATH], fullpath[CCHMAXPATH]; FILESTATUS3 fsa; if (PrfQueryProfileString(HINI_USERPROFILE, (CHAR *) FM2Str, "Home", NULL, inipath, sizeof(inipath))) { if (!DosQueryPathInfo(inipath, FIL_STANDARD, &fsa, sizeof(fsa))) { if (fsa.attrFile & FILE_DIRECTORY) { if (DosQueryPathInfo(inipath, FIL_QUERYFULLNAME, fullpath, sizeof(fullpath))) strcpy(fullpath, inipath); switch_to(fullpath); } } } } hwndFrame = WinCreateStdWindow(HWND_DESKTOP, WS_VISIBLE, &FrameFlags, (CHAR *) WC_MAINWND2, NULL, WS_VISIBLE | WS_ANIMATE, FM3ModHandle, MAIN2_FRAME, &hwndClient); if (hwndFrame) { hwndMainMenu = WinWindowFromID(hwndFrame, FID_MENU); if (!WinRestoreWindowPos((CHAR *) FM2Str, "MainWindowPos2", hwndFrame)) { ULONG fl = SWP_MOVE | SWP_SIZE; RECTL rcl; ULONG icz = WinQuerySysValue(HWND_DESKTOP, SV_CYICON) * 3L; ULONG bsz = WinQuerySysValue(HWND_DESKTOP, SV_CYSIZEBORDER); WinQueryWindowRect(HWND_DESKTOP, &rcl); rcl.yBottom += icz; rcl.yTop -= bsz; rcl.xLeft += bsz; rcl.xRight -= bsz; WinSetWindowPos(hwndFrame, HWND_TOP, rcl.xLeft, rcl.yBottom, rcl.xRight - rcl.xLeft, rcl.yTop - rcl.yBottom, fl); } if (fLogFile) { CHAR *modea = "a+"; LogFileHandle = xfsopen("FM2.LOG", modea, SH_DENYWR, pszSrcFile, __LINE__, TRUE); } if (hwndHelp) WinAssociateHelpInstance(hwndHelp, hwndFrame); PostMsg(hwndClient, UM_SETUP, MPFROMLONG(argc), MPFROMP(argv)); } return hwndFrame; } #pragma alloc_text(PERSON11,MainFrameWndProc2,MainWndProc2) #pragma alloc_text(PERSON12,StartFM32,MainWMOnce2) #pragma alloc_text(PERSON13,MainWMCommand2)