home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / os2 / memsz200.zip / MEMSIZE.CC < prev    next >
C/C++ Source or Header  |  1993-07-06  |  130KB  |  3,922 lines
  1. /***************************************************************** MEMSIZE.CC
  2.  *                                        *
  3.  * System Resources Monitor                            *
  4.  *                                        *
  5.  * (C) Copyright 1991-1993 by Richard W. Papo.                    *
  6.  *                                        *
  7.  * This is 'FreeWare'.    As such, it may be copied and distributed        *
  8.  * freely.  If you want to use part of it in your own program, please        *
  9.  * give credit where credit is due.  If you want to change the            *
  10.  * program, please refer the change request to me or send me the        *
  11.  * modified source code.  I can be reached at CompuServe 72607,3111.        *
  12.  *                                        *
  13.  ****************************************************************************/
  14.  
  15. #define INCL_BASE
  16. #define INCL_PM
  17. #include <os2.h>
  18.  
  19. #include <stdio.h>
  20. #include <stdlib.h>
  21. #include <string.h>
  22.  
  23. #include "debug.h"
  24. #include "support.h"
  25. #include "about.h"
  26. #include "profile.h"
  27. #include "settimer.h"
  28.  
  29. #include "memsize.h"
  30.  
  31. #define STATIC extern 
  32.  
  33. /****************************************************************************
  34.  *                                        *
  35.  *             Definitions & Declarations                *
  36.  *                                        *
  37.  ****************************************************************************/
  38.  
  39.   // Constants
  40.  
  41. #define PROGRAM_NAME       "MEMSIZE"
  42. #define CLASS_NAME        PROGRAM_NAME
  43.  
  44. #define DATEFMT_MM_DD_YY    (0x0000)
  45. #define DATEFMT_DD_MM_YY    (0x0001)
  46. #define DATEFMT_YY_MM_DD    (0x0002)
  47.  
  48. #define WM_REFRESH        (WM_USER)
  49.  
  50. #define MAX_DRIVES      (26)
  51. #define DRIVE_ERROR      (0xFFFFFFFFL)
  52.  
  53. enum
  54. {
  55.   ITEM_CLOCK,
  56.   ITEM_ELAPSEDTIME,
  57.   ITEM_MEMORYFREE,
  58.   ITEM_SWAPFILESIZE,
  59.   ITEM_SWAPDISKFREE,
  60.   ITEM_SPOOLFILESIZE,
  61.   ITEM_CPULOAD,
  62.   ITEM_TASKCOUNT,
  63.   ITEM_BASE_COUNT
  64. } ;
  65.  
  66.  
  67.   // Macros
  68.  
  69. #define max(a,b)    (((a) > (b)) ? (a) : (b))
  70. #define min(a,b)    (((a) < (b)) ? (a) : (b))
  71.  
  72.  
  73.   // Data Types
  74.  
  75. typedef struct          // Data structure for item to be monitored.
  76. {
  77.   BYTE     Name [80] ;           // Text for items profile name.
  78.   BOOL     Flag ;            // Flag: Show this item at this time?
  79.   BYTE     Label [80] ;           // Text to display on left part of line.
  80.   ULONG  Value ;           // Value to display on right part of line.
  81.   BOOL     Error ;           // Flag: Drive has had an error.
  82.   BYTE     MenuOption [80] ;     // Text to display in system menu.
  83.   USHORT MenuId ;           // ID for use in system menu.
  84.   ULONG  (*NewValue)           // Function to determine new value.
  85.     (PVOID,USHORT) ;
  86.   USHORT Parm ;            // Parameter to pass to NewValue function.
  87.   USHORT Divisor ;           // Amount to divide value by before display.
  88.   BYTE     Suffix ;           // Character to place after value.
  89. }
  90. ITEM, *PITEM ;
  91.  
  92. typedef struct          // Parameters saved to system.
  93. {
  94.   PITEM  Items ;        // Items to display.
  95.   int     ItemCount ;
  96.  
  97.   SWP     Position ;        // Window size & location.
  98.   BOOL     fPosition ;
  99.  
  100.   BOOL     HideControls ;     // User options.
  101.   BOOL     fHideControls ;
  102.  
  103.   USHORT TimerInterval ;
  104.   BOOL     fTimerInterval ;
  105.  
  106.   BYTE     FontNameSize [80] ;    // Presentation Parameters
  107.   BOOL     fFontNameSize ;
  108.  
  109.   COLOR  BackColor ;
  110.   BOOL     fBackColor ;
  111.  
  112.   COLOR  TextColor ;
  113.   BOOL     fTextColor ;
  114. }
  115. PROFILE, *PPROFILE ;
  116.  
  117. typedef struct        // Data structure for window.
  118. {
  119.   HAB         Anchor ;
  120.   HMODULE     Library ;
  121.   HINI           ProfileHandle ;
  122.  
  123.   ULONG      MaxCount ;
  124.   ULONG      IdleCounter ;
  125.   ULONG      IdleCount ;
  126.   TID         IdleLoopTID ;
  127.   TID         MonitorLoopTID ;
  128.  
  129.   PROFILE     Profile ;
  130.  
  131.   HWND           hwndTitleBar ;
  132.   HWND           hwndSysMenu ;
  133.   HWND         hwndMinMax ;
  134.  
  135.   ULONG      Drives ;
  136.  
  137.   BYTE           SwapPath [_MAX_PATH] ;
  138.   ULONG          MinFree ;
  139.  
  140.   PCHAR      SpoolPath ;
  141.  
  142.   long         Width ;
  143.   long         Height ;
  144.  
  145.   COUNTRYINFO     CountryInfo ;
  146.  
  147.   BYTE         Day [40] ;
  148.   BYTE         Days [40] ;
  149.   BYTE         DriveError [40] ;
  150. }
  151. DATA, *PDATA ;
  152.  
  153. typedef struct
  154. {
  155.   HAB Anchor ;
  156.   HMODULE Library ;
  157.   HINI ProfileHandle ;
  158. }
  159. PARMS, *PPARMS ;
  160.  
  161. typedef struct
  162. {
  163.   volatile PULONG Counter ;
  164.   PUSHORT Interval ;
  165.   HWND Owner ;
  166. }
  167. MONITOR_PARMS, *PMONITOR_PARMS ;
  168.  
  169.  
  170.   // Function Prototypes
  171.  
  172. extern INT main ( INT argc, PCHAR argv[] ) ;
  173.  
  174. STATIC MRESULT EXPENTRY MessageProcessor
  175. (
  176.   HWND hwnd,
  177.   USHORT msg,
  178.   MPARAM mp1,
  179.   MPARAM mp2
  180. ) ;
  181.  
  182. STATIC METHODFUNCTION Create ;
  183. STATIC METHODFUNCTION Destroy ;
  184. STATIC METHODFUNCTION Size ;
  185. STATIC METHODFUNCTION SaveApplication ;
  186. STATIC METHODFUNCTION Paint ;
  187. STATIC METHODFUNCTION Command ;
  188. STATIC METHODFUNCTION ResetDefaults ;
  189. STATIC METHODFUNCTION HideControlsCmd ;
  190. STATIC METHODFUNCTION SetTimer ;
  191. STATIC METHODFUNCTION About ;
  192. STATIC METHODFUNCTION ButtonDown ;
  193. STATIC METHODFUNCTION ButtonDblClick ;
  194. STATIC METHODFUNCTION PresParamChanged ;
  195. STATIC METHODFUNCTION SysColorChange ;
  196. STATIC METHODFUNCTION QueryKeysHelp ;
  197. STATIC METHODFUNCTION HelpError ;
  198. STATIC METHODFUNCTION ExtHelpUndefined ;
  199. STATIC METHODFUNCTION HelpSubitemNotFound ;
  200. STATIC METHODFUNCTION Refresh ;
  201.  
  202. STATIC int GetProfile ( HAB Anchor, HMODULE Library, HINI ProfileHandle, PPROFILE Profile ) ;
  203. STATIC VOID PutProfile ( HINI ProfileHandle, PPROFILE Profile ) ;
  204.  
  205. STATIC PSZ ScanSystemConfig ( HAB Anchor, PSZ Keyword ) ;
  206.  
  207. STATIC void ResizeWindow ( HWND hwnd, PPROFILE Profile ) ;
  208.  
  209. STATIC void HideControls
  210. (
  211.   BOOL fHide,
  212.   HWND hwndFrame,
  213.   HWND hwndSysMenu,
  214.   HWND hwndTitleBar,
  215.   HWND hwndMinMax
  216. ) ;
  217.  
  218. STATIC void UpdateWindow ( HWND hwnd, PDATA Data, BOOL All ) ;
  219.  
  220. STATIC ULONG ComputeTime       ( PVOID Data, USHORT Dummy ) ;
  221. STATIC ULONG ComputeElapsed    ( PVOID Data, USHORT Dummy ) ;
  222. STATIC ULONG ComputeFreeMemory ( PVOID Data, USHORT Dummy ) ;
  223. STATIC ULONG ComputeSwapSize   ( PVOID Data, USHORT Dummy ) ;
  224. STATIC ULONG ComputeSwapFree   ( PVOID Data, USHORT Dummy ) ;
  225. STATIC ULONG ComputeSpoolSize  ( PVOID Data, USHORT Dummy ) ;
  226. STATIC ULONG ComputeCpuLoad    ( PVOID Data, USHORT Dummy ) ;
  227. STATIC ULONG ComputeTaskCount  ( PVOID Data, USHORT Dummy ) ;
  228. STATIC ULONG ComputeDriveFree  ( PVOID Data, USHORT Drive ) ;
  229.  
  230. STATIC VOID MonitorLoopThread ( PMONITOR_PARMS Parms ) ;
  231.  
  232. STATIC VOID UpdateDriveList
  233. (
  234.   HAB Anchor,
  235.   HMODULE Library,
  236.   HINI ProfileHandle,
  237.   PPROFILE Profile,
  238.   ULONG OldDrives,
  239.   ULONG NewDrives
  240. ) ;
  241.  
  242. STATIC BOOL CheckDrive ( USHORT Drive, PBYTE FileSystem ) ;
  243.  
  244. STATIC VOID RebuildDisplayItems ( HWND hwnd, PDATA Data ) ;
  245.  
  246. STATIC ULONG CalibrateLoadMeter ( VOID ) ;
  247.  
  248. STATIC VOID CounterThread ( PULONG Counter ) ;
  249.  
  250. STATIC HINI OpenProfile ( PSZ Name, HAB Anchor, HMODULE Library, HWND HelpInstance ) ;
  251.  
  252.  
  253.   // Global Data (private)
  254.  
  255. static HMTX ItemSemaphore ;
  256.  
  257. static ITEM Items [ ITEM_BASE_COUNT + MAX_DRIVES ] =
  258. {
  259.   {
  260.     "ShowTime",      TRUE, "", 0, FALSE, "", IDM_SHOW_CLOCK,
  261.     ComputeTime,       0,    0, ' '
  262.   },
  263.  
  264.   {
  265.     "ShowElapsed",   TRUE, "", 0, FALSE, "", IDM_SHOW_ELAPSED,
  266.     ComputeElapsed,    0,    0, ' '
  267.   },
  268.  
  269.   {
  270.     "ShowMemory",    TRUE, "", 0, FALSE, "", IDM_SHOW_MEMORY,
  271.     ComputeFreeMemory, 0, 1024, 'K'
  272.   },
  273.  
  274.   {
  275.     "ShowSwapsize",  TRUE, "", 0, FALSE, "", IDM_SHOW_SWAPSIZE,
  276.     ComputeSwapSize,   0, 1024, 'K'
  277.   },
  278.  
  279.   {
  280.     "ShowSwapfree",  TRUE, "", 0, FALSE, "", IDM_SHOW_SWAPFREE,
  281.     ComputeSwapFree,   0, 1024, 'K'
  282.   },
  283.  
  284.   {
  285.     "ShowSpoolSize", TRUE, "", 0, FALSE, "", IDM_SHOW_SPOOLSIZE,
  286.     ComputeSpoolSize,  0, 1024, 'K'
  287.   },
  288.  
  289.   {
  290.     "ShowCpuLoad",   TRUE, "", 0, FALSE, "", IDM_SHOW_CPULOAD,
  291.     ComputeCpuLoad,    0,    0, '%'
  292.   },
  293.  
  294.   {
  295.     "ShowTaskCount", TRUE, "", 0, FALSE, "", IDM_SHOW_TASKCOUNT,
  296.     ComputeTaskCount,  0,    0, ' '
  297.   }
  298. } ;
  299.  
  300.  
  301. /****************************************************************************
  302.  *                                        *
  303.  *    Program Mainline                            *
  304.  *                                        *
  305.  ****************************************************************************/
  306.  
  307. extern INT main ( INT argc, PCHAR argv[] )
  308. {
  309.  /***************************************************************************
  310.   * Initialize for PM.    Abort if unable to do so.                *
  311.   ***************************************************************************/
  312.  
  313.   HAB Anchor = WinInitialize ( 0 ) ;
  314.   if ( Anchor == NULL )
  315.   {
  316.     return ( 1 ) ;
  317.   }
  318.  
  319.  /***************************************************************************
  320.   * Create the application message queue.  Abort if unable to do so.        *
  321.   ***************************************************************************/
  322.  
  323.   HMQ MessageQueue = WinCreateMsgQueue ( Anchor, 0 ) ;
  324.   if ( MessageQueue == NULL )
  325.   {
  326.     WinTerminate ( Anchor ) ;
  327.     return ( 1 ) ;
  328.   }
  329.  
  330.  /***************************************************************************
  331.   * Now WIN and GPI calls will work.  Open the language DLL.            *
  332.   ***************************************************************************/
  333.  
  334.   HMODULE Library ;
  335.   if ( DosLoadModule ( NULL, 0, (PSZ)PROGRAM_NAME, &Library ) )
  336.   {
  337.     Debug ( HWND_DESKTOP, "ERROR: Unable to load " PROGRAM_NAME ".DLL." ) ;
  338.     WinDestroyMsgQueue ( MessageQueue ) ;
  339.     WinTerminate ( Anchor ) ;
  340.     return ( 1 ) ;
  341.   }
  342.  
  343.  /***************************************************************************
  344.   * Get the program title.                                        *
  345.   ***************************************************************************/
  346.  
  347.   BYTE Title [80] ;
  348.   WinLoadString ( Anchor, Library, IDS_TITLE, sizeof(Title), Title ) ;
  349.  
  350.  /***************************************************************************
  351.   * Decipher command-line parameters.                        *
  352.   ***************************************************************************/
  353.  
  354.   BOOL Reset = FALSE ;
  355.   BYTE ResetCommand [40] ;
  356.  
  357.   WinLoadString ( Anchor, Library, IDS_PARMS_RESET, sizeof(ResetCommand), ResetCommand ) ;
  358.   WinUpper ( Anchor, NULL, NULL, ResetCommand ) ;
  359.  
  360.   while ( --argc )
  361.   {
  362.     argv ++ ;
  363.  
  364.     WinUpper ( Anchor, NULL, NULL, (PSZ)*argv ) ;
  365.  
  366.     if ( *argv[0] == '?' )
  367.     {
  368.       BYTE Message [200] ;
  369.  
  370.       WinLoadString ( Anchor, Library, IDS_PARAMETERLIST,
  371.     sizeof(Message), Message ) ;
  372.       WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  373.     Title, 0, MB_ENTER | MB_NOICON ) ;
  374.  
  375.       WinDestroyMsgQueue ( MessageQueue ) ;
  376.       WinTerminate ( Anchor ) ;
  377.       return ( 1 ) ;
  378.     }
  379.  
  380.     if ( !strcmp ( *argv, (PCHAR)ResetCommand ) )
  381.     {
  382.       Reset = TRUE ;
  383.       continue ;
  384.     }
  385.  
  386.     {
  387.       BYTE Format [200] ;
  388.       BYTE Message [200] ;
  389.  
  390.       WinLoadString ( Anchor, Library, IDS_ERROR_INVALIDPARM,
  391.     sizeof(Format), Format ) ;
  392.       sprintf ( (PCHAR)Message, (PCHAR)Format, *argv ) ;
  393.       WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  394.     Title, 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  395.  
  396.       WinDestroyMsgQueue ( MessageQueue ) ;
  397.       WinTerminate ( Anchor ) ;
  398.       return ( 1 ) ;
  399.     }
  400.   }
  401.  
  402.  /***************************************************************************
  403.   * Create the help instance.                            *
  404.   ***************************************************************************/
  405.  
  406.   HELPINIT HelpInit =
  407.   {
  408.     sizeof ( HELPINIT ),
  409.     0L,
  410.     NULL,
  411.     MAKEP ( 0xFFFF, ID_MAIN ),
  412.     0,
  413.     0,
  414.     0,
  415.     0,
  416.     NULL,
  417.     CMIC_HIDE_PANEL_ID,
  418.     (PSZ) ( PROGRAM_NAME ".HLP" )
  419.   } ;
  420.  
  421.   BYTE HelpTitle [80] ;
  422.   WinLoadString ( Anchor, Library, IDS_HELPTITLE, sizeof(HelpTitle), HelpTitle ) ;
  423.   HelpInit.pszHelpWindowTitle = HelpTitle ;
  424.  
  425.   HWND hwndHelp = WinCreateHelpInstance ( Anchor, &HelpInit ) ;
  426.  
  427.   if ( hwndHelp == NULL )
  428.   {
  429.     BYTE Message [200] ;
  430.  
  431.     WinLoadString ( Anchor, Library, IDS_ERROR_WINCREATEHELPINSTANCE,
  432.       sizeof(Message), Message ) ;
  433.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  434.       Title, 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  435.   }
  436.  
  437.  /***************************************************************************
  438.   * Open/create the profile file.                                       *
  439.   ***************************************************************************/
  440.  
  441.   HINI ProfileHandle = OpenProfile ( PSZ(PROGRAM_NAME), Anchor, Library, hwndHelp ) ;
  442.  
  443.   if ( ProfileHandle == NULL )
  444.   {
  445.     BYTE Message [200] ;
  446.  
  447.     WinLoadString ( Anchor, Library, IDS_ERROR_PRFOPENPROFILE,
  448.       sizeof(Message), Message ) ;
  449.     Log ( "%s\r\n", Message ) ;
  450.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  451.       Title, 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  452.     DosFreeModule ( Library ) ;
  453.     WinDestroyMsgQueue ( MessageQueue ) ;
  454.     WinTerminate ( Anchor ) ;
  455.     return ( 1 ) ;
  456.   }
  457.  
  458.  /***************************************************************************
  459.   * If we're going to reset the program's profile, do it now.               *
  460.   ***************************************************************************/
  461.  
  462.   if ( Reset )
  463.   {
  464.     PrfWriteProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, NULL, NULL, 0 ) ;
  465.   }
  466.  
  467.  /***************************************************************************
  468.   * Create the frame window.                            *
  469.   ***************************************************************************/
  470.  
  471.   #pragma pack(2)
  472.   struct
  473.   {
  474.     USHORT Filler ;
  475.     USHORT cb ;
  476.     ULONG  flCreateFlags ;
  477.     USHORT hmodResources ;
  478.     USHORT idResources ;
  479.   }
  480.   fcdata ;
  481.   #pragma pack()
  482.  
  483.   fcdata.cb = sizeof(fcdata) - sizeof(fcdata.Filler) ;
  484.   fcdata.flCreateFlags =
  485.     FCF_TITLEBAR | FCF_SYSMENU | FCF_BORDER |
  486.     FCF_ICON | FCF_MINBUTTON | FCF_NOBYTEALIGN | FCF_ACCELTABLE ;
  487.   fcdata.hmodResources = 0 ;
  488.   fcdata.idResources = ID_MAIN ;
  489.  
  490.   HWND hwndFrame = WinCreateWindow
  491.   (
  492.     HWND_DESKTOP,
  493.     WC_FRAME,
  494.     Title,
  495.     0,
  496.     0, 0, 0, 0,
  497.     HWND_DESKTOP,
  498.     HWND_TOP,
  499.     ID_MAIN,
  500.     &fcdata.cb,
  501.     NULL
  502.   ) ;
  503.  
  504.   if ( hwndFrame == NULL )
  505.   {
  506.     BYTE Message [200] ;
  507.  
  508.     WinLoadString ( Anchor, Library, IDS_ERROR_WINCREATEFRAME,
  509.       sizeof(Message), Message ) ;
  510.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  511.       Title, 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  512.  
  513.     PrfCloseProfile ( ProfileHandle ) ;
  514.     DosFreeModule ( Library ) ;
  515.     WinDestroyMsgQueue ( MessageQueue ) ;
  516.     WinTerminate ( Anchor ) ;
  517.     return ( 1 ) ;
  518.   }
  519.  
  520.  /***************************************************************************
  521.   * Associate the help instance with the frame window.                *
  522.   ***************************************************************************/
  523.  
  524.   if ( hwndHelp )
  525.   {
  526.     WinAssociateHelpInstance ( hwndHelp, hwndFrame ) ;
  527.   }
  528.  
  529.  /***************************************************************************
  530.   * Register the window class.                            *
  531.   ***************************************************************************/
  532.  
  533.   if ( NOT WinRegisterClass ( Anchor, (PSZ)CLASS_NAME, MessageProcessor,
  534.     CS_MOVENOTIFY, sizeof(PVOID) ) )
  535.   {
  536.     BYTE Format [200] ;
  537.     BYTE Message [200] ;
  538.  
  539.     WinLoadString ( Anchor, Library, IDS_ERROR_WINREGISTERCLASS,
  540.       sizeof(Format), Format ) ;
  541.     sprintf ( PCHAR(Message), PCHAR(Format), CLASS_NAME ) ;
  542.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  543.       Title, 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  544.  
  545.     PrfCloseProfile ( ProfileHandle ) ;
  546.     DosFreeModule ( Library ) ;
  547.     WinDestroyMsgQueue ( MessageQueue ) ;
  548.     WinTerminate ( Anchor ) ;
  549.     return ( 1 ) ;
  550.   }
  551.  
  552.  /***************************************************************************
  553.   * Create client window.  If this fails, destroy frame and return.        *
  554.   ***************************************************************************/
  555.  
  556.   PARMS Parms ;
  557.   Parms.Anchor = Anchor ;
  558.   Parms.Library = Library ;
  559.   Parms.ProfileHandle = ProfileHandle ;
  560.  
  561.   HWND hwndClient = WinCreateWindow
  562.   (
  563.     hwndFrame,
  564.     (PSZ)CLASS_NAME,
  565.     (PSZ)"",
  566.     0,
  567.     0, 0, 0, 0,
  568.     hwndFrame,
  569.     HWND_BOTTOM,
  570.     FID_CLIENT,
  571.     &Parms,
  572.     NULL
  573.   ) ;
  574.  
  575.   if ( hwndClient == NULL )
  576.   {
  577.     BYTE Message [200] ;
  578.  
  579.     WinLoadString ( Anchor, Library, IDS_ERROR_WINCREATEWINDOW,
  580.       sizeof(Message), Message ) ;
  581.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  582.       Title, 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  583.  
  584.     WinDestroyWindow ( hwndFrame ) ;
  585.     if ( hwndHelp )
  586.     {
  587.       WinDestroyHelpInstance ( hwndHelp ) ;
  588.     }
  589.     PrfCloseProfile ( ProfileHandle ) ;
  590.     DosFreeModule ( Library ) ;
  591.     WinDestroyMsgQueue ( MessageQueue ) ;
  592.     WinTerminate ( Anchor ) ;
  593.     return ( 1 ) ;
  594.   }
  595.  
  596.  /***************************************************************************
  597.   * Wait for and process messages to the window's queue.  Terminate         *
  598.   *   when the WM_QUIT message is received.                    *
  599.   ***************************************************************************/
  600.  
  601.   QMSG QueueMessage ;
  602.   while ( WinGetMsg ( Anchor, &QueueMessage, NULL, 0, 0 ) )
  603.   {
  604.     WinDispatchMsg ( Anchor, &QueueMessage ) ;
  605.   }
  606.  
  607.  /***************************************************************************
  608.   * Discard all that was requested of the system and terminate.         *
  609.   ***************************************************************************/
  610.  
  611.   WinDestroyWindow ( hwndFrame ) ;
  612.  
  613.   if ( hwndHelp )
  614.   {
  615.     WinDestroyHelpInstance ( hwndHelp ) ;
  616.   }
  617.  
  618.   PrfCloseProfile ( ProfileHandle ) ;
  619.  
  620.   DosFreeModule ( Library ) ;
  621.  
  622.   WinDestroyMsgQueue ( MessageQueue ) ;
  623.  
  624.   WinTerminate ( Anchor ) ;
  625.  
  626.   return ( 0 ) ;
  627. }
  628.  
  629. /****************************************************************************
  630.  *                                        *
  631.  *    Window Message Processor                        *
  632.  *                                        *
  633.  ****************************************************************************/
  634.  
  635. STATIC MRESULT EXPENTRY MessageProcessor
  636. (
  637.   HWND hwnd,
  638.   USHORT msg,
  639.   MPARAM mp1,
  640.   MPARAM mp2
  641. )
  642. {
  643.  /***************************************************************************
  644.   * Dispatch the message according to the method table and return the        *
  645.   *   result.  Any messages not defined above get handled by the system     *
  646.   *   default window processor.                         *
  647.   ***************************************************************************/
  648.  
  649.   static METHOD Methods [] =
  650.   {
  651.     { WM_CREATE,        Create            },
  652.     { WM_DESTROY,        Destroy         },
  653.     { WM_SIZE,            Size            },
  654.     { WM_MOVE,            Size            },
  655.     { WM_SAVEAPPLICATION,    SaveApplication     },
  656.     { WM_PAINT,         Paint            },
  657.     { WM_BUTTON1DOWN,        ButtonDown        },
  658.     { WM_BUTTON2DOWN,        ButtonDown        },
  659.     { WM_BUTTON1DBLCLK,     ButtonDblClick        },
  660.     { WM_BUTTON2DBLCLK,     ButtonDblClick        },
  661.     { WM_PRESPARAMCHANGED,    PresParamChanged    },
  662.     { WM_SYSCOLORCHANGE,    SysColorChange        },
  663.     { WM_COMMAND,        Command         },
  664.     { HM_QUERY_KEYS_HELP,    QueryKeysHelp        },
  665.     { HM_ERROR,         HelpError        },
  666.     { HM_EXT_HELP_UNDEFINED,    ExtHelpUndefined    },
  667.     { HM_HELPSUBITEM_NOT_FOUND, HelpSubitemNotFound },
  668.     { WM_REFRESH,        Refresh         }
  669.   } ;
  670.  
  671.   return ( DispatchMessage ( hwnd, msg, mp1, mp2, Methods, sizeof(Methods)/sizeof(Methods[0]), WinDefWindowProc ) ) ;
  672. }
  673.  
  674. /****************************************************************************
  675.  *                                        *
  676.  *    Create the main window.                         *
  677.  *                                        *
  678.  ****************************************************************************/
  679.  
  680. STATIC MRESULT APIENTRY Create
  681. (
  682.   HWND hwnd,
  683.   USHORT msg,
  684.   MPARAM mp1,
  685.   MPARAM mp2
  686. )
  687. {
  688.  /***************************************************************************
  689.   * Allocate instance data.                            *
  690.   ***************************************************************************/
  691.  
  692.   PDATA Data = malloc ( sizeof(DATA) ) ;
  693.  
  694.   memset ( Data, 0, sizeof(DATA) ) ;
  695.  
  696.   WinSetWindowPtr ( hwnd, QWL_USER, Data ) ;
  697.  
  698.  /***************************************************************************
  699.   * Grab any parameters from the WM_CREATE message.                *
  700.   ***************************************************************************/
  701.  
  702.   PPARMS Parms = (PPARMS) PVOIDFROMMP ( mp1 ) ;
  703.  
  704.   Data->Anchor = Parms->Anchor ;
  705.   Data->Library = Parms->Library ;
  706.   Data->ProfileHandle = Parms->ProfileHandle ;
  707.  
  708.  /***************************************************************************
  709.   * Create the item list MUTEX semaphore.                                   *
  710.   ***************************************************************************/
  711.  
  712.   DosCreateMutexSem ( NULL, &ItemSemaphore, DC_SEM_SHARED, 0 ) ;
  713.  
  714.  /***************************************************************************
  715.   * Get the current drive mask.                         *
  716.   ***************************************************************************/
  717.  
  718.   ULONG Drive ;
  719.   DosQueryCurrentDisk ( &Drive, &Data->Drives ) ;
  720.  
  721.  /***************************************************************************
  722.   * Get profile data. Try the OS2.INI first, then try for private INI.      *
  723.   *   If obtained from OS2.INI, erase it afterwards.                        *
  724.   ***************************************************************************/
  725.  
  726.   if ( GetProfile ( Data->Anchor, Data->Library, HINI_USERPROFILE, &Data->Profile ) )
  727.   {
  728.     GetProfile ( Data->Anchor, Data->Library, Data->ProfileHandle, &Data->Profile ) ;
  729.   }
  730.   else
  731.   {
  732.     PrfWriteProfileData ( HINI_USERPROFILE, (PSZ)PROGRAM_NAME, NULL, NULL, 0 ) ;
  733.   }
  734.  
  735.  /***************************************************************************
  736.   * Get country information.                            *
  737.   ***************************************************************************/
  738.  
  739.   {
  740.     COUNTRYCODE CountryCode ;
  741.     ULONG Count ;
  742.     ULONG Status ;
  743.  
  744.     CountryCode.country = 0 ;
  745.     CountryCode.codepage = 0 ;
  746.  
  747.     Status = DosGetCtryInfo ( sizeof(Data->CountryInfo), &CountryCode,
  748.       &Data->CountryInfo, &Count ) ;
  749.     if ( Status )
  750.     {
  751.       BYTE Message [80] ;
  752.       WinLoadMessage ( Data->Anchor, Data->Library, IDS_ERROR_DOSGETCTRYINFO,
  753.     sizeof(Message), Message ) ;
  754.       Debug ( hwnd, (PCHAR)Message, Status ) ;
  755.       Data->CountryInfo.fsDateFmt = DATEFMT_MM_DD_YY ;
  756.       Data->CountryInfo.fsTimeFmt = 0 ;
  757.       Data->CountryInfo.szDateSeparator[0] = '/' ;
  758.       Data->CountryInfo.szDateSeparator[1] = 0 ;
  759.       Data->CountryInfo.szTimeSeparator[0] = ':' ;
  760.       Data->CountryInfo.szTimeSeparator[1] = 0 ;
  761.       Data->CountryInfo.szThousandsSeparator[0] = ',' ;
  762.       Data->CountryInfo.szThousandsSeparator[1] = 0 ;
  763.     }
  764.   }
  765.  
  766.  /***************************************************************************
  767.   * Get the texts that may be needed every second.                *
  768.   ***************************************************************************/
  769.  
  770.   WinLoadString ( Data->Anchor, Data->Library, IDS_DAY, sizeof(Data->Day), Data->Day ) ;
  771.   WinLoadString ( Data->Anchor, Data->Library, IDS_DAYS, sizeof(Data->Days), Data->Days ) ;
  772.   WinLoadString ( Data->Anchor, Data->Library, IDS_DRIVEERROR, sizeof(Data->DriveError), Data->DriveError ) ;
  773.  
  774.  /***************************************************************************
  775.   * Get the frame handle.                            *
  776.   ***************************************************************************/
  777.  
  778.   HWND hwndFrame = WinQueryWindow ( hwnd, QW_PARENT ) ;
  779.  
  780.  /***************************************************************************
  781.   * Get the control window handles.                        *
  782.   ***************************************************************************/
  783.  
  784.   Data->hwndSysMenu  = WinWindowFromID ( hwndFrame, FID_SYSMENU  ) ;
  785.   Data->hwndTitleBar = WinWindowFromID ( hwndFrame, FID_TITLEBAR ) ;
  786.   Data->hwndMinMax   = WinWindowFromID ( hwndFrame, FID_MINMAX   ) ;
  787.  
  788.  /***************************************************************************
  789.   * Create the submenu window for Display Items.                *
  790.   ***************************************************************************/
  791.  
  792.   static MENUITEM MenuItems [] =
  793.   {
  794.     { MIT_END, MIS_TEXT,      0, IDM_SAVE_APPLICATION, NULL, 0 },
  795.     { MIT_END, MIS_TEXT,      0, IDM_RESET_DEFAULTS,   NULL, 0 },
  796.     { MIT_END, MIS_TEXT,      0, IDM_HIDE_CONTROLS,    NULL, 0 },
  797.     { MIT_END, MIS_TEXT,      0, IDM_SET_TIMER,        NULL, 0 },
  798.     { MIT_END, MIS_SUBMENU,   0, IDM_DISPLAY_ITEMS,    NULL, 0 },
  799.   } ;
  800.  
  801.   SHORT idSysMenu = SHORT1FROMMR ( WinSendMsg ( Data->hwndSysMenu, MM_ITEMIDFROMPOSITION, NULL, NULL ) ) ;
  802.  
  803.   MENUITEM MenuItem ;
  804.   WinSendMsg ( Data->hwndSysMenu, MM_QUERYITEM, MPFROM2SHORT(idSysMenu,FALSE), MPFROMP(&MenuItem) ) ;
  805.  
  806.   HWND hwndSysSubMenu = MenuItem.hwndSubMenu ;
  807.  
  808.   HWND hwndSubMenu = WinCreateWindow ( hwndSysSubMenu, WC_MENU, (PSZ)"",
  809.     WS_VISIBLE | WS_CLIPCHILDREN | WS_CLIPSIBLINGS,
  810.     0, 0, 0, 0, hwndSysSubMenu, HWND_TOP, IDM_DISPLAY_ITEMS, NULL, NULL ) ;
  811.  
  812.   MenuItems[IDM_DISPLAY_ITEMS-MenuItems[0].id].hwndSubMenu = hwndSubMenu ;
  813.  
  814.  /***************************************************************************
  815.   * Add basic extensions to the system menu.                    *
  816.   ***************************************************************************/
  817.  
  818.   static MENUITEM MenuSeparator =
  819.     { MIT_END, MIS_SEPARATOR, 0, 0, NULL, 0 } ;
  820.  
  821.   AddSysMenuItem ( hwndFrame, &MenuSeparator, NULL ) ;
  822.  
  823.   for ( int i=0; i<sizeof(MenuItems)/sizeof(MenuItems[0]); i++ )
  824.   {
  825.     BYTE MenuText [80] ;
  826.     WinLoadString ( Data->Anchor, Data->Library, i+IDS_SAVE_APPLICATION, sizeof(MenuText), MenuText ) ;
  827.     AddSysMenuItem ( hwndFrame, MenuItems+i, MenuText ) ;
  828.   }
  829.  
  830.  /***************************************************************************
  831.   * Add 'About' to the system menu.                        *
  832.   ***************************************************************************/
  833.  
  834.   static MENUITEM MenuAbout =
  835.     { MIT_END, MIS_TEXT, 0, IDM_ABOUT, NULL, 0 } ;
  836.  
  837.   AddSysMenuItem ( hwndFrame, &MenuSeparator, NULL ) ;
  838.  
  839.   BYTE AboutText [80] ;
  840.   WinLoadString ( Data->Anchor, Data->Library, IDS_ABOUT, sizeof(AboutText), AboutText ) ;
  841.  
  842.   AddSysMenuItem ( hwndFrame, &MenuAbout, AboutText ) ;
  843.  
  844.  /***************************************************************************
  845.   * Add 'Help' to the system menu.                        *
  846.   ***************************************************************************/
  847.  
  848.   static MENUITEM MenuHelp =
  849.     { MIT_END, MIS_HELP, 0, 0, NULL, 0 } ;
  850.  
  851.   BYTE HelpText [80] ;
  852.   WinLoadString ( Data->Anchor, Data->Library, IDS_HELP, sizeof(HelpText), HelpText ) ;
  853.  
  854.   AddSysMenuItem ( hwndFrame, &MenuHelp, HelpText ) ;
  855.  
  856.  /***************************************************************************
  857.   * Build the display items menu.                        *
  858.   ***************************************************************************/
  859.  
  860.   RebuildDisplayItems ( hwnd, Data ) ;
  861.  
  862.  /***************************************************************************
  863.   * Get the SWAPPATH statement from CONFIG.SYS.                 *
  864.   ***************************************************************************/
  865.  
  866.   PSZ Swappath = ScanSystemConfig ( Data->Anchor, (PSZ)"SWAPPATH" ) ;
  867.  
  868.   if ( Swappath == NULL )
  869.   {
  870.     Swappath = (PSZ) "C:\\OS2\\SYSTEM 0" ;
  871.   }
  872.  
  873.   sscanf ( (PCHAR)Swappath, "%s %li", Data->SwapPath, &Data->MinFree ) ;
  874.  
  875.  /***************************************************************************
  876.   * Find out where the spool work directory is.                 *
  877.   ***************************************************************************/
  878.  
  879.   Data->SpoolPath = NULL ;
  880.  
  881.   ULONG Size ;
  882.   if ( PrfQueryProfileSize ( HINI_PROFILE, (PSZ)"PM_SPOOLER", (PSZ)"DIR", &Size ) )
  883.   {
  884.     Data->SpoolPath = malloc ( (int)Size ) ;
  885.     if ( Data->SpoolPath )
  886.     {
  887.       if ( PrfQueryProfileData ( HINI_PROFILE, (PSZ)"PM_SPOOLER", (PSZ)"DIR", Data->SpoolPath, &Size ) )
  888.       {
  889.     PBYTE p = (PBYTE) strchr ( (PCHAR)Data->SpoolPath, ';' ) ;
  890.     if ( p )
  891.     {
  892.       *p = 0 ;
  893.     }
  894.       }
  895.       else
  896.       {
  897.     free ( Data->SpoolPath ) ;
  898.     Data->SpoolPath = NULL ;
  899.       }
  900.     }
  901.   }
  902.  
  903.  /***************************************************************************
  904.   * Calibrate the old-style load meter, if the high resolution timer's      *
  905.   *   available.                                *
  906.   ***************************************************************************/
  907.  
  908.   Data->MaxCount = CalibrateLoadMeter ( ) ;
  909.   Data->MaxCount = (ULONG) max ( 1L, Data->MaxCount ) ;
  910.  
  911.  /***************************************************************************
  912.   * Start the new load meter.                            *
  913.   ***************************************************************************/
  914.  
  915.   DosCreateThread ( &Data->IdleLoopTID, CounterThread, (ULONG)&Data->IdleCounter, 0, 4096 ) ;
  916.   DosSetPrty ( PRTYS_THREAD, PRTYC_IDLETIME, PRTYD_MINIMUM, Data->IdleLoopTID ) ;
  917.   DosSuspendThread ( Data->IdleLoopTID ) ;
  918.  
  919.   Data->IdleCount = 0 ;
  920.   Data->IdleCounter = 0 ;
  921.  
  922.   if ( DosRequestMutexSem ( ItemSemaphore, 5000 ) )
  923.   {
  924.     Log ( "ERROR: Unable to lock item list to check CPU load item status.\r\n" ) ;
  925.     DosRequestMutexSem ( ItemSemaphore, (ULONG)SEM_INDEFINITE_WAIT ) ;
  926.   }
  927.   if ( Data->Profile.Items[ITEM_CPULOAD].Flag )
  928.   {
  929.     DosResumeThread ( Data->IdleLoopTID ) ;
  930.   }
  931.   DosReleaseMutexSem ( ItemSemaphore ) ;
  932.  
  933.   PMONITOR_PARMS MonitorParms ;
  934.   MonitorParms = malloc ( sizeof(*MonitorParms) ) ;
  935.   MonitorParms->Counter = & Data->IdleCounter ;
  936.   MonitorParms->Interval = & Data->Profile.TimerInterval ;
  937.   MonitorParms->Owner = hwnd ;
  938.   DosCreateThread ( &Data->MonitorLoopTID, MonitorLoopThread, (ULONG)MonitorParms, 2, 8192 ) ;
  939.  
  940.  /***************************************************************************
  941.   * Add the program to the system task list.                    *
  942.   ***************************************************************************/
  943.  
  944.   BYTE Title [80] ;
  945.   WinLoadString ( Data->Anchor, Data->Library, IDS_TITLE, sizeof(Title), Title ) ;
  946.   Add2TaskList ( hwndFrame, Title ) ;
  947.  
  948.  /***************************************************************************
  949.   * Position & size the window.  For some reason, we must move and size     *
  950.   *   the window to the saved position before applying the resizing        *
  951.   *   function as fine-tuning.    Maybe the positioning request fails if        *
  952.   *   the window has no size?                            *
  953.   ***************************************************************************/
  954.  
  955.   WinSetWindowPos ( hwndFrame, HWND_BOTTOM,
  956.     Data->Profile.Position.x, Data->Profile.Position.y,
  957.     Data->Profile.Position.cx, Data->Profile.Position.cy,
  958.     SWP_SIZE | SWP_MOVE | SWP_ZORDER |
  959.     ( Data->Profile.Position.fl & SWP_MINIMIZE ) |
  960.     ( Data->Profile.Position.fl & SWP_RESTORE ) ) ;
  961.  
  962.   ResizeWindow ( hwnd, &Data->Profile ) ;
  963.  
  964.  /***************************************************************************
  965.   * Hide the controls if so configured.                     *
  966.   ***************************************************************************/
  967.  
  968.   if ( Data->Profile.HideControls
  969.     AND NOT ( Data->Profile.Position.fl & SWP_MINIMIZE ) )
  970.   {
  971.     CheckMenuItem ( hwndFrame, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->Profile.HideControls ) ;
  972.  
  973.     HideControls
  974.     (
  975.       TRUE,
  976.       hwndFrame,
  977.       Data->hwndSysMenu,
  978.       Data->hwndTitleBar,
  979.       Data->hwndMinMax
  980.     ) ;
  981.   }
  982.  
  983.  /***************************************************************************
  984.   * Get the saved presentation parameters and reinstate them.            *
  985.   ***************************************************************************/
  986.  
  987.   if ( Data->Profile.fFontNameSize )
  988.   {
  989.     WinSetPresParam ( hwnd, PP_FONTNAMESIZE,
  990.       strlen((PCHAR)Data->Profile.FontNameSize)+1, Data->Profile.FontNameSize ) ;
  991.   }
  992.  
  993.   if ( Data->Profile.fBackColor )
  994.   {
  995.     WinSetPresParam ( hwnd, PP_BACKGROUNDCOLOR,
  996.       sizeof(Data->Profile.BackColor), &Data->Profile.BackColor ) ;
  997.   }
  998.  
  999.   if ( Data->Profile.fTextColor )
  1000.   {
  1001.     WinSetPresParam ( hwnd, PP_FOREGROUNDCOLOR,
  1002.       sizeof(Data->Profile.TextColor), &Data->Profile.TextColor ) ;
  1003.   }
  1004.  
  1005.  /***************************************************************************
  1006.   * Determine our font size.                            *
  1007.   ***************************************************************************/
  1008.  
  1009.   HPS hPS = WinGetPS ( hwnd ) ;
  1010.   RECTL Rectangle ;
  1011.   WinQueryWindowRect ( HWND_DESKTOP, &Rectangle ) ;
  1012.   WinDrawText ( hPS, 1, (PSZ)" ", &Rectangle, 0L, 0L, DT_LEFT | DT_BOTTOM | DT_QUERYEXTENT ) ;
  1013.   Data->Width  = Rectangle.xRight - Rectangle.xLeft ;
  1014.   Data->Height = Rectangle.yTop - Rectangle.yBottom ;
  1015.   WinReleasePS ( hPS ) ;
  1016.  
  1017.  /***************************************************************************
  1018.   * Now that the window's in order, make it visible.                        *
  1019.   ***************************************************************************/
  1020.  
  1021.   WinShowWindow ( hwndFrame, TRUE ) ;
  1022.  
  1023.  /***************************************************************************
  1024.   * Success?  Return no error.                            *
  1025.   ***************************************************************************/
  1026.  
  1027.   return ( 0 ) ;
  1028. }
  1029.  
  1030. /****************************************************************************
  1031.  *                                        *
  1032.  *    Destroy main window.                            *
  1033.  *                                        *
  1034.  ****************************************************************************/
  1035.  
  1036. STATIC MRESULT APIENTRY Destroy
  1037. (
  1038.   HWND hwnd,
  1039.   USHORT msg,
  1040.   MPARAM mp1,
  1041.   MPARAM mp2
  1042. )
  1043. {
  1044.  /***************************************************************************
  1045.   * Find the instance data.                            *
  1046.   ***************************************************************************/
  1047.  
  1048.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1049.  
  1050.  /***************************************************************************
  1051.   * Release the instance memory.                        *
  1052.   ***************************************************************************/
  1053.  
  1054.   free ( Data ) ;
  1055.  
  1056.  /***************************************************************************
  1057.   * We're done.                                                             *
  1058.   ***************************************************************************/
  1059.  
  1060.   return ( MRFROMSHORT ( 0 ) ) ;
  1061. }
  1062.  
  1063. /****************************************************************************
  1064.  *                                        *
  1065.  *    Process window resize message.                        *
  1066.  *                                        *
  1067.  ****************************************************************************/
  1068.  
  1069. STATIC MRESULT APIENTRY Size
  1070. (
  1071.   HWND hwnd,
  1072.   USHORT msg,
  1073.   MPARAM mp1,
  1074.   MPARAM mp2
  1075. )
  1076. {
  1077.  /***************************************************************************
  1078.   * Find the instance data.                            *
  1079.   ***************************************************************************/
  1080.  
  1081.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1082.  
  1083.  /***************************************************************************
  1084.   * Find out the window's new position and size.                            *
  1085.   ***************************************************************************/
  1086.  
  1087.   HWND hwndFrame = WinQueryWindow ( hwnd, QW_PARENT ) ;
  1088.  
  1089.   SWP Position ;
  1090.   WinQueryWindowPos ( hwndFrame, &Position ) ;
  1091.  
  1092.   if ( NOT ( Position.fl & SWP_MINIMIZE )
  1093.     AND NOT ( Position.fl & SWP_MAXIMIZE ) )
  1094.   {
  1095.     Data->Profile.Position.x = Position.x ;
  1096.     Data->Profile.Position.y = Position.y ;
  1097.  
  1098.     Data->Profile.Position.cx = Position.cx ;
  1099.     Data->Profile.Position.cy = Position.cy ;
  1100.   }
  1101.  
  1102.  /***************************************************************************
  1103.   * If hiding the controls . . .                        *
  1104.   ***************************************************************************/
  1105.  
  1106.   if ( Data->Profile.HideControls )
  1107.   {
  1108.  
  1109.    /*************************************************************************
  1110.     * If changing to or from minimized state . . .                *
  1111.     *************************************************************************/
  1112.  
  1113.     if ( ( Position.fl & SWP_MINIMIZE ) != ( Data->Profile.Position.fl & SWP_MINIMIZE ) )
  1114.     {
  1115.  
  1116.      /***********************************************************************
  1117.       * Hide the controls if no longer minimized.                *
  1118.       ***********************************************************************/
  1119.  
  1120.       HideControls
  1121.       (
  1122.     NOT ( Position.fl & SWP_MINIMIZE ),
  1123.     hwndFrame,
  1124.     Data->hwndSysMenu,
  1125.     Data->hwndTitleBar,
  1126.     Data->hwndMinMax
  1127.       ) ;
  1128.     }
  1129.   }
  1130.  
  1131.   Data->Profile.Position.fl = Position.fl ;
  1132.  
  1133.  /***************************************************************************
  1134.   * We're done.                                                             *
  1135.   ***************************************************************************/
  1136.  
  1137.   return ( 0 ) ;
  1138. }
  1139.  
  1140. /****************************************************************************
  1141.  *                                        *
  1142.  *    Process SAVE APPLICATION message.                    *
  1143.  *                                        *
  1144.  ****************************************************************************/
  1145.  
  1146. STATIC MRESULT APIENTRY SaveApplication
  1147. (
  1148.   HWND hwnd,
  1149.   USHORT msg,
  1150.   MPARAM mp1,
  1151.   MPARAM mp2
  1152. )
  1153. {
  1154.  /***************************************************************************
  1155.   * Find the instance data.                            *
  1156.   ***************************************************************************/
  1157.  
  1158.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1159.  
  1160.  /***************************************************************************
  1161.   * Call function to put all profile data out to the system.            *
  1162.   ***************************************************************************/
  1163.  
  1164.   PutProfile ( Data->ProfileHandle, &Data->Profile ) ;
  1165.  
  1166.  /***************************************************************************
  1167.   * We're done.  Let the system complete default processing.                *
  1168.   ***************************************************************************/
  1169.  
  1170.   return ( WinDefWindowProc ( hwnd, WM_SAVEAPPLICATION, 0, 0 ) ) ;
  1171. }
  1172.  
  1173. /****************************************************************************
  1174.  *                                        *
  1175.  *    Repaint entire window.                            *
  1176.  *                                        *
  1177.  ****************************************************************************/
  1178.  
  1179. STATIC MRESULT APIENTRY Paint
  1180. (
  1181.   HWND hwnd,
  1182.   USHORT msg,
  1183.   MPARAM mp1,
  1184.   MPARAM mp2
  1185. )
  1186. {
  1187.  /***************************************************************************
  1188.   * Find the instance data.                            *
  1189.   ***************************************************************************/
  1190.  
  1191.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1192.  
  1193.  /***************************************************************************
  1194.   * Get presentation space and make it use RGB colors.                *
  1195.   ***************************************************************************/
  1196.  
  1197.   HPS hPS = WinBeginPaint ( hwnd, NULL, NULL ) ;
  1198.   GpiCreateLogColorTable ( hPS, LCOL_RESET, LCOLF_RGB, 0L, 0L, NULL ) ;
  1199.  
  1200.  /***************************************************************************
  1201.   * Clear the window.                                *
  1202.   ***************************************************************************/
  1203.  
  1204.   RECTL Rectangle ;
  1205.   WinQueryWindowRect ( hwnd, &Rectangle ) ;
  1206.  
  1207.   GpiMove ( hPS, (PPOINTL) &Rectangle.xLeft ) ;
  1208.   GpiSetColor ( hPS, Data->Profile.BackColor ) ;
  1209.   GpiBox ( hPS, DRO_FILL, (PPOINTL) &Rectangle.xRight, 0L, 0L ) ;
  1210.  
  1211.  /***************************************************************************
  1212.   * Release presentation space.                         *
  1213.   ***************************************************************************/
  1214.  
  1215.   WinEndPaint ( hPS ) ;
  1216.  
  1217.  /***************************************************************************
  1218.   * Update the window and return.                        *
  1219.   ***************************************************************************/
  1220.  
  1221.   UpdateWindow ( hwnd, Data, TRUE ) ;
  1222.  
  1223.   return ( 0 ) ;
  1224. }
  1225.  
  1226. /****************************************************************************
  1227.  *                                        *
  1228.  *    Process commands received by Main Window                *
  1229.  *                                        *
  1230.  ****************************************************************************/
  1231.  
  1232. STATIC MRESULT APIENTRY Command
  1233. (
  1234.   HWND hwnd,
  1235.   USHORT msg,
  1236.   MPARAM mp1,
  1237.   MPARAM mp2
  1238. )
  1239. {
  1240.  /***************************************************************************
  1241.   * Find the instance data.                            *
  1242.   ***************************************************************************/
  1243.  
  1244.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1245.  
  1246.  /***************************************************************************
  1247.   * Process indicated command . . .                        *
  1248.   ***************************************************************************/
  1249.  
  1250.   USHORT Command = SHORT1FROMMP ( mp1 ) ;
  1251.  
  1252.  /***************************************************************************
  1253.   * Process display item commands.                        *
  1254.   ***************************************************************************/
  1255.  
  1256.   if ( DosRequestMutexSem ( ItemSemaphore, 5000 ) )
  1257.   {
  1258.     Log ( "ERROR: Unable to lock item list to process display item commands.\r\n" ) ;
  1259.     DosRequestMutexSem ( ItemSemaphore, (ULONG)SEM_INDEFINITE_WAIT ) ;
  1260.   }
  1261.  
  1262.   for ( int i=0; i<Data->Profile.ItemCount; i++ )
  1263.   {
  1264.     PITEM Item = Data->Profile.Items + i ;
  1265.  
  1266.     if ( Command == Item->MenuId )
  1267.     {
  1268.       HWND hwndFrame = WinQueryWindow ( hwnd, QW_PARENT ) ;
  1269.  
  1270.       Item->Flag = Item->Flag ? FALSE : TRUE ;
  1271.  
  1272.       if ( i == ITEM_CPULOAD )
  1273.       {
  1274.     if ( Item->Flag )
  1275.       DosResumeThread ( Data->IdleLoopTID ) ;
  1276.     else
  1277.       DosSuspendThread ( Data->IdleLoopTID ) ;
  1278.       }
  1279.  
  1280.       CheckMenuItem ( hwndFrame, FID_SYSMENU, Item->MenuId, Item->Flag ) ;
  1281.  
  1282.       DosReleaseMutexSem ( ItemSemaphore ) ;
  1283.  
  1284.       ResizeWindow ( hwnd, &Data->Profile ) ;
  1285.  
  1286.       return ( MRFROMSHORT ( 0 ) ) ;
  1287.     }
  1288.   }
  1289.   DosReleaseMutexSem ( ItemSemaphore ) ;
  1290.  
  1291.  /***************************************************************************
  1292.   * Dispatch all other commands through the method table.            *
  1293.   ***************************************************************************/
  1294.  
  1295.   static METHOD Methods [] =
  1296.   {
  1297.     { IDM_SAVE_APPLICATION, SaveApplication },
  1298.     { IDM_RESET_DEFAULTS,   ResetDefaults   },
  1299.     { IDM_HIDE_CONTROLS,    HideControlsCmd },
  1300.     { IDM_SET_TIMER,        SetTimer        },
  1301.     { IDM_EXIT,         Exit        },
  1302.     { IDM_ABOUT,        About        },
  1303.   } ;
  1304.  
  1305.   return ( DispatchMessage ( hwnd, SHORT1FROMMP(mp1), mp1, mp2, Methods, sizeof(Methods)/sizeof(Methods[0]), NULL ) ) ;
  1306. }
  1307.  
  1308. /****************************************************************************
  1309.  *                                        *
  1310.  *    Process Reset Defaults menu command.                    *
  1311.  *                                        *
  1312.  ****************************************************************************/
  1313.  
  1314. STATIC MRESULT APIENTRY ResetDefaults
  1315. ( 
  1316.   HWND hwnd, 
  1317.   USHORT msg, 
  1318.   MPARAM mp1, 
  1319.   MPARAM mp2
  1320. )
  1321. {
  1322.  /***************************************************************************
  1323.   * Find the instance data.                            *
  1324.   ***************************************************************************/
  1325.  
  1326.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1327.  
  1328.  /***************************************************************************
  1329.   * Reset all profile data for this program.                    *
  1330.   ***************************************************************************/
  1331.  
  1332.   PrfWriteProfileData ( Data->ProfileHandle, (PSZ)PROGRAM_NAME, NULL, NULL, 0 ) ;
  1333.  
  1334.  /***************************************************************************
  1335.   * Reset the program's presentation parameters.                            *
  1336.   ***************************************************************************/
  1337.  
  1338.   WinRemovePresParam ( hwnd, PP_FONTNAMESIZE ) ;
  1339.   WinRemovePresParam ( hwnd, PP_FOREGROUNDCOLOR ) ;
  1340.   WinRemovePresParam ( hwnd, PP_BACKGROUNDCOLOR ) ;
  1341.  
  1342.  /***************************************************************************
  1343.   * Done.                                    *
  1344.   ***************************************************************************/
  1345.  
  1346.   return ( MRFROMSHORT ( 0 ) ) ;
  1347. }
  1348.  
  1349. /****************************************************************************
  1350.  *                                        *
  1351.  *    Process Hide Controls menu command.                    *
  1352.  *                                        *
  1353.  ****************************************************************************/
  1354.  
  1355. STATIC MRESULT APIENTRY HideControlsCmd
  1356. ( 
  1357.   HWND hwnd, 
  1358.   USHORT msg, 
  1359.   MPARAM mp1, 
  1360.   MPARAM mp2
  1361. )
  1362. {
  1363.  /***************************************************************************
  1364.   * Find the instance data.                            *
  1365.   ***************************************************************************/
  1366.  
  1367.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1368.  
  1369.  /***************************************************************************
  1370.   * Toggle the Hide Controls setting.                        *
  1371.   ***************************************************************************/
  1372.  
  1373.   Data->Profile.HideControls = Data->Profile.HideControls ? FALSE : TRUE ;
  1374.   Data->Profile.fHideControls = TRUE ;
  1375.  
  1376.  /***************************************************************************
  1377.   * Get the frame handle.                                *
  1378.   ***************************************************************************/
  1379.  
  1380.   HWND hwndFrame = WinQueryWindow ( hwnd, QW_PARENT ) ;
  1381.  
  1382.  /***************************************************************************
  1383.   * If controls aren't hidden yet, update the menu check-mark.              *
  1384.   ***************************************************************************/
  1385.  
  1386.   if ( Data->Profile.HideControls )
  1387.     CheckMenuItem ( hwndFrame, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->Profile.HideControls ) ;
  1388.  
  1389.  /***************************************************************************
  1390.   * If not minimized right now, hide or reveal the controls.            *
  1391.   ***************************************************************************/
  1392.  
  1393.   if ( NOT ( Data->Profile.Position.fl & SWP_MINIMIZE ) )
  1394.   {
  1395.     HideControls
  1396.     (
  1397.       Data->Profile.HideControls,
  1398.       hwndFrame,
  1399.       Data->hwndSysMenu,
  1400.       Data->hwndTitleBar,
  1401.       Data->hwndMinMax
  1402.     ) ;
  1403.   }
  1404.  
  1405.  /***************************************************************************
  1406.   * If controls are no longer hidden, update the menu check-mark.        *
  1407.   ***************************************************************************/
  1408.  
  1409.   if ( NOT Data->Profile.HideControls )
  1410.     CheckMenuItem ( hwndFrame, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->Profile.HideControls ) ;
  1411.  
  1412.  /***************************************************************************
  1413.   * Done.                                    *
  1414.   ***************************************************************************/
  1415.  
  1416.   return ( MRFROMSHORT ( 0 ) ) ;
  1417. }
  1418.  
  1419. /****************************************************************************
  1420.  *                                        *
  1421.  *    Process Set Timer menu command.                     *
  1422.  *                                        *
  1423.  ****************************************************************************/
  1424.  
  1425. STATIC MRESULT APIENTRY SetTimer
  1426. ( 
  1427.   HWND hwnd, 
  1428.   USHORT msg, 
  1429.   MPARAM mp1, 
  1430.   MPARAM mp2
  1431. )
  1432. {
  1433.  /***************************************************************************
  1434.   * Find the instance data.                            *
  1435.   ***************************************************************************/
  1436.  
  1437.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1438.  
  1439.  /***************************************************************************
  1440.   * Invoke the Set Timer dialog.                        *
  1441.   ***************************************************************************/
  1442.  
  1443.   SETTIMER_PARMS Parms ;
  1444.   Parms.id = IDD_SET_TIMER ;
  1445.   Parms.hwndHelp = WinQueryHelpInstance ( hwnd ) ;
  1446.   Parms.TimerInterval = & Data->Profile.TimerInterval ;
  1447.  
  1448.   WinDlgBox ( HWND_DESKTOP, hwnd, SetTimerProcessor,
  1449.     Data->Library, IDD_SET_TIMER, &Parms ) ;
  1450.  
  1451.  /***************************************************************************
  1452.   * Done.                                    *
  1453.   ***************************************************************************/
  1454.  
  1455.   return ( MRFROMSHORT ( 0 ) ) ;
  1456. }
  1457.  
  1458. /****************************************************************************
  1459.  *                                        *
  1460.  *    Process About menu command.                        *
  1461.  *                                        *
  1462.  ****************************************************************************/
  1463.  
  1464. STATIC MRESULT APIENTRY About
  1465. ( 
  1466.   HWND hwnd, 
  1467.   USHORT msg, 
  1468.   MPARAM mp1, 
  1469.   MPARAM mp2
  1470. )
  1471. {
  1472.  /***************************************************************************
  1473.   * Find the instance data.                            *
  1474.   ***************************************************************************/
  1475.  
  1476.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1477.  
  1478.  /***************************************************************************
  1479.   * Invoke the About dialog.                            *
  1480.   ***************************************************************************/
  1481.  
  1482.   ABOUT_PARMS Parms ;
  1483.   Parms.id = IDD_ABOUT ;
  1484.   Parms.hwndHelp = WinQueryHelpInstance ( hwnd ) ;
  1485.  
  1486.   WinDlgBox ( HWND_DESKTOP, hwnd, AboutProcessor,
  1487.     Data->Library, IDD_ABOUT, &Parms ) ;
  1488.  
  1489.  /***************************************************************************
  1490.   * Done.                                    *
  1491.   ***************************************************************************/
  1492.  
  1493.   return ( MRFROMSHORT ( 0 ) ) ;
  1494. }
  1495.  
  1496. /****************************************************************************
  1497.  *                                        *
  1498.  *    Process Mouse Button being pressed.                    *
  1499.  *                                        *
  1500.  ****************************************************************************/
  1501.  
  1502. STATIC MRESULT APIENTRY ButtonDown
  1503. (
  1504.   HWND hwnd,
  1505.   USHORT msg,
  1506.   MPARAM mp1,
  1507.   MPARAM mp2
  1508. )
  1509. {
  1510.  /***************************************************************************
  1511.   * Find the instance data.                            *
  1512.   ***************************************************************************/
  1513.  
  1514.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1515.  
  1516.  /***************************************************************************
  1517.   * Determine the new window position.                        *
  1518.   ***************************************************************************/
  1519.  
  1520.   TRACKINFO TrackInfo ;
  1521.   memset ( &TrackInfo, 0, sizeof(TrackInfo) ) ;
  1522.  
  1523.   TrackInfo.cxBorder = 1 ;
  1524.   TrackInfo.cyBorder = 1 ;
  1525.   TrackInfo.cxGrid = 1 ;
  1526.   TrackInfo.cyGrid = 1 ;
  1527.   TrackInfo.cxKeyboard = 8 ;
  1528.   TrackInfo.cyKeyboard = 8 ;
  1529.  
  1530.   HWND hwndFrame = WinQueryWindow ( hwnd, QW_PARENT ) ;
  1531.  
  1532.   SWP Position ;
  1533.   WinQueryWindowPos ( hwndFrame, &Position ) ;
  1534.   TrackInfo.rclTrack.xLeft   = Position.x ;
  1535.   TrackInfo.rclTrack.xRight  = Position.x + Position.cx ;
  1536.   TrackInfo.rclTrack.yBottom = Position.y ;
  1537.   TrackInfo.rclTrack.yTop    = Position.y + Position.cy ;
  1538.  
  1539.   WinQueryWindowPos ( HWND_DESKTOP, &Position ) ;
  1540.   TrackInfo.rclBoundary.xLeft   = Position.x ;
  1541.   TrackInfo.rclBoundary.xRight  = Position.x + Position.cx ;
  1542.   TrackInfo.rclBoundary.yBottom = Position.y ;
  1543.   TrackInfo.rclBoundary.yTop    = Position.y + Position.cy ;
  1544.  
  1545.   TrackInfo.ptlMinTrackSize.x = 0 ;
  1546.   TrackInfo.ptlMinTrackSize.y = 0 ;
  1547.   TrackInfo.ptlMaxTrackSize.x = Position.cx ;
  1548.   TrackInfo.ptlMaxTrackSize.y = Position.cy ;
  1549.  
  1550.   TrackInfo.fs = TF_MOVE | TF_STANDARD | TF_ALLINBOUNDARY ;
  1551.  
  1552.   if ( WinTrackRect ( HWND_DESKTOP, NULL, &TrackInfo ) )
  1553.   {
  1554.     WinSetWindowPos ( hwndFrame, NULL,
  1555.       (SHORT) TrackInfo.rclTrack.xLeft,
  1556.       (SHORT) TrackInfo.rclTrack.yBottom,
  1557.       0, 0, SWP_MOVE ) ;
  1558.   }
  1559.  
  1560.  /***************************************************************************
  1561.   * Return through the default processor, letting window activation        *
  1562.   *   and other system functions occur.                     *
  1563.   ***************************************************************************/
  1564.  
  1565.   return ( WinDefWindowProc ( hwnd, msg, mp1, mp2 ) ) ;
  1566. }
  1567.  
  1568. /****************************************************************************
  1569.  *                                        *
  1570.  *    Process Mouse Button having been double-clicked.            *
  1571.  *                                        *
  1572.  ****************************************************************************/
  1573.  
  1574. STATIC MRESULT APIENTRY ButtonDblClick
  1575. (
  1576.   HWND hwnd,
  1577.   USHORT msg,
  1578.   MPARAM mp1,
  1579.   MPARAM mp2
  1580. )
  1581. {
  1582.  /***************************************************************************
  1583.   * Send message to self to stop hiding the controls.                *
  1584.   ***************************************************************************/
  1585.  
  1586.   WinPostMsg ( hwnd, WM_COMMAND,
  1587.     MPFROM2SHORT ( IDM_HIDE_CONTROLS, 0 ),
  1588.     MPFROM2SHORT ( CMDSRC_OTHER, TRUE ) ) ;
  1589.  
  1590.  /***************************************************************************
  1591.   * Return through the default processor, letting window activation        *
  1592.   *   and other system functions occur.                     *
  1593.   ***************************************************************************/
  1594.  
  1595.   return ( WinDefWindowProc ( hwnd, msg, mp1, mp2 ) ) ;
  1596. }
  1597.  
  1598. /****************************************************************************
  1599.  *                                        *
  1600.  *    Process Presentation Parameter Changed notification.            *
  1601.  *                                        *
  1602.  ****************************************************************************/
  1603.  
  1604. STATIC MRESULT APIENTRY PresParamChanged
  1605. (
  1606.   HWND hwnd,
  1607.   USHORT msg,
  1608.   MPARAM mp1,
  1609.   MPARAM mp2
  1610. )
  1611. {
  1612.  /***************************************************************************
  1613.   * Find the instance data.                            *
  1614.   ***************************************************************************/
  1615.  
  1616.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1617.  
  1618.  /***************************************************************************
  1619.   * Get the presentation parameter that changed.                *
  1620.   ***************************************************************************/
  1621.  
  1622.   switch ( LONGFROMMP(mp1) )
  1623.   {
  1624.  
  1625.    /*************************************************************************
  1626.     * If font, note the fact that we now have a font to be saved as        *
  1627.     *    part of the configuration.  Get the font metrics and resize        *
  1628.     *    the window appropriately.                        *
  1629.     *************************************************************************/
  1630.  
  1631.     case PP_FONTNAMESIZE:
  1632.     {
  1633.       ULONG ppid ;
  1634.       if ( WinQueryPresParam ( hwnd, PP_FONTNAMESIZE, 0, &ppid,
  1635.     sizeof(Data->Profile.FontNameSize), &Data->Profile.FontNameSize,
  1636.     0 ) )
  1637.       {
  1638.     Data->Profile.fFontNameSize = TRUE ;
  1639.       }
  1640.       else
  1641.       {
  1642.     strcpy ( (PCHAR)Data->Profile.FontNameSize, "" ) ;
  1643.     Data->Profile.fFontNameSize = FALSE ;
  1644.     PrfWriteProfileData ( Data->ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"FontNameSize", NULL, 0 ) ;
  1645.       }
  1646.  
  1647.       HPS hPS = WinGetPS ( hwnd ) ;
  1648.       RECTL Rectangle ;
  1649.       WinQueryWindowRect ( HWND_DESKTOP, &Rectangle ) ;
  1650.       WinDrawText ( hPS, 1, (PSZ)" ", &Rectangle, 0L, 0L, DT_LEFT | DT_BOTTOM | DT_QUERYEXTENT ) ;
  1651.       Data->Width  = Rectangle.xRight - Rectangle.xLeft ;
  1652.       Data->Height = Rectangle.yTop - Rectangle.yBottom ;
  1653.       WinReleasePS ( hPS ) ;
  1654.       ResizeWindow ( hwnd, &Data->Profile ) ;
  1655.       break ;
  1656.     }
  1657.  
  1658.    /*************************************************************************
  1659.     * If background color, note the fact and repaint the window.        *
  1660.     *************************************************************************/
  1661.  
  1662.     case PP_BACKGROUNDCOLOR:
  1663.     {
  1664.       ULONG ppid ;
  1665.       if ( WinQueryPresParam ( hwnd, PP_BACKGROUNDCOLOR, 0, &ppid,
  1666.     sizeof(Data->Profile.BackColor), &Data->Profile.BackColor, 0 ) )
  1667.       {
  1668.     Data->Profile.fBackColor = TRUE ;
  1669.       }
  1670.       else
  1671.       {
  1672.     Data->Profile.BackColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_WINDOW, 0L ) ;
  1673.     Data->Profile.fBackColor = FALSE ;
  1674.     PrfWriteProfileData ( Data->ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"BackgroundColor", NULL, 0 ) ;
  1675.       }
  1676.       WinInvalidateRect ( hwnd, NULL, TRUE ) ;
  1677.       break ;
  1678.     }
  1679.  
  1680.    /*************************************************************************
  1681.     * If foreground color, note the fact and repaint the window.        *
  1682.     *************************************************************************/
  1683.  
  1684.     case PP_FOREGROUNDCOLOR:
  1685.     {
  1686.       ULONG ppid ;
  1687.       if ( WinQueryPresParam ( hwnd, PP_FOREGROUNDCOLOR, 0, &ppid,
  1688.     sizeof(Data->Profile.TextColor), &Data->Profile.TextColor, 0 ) )
  1689.       {
  1690.     Data->Profile.fTextColor = TRUE ;
  1691.       }
  1692.       else
  1693.       {
  1694.     Data->Profile.TextColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_OUTPUTTEXT, 0L ) ;
  1695.     Data->Profile.fTextColor = FALSE ;
  1696.     PrfWriteProfileData ( Data->ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"ForegroundColor", NULL, 0 ) ;
  1697.       }
  1698.       WinInvalidateRect ( hwnd, NULL, TRUE ) ;
  1699.       break ;
  1700.     }
  1701.   }
  1702.  
  1703.  /***************************************************************************
  1704.   * Return through the default processor, letting window activation        *
  1705.   *   and other system functions occur.                     *
  1706.   ***************************************************************************/
  1707.  
  1708.   return ( WinDefWindowProc ( hwnd, msg, mp1, mp2 ) ) ;
  1709. }
  1710.  
  1711. /****************************************************************************
  1712.  *                                        *
  1713.  *    Process System Color Change notification.                *
  1714.  *                                        *
  1715.  ****************************************************************************/
  1716.  
  1717. STATIC MRESULT APIENTRY SysColorChange
  1718. (
  1719.   HWND hwnd,
  1720.   USHORT msg,
  1721.   MPARAM mp1,
  1722.   MPARAM mp2
  1723. )
  1724. {
  1725.  /***************************************************************************
  1726.   * Find the instance data.                            *
  1727.   ***************************************************************************/
  1728.  
  1729.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1730.  
  1731.  /***************************************************************************
  1732.   * If we aren't using custom colors, then query for the new defaults.      *
  1733.   ***************************************************************************/
  1734.  
  1735.   if ( NOT Data->Profile.fBackColor )
  1736.   {
  1737.     Data->Profile.BackColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_WINDOW, 0L ) ;
  1738.   }
  1739.  
  1740.   if ( NOT Data->Profile.fTextColor )
  1741.   {
  1742.     Data->Profile.TextColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_OUTPUTTEXT, 0L ) ;
  1743.   }
  1744.  
  1745.  /***************************************************************************
  1746.   * Return value must be NULL, according to the documentation.            *
  1747.   ***************************************************************************/
  1748.  
  1749.   return ( MRFROMP ( NULL ) ) ;
  1750. }
  1751.  
  1752. /****************************************************************************
  1753.  *                                        *
  1754.  *    Process Query for Keys Help resource id.                *
  1755.  *                                        *
  1756.  ****************************************************************************/
  1757.  
  1758. STATIC MRESULT APIENTRY QueryKeysHelp
  1759. (
  1760.   HWND hwnd,
  1761.   USHORT msg,
  1762.   MPARAM mp1,
  1763.   MPARAM mp2
  1764. )
  1765. {
  1766.  /***************************************************************************
  1767.   * Simply return the ID of the Keys Help panel.                *
  1768.   ***************************************************************************/
  1769.  
  1770.   return ( (MRESULT) IDM_KEYS_HELP ) ;
  1771. }
  1772.  
  1773. /****************************************************************************
  1774.  *                                        *
  1775.  *    Process Help Manager Error                        *
  1776.  *                                        *
  1777.  ****************************************************************************/
  1778.  
  1779. STATIC MRESULT APIENTRY HelpError
  1780. ( 
  1781.   HWND hwnd, 
  1782.   USHORT msg, 
  1783.   MPARAM mp1, 
  1784.   MPARAM mp2
  1785. )
  1786. {
  1787.  /***************************************************************************
  1788.   * Local Declarations                                *
  1789.   ***************************************************************************/
  1790.  
  1791.   static struct
  1792.   {
  1793.     ULONG Error ;
  1794.     USHORT StringId ;
  1795.   }
  1796.   HelpErrors [] =
  1797.   {
  1798.     { HMERR_NO_FRAME_WND_IN_CHAIN,     IDS_HMERR_NO_FRAME_WND_IN_CHAIN },
  1799.     { HMERR_INVALID_ASSOC_APP_WND,     IDS_HMERR_INVALID_ASSOC_APP_WND },
  1800.     { HMERR_INVALID_ASSOC_HELP_INST,   IDS_HMERR_INVALID_ASSOC_HELP_IN },
  1801.     { HMERR_INVALID_DESTROY_HELP_INST, IDS_HMERR_INVALID_DESTROY_HELP_ },
  1802.     { HMERR_NO_HELP_INST_IN_CHAIN,     IDS_HMERR_NO_HELP_INST_IN_CHAIN },
  1803.     { HMERR_INVALID_HELP_INSTANCE_HDL, IDS_HMERR_INVALID_HELP_INSTANCE },
  1804.     { HMERR_INVALID_QUERY_APP_WND,     IDS_HMERR_INVALID_QUERY_APP_WND },
  1805.     { HMERR_HELP_INST_CALLED_INVALID,  IDS_HMERR_HELP_INST_CALLED_INVA },
  1806.     { HMERR_HELPTABLE_UNDEFINE,        IDS_HMERR_HELPTABLE_UNDEFINE    },
  1807.     { HMERR_HELP_INSTANCE_UNDEFINE,    IDS_HMERR_HELP_INSTANCE_UNDEFIN },
  1808.     { HMERR_HELPITEM_NOT_FOUND,        IDS_HMERR_HELPITEM_NOT_FOUND    },
  1809.     { HMERR_INVALID_HELPSUBITEM_SIZE,  IDS_HMERR_INVALID_HELPSUBITEM_S },
  1810.     { HMERR_HELPSUBITEM_NOT_FOUND,     IDS_HMERR_HELPSUBITEM_NOT_FOUND },
  1811.     { HMERR_INDEX_NOT_FOUND,           IDS_HMERR_INDEX_NOT_FOUND       },
  1812.     { HMERR_CONTENT_NOT_FOUND,           IDS_HMERR_CONTENT_NOT_FOUND     },
  1813.     { HMERR_OPEN_LIB_FILE,           IDS_HMERR_OPEN_LIB_FILE           },
  1814.     { HMERR_READ_LIB_FILE,           IDS_HMERR_READ_LIB_FILE           },
  1815.     { HMERR_CLOSE_LIB_FILE,           IDS_HMERR_CLOSE_LIB_FILE        },
  1816.     { HMERR_INVALID_LIB_FILE,           IDS_HMERR_INVALID_LIB_FILE      },
  1817.     { HMERR_NO_MEMORY,               IDS_HMERR_NO_MEMORY           },
  1818.     { HMERR_ALLOCATE_SEGMENT,           IDS_HMERR_ALLOCATE_SEGMENT      },
  1819.     { HMERR_FREE_MEMORY,           IDS_HMERR_FREE_MEMORY           },
  1820.     { HMERR_PANEL_NOT_FOUND,           IDS_HMERR_PANEL_NOT_FOUND       },
  1821.     { HMERR_DATABASE_NOT_OPEN,           IDS_HMERR_DATABASE_NOT_OPEN     },
  1822.     { 0,                   IDS_HMERR_UNKNOWN           }
  1823.   } ;
  1824.  
  1825.   ULONG ErrorCode = (ULONG) LONGFROMMP ( mp1 ) ;
  1826.  
  1827.  /***************************************************************************
  1828.   * Find the instance data.                            *
  1829.   ***************************************************************************/
  1830.  
  1831.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1832.  
  1833.  /***************************************************************************
  1834.   * Find the error code in the message table.                    *
  1835.   ***************************************************************************/
  1836.  
  1837.   int Index = 0 ;
  1838.   while ( HelpErrors[Index].Error
  1839.     AND ( HelpErrors[Index].Error != ErrorCode ) )
  1840.   {
  1841.     Index ++ ;
  1842.   }
  1843.  
  1844.  /***************************************************************************
  1845.   * Get the message texts.                            *
  1846.   ***************************************************************************/
  1847.  
  1848.   BYTE Title [80] ;
  1849.   WinLoadString ( Data->Anchor, Data->Library, IDS_HMERR, sizeof(Title), Title ) ;
  1850.  
  1851.   BYTE Message [200] ;
  1852.   WinLoadString ( Data->Anchor, Data->Library, HelpErrors[Index].StringId, sizeof(Message), Message ) ;
  1853.  
  1854.  /***************************************************************************
  1855.   * Display the error message.                            *
  1856.   ***************************************************************************/
  1857.  
  1858.   WinMessageBox
  1859.   (
  1860.     HWND_DESKTOP,
  1861.     hwnd,
  1862.     Message,
  1863.     Title,
  1864.     0,
  1865.     MB_OK | MB_WARNING
  1866.   ) ;
  1867.  
  1868.  /***************************************************************************
  1869.   * Return zero, indicating that the message was processed.            *
  1870.   ***************************************************************************/
  1871.  
  1872.   return ( MRFROMSHORT ( 0 ) ) ;
  1873. }
  1874.  
  1875. /****************************************************************************
  1876.  *                                        *
  1877.  *    Process "Extended Help Undefined" notification                *
  1878.  *                                        *
  1879.  ****************************************************************************/
  1880.  
  1881. STATIC MRESULT APIENTRY ExtHelpUndefined
  1882. ( 
  1883.   HWND hwnd, 
  1884.   USHORT msg, 
  1885.   MPARAM mp1, 
  1886.   MPARAM mp2
  1887. )
  1888. {
  1889.  /***************************************************************************
  1890.   * Find the instance data.                            *
  1891.   ***************************************************************************/
  1892.  
  1893.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1894.  
  1895.  /***************************************************************************
  1896.   * Get the message texts.                            *
  1897.   ***************************************************************************/
  1898.  
  1899.   BYTE Title [80] ;
  1900.   WinLoadString ( Data->Anchor, Data->Library, IDS_HMERR, sizeof(Title), Title ) ;
  1901.  
  1902.   BYTE Message [200] ;
  1903.   WinLoadString ( Data->Anchor, Data->Library, IDS_HMERR_EXTHELPUNDEFINED, sizeof(Message), Message ) ;
  1904.  
  1905.  /***************************************************************************
  1906.   * Display the error message.                            *
  1907.   ***************************************************************************/
  1908.  
  1909.   WinMessageBox
  1910.   (
  1911.     HWND_DESKTOP,
  1912.     hwnd,
  1913.     Message,
  1914.     Title,
  1915.     0,
  1916.     MB_OK | MB_WARNING
  1917.   ) ;
  1918.  
  1919.  /***************************************************************************
  1920.   * Return zero, indicating that the message was processed.            *
  1921.   ***************************************************************************/
  1922.  
  1923.   return ( MRFROMSHORT ( 0 ) ) ;
  1924. }
  1925.  
  1926. /****************************************************************************
  1927.  *                                        *
  1928.  *    Process "Help Subitem Not Found" notification                *
  1929.  *                                        *
  1930.  ****************************************************************************/
  1931.  
  1932. STATIC MRESULT APIENTRY HelpSubitemNotFound
  1933. ( 
  1934.   HWND hwnd, 
  1935.   USHORT msg, 
  1936.   MPARAM mp1, 
  1937.   MPARAM mp2
  1938. )
  1939. {
  1940.  /***************************************************************************
  1941.   * Find the instance data.                            *
  1942.   ***************************************************************************/
  1943.  
  1944.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1945.  
  1946.  /***************************************************************************
  1947.   * Get the title text.                             *
  1948.   ***************************************************************************/
  1949.  
  1950.   BYTE Title [80] ;
  1951.   WinLoadString ( Data->Anchor, Data->Library, IDS_HMERR, sizeof(Title), Title ) ;
  1952.  
  1953.  /***************************************************************************
  1954.   * Format the error message.                            *
  1955.   ***************************************************************************/
  1956.  
  1957.   USHORT Topic = (USHORT) SHORT1FROMMP ( mp2 ) ;
  1958.   USHORT Subtopic = (USHORT) SHORT2FROMMP ( mp2 ) ;
  1959.  
  1960.   BYTE Mode [40] ;
  1961.   switch ( SHORT1FROMMP ( mp1 ) )
  1962.   {
  1963.     case HLPM_FRAME:
  1964.       WinLoadString ( Data->Anchor, Data->Library, IDS_HELPMODE_FRAME, sizeof(Mode), Mode ) ;
  1965.       break ;
  1966.  
  1967.     case HLPM_MENU:
  1968.       WinLoadString ( Data->Anchor, Data->Library, IDS_HELPMODE_MENU, sizeof(Mode), Mode ) ;
  1969.       break ;
  1970.  
  1971.     case HLPM_WINDOW:
  1972.       WinLoadString ( Data->Anchor, Data->Library, IDS_HELPMODE_WINDOW, sizeof(Mode), Mode ) ;
  1973.       break ;
  1974.  
  1975.     default:
  1976.       WinLoadString ( Data->Anchor, Data->Library, IDS_HELPMODE_UNKNOWN, sizeof(Mode), Mode ) ;
  1977.   }
  1978.  
  1979.   BYTE Format [200] ;
  1980.   WinLoadString ( Data->Anchor, Data->Library, IDS_HELPSUBITEMNOTFOUND, sizeof(Format), Format ) ;
  1981.  
  1982.   BYTE Message [200] ;
  1983.   sprintf ( (PCHAR)Message, (PCHAR)Format, Mode, Topic, Subtopic ) ;
  1984.  
  1985.  /***************************************************************************
  1986.   * Display the error message.                            *
  1987.   ***************************************************************************/
  1988.  
  1989.   WinMessageBox
  1990.   (
  1991.     HWND_DESKTOP,
  1992.     hwnd,
  1993.     Message,
  1994.     Title,
  1995.     0,
  1996.     MB_OK | MB_WARNING
  1997.   ) ;
  1998.  
  1999.  /***************************************************************************
  2000.   * Return zero, indicating that the message was processed.            *
  2001.   ***************************************************************************/
  2002.  
  2003.   return ( MRFROMSHORT ( 0 ) ) ;
  2004. }
  2005.  
  2006. /****************************************************************************
  2007.  *                                        *
  2008.  *    Process Refresh message.                        *
  2009.  *                                        *
  2010.  ****************************************************************************/
  2011.  
  2012. STATIC MRESULT APIENTRY Refresh
  2013. ( 
  2014.   HWND hwnd, 
  2015.   USHORT msg, 
  2016.   MPARAM mp1, 
  2017.   MPARAM mp2
  2018. )
  2019. {
  2020.  /***************************************************************************
  2021.   * Find the instance data.                            *
  2022.   ***************************************************************************/
  2023.  
  2024.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  2025.  
  2026.  /***************************************************************************
  2027.   * Save the idle counter.                            *
  2028.   ***************************************************************************/
  2029.  
  2030.   Data->IdleCount = LONGFROMMP ( mp1 ) ;
  2031.  
  2032.  /***************************************************************************
  2033.   * Determine if drive mask has changed.                    *
  2034.   ***************************************************************************/
  2035.  
  2036.   ULONG Drive ;
  2037.   ULONG Drives ;
  2038.   DosQueryCurrentDisk ( &Drive, &Drives ) ;
  2039.  
  2040.   if ( Drives != Data->Drives )
  2041.   {
  2042.    /*************************************************************************
  2043.     * It has.  First save the display options.                    *
  2044.     *************************************************************************/
  2045.  
  2046.     SaveApplication ( hwnd, WM_SAVEAPPLICATION, 0, 0 ) ;
  2047.  
  2048.    /*************************************************************************
  2049.     * Next, update the drive item list.                     *
  2050.     *************************************************************************/
  2051.  
  2052.     UpdateDriveList ( Data->Anchor, Data->Library, Data->ProfileHandle, 
  2053.       &Data->Profile, Data->Drives, Drives ) ;
  2054.  
  2055.    /*************************************************************************
  2056.     * If the controls are hidden, hide the whole window and reveal the        *
  2057.     *    controls.  Otherwise the menu wouldn't get updated correctly.       *
  2058.     *************************************************************************/
  2059.  
  2060.     if ( Data->Profile.HideControls )
  2061.     {
  2062.       WinShowWindow ( WinQueryWindow(hwnd,QW_PARENT), FALSE ) ;
  2063.       HideControls
  2064.       (
  2065.     FALSE,
  2066.     WinQueryWindow ( hwnd, QW_PARENT ),
  2067.     Data->hwndSysMenu,
  2068.     Data->hwndTitleBar,
  2069.     Data->hwndMinMax
  2070.       ) ;
  2071.     }
  2072.  
  2073.    /*************************************************************************
  2074.     * Update the menu.                                *
  2075.     *************************************************************************/
  2076.  
  2077.     RebuildDisplayItems ( hwnd, Data ) ;
  2078.  
  2079.    /*************************************************************************
  2080.     * If the controls were supposed to be hidden, hide them once more and   *
  2081.     *    show the window to the world again.                    *
  2082.     *************************************************************************/
  2083.  
  2084.     if ( Data->Profile.HideControls )
  2085.     {
  2086.       HideControls
  2087.       (
  2088.     TRUE,
  2089.     WinQueryWindow ( hwnd, QW_PARENT ),
  2090.     Data->hwndSysMenu,
  2091.     Data->hwndTitleBar,
  2092.     Data->hwndMinMax
  2093.       ) ;
  2094.       WinShowWindow ( WinQueryWindow(hwnd,QW_PARENT), TRUE ) ;
  2095.     }
  2096.  
  2097.    /*************************************************************************
  2098.     * Save the updated drive mask.                        *
  2099.     *************************************************************************/
  2100.  
  2101.     Data->Drives = Drives ;
  2102.  
  2103.    /*************************************************************************
  2104.     * Resize the window to accommodate the new option list.            *
  2105.     *************************************************************************/
  2106.  
  2107.     ResizeWindow ( hwnd, &Data->Profile ) ;
  2108.   }
  2109.  
  2110.  /***************************************************************************
  2111.   * Update the statistics.                            *
  2112.   ***************************************************************************/
  2113.  
  2114.   UpdateWindow ( hwnd, Data, FALSE ) ;
  2115.  
  2116.  /***************************************************************************
  2117.   * Return zero, indicating that the message was processed.            *
  2118.   ***************************************************************************/
  2119.  
  2120.   return ( MRFROMSHORT ( 0 ) ) ;
  2121. }
  2122.  
  2123.  
  2124. /****************************************************************************
  2125.  *                                        *
  2126.  *                 Get Profile Data                    *
  2127.  *                                        *
  2128.  ****************************************************************************/
  2129.  
  2130. STATIC int GetProfile ( HAB Anchor, HMODULE Library, HINI ProfileHandle, PPROFILE Profile )
  2131. {
  2132.  /***************************************************************************
  2133.   * Get the window's current size and position.                             *
  2134.   ***************************************************************************/
  2135.  
  2136.   #pragma pack(2)
  2137.   typedef struct {
  2138.     USHORT Filler ;
  2139.     USHORT fs ;
  2140.     USHORT cy, cx, y, x ;
  2141.     HWND hwndInsertBehind ;
  2142.     HWND hwnd ;
  2143.   } OLDSWP ;
  2144.   #pragma pack()
  2145.  
  2146.   ULONG Size ;
  2147.   memset ( &Profile->Position, 0, sizeof(Profile->Position) ) ;
  2148.   Profile->fPosition = FALSE ;
  2149.   if ( PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"Position", &Size ) )
  2150.   {
  2151.     if ( Size == sizeof(OLDSWP)-sizeof(USHORT) )
  2152.     {
  2153.       OLDSWP OldPosition ;
  2154.       if ( PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"Position", &OldPosition.fs, &Size ) )
  2155.       {
  2156.         Profile->Position.fl = OldPosition.fs ;
  2157.         Profile->Position.cy = OldPosition.cy ;
  2158.         Profile->Position.cx = OldPosition.cx ;
  2159.         Profile->Position.y = OldPosition.y ;
  2160.         Profile->Position.x = OldPosition.x ;
  2161.         Profile->Position.hwndInsertBehind = OldPosition.hwndInsertBehind ;
  2162.         Profile->Position.hwnd = OldPosition.hwnd ;
  2163.         Profile->fPosition = TRUE ;
  2164.       }
  2165.     }
  2166.     else if ( Size == sizeof(Profile->Position) )
  2167.     {
  2168.       if ( PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"Position", &Profile->Position, &Size ) )
  2169.       {
  2170.         Profile->fPosition = TRUE ;
  2171.       }
  2172.     }
  2173.   }
  2174.  
  2175.   if ( NOT Profile->fPosition )
  2176.   {
  2177.     if ( ProfileHandle == HINI_USERPROFILE )
  2178.     {
  2179.       return ( 1 ) ;
  2180.     }
  2181.   }
  2182.  
  2183.  /***************************************************************************
  2184.   * Get the program options.                            *
  2185.   ***************************************************************************/
  2186.  
  2187.   Profile->HideControls = FALSE ;
  2188.   Profile->fHideControls = FALSE ;
  2189.   if 
  2190.   ( 
  2191.     PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"HideControls", &Size )
  2192.     AND
  2193.     ( ( Size == sizeof(Profile->HideControls) ) OR ( Size == sizeof(short) ) )
  2194.     AND
  2195.     PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"HideControls", &Profile->HideControls, &Size )
  2196.   )
  2197.   {
  2198.     Profile->fHideControls = TRUE ;
  2199.   }
  2200.  
  2201.   Profile->TimerInterval = 1000 ;
  2202.   Profile->fTimerInterval = FALSE ;
  2203.   if 
  2204.   ( 
  2205.     PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"TimerInterval", &Size )
  2206.     AND
  2207.     ( ( Size == sizeof(Profile->TimerInterval) ) OR ( Size == sizeof(short) ) )
  2208.     AND
  2209.     PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"TimerInterval", &Profile->TimerInterval, &Size ) 
  2210.   )
  2211.   {
  2212.     Profile->fTimerInterval = TRUE ;
  2213.   }
  2214.  
  2215.  /***************************************************************************
  2216.   * Get the presentation parameters.                        *
  2217.   ***************************************************************************/
  2218.  
  2219.   strcpy ( (PCHAR)Profile->FontNameSize, "" ) ;
  2220.   Profile->fFontNameSize = FALSE ;
  2221.   if
  2222.   (
  2223.     PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"FontNameSize", &Size )
  2224.     AND
  2225.     ( Size == sizeof(Profile->FontNameSize) )
  2226.     AND
  2227.     PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"FontNameSize", &Profile->FontNameSize, &Size )
  2228.   )
  2229.   {
  2230.     Profile->fFontNameSize = TRUE ;
  2231.   }
  2232.  
  2233.   Profile->BackColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_WINDOW, 0L ) ;
  2234.   Profile->fBackColor = FALSE ;
  2235.   if
  2236.   (
  2237.     PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"BackgroundColor", &Size )
  2238.     AND
  2239.     ( Size == sizeof(Profile->BackColor) )
  2240.     AND
  2241.     PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"BackgroundColor", &Profile->BackColor, &Size )
  2242.   )
  2243.   {
  2244.     Profile->fBackColor = TRUE ;
  2245.   }
  2246.  
  2247.   Profile->TextColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_OUTPUTTEXT, 0L ) ;
  2248.   Profile->fTextColor = FALSE ;
  2249.   if
  2250.   (
  2251.     PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"ForegroundColor", &Size )
  2252.     AND
  2253.     ( Size == sizeof(Profile->TextColor) )
  2254.     AND
  2255.     PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, (PSZ)"ForegroundColor", &Profile->TextColor, &Size )
  2256.   )
  2257.   {
  2258.     Profile->fTextColor = TRUE ;
  2259.   }
  2260.  
  2261.  /***************************************************************************
  2262.   * Lock the item list.                             *
  2263.   ***************************************************************************/
  2264.  
  2265.   if ( DosRequestMutexSem ( ItemSemaphore, 5000 ) )
  2266.   {
  2267.     Log ( "ERROR: Unable to lock item list to build it.\r\n" ) ;
  2268.     DosRequestMutexSem ( ItemSemaphore, (ULONG)SEM_INDEFINITE_WAIT ) ;
  2269.   }
  2270.  
  2271.  /***************************************************************************
  2272.   * Build the fixed portion of the item list.                    *
  2273.   ***************************************************************************/
  2274.  
  2275.   for ( int i=0; i<ITEM_BASE_COUNT; i++ )
  2276.   {
  2277.     WinLoadString ( Anchor, Library, i*2+IDS_SHOW_CLOCK_LABEL,
  2278.       sizeof(Items[i].Label), Items[i].Label ) ;
  2279.  
  2280.     WinLoadString ( Anchor, Library, i*2+IDS_SHOW_CLOCK_OPTION,
  2281.       sizeof(Items[i].MenuOption), Items[i].MenuOption ) ;
  2282.  
  2283.     Items[i].Flag = TRUE ;
  2284.     if 
  2285.     ( 
  2286.       PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, Items[i].Name, &Size ) 
  2287.       AND
  2288.       ( ( Size == sizeof(Profile->HideControls) ) OR ( Size == sizeof(short) ) )
  2289.       AND 
  2290.       PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, Items[i].Name, &Items[i].Flag, &Size )
  2291.     )
  2292.     {
  2293.       ;
  2294.     }
  2295.   }
  2296.  
  2297.  /***************************************************************************
  2298.   * Release the item list.                            *
  2299.   ***************************************************************************/
  2300.  
  2301.   DosReleaseMutexSem ( ItemSemaphore ) ;
  2302.  
  2303.  /***************************************************************************
  2304.   * Add items for each drive on the system.                    *
  2305.   ***************************************************************************/
  2306.  
  2307.   ULONG Drive, Drives ;
  2308.   DosQueryCurrentDisk ( &Drive, &Drives ) ;
  2309.   UpdateDriveList ( Anchor, Library, ProfileHandle, Profile, 0, Drives ) ;
  2310.  
  2311.   return ( 0 ) ;
  2312. }
  2313.  
  2314. /****************************************************************************
  2315.  *                                        *
  2316.  *                 Put Profile Data                    *
  2317.  *                                        *
  2318.  ****************************************************************************/
  2319.  
  2320. STATIC void PutProfile ( HINI ProfileHandle, PPROFILE Profile )
  2321. {
  2322.  /***************************************************************************
  2323.   * Save the window's current size and position.                            *
  2324.   ***************************************************************************/
  2325.  
  2326.   PrfWriteProfileData
  2327.   (
  2328.     ProfileHandle,
  2329.     (PSZ)PROGRAM_NAME,
  2330.     (PSZ)"Position",
  2331.     &Profile->Position,
  2332.     sizeof(Profile->Position)
  2333.   ) ;
  2334.  
  2335.  /***************************************************************************
  2336.   * Save the program options.                            *
  2337.   ***************************************************************************/
  2338.  
  2339.   if ( Profile->fHideControls )
  2340.   {
  2341.     PrfWriteProfileData
  2342.     (
  2343.       ProfileHandle,
  2344.       (PSZ)PROGRAM_NAME,
  2345.       (PSZ)"HideControls",
  2346.       &Profile->HideControls,
  2347.       sizeof(Profile->HideControls)
  2348.     ) ;
  2349.   }
  2350.  
  2351.   if ( Profile->fTimerInterval )
  2352.   {
  2353.     PrfWriteProfileData
  2354.     (
  2355.       ProfileHandle,
  2356.       (PSZ)PROGRAM_NAME,
  2357.       (PSZ)"TimerInterval",
  2358.       &Profile->TimerInterval,
  2359.       sizeof(Profile->TimerInterval)
  2360.     ) ;
  2361.   }
  2362.  
  2363.  /***************************************************************************
  2364.   * Save the item options.                            *
  2365.   ***************************************************************************/
  2366.  
  2367.   if ( DosRequestMutexSem ( ItemSemaphore, 5000 ) )
  2368.   {
  2369.     Log ( "ERROR: Unable to lock item list to save display options.\r\n" ) ;
  2370.     DosRequestMutexSem ( ItemSemaphore, (ULONG)SEM_INDEFINITE_WAIT ) ;
  2371.   }
  2372.  
  2373.   for ( int i=0; i<Profile->ItemCount; i++ )
  2374.   {
  2375.     PITEM Item = Profile->Items + i ;
  2376.  
  2377.     PrfWriteProfileData
  2378.     (
  2379.       ProfileHandle,
  2380.       (PSZ)PROGRAM_NAME,
  2381.       Item->Name,
  2382.       &Item->Flag,
  2383.       sizeof(Item->Flag)
  2384.     ) ;
  2385.   }
  2386.  
  2387.   DosReleaseMutexSem ( ItemSemaphore ) ;
  2388.  
  2389.  /***************************************************************************
  2390.   * Save the presentation parameters.                        *
  2391.   ***************************************************************************/
  2392.  
  2393.   if ( Profile->fFontNameSize )
  2394.   {
  2395.     PrfWriteProfileData
  2396.     (
  2397.       ProfileHandle,
  2398.       (PSZ)PROGRAM_NAME,
  2399.       (PSZ)"FontNameSize",
  2400.       Profile->FontNameSize,
  2401.       sizeof(Profile->FontNameSize)
  2402.     ) ;
  2403.   }
  2404.  
  2405.   if ( Profile->fBackColor )
  2406.   {
  2407.     PrfWriteProfileData
  2408.     (
  2409.       ProfileHandle,
  2410.       (PSZ)PROGRAM_NAME,
  2411.       (PSZ)"BackgroundColor",
  2412.       &Profile->BackColor,
  2413.       sizeof(Profile->BackColor)
  2414.     ) ;
  2415.   }
  2416.  
  2417.   if ( Profile->fTextColor )
  2418.   {
  2419.     PrfWriteProfileData
  2420.     (
  2421.       ProfileHandle,
  2422.       (PSZ)PROGRAM_NAME,
  2423.       (PSZ)"ForegroundColor",
  2424.       &Profile->TextColor,
  2425.       sizeof(Profile->TextColor)
  2426.     ) ;
  2427.   }
  2428. }
  2429.  
  2430. /****************************************************************************
  2431.  *                                        *
  2432.  *    Scan CONFIG.SYS for a keyword.    Return the value.            *
  2433.  *                                        *
  2434.  ****************************************************************************/
  2435.  
  2436. STATIC PSZ ScanSystemConfig ( HAB Anchor, PSZ Keyword )
  2437. {
  2438.  /***************************************************************************
  2439.   * Get the boot drive number from the global information segment.        *
  2440.   ***************************************************************************/
  2441.  
  2442.   ULONG BootDrive ;
  2443.   DosQuerySysInfo ( QSV_BOOT_DRIVE, QSV_BOOT_DRIVE, &BootDrive, sizeof(BootDrive) ) ;
  2444.  
  2445.  /***************************************************************************
  2446.   * Convert the keyword to upper case.                                      *
  2447.   ***************************************************************************/
  2448.  
  2449.   WinUpper ( Anchor, NULL, NULL, Keyword ) ;
  2450.  
  2451.  /***************************************************************************
  2452.   * Build the CONFIG.SYS path.                            *
  2453.   ***************************************************************************/
  2454.  
  2455.   char Path [_MAX_PATH] ;
  2456.   Path[0] = (char) ( BootDrive + 'A' - 1 ) ;
  2457.   Path[1] = 0 ;
  2458.   strcat ( Path, ":\\CONFIG.SYS" ) ;
  2459.  
  2460.  /***************************************************************************
  2461.   * Open CONFIG.SYS for reading.                        *
  2462.   ***************************************************************************/
  2463.  
  2464.   FILE *File = fopen ( Path, "rt" ) ;
  2465.   if ( NOT File )
  2466.   {
  2467.     return ( NULL ) ;
  2468.   }
  2469.  
  2470.  /***************************************************************************
  2471.   * While there're more lines in CONFIG.SYS, read a line and check it.      *
  2472.   ***************************************************************************/
  2473.  
  2474.   static char Buffer [500] ;
  2475.   while ( fgets ( Buffer, sizeof(Buffer), File ) )
  2476.   {
  2477.  
  2478.    /*************************************************************************
  2479.     * Clean any trailing newline character from the input string.        *
  2480.     *************************************************************************/
  2481.  
  2482.     if ( Buffer[strlen(Buffer)-1] == '\n' )
  2483.     {
  2484.       Buffer[strlen(Buffer)-1] = 0 ;
  2485.     }
  2486.  
  2487.    /*************************************************************************
  2488.     * If keyword starts the line, we've found the line we want.  Close      *
  2489.     *    the file and return a pointer to the parameter text.            *
  2490.     *************************************************************************/
  2491.  
  2492.     WinUpper ( Anchor, NULL, NULL, (PSZ)Buffer ) ;
  2493.  
  2494.     if ( NOT strncmp ( Buffer, (PCHAR)Keyword, strlen((PCHAR)Keyword) )
  2495.       AND ( Buffer[strlen((PCHAR)Keyword)] == '=' ) )
  2496.     {
  2497.       fclose ( File ) ;
  2498.       return ( (PSZ) ( Buffer + strlen((PCHAR)Keyword) + 1 ) ) ;
  2499.     }
  2500.   }
  2501.  
  2502.  /***************************************************************************
  2503.   * Close the file.  We haven't found the line we wanted.                   *
  2504.   ***************************************************************************/
  2505.  
  2506.   fclose ( File ) ;
  2507.  
  2508.   return ( NULL ) ;
  2509. }
  2510.  
  2511. /****************************************************************************
  2512.  *                                        *
  2513.  *             Resize Client Window                    *
  2514.  *                                        *
  2515.  ****************************************************************************/
  2516.  
  2517. STATIC void ResizeWindow ( HWND hwnd, PPROFILE Profile )
  2518. {
  2519.  /***************************************************************************
  2520.   * If the window is visible and minimized, restore it invisibly.        *
  2521.   ***************************************************************************/
  2522.  
  2523.   HWND hwndFrame = WinQueryWindow ( hwnd, QW_PARENT ) ;
  2524.  
  2525.   SHORT fHadToHide = FALSE ;
  2526.   SHORT fHadToRestore = FALSE ;
  2527.   if ( Profile->Position.fl & SWP_MINIMIZE )
  2528.   {
  2529.     if ( WinIsWindowVisible ( hwndFrame ) )
  2530.     {
  2531.       WinShowWindow ( hwndFrame, FALSE ) ;
  2532.       fHadToHide = TRUE ;
  2533.     }
  2534.     WinSetWindowPos ( hwndFrame, NULL, 0, 0, 0, 0, SWP_RESTORE ) ;
  2535.     fHadToRestore = TRUE ;
  2536.   }
  2537.  
  2538.  /***************************************************************************
  2539.   * Determine how many items are to be displayed.                *
  2540.   ***************************************************************************/
  2541.  
  2542.   if ( DosRequestMutexSem ( ItemSemaphore, 5000 ) )
  2543.   {
  2544.     Log ( "ERROR: Unable to lock item list to determine window size.\r\n" ) ;
  2545.     DosRequestMutexSem ( ItemSemaphore, (ULONG)SEM_INDEFINITE_WAIT ) ;
  2546.   }
  2547.  
  2548.   HPS hPS = WinGetPS ( hwnd ) ;
  2549.  
  2550.   int Count = 0 ;
  2551.   LONG Widest = 0 ;
  2552.   LONG Height = 0 ;
  2553.  
  2554.   for ( int i=0; i<Profile->ItemCount; i++ )
  2555.   {
  2556.     PITEM Item = Profile->Items + i ;
  2557.  
  2558.     if ( Item->Flag )
  2559.     {
  2560.       Count ++ ;
  2561.  
  2562.       BYTE Text [100] ;
  2563.       sprintf ( (PCHAR)Text, "%s 1,234,567K", Item->Label ) ;
  2564.  
  2565.       RECTL Rectangle ;
  2566.       WinQueryWindowRect ( HWND_DESKTOP, &Rectangle ) ;
  2567.  
  2568.       WinDrawText ( hPS, strlen((PCHAR)Text), Text,
  2569.     &Rectangle, 0L, 0L, DT_LEFT | DT_BOTTOM | DT_QUERYEXTENT ) ;
  2570.  
  2571.       Widest = max ( Widest, (Rectangle.xRight-Rectangle.xLeft+1) ) ;
  2572.  
  2573.       Height += Rectangle.yTop - Rectangle.yBottom ;
  2574.     }
  2575.   }
  2576.  
  2577.   WinReleasePS ( hPS ) ;
  2578.  
  2579.   DosReleaseMutexSem ( ItemSemaphore ) ;
  2580.  
  2581.  /***************************************************************************
  2582.   * Get the window's current size & position.                               *
  2583.   ***************************************************************************/
  2584.  
  2585.   RECTL Rectangle ;
  2586.   WinQueryWindowRect ( hwndFrame, &Rectangle ) ;
  2587.  
  2588.   WinCalcFrameRect ( hwndFrame, &Rectangle, TRUE ) ;
  2589.  
  2590.  /***************************************************************************
  2591.   * Adjust the window's width & height.                                     *
  2592.   ***************************************************************************/
  2593.  
  2594.   Rectangle.xRight  = Rectangle.xLeft + Widest ;
  2595.  
  2596.   Rectangle.yTop    = Rectangle.yBottom + Height ;
  2597.  
  2598.  /***************************************************************************
  2599.   * Compute new frame size and apply it.                    *
  2600.   ***************************************************************************/
  2601.  
  2602.   WinCalcFrameRect ( hwndFrame, &Rectangle, FALSE ) ;
  2603.  
  2604.   WinSetWindowPos ( hwndFrame, NULL, 0, 0,
  2605.     (SHORT) (Rectangle.xRight-Rectangle.xLeft),
  2606.     (SHORT) (Rectangle.yTop-Rectangle.yBottom),
  2607.     SWP_SIZE ) ;
  2608.  
  2609.  /***************************************************************************
  2610.   * Return the window to its original state.                    *
  2611.   ***************************************************************************/
  2612.  
  2613.   if ( fHadToRestore )
  2614.   {
  2615.     WinSetWindowPos ( hwndFrame, NULL,
  2616.       Profile->Position.x, Profile->Position.y,
  2617.       Profile->Position.cx, Profile->Position.cy,
  2618.       SWP_MOVE | SWP_SIZE | SWP_MINIMIZE ) ;
  2619.   }
  2620.  
  2621.   if ( fHadToHide )
  2622.   {
  2623.     WinShowWindow ( hwndFrame, TRUE ) ;
  2624.   }
  2625.  
  2626.  /***************************************************************************
  2627.   * Invalidate the window so that it gets repainted.                *
  2628.   ***************************************************************************/
  2629.  
  2630.   WinInvalidateRect ( hwnd, NULL, TRUE ) ;
  2631. }
  2632.  
  2633. /****************************************************************************
  2634.  *                                        *
  2635.  *            Hide Window Controls                    *
  2636.  *                                        *
  2637.  ****************************************************************************/
  2638.  
  2639. STATIC void HideControls
  2640. (
  2641.   BOOL fHide,
  2642.   HWND hwndFrame,
  2643.   HWND hwndSysMenu,
  2644.   HWND hwndTitleBar,
  2645.   HWND hwndMinMax
  2646. )
  2647. {
  2648.  /***************************************************************************
  2649.   * Get original window position and state.                    *
  2650.   ***************************************************************************/
  2651.  
  2652.   SWP OldPosition ;
  2653.   WinQueryWindowPos ( hwndFrame, &OldPosition ) ;
  2654.  
  2655.   BOOL WasVisible = WinIsWindowVisible ( hwndFrame ) ;
  2656.  
  2657.  /***************************************************************************
  2658.   * Restore and hide the window.                        *
  2659.   ***************************************************************************/
  2660.  
  2661.   WinSetWindowPos ( hwndFrame, NULL, 0, 0, 0, 0, SWP_RESTORE | SWP_HIDE ) ;
  2662.  
  2663.  /***************************************************************************
  2664.   * Determine client window and location.                    *
  2665.   ***************************************************************************/
  2666.  
  2667.   SWP Position ;
  2668.   WinQueryWindowPos ( hwndFrame, &Position ) ;
  2669.  
  2670.   RECTL Rectangle ;
  2671.   Rectangle.xLeft   = Position.x ;
  2672.   Rectangle.xRight  = Position.x + Position.cx ;
  2673.   Rectangle.yBottom = Position.y ;
  2674.   Rectangle.yTop    = Position.y + Position.cy ;
  2675.  
  2676.   WinCalcFrameRect ( hwndFrame, &Rectangle, TRUE ) ;
  2677.  
  2678.  /***************************************************************************
  2679.   * Hide or reveal the controls windows by changing their parentage.        *
  2680.   ***************************************************************************/
  2681.  
  2682.   if ( fHide )
  2683.   {
  2684.     WinSetParent ( hwndSysMenu,  HWND_OBJECT, FALSE ) ;
  2685.     WinSetParent ( hwndTitleBar, HWND_OBJECT, FALSE ) ;
  2686.     WinSetParent ( hwndMinMax,     HWND_OBJECT, FALSE ) ;
  2687.   }
  2688.   else
  2689.   {
  2690.     WinSetParent ( hwndSysMenu,  hwndFrame, TRUE ) ;
  2691.     WinSetParent ( hwndTitleBar, hwndFrame, TRUE ) ;
  2692.     WinSetParent ( hwndMinMax,     hwndFrame, TRUE ) ;
  2693.   }
  2694.  
  2695.  /***************************************************************************
  2696.   * Tell the frame that things have changed.  Let it update the window.     *
  2697.   ***************************************************************************/
  2698.  
  2699.   WinSendMsg ( hwndFrame, WM_UPDATEFRAME,
  2700.     MPFROMSHORT ( FCF_TITLEBAR | FCF_SYSMENU | FCF_MINBUTTON ), 0L ) ;
  2701.  
  2702.  /***************************************************************************
  2703.   * Reposition the frame around the client window, which is left be.        *
  2704.   ***************************************************************************/
  2705.  
  2706.   WinCalcFrameRect ( hwndFrame, &Rectangle, FALSE ) ;
  2707.  
  2708.   WinSetWindowPos ( hwndFrame, NULL,
  2709.     (SHORT) Rectangle.xLeft,  (SHORT) Rectangle.yBottom,
  2710.     (SHORT) (Rectangle.xRight-Rectangle.xLeft),
  2711.     (SHORT) (Rectangle.yTop-Rectangle.yBottom),
  2712.     SWP_SIZE | SWP_MOVE ) ;
  2713.  
  2714.  /***************************************************************************
  2715.   * If window was maximized, put it back that way.                *
  2716.   ***************************************************************************/
  2717.  
  2718.   if ( OldPosition.fl & SWP_MAXIMIZE )
  2719.   {
  2720.     WinSetWindowPos ( hwndFrame, NULL,
  2721.       (SHORT) Rectangle.xLeft,    (SHORT) Rectangle.yBottom,
  2722.       (SHORT) (Rectangle.xRight-Rectangle.xLeft),
  2723.       (SHORT) (Rectangle.yTop-Rectangle.yBottom),
  2724.       SWP_SIZE | SWP_MOVE |
  2725.       ( OldPosition.fl & SWP_MAXIMIZE ) ) ;
  2726.   }
  2727.  
  2728.  /***************************************************************************
  2729.   * If the window was visible in the first place, show it.            *
  2730.   ***************************************************************************/
  2731.  
  2732.   if ( WasVisible )
  2733.   {
  2734.     WinShowWindow ( hwndFrame, TRUE ) ;
  2735.   }
  2736. }
  2737.  
  2738. /****************************************************************************
  2739.  *                                        *
  2740.  *    Update Window                                *
  2741.  *                                        *
  2742.  ****************************************************************************/
  2743.  
  2744. STATIC void UpdateWindow ( HWND hwnd, PDATA Data, BOOL All )
  2745. {
  2746.  /***************************************************************************
  2747.   * Lock the item list.                             *
  2748.   ***************************************************************************/
  2749.  
  2750.   if ( DosRequestMutexSem ( ItemSemaphore, 5000 ) )
  2751.   {
  2752.     Log ( "ERROR: Unable to lock item list to update window contents.\r\n" ) ;
  2753.     DosRequestMutexSem ( ItemSemaphore, (ULONG)SEM_INDEFINITE_WAIT ) ;
  2754.   }
  2755.  
  2756.  /***************************************************************************
  2757.   * Determine how many items are to be displayed.                *
  2758.   ***************************************************************************/
  2759.  
  2760.   int Count = 0 ;
  2761.   for ( int i=0; i<Data->Profile.ItemCount; i++ )
  2762.   {
  2763.     if ( Data->Profile.Items[i].Flag )
  2764.     {
  2765.       Count ++ ;
  2766.     }
  2767.   }
  2768.  
  2769.  /***************************************************************************
  2770.   * Get presentation space and make it use RGB colors.                *
  2771.   ***************************************************************************/
  2772.  
  2773.   HPS hPS = WinGetPS ( hwnd ) ;
  2774.   GpiCreateLogColorTable ( hPS, LCOL_RESET, LCOLF_RGB, 0L, 0L, NULL ) ;
  2775.  
  2776.  /***************************************************************************
  2777.   * Get the window's size and determine the initial position.               *
  2778.   ***************************************************************************/
  2779.  
  2780.   RECTL Rectangle ;
  2781.   WinQueryWindowRect ( hwnd, &Rectangle ) ;
  2782.  
  2783.   Rectangle.xLeft += Data->Width / 2 ;
  2784.   Rectangle.xRight -= Data->Width / 2 ;
  2785.  
  2786.   Rectangle.yBottom = Data->Height * ( Count - 1 ) ;
  2787.   Rectangle.yTop = Rectangle.yBottom + Data->Height ;
  2788.  
  2789.  /***************************************************************************
  2790.   * Review all items.  Display those changed, or all.                *
  2791.   ***************************************************************************/
  2792.  
  2793.   for ( i=0; i<Data->Profile.ItemCount; i++ )
  2794.   {
  2795.     ULONG NewValue ;
  2796.  
  2797.     PITEM Item = Data->Profile.Items + i ;
  2798.  
  2799.     if ( Item->Flag )
  2800.     {
  2801.       if ( NOT Item->Error )
  2802.       {
  2803.     NewValue = Item->NewValue ( Data, Item->Parm ) ;
  2804.       }
  2805.       else
  2806.       {
  2807.     NewValue = DRIVE_ERROR ;
  2808.       }
  2809.  
  2810.       if ( All OR ( NewValue != Item->Value ) )
  2811.       {
  2812.         BYTE Text [100] ;
  2813.     switch ( i )
  2814.     {
  2815.       case ITEM_CLOCK:
  2816.       {
  2817.         ULONG Month  = ( NewValue % 100000000L ) / 1000000L ;
  2818.         ULONG Day     = ( NewValue % 1000000L ) / 10000L ;
  2819.         ULONG Hour     = ( NewValue % 10000L ) / 100L ;
  2820.         ULONG Minute = ( NewValue % 100L ) ;
  2821.  
  2822.         switch ( Data->CountryInfo.fsDateFmt )
  2823.         {
  2824.           case DATEFMT_DD_MM_YY:
  2825.         sprintf ( (PCHAR)Text, "%02lu%s%02lu ",
  2826.           Day, Data->CountryInfo.szDateSeparator, Month ) ;
  2827.         break ;
  2828.  
  2829.           case DATEFMT_YY_MM_DD:
  2830.           case DATEFMT_MM_DD_YY:
  2831.           default:
  2832.         sprintf ( (PCHAR)Text, "%02lu%s%02lu ",
  2833.           Month, Data->CountryInfo.szDateSeparator, Day ) ;
  2834.         break ;
  2835.         }
  2836.  
  2837.         if ( Data->CountryInfo.fsTimeFmt )
  2838.         {
  2839.           sprintf ( (PCHAR)(Text+strlen((PCHAR)Text)), "%02lu%s%02lu",
  2840.         Hour,
  2841.         Data->CountryInfo.szTimeSeparator,
  2842.         Minute ) ;
  2843.         }
  2844.         else
  2845.         {
  2846.           PCHAR AmPm ;
  2847.  
  2848.           if ( Hour )
  2849.           {
  2850.         if ( Hour < 12 )
  2851.         {
  2852.           AmPm = "a" ;
  2853.         }
  2854.         else if ( Hour == 12 )
  2855.         {
  2856.           if ( Minute )
  2857.             AmPm = "p" ;
  2858.           else
  2859.             AmPm = "a" ;
  2860.         }
  2861.         else if ( Hour > 12 )
  2862.         {
  2863.           Hour -= 12 ;
  2864.           AmPm = "p" ;
  2865.         }
  2866.           }
  2867.           else
  2868.           {
  2869.         Hour = 12 ;
  2870.         if ( Minute )
  2871.           AmPm = "a" ;
  2872.         else
  2873.           AmPm = "p" ;
  2874.           }
  2875.           sprintf ( (PCHAR)(Text+strlen((PCHAR)Text)), "%02lu%s%02lu%s",
  2876.         Hour, Data->CountryInfo.szTimeSeparator, Minute, AmPm ) ;
  2877.         }
  2878.         break ;
  2879.       }
  2880.  
  2881.       case ITEM_ELAPSEDTIME:
  2882.       {
  2883.         memset ( Text, 0, sizeof(Text) ) ;
  2884.  
  2885.         ULONG Days = NewValue / ( 60L * 24L ) ;
  2886.  
  2887.         if ( Days )
  2888.         {
  2889.           sprintf ( PCHAR(Text), "%lu %s, ",
  2890.         Days, Days > 1 ? Data->Days : Data->Day ) ;
  2891.         }
  2892.  
  2893.         ULONG Minutes = NewValue % ( 60L * 24L ) ;
  2894.  
  2895.         sprintf ( PCHAR(Text+strlen(PCHAR(Text))), "%lu%s%02lu",
  2896.           Minutes/60, Data->CountryInfo.szTimeSeparator, Minutes%60 ) ;
  2897.  
  2898.         break ;
  2899.       }
  2900.  
  2901.       default:
  2902.       {
  2903.         memset ( Text, 0, sizeof(Text) ) ;
  2904.  
  2905.         if ( NewValue == DRIVE_ERROR )
  2906.         {
  2907.           Item->Error = TRUE ;
  2908.           strcpy ( PCHAR(Text), PCHAR(Data->DriveError) ) ;
  2909.         }
  2910.         else
  2911.         {
  2912.           if ( Item->Divisor )
  2913.           {
  2914.         if ( NewValue < ( Item->Divisor * 1024 ) / 2 )
  2915.           sprintf ( (PCHAR)Text, "%lu", NewValue ) ;
  2916.         else
  2917.           sprintf ( (PCHAR)Text, "%lu", (NewValue+Item->Divisor/2)/Item->Divisor ) ;
  2918.           }
  2919.           else
  2920.           {
  2921.         sprintf ( (PCHAR)Text, "%lu", NewValue ) ;
  2922.           }
  2923.  
  2924.           {
  2925.         PBYTE p1, p2 ;
  2926.         BYTE Work[100] ;
  2927.  
  2928.         p1 = Text ;
  2929.         p2 = Work ;
  2930.         while ( *p1 )
  2931.         {
  2932.           *p2 = *p1 ;
  2933.           p1 ++ ;
  2934.           p2 ++ ;
  2935.           if ( *p1 )
  2936.           {
  2937.             if ( strlen((PCHAR)p1) % 3 == 0 )
  2938.             {
  2939.               *p2 = Data->CountryInfo.szThousandsSeparator [0] ;
  2940.               p2 ++ ;
  2941.             }
  2942.           }
  2943.         }
  2944.         *p2 = 0 ;
  2945.         strcpy ( (PCHAR)Text, (PCHAR)Work ) ;
  2946.           }
  2947.  
  2948.           if ( Item->Divisor )
  2949.           {
  2950.         if ( NewValue < ( Item->Divisor * 1024 ) / 2 )
  2951.           Text[strlen((PCHAR)Text)] = ' ' ;
  2952.         else
  2953.           Text[strlen((PCHAR)Text)] = Item->Suffix ;
  2954.           }
  2955.           else
  2956.           {
  2957.         Text[strlen((PCHAR)Text)] = Item->Suffix ;
  2958.           }
  2959.         }
  2960.       }
  2961.     }
  2962.  
  2963.     WinDrawText ( hPS, strlen((PCHAR)Text), Text, &Rectangle,
  2964.       Data->Profile.TextColor, Data->Profile.BackColor,
  2965.       DT_RIGHT | DT_BOTTOM | DT_ERASERECT ) ;
  2966.  
  2967.     WinDrawText ( hPS, strlen((PCHAR)Item->Label), Item->Label, &Rectangle,
  2968.       Data->Profile.TextColor, Data->Profile.BackColor,
  2969.       DT_LEFT | DT_BOTTOM ) ;
  2970.  
  2971.     Item->Value = NewValue ;
  2972.       }
  2973.       Rectangle.yBottom -= Data->Height ;
  2974.       Rectangle.yTop    -= Data->Height ;
  2975.     }
  2976.   }
  2977.  
  2978.  /***************************************************************************
  2979.   * Release the presentation space and return.                    *
  2980.   ***************************************************************************/
  2981.  
  2982.   WinReleasePS ( hPS ) ;
  2983.  
  2984.  /***************************************************************************
  2985.   * Release the item list.                            *
  2986.   ***************************************************************************/
  2987.  
  2988.   DosReleaseMutexSem ( ItemSemaphore ) ;
  2989. }
  2990.  
  2991.  
  2992. /****************************************************************************
  2993.  *                                        *
  2994.  *    Compute Time                                *
  2995.  *                                        *
  2996.  ****************************************************************************/
  2997.  
  2998. STATIC ULONG ComputeTime ( PVOID Data, USHORT Dummy )
  2999. {
  3000.   DATETIME DateTime ;
  3001.   DosGetDateTime ( &DateTime ) ;
  3002.  
  3003.   ULONG Time ;
  3004.   Time = DateTime.month ;
  3005.   Time *= 100 ;
  3006.   Time += DateTime.day ;
  3007.   Time *= 100 ;
  3008.   Time += DateTime.hours ;
  3009.   Time *= 100 ;
  3010.   Time += DateTime.minutes ;
  3011.  
  3012.   return ( Time ) ;
  3013. }
  3014.  
  3015. /****************************************************************************
  3016.  *                                        *
  3017.  *    Compute Elapsed Time                            *
  3018.  *                                        *
  3019.  ****************************************************************************/
  3020.  
  3021. STATIC ULONG ComputeElapsed ( PVOID Data, USHORT Dummy )
  3022. {
  3023.   ULONG Milliseconds ;
  3024.   DosQuerySysInfo ( QSV_MS_COUNT, QSV_MS_COUNT, &Milliseconds, sizeof(Milliseconds) ) ;
  3025.   return ( Milliseconds / 60000L ) ;
  3026. }
  3027.  
  3028. /****************************************************************************
  3029.  *                                        *
  3030.  *    Compute Available Memory                            *
  3031.  *                                        *
  3032.  ****************************************************************************/
  3033.  
  3034. STATIC ULONG ComputeFreeMemory ( PVOID Data, USHORT Dummy )
  3035. {
  3036.   ULONG VirtualMemory ;
  3037.   DosQuerySysInfo ( QSV_TOTAVAILMEM, QSV_TOTAVAILMEM, &VirtualMemory, sizeof(VirtualMemory) ) ;
  3038.  
  3039.   ULONG SwapFree = ComputeSwapFree ( Data, Dummy ) ;
  3040.  
  3041.   LONG Space = LONG(VirtualMemory) - LONG(SwapFree) ;
  3042.   while ( Space < 0 )
  3043.   {
  3044.     Space += 0x100000 ;
  3045.   }
  3046.  
  3047.   return ( ULONG(Space) ) ;
  3048. }
  3049.  
  3050. /****************************************************************************
  3051.  *                                        *
  3052.  *    Compute Swap-File Size                            *
  3053.  *                                        *
  3054.  ****************************************************************************/
  3055.  
  3056. STATIC ULONG ComputeSwapSize ( PVOID Data, USHORT Dummy )
  3057. {
  3058.  /***************************************************************************
  3059.   * Find the swap file.                                                 *
  3060.   ***************************************************************************/
  3061.  
  3062.   char Path [_MAX_PATH+1] ;
  3063.   strcpy ( Path, (PCHAR)((PDATA)Data)->SwapPath ) ;
  3064.  
  3065.   if ( Path[strlen(Path)-1] != '\\' )
  3066.   {
  3067.     strcat ( Path, "\\" ) ;
  3068.   }
  3069.  
  3070.   strcat ( Path, "SWAPPER.DAT" ) ;
  3071.  
  3072.  /***************************************************************************
  3073.   * Determine its size.                                           *
  3074.   ***************************************************************************/
  3075.  
  3076.   ULONG SwapSize = 0 ;
  3077.   FILESTATUS3 Status ;
  3078.   if ( DosQueryPathInfo ( (PSZ)Path, FIL_STANDARD, &Status, sizeof(Status) ) == 0 )
  3079.   {
  3080.     SwapSize = Status.cbFileAlloc ;
  3081.   }
  3082.  
  3083.   return ( SwapSize ) ;
  3084. }
  3085.  
  3086. /****************************************************************************
  3087.  *                                        *
  3088.  *    Compute Available Swap Space                        *
  3089.  *                                        *
  3090.  ****************************************************************************/
  3091.  
  3092. STATIC ULONG ComputeSwapFree ( PVOID Data, USHORT Dummy )
  3093. {
  3094.  /***************************************************************************
  3095.   * Find the swap file and find its size.                    *
  3096.   ***************************************************************************/
  3097.  
  3098.   char Path [_MAX_PATH+1] ;
  3099.   strcpy ( Path, (PCHAR)((PDATA)Data)->SwapPath ) ;
  3100.   strcat ( Path, "\\SWAPPER.DAT" ) ;
  3101.  
  3102.  /***************************************************************************
  3103.   * Compute swap device free space.                        *
  3104.   ***************************************************************************/
  3105.  
  3106.   ULONG SwapFree = 0 ;
  3107.   if ( Path[0] )
  3108.   {
  3109.     DosError ( FERR_DISABLEHARDERR ) ;
  3110.     FSALLOCATE Allocation ;
  3111.     DosQueryFSInfo ( Path[0]-'A'+1, FSIL_ALLOC,
  3112.       (PBYTE)&Allocation, sizeof(Allocation) ) ;
  3113.     DosError ( FERR_ENABLEHARDERR ) ;
  3114.  
  3115.     SwapFree = Allocation.cUnitAvail*Allocation.cSectorUnit*Allocation.cbSector ;
  3116.   }
  3117.  
  3118.  /***************************************************************************
  3119.   * Return swap device's free space, less the minimum free space.           *
  3120.   ***************************************************************************/
  3121.  
  3122.   if ( SwapFree < ULONG(PDATA(Data)->MinFree*1024L) )
  3123.     return ( 0L ) ;
  3124.   else
  3125.     return ( SwapFree - ULONG(PDATA(Data)->MinFree*1024L) ) ;
  3126. }
  3127.  
  3128. /****************************************************************************
  3129.  *                                        *
  3130.  *    Compute Spool-file Size                            *
  3131.  *                                        *
  3132.  ****************************************************************************/
  3133.  
  3134. STATIC ULONG ComputeSpoolSize ( PVOID Data, USHORT Dummy )
  3135. {
  3136.  /***************************************************************************
  3137.   * Build file specifier for the spool directory.                *
  3138.   ***************************************************************************/
  3139.  
  3140.   ULONG PathSize ;
  3141.   DosQuerySysInfo ( QSV_MAX_PATH_LENGTH, QSV_MAX_PATH_LENGTH, &PathSize, sizeof(PathSize) ) ;
  3142.  
  3143.   PBYTE Path = malloc ( PathSize ) ;
  3144.   if ( Path == NULL )
  3145.   {
  3146.     Log ( "ERROR: Unable to allocate memory for spool-file search path.\r\n" ) ;
  3147.     return ( 0 ) ;
  3148.   }
  3149.  
  3150.   PFILEFINDBUF3 Found = malloc ( PathSize + sizeof(FILEFINDBUF3) ) ;
  3151.   if ( Found == NULL )
  3152.   {
  3153.     Log ( "ERROR: Unable to allocate memory for spool-file search result structure.\r\n" ) ;
  3154.     free ( Path ) ;
  3155.     return ( 0 ) ;
  3156.   }
  3157.  
  3158.   strcpy ( (PCHAR)Path, (PCHAR)((PDATA)Data)->SpoolPath ) ;
  3159.   strcat ( (PCHAR)Path, "\\*.*" ) ;
  3160.  
  3161.  /***************************************************************************
  3162.   * If there are any files/directories in the spool directory . . .        *
  3163.   ***************************************************************************/
  3164.  
  3165.   HDIR hDir = (HDIR) HDIR_CREATE ;
  3166.   ULONG Count = 1 ;
  3167.   ULONG TotalSize = 0 ;
  3168.  
  3169.   if ( !DosFindFirst2 ( Path, &hDir,
  3170.     FILE_NORMAL | FILE_READONLY | FILE_DIRECTORY | FILE_ARCHIVED,
  3171.     Found, PathSize+sizeof(FILEFINDBUF3), &Count, FIL_STANDARD ) )
  3172.   {
  3173.  
  3174.    /*************************************************************************
  3175.     * Loop through every entry in the spool directory.                *
  3176.     *************************************************************************/
  3177.  
  3178.     do
  3179.     {
  3180.  
  3181.      /***********************************************************************
  3182.       * Ignore the parent and current directory entries.            *
  3183.       ***********************************************************************/
  3184.  
  3185.       if ( !strcmp ( (PCHAR)Found->achName, "." )
  3186.     OR !strcmp ( (PCHAR)Found->achName, ".." ) )
  3187.       {
  3188.     continue ;
  3189.       }
  3190.  
  3191.      /***********************************************************************
  3192.       * If the entry is a subdirectory . . .                    *
  3193.       ***********************************************************************/
  3194.  
  3195.       if ( Found->attrFile & FILE_DIRECTORY )
  3196.       {
  3197.  
  3198.        /*********************************************************************
  3199.     * Scan the subdirectory and add every file's size to the total.     *
  3200.     *********************************************************************/
  3201.  
  3202.     HDIR hDir = (HDIR) HDIR_CREATE ;
  3203.  
  3204.     strcpy ( (PCHAR)Path, (PCHAR)((PDATA)Data)->SpoolPath ) ;
  3205.     strcat ( (PCHAR)Path, "\\" ) ;
  3206.     strcat ( (PCHAR)Path, (PCHAR)Found->achName ) ;
  3207.     strcat ( (PCHAR)Path, "\\*.*" ) ;
  3208.  
  3209.     Count = 1 ;
  3210.     if ( !DosFindFirst2 ( Path, &hDir,
  3211.       FILE_NORMAL | FILE_READONLY | FILE_ARCHIVED,
  3212.       Found, PathSize+sizeof(FILEFINDBUF3), &Count, FIL_STANDARD ) )
  3213.     {
  3214.       do
  3215.       {
  3216.           TotalSize += Found->cbFileAlloc ;
  3217.       }
  3218.       while ( !DosFindNext ( hDir, Found, PathSize+sizeof(FILEFINDBUF3), &Count ) ) ;
  3219.       DosFindClose ( hDir ) ;
  3220.     }
  3221.  
  3222.     Count = 1 ;
  3223.       }
  3224.  
  3225.      /***********************************************************************
  3226.       * Else if it was a file, add its size to the total.            *
  3227.       ***********************************************************************/
  3228.  
  3229.       else
  3230.       {
  3231.     TotalSize += Found->cbFileAlloc ;
  3232.       }
  3233.     }
  3234.     while ( !DosFindNext ( hDir, Found, PathSize+sizeof(FILEFINDBUF3), &Count ) ) ;
  3235.  
  3236.    /*************************************************************************
  3237.     * Close the directory scan.                         *
  3238.     *************************************************************************/
  3239.  
  3240.     DosFindClose ( hDir ) ;
  3241.   }
  3242.  
  3243.   free ( Path ) ;
  3244.   free ( Found ) ;
  3245.  
  3246.   return ( TotalSize ) ;
  3247. }
  3248.  
  3249. /****************************************************************************
  3250.  *                                        *
  3251.  *    Compute CPU Load                                *
  3252.  *                                        *
  3253.  ****************************************************************************/
  3254.  
  3255. STATIC ULONG ComputeCpuLoad ( PVOID Data, USHORT Dummy )
  3256. {
  3257.   ((PDATA)Data)->MaxCount = (ULONG) max ( ((PDATA)Data)->MaxCount, ((PDATA)Data)->IdleCount ) ;
  3258.  
  3259.   ULONG Load = ( ( ((PDATA)Data)->MaxCount - ((PDATA)Data)->IdleCount ) * 100 ) / ((PDATA)Data)->MaxCount ;
  3260.  
  3261.   return ( Load ) ;
  3262. }
  3263.  
  3264. /****************************************************************************
  3265.  *                                        *
  3266.  *    Compute Active Task Count                         *
  3267.  *                                        *
  3268.  ****************************************************************************/
  3269.  
  3270. STATIC ULONG ComputeTaskCount ( PVOID Data, USHORT Dummy )
  3271. {
  3272.   return ( WinQuerySwitchList ( ((PDATA)Data)->Anchor, NULL, 0 ) ) ;
  3273. }
  3274.  
  3275. /****************************************************************************
  3276.  *                                        *
  3277.  *    Compute Drive Free Space                            *
  3278.  *                                        *
  3279.  ****************************************************************************/
  3280.  
  3281. STATIC ULONG ComputeDriveFree ( PVOID Data, USHORT Drive )
  3282. {
  3283.   DosError ( FERR_DISABLEHARDERR ) ;
  3284.   FSALLOCATE Allocation ;
  3285.   USHORT Status = DosQueryFSInfo ( Drive, FSIL_ALLOC, (PBYTE)&Allocation, sizeof(Allocation) ) ;
  3286.   DosError ( FERR_ENABLEHARDERR ) ;
  3287.  
  3288.   if ( Status )
  3289.   {
  3290.     return ( DRIVE_ERROR ) ;
  3291.   }
  3292.  
  3293.   DosError ( FERR_ENABLEHARDERR ) ;
  3294.   return ( Allocation.cUnitAvail*Allocation.cSectorUnit*Allocation.cbSector ) ;
  3295. }
  3296.  
  3297. /****************************************************************************
  3298.  *                                        *
  3299.  *    Monitor Loop Thread                            *
  3300.  *                                        *
  3301.  ****************************************************************************/
  3302.  
  3303. STATIC VOID MonitorLoopThread ( PMONITOR_PARMS Parms )
  3304. {
  3305.  /***************************************************************************
  3306.   * Set this thread's priority as high as it can go.                        *
  3307.   ***************************************************************************/
  3308.  
  3309.   DosSetPrty ( PRTYS_THREAD, PRTYC_TIMECRITICAL, PRTYD_MAXIMUM, 0 ) ;
  3310.  
  3311.  /***************************************************************************
  3312.   * Start up the high resolution timer, if it is available.            *
  3313.   ***************************************************************************/
  3314.  
  3315.   BOOL HiResTimer = OpenTimer ( ) ;
  3316.  
  3317.  /***************************************************************************
  3318.   * Loop forever . . .                                *
  3319.   ***************************************************************************/
  3320.  
  3321.   while ( 1 )
  3322.   {
  3323.  
  3324.    /*************************************************************************
  3325.     * Reset the last time and count seen.                    *
  3326.     *************************************************************************/
  3327.  
  3328.     ULONG LastMilliseconds ;
  3329.     TIMESTAMP Time [2] ;
  3330.  
  3331.     if ( HiResTimer )
  3332.       GetTime ( &Time[0] ) ;
  3333.     else
  3334.       DosQuerySysInfo ( QSV_MS_COUNT, QSV_MS_COUNT, &LastMilliseconds, sizeof(LastMilliseconds) ) ;
  3335.  
  3336.     ULONG LastCounter = *Parms->Counter ;
  3337.  
  3338.    /*************************************************************************
  3339.     * Sleep for a bit.                                *
  3340.     *************************************************************************/
  3341.  
  3342.     DosSleep ( *Parms->Interval ) ;
  3343.  
  3344.    /*************************************************************************
  3345.     * Find out how much time and counts went by.                *
  3346.     *************************************************************************/
  3347.  
  3348.     ULONG CurrentCounter = *Parms->Counter ;
  3349.  
  3350.     ULONG DeltaMilliseconds ;
  3351.  
  3352.     if ( HiResTimer )
  3353.     {
  3354.       GetTime ( &Time[1] ) ;
  3355.  
  3356.       ULONG Nanoseconds ;
  3357.       DeltaMilliseconds = ElapsedTime ( &Time[0], &Time[1], &Nanoseconds ) ;
  3358.  
  3359.       if ( Nanoseconds >= 500000L )
  3360.     DeltaMilliseconds ++ ;
  3361.     }
  3362.     else
  3363.     {
  3364.       ULONG Milliseconds ;
  3365.       DosQuerySysInfo ( QSV_MS_COUNT, QSV_MS_COUNT, &Milliseconds, sizeof(Milliseconds) ) ;
  3366.       DeltaMilliseconds = Milliseconds - LastMilliseconds ;
  3367.     }
  3368.  
  3369.    /*************************************************************************
  3370.     * Find out how much idle time was counted.    Adjust it to persecond.     *
  3371.     *************************************************************************/
  3372.  
  3373.     ULONG Counter = (ULONG) ( ( (double)(CurrentCounter-LastCounter) * 1000L ) / (double)DeltaMilliseconds ) ;
  3374.  
  3375.    /*************************************************************************
  3376.     * Tell the owner window to refresh its statistics.                *
  3377.     *************************************************************************/
  3378.  
  3379.     WinPostMsg ( Parms->Owner, WM_REFRESH, MPFROMLONG(Counter), 0L ) ;
  3380.   }
  3381. }
  3382.  
  3383. /****************************************************************************
  3384.  *                                        *
  3385.  *    Update the Item List to reflect changes in the available drives.    *
  3386.  *                                        *
  3387.  ****************************************************************************/
  3388.  
  3389. STATIC VOID UpdateDriveList
  3390. (
  3391.   HAB Anchor,
  3392.   HMODULE Library,
  3393.   HINI ProfileHandle,
  3394.   PPROFILE Profile,
  3395.   ULONG OldDrives,
  3396.   ULONG NewDrives
  3397. )
  3398. {
  3399.  /***************************************************************************
  3400.   * Lock the item list.                             *
  3401.   ***************************************************************************/
  3402.  
  3403.   if ( DosRequestMutexSem ( ItemSemaphore, 5000 ) )
  3404.   {
  3405.     Log ( "ERROR: Unable to lock item list to update the drive list.\r\n" ) ;
  3406.     DosRequestMutexSem ( ItemSemaphore, (ULONG)SEM_INDEFINITE_WAIT ) ;
  3407.   }
  3408.  
  3409.  /***************************************************************************
  3410.   * Get format strings.                             *
  3411.   ***************************************************************************/
  3412.  
  3413.   BYTE LabelFormat [80] ;
  3414.   WinLoadString ( Anchor, Library, IDS_SHOW_DRIVE_FREE_LABEL, sizeof(LabelFormat), LabelFormat ) ;
  3415.  
  3416.   BYTE OptionFormat [80] ;
  3417.   WinLoadString ( Anchor, Library, IDS_SHOW_DRIVE_FREE_OPTION, sizeof(OptionFormat), OptionFormat ) ;
  3418.  
  3419.  /***************************************************************************
  3420.   * Save the old item list for comparison.                    *
  3421.   ***************************************************************************/
  3422.  
  3423.   ITEM OldItems [ ITEM_BASE_COUNT + MAX_DRIVES ] ;
  3424.  
  3425.   memset ( OldItems, 0, sizeof(OldItems) ) ;
  3426.  
  3427.   USHORT OldCount = 0 ;
  3428.   if ( OldDrives )
  3429.   {
  3430.     OldCount = Profile->ItemCount ;
  3431.     memcpy ( OldItems, Items, sizeof(OldItems) ) ;
  3432.   }
  3433.  
  3434.  /***************************************************************************
  3435.   * Add items for each drive on the system.                    *
  3436.   ***************************************************************************/
  3437.  
  3438.   USHORT Count = ITEM_BASE_COUNT ;
  3439.   USHORT OldIndex = ITEM_BASE_COUNT ;
  3440.  
  3441.   NewDrives >>= 2 ;
  3442.   OldDrives >>= 2 ;
  3443.  
  3444.   for ( int Drive=3; Drive<=MAX_DRIVES; Drive++ )
  3445.   {
  3446.     while ( ( OldIndex < OldCount )
  3447.       AND ( (SHORT)OldItems[OldIndex].MenuId < IDM_SHOW_DRIVE_FREE + Drive ) )
  3448.     {
  3449.       OldIndex ++ ;
  3450.     }
  3451.  
  3452.     if ( NewDrives & 1 )
  3453.     {
  3454.       if ( OldDrives & 1 )
  3455.       {
  3456.     if ( ( OldIndex < OldCount )
  3457.       AND ( (SHORT)OldItems[OldIndex].MenuId == IDM_SHOW_DRIVE_FREE + Drive ) )
  3458.     {
  3459.       Items[Count++] = OldItems[OldIndex++] ;
  3460.     }
  3461.       }
  3462.       else
  3463.       {
  3464.         BYTE FileSystem [80] ;
  3465.     if ( CheckDrive ( Drive, FileSystem ) )
  3466.     {
  3467.       sprintf ( (PCHAR)Items[Count].Name,        "ShowDrive%c:",      Drive+'A'-1 ) ;
  3468.       sprintf ( (PCHAR)Items[Count].Label,      (PCHAR)LabelFormat,  Drive+'A'-1, FileSystem ) ;
  3469.       sprintf ( (PCHAR)Items[Count].MenuOption, (PCHAR)OptionFormat, Drive+'A'-1 ) ;
  3470.  
  3471.       Items[Count].MenuId = IDM_SHOW_DRIVE_FREE + Drive ;
  3472.       Items[Count].NewValue = ComputeDriveFree ;
  3473.       Items[Count].Parm = Drive ;
  3474.       Items[Count].Divisor = 1024 ;
  3475.       Items[Count].Suffix = 'K' ;
  3476.       Items[Count].Error = FALSE ;
  3477.       Count ++ ;
  3478.     }
  3479.       }
  3480.     }
  3481.  
  3482.     NewDrives >>= 1 ;
  3483.     OldDrives >>= 1 ;
  3484.   }
  3485.  
  3486.  /***************************************************************************
  3487.   * Save pointer to fixed configuration information.                *
  3488.   ***************************************************************************/
  3489.  
  3490.   Profile->Items = Items ;
  3491.   Profile->ItemCount = Count ;
  3492.  
  3493.  /***************************************************************************
  3494.   * Fetch the display flags for the drives.                    *
  3495.   ***************************************************************************/
  3496.  
  3497.   ULONG Size ;
  3498.   for ( int i=ITEM_BASE_COUNT; i<Profile->ItemCount; i++ )
  3499.   {
  3500.     PITEM Item = Profile->Items + i ;
  3501.     Item->Flag = TRUE ;
  3502.     if
  3503.     (
  3504.       PrfQueryProfileSize ( ProfileHandle, (PSZ)PROGRAM_NAME, Item->Name, &Size )
  3505.       AND
  3506.       ( Size == sizeof(Item->Flag) )
  3507.       AND
  3508.       PrfQueryProfileData ( ProfileHandle, (PSZ)PROGRAM_NAME, Item->Name, &Item->Flag, &Size )
  3509.     )
  3510.     {
  3511.       ;
  3512.     }
  3513.   }
  3514.  
  3515.  /***************************************************************************
  3516.   * Release the item list.                            *
  3517.   ***************************************************************************/
  3518.  
  3519.   DosReleaseMutexSem ( ItemSemaphore ) ;
  3520. }
  3521.  
  3522. /****************************************************************************
  3523.  *                                        *
  3524.  *    Check to see if drive should be added to display list.            *
  3525.  *                                        *
  3526.  ****************************************************************************/
  3527.  
  3528. STATIC BOOL CheckDrive ( USHORT Drive, PBYTE FileSystem )
  3529. {
  3530.  /***************************************************************************
  3531.   * First, check to see if drive is local or remote.  Remote drives are     *
  3532.   *   always monitored.                             *
  3533.   ***************************************************************************/
  3534.  
  3535.   BYTE Path [3] ;
  3536.   Path[0] = (BYTE) ( Drive + 'A' - 1 ) ;
  3537.   Path[1] = ':' ;
  3538.   Path[2] = 0 ;
  3539.  
  3540.   DosError ( FERR_DISABLEHARDERR ) ;
  3541.  
  3542.   BYTE Buffer [1024] ;
  3543.   ULONG Size = sizeof(Buffer) ;
  3544.   ULONG Status = DosQueryFSAttach ( Path, 0, FSAIL_QUERYNAME, (PFSQBUFFER2)Buffer, &Size ) ;
  3545.   DosError ( FERR_ENABLEHARDERR ) ;
  3546.  
  3547.   if ( Status )
  3548.   {
  3549.     Log ( "ERROR: Unable to query drive %s for file system.  Status %04X.\r\n",
  3550.       Path, Status ) ;
  3551.     return ( FALSE ) ;
  3552.   }
  3553.  
  3554.   USHORT cbName = ((PFSQBUFFER2)Buffer)->cbName ;
  3555.   strcpy ( (PCHAR)FileSystem, (PCHAR)((PFSQBUFFER2)(Buffer+cbName))->szFSDName ) ;
  3556.  
  3557.   if ( ((PFSQBUFFER2)Buffer)->iType == FSAT_REMOTEDRV )
  3558.   {
  3559.     return ( TRUE ) ;
  3560.   }
  3561.  
  3562.  /***************************************************************************
  3563.   * Attempt to open the local drive as an entire device.  If unable to do   *
  3564.   *   so, we cannot monitor this drive.                     *
  3565.   ***************************************************************************/
  3566.  
  3567.   ULONG Action ;
  3568.   HFILE Handle ;
  3569.   Status = DosOpen ( Path, &Handle, &Action, 0, 0, FILE_OPEN,
  3570.     OPEN_ACCESS_READONLY | OPEN_SHARE_DENYNONE |
  3571.     OPEN_FLAGS_DASD | OPEN_FLAGS_FAIL_ON_ERROR, 0 ) ;
  3572.  
  3573.   if ( Status )
  3574.   {
  3575.     Log ( "ERROR: Unable to open local drive %s.  Status %04X.\r\n",
  3576.       Path, Status ) ;
  3577.     return ( FALSE ) ;
  3578.   }
  3579.  
  3580.  /***************************************************************************
  3581.   * Check to see if the drive has removable media.  We cannot monitor such. *
  3582.   ***************************************************************************/
  3583.  
  3584.   BOOL Addit = FALSE ;
  3585.   BYTE Command = 0 ;
  3586.   BYTE NonRemovable ;
  3587.  
  3588.   ULONG LengthIn = sizeof(Command) ;
  3589.   ULONG LengthOut = sizeof(NonRemovable);
  3590.  
  3591.   if 
  3592.   ( 
  3593.     NOT DosDevIOCtl 
  3594.     ( 
  3595.       Handle, 8, 0x20, 
  3596.       &Command, sizeof(Command), &LengthIn,
  3597.       &NonRemovable, sizeof(NonRemovable), &LengthOut 
  3598.     ) 
  3599.   )
  3600.   {
  3601.     Addit = NonRemovable ;
  3602.   }
  3603.  
  3604.  /***************************************************************************
  3605.   * Close the drive.                                *
  3606.   ***************************************************************************/
  3607.  
  3608.   DosClose ( Handle ) ;
  3609.  
  3610.  /***************************************************************************
  3611.   * Return the final verdict.                            *
  3612.   ***************************************************************************/
  3613.  
  3614.   return ( Addit ) ;
  3615. }
  3616.  
  3617. /****************************************************************************
  3618.  *                                        *
  3619.  *    Rebuild the Display Items submenu.                    *
  3620.  *                                        *
  3621.  ****************************************************************************/
  3622.  
  3623. STATIC VOID RebuildDisplayItems ( HWND hwnd, PDATA Data )
  3624. {
  3625.  /***************************************************************************
  3626.   * Lock the item list.                             *
  3627.   ***************************************************************************/
  3628.  
  3629.   if ( DosRequestMutexSem ( ItemSemaphore, 5000 ) )
  3630.   {
  3631.     Log ( "ERROR: Unable to lock item list to rebuild the display item menu.\r\n" ) ;
  3632.     DosRequestMutexSem ( ItemSemaphore, (ULONG)SEM_INDEFINITE_WAIT ) ;
  3633.   }
  3634.  
  3635.  /***************************************************************************
  3636.   * Find the item menu's handle.                                            *
  3637.   ***************************************************************************/
  3638.  
  3639.   HWND Frame = WinQueryWindow ( hwnd, QW_PARENT ) ;
  3640.  
  3641.   HWND SysMenu = WinWindowFromID ( Frame, FID_SYSMENU ) ;
  3642.  
  3643.   MENUITEM MenuItem ;
  3644.   WinSendMsg ( SysMenu, MM_QUERYITEM,
  3645.     MPFROM2SHORT ( IDM_DISPLAY_ITEMS, TRUE ),
  3646.     (MPARAM) &MenuItem ) ;
  3647.  
  3648.   HWND ItemMenu = MenuItem.hwndSubMenu ;
  3649.  
  3650.  /***************************************************************************
  3651.   * Remove all items from the menu.                        *
  3652.   ***************************************************************************/
  3653.  
  3654.   if ( WinSendMsg ( ItemMenu, MM_QUERYITEMCOUNT, 0, 0 ) )
  3655.   {
  3656.     USHORT Id ;
  3657.     SHORT ItemsLeft ;
  3658.  
  3659.     do
  3660.     {
  3661.       Id = SHORT1FROMMR ( WinSendMsg ( ItemMenu, MM_ITEMIDFROMPOSITION,
  3662.     0, 0 ) ) ;
  3663.  
  3664.       ItemsLeft = SHORT1FROMMR ( WinSendMsg ( ItemMenu, MM_DELETEITEM,
  3665.     MPFROM2SHORT(Id,FALSE), 0 ) ) ;
  3666.     }
  3667.     while ( ItemsLeft ) ;
  3668.   }
  3669.  
  3670.  /***************************************************************************
  3671.   * Prepare menu item structure for use.                    *
  3672.   ***************************************************************************/
  3673.  
  3674.   MenuItem.iPosition = MIT_END ;
  3675.   MenuItem.afStyle = MIS_TEXT ;
  3676.   MenuItem.afAttribute = 0 ;
  3677.   MenuItem.hwndSubMenu = NULL ;
  3678.   MenuItem.hItem = 0L ;
  3679.  
  3680.  /***************************************************************************
  3681.   * Add all menu items called for.                        *
  3682.   ***************************************************************************/
  3683.  
  3684.   for ( int i=0; i<Data->Profile.ItemCount; i++ )
  3685.   {
  3686.     PITEM Item = Data->Profile.Items + i ;
  3687.  
  3688.     MenuItem.id = Item->MenuId ;
  3689.  
  3690.     AddSysSubMenuItem ( Frame, IDM_DISPLAY_ITEMS, &MenuItem, Item->MenuOption ) ;
  3691.  
  3692.     CheckMenuItem ( Frame, FID_SYSMENU, Item->MenuId, Item->Flag ) ;
  3693.   }
  3694.  
  3695.  /***************************************************************************
  3696.   * Split the menu if it's too tall.                                        *
  3697.   ***************************************************************************/
  3698.  
  3699.   if ( Data->Profile.ItemCount > 15 )
  3700.   {
  3701.     USHORT Midpoint = ( Data->Profile.ItemCount + 1 ) / 2 ;
  3702.     USHORT Id = Data->Profile.Items[Midpoint].MenuId ;
  3703.     MENUITEM MenuItem ;
  3704.  
  3705.     if ( WinSendMsg ( ItemMenu, MM_QUERYITEM, MPFROM2SHORT(Id,FALSE), &MenuItem ) )
  3706.     {
  3707.       MenuItem.afStyle |= MIS_BREAKSEPARATOR ;
  3708.       WinSendMsg ( ItemMenu, MM_SETITEM, MPFROM2SHORT(0,FALSE), &MenuItem ) ;
  3709.     }
  3710.   }
  3711.  
  3712.  /***************************************************************************
  3713.   * Release the item list.                            *
  3714.   ***************************************************************************/
  3715.  
  3716.   DosReleaseMutexSem ( ItemSemaphore ) ;
  3717. }
  3718.  
  3719. /****************************************************************************
  3720.  *                                        *
  3721.  *             Calibrate the Load Meter                *
  3722.  *                                        *
  3723.  ****************************************************************************/
  3724.  
  3725. STATIC ULONG CalibrateLoadMeter ( void )
  3726. {
  3727.  /***************************************************************************
  3728.   * Set result to zero as a default.                        *
  3729.   ***************************************************************************/
  3730.  
  3731.   double AdjustedMaxLoad = 0.0 ;
  3732.  
  3733.  /***************************************************************************
  3734.   * If HRTIMER.SYS has been installed . . .                    *
  3735.   ***************************************************************************/
  3736.  
  3737.   if ( OpenTimer ( ) )
  3738.   {
  3739.    /*************************************************************************
  3740.     * Increase this thread's priority to the maximum.                       *
  3741.     *************************************************************************/
  3742.  
  3743.     DosSetPrty ( PRTYS_THREAD, PRTYC_TIMECRITICAL, PRTYD_MAXIMUM, 0 ) ;
  3744.  
  3745.    /*************************************************************************
  3746.     * Create the calibration thread and set its priority next highest.        *
  3747.     *************************************************************************/
  3748.  
  3749.     TID tidCalibrate ;
  3750.     ULONG MaxLoad ;
  3751.     DosCreateThread ( &tidCalibrate, CounterThread, (ULONG)&MaxLoad, 0, 4096 ) ;
  3752.     DosSetPrty ( PRTYS_THREAD, PRTYC_TIMECRITICAL, PRTYD_MAXIMUM-1, tidCalibrate ) ;
  3753.     DosSuspendThread ( tidCalibrate ) ;
  3754.  
  3755.    /*************************************************************************
  3756.     * Reset the calibration count, get the time, and let the counter go.    *
  3757.     *************************************************************************/
  3758.  
  3759.     MaxLoad = 0 ;
  3760.     TIMESTAMP Time[2] ;
  3761.     GetTime ( &Time[0] ) ;
  3762.     DosResumeThread ( tidCalibrate ) ;
  3763.  
  3764.    /*************************************************************************
  3765.     * Sleep for one second.                            *
  3766.     *************************************************************************/
  3767.  
  3768.     DosSleep ( 1000 ) ;
  3769.  
  3770.    /*************************************************************************
  3771.     * Suspend the calibration counter and get the time.             *
  3772.     *************************************************************************/
  3773.  
  3774.     DosSuspendThread ( tidCalibrate ) ;
  3775.     GetTime ( &Time[1] ) ;
  3776.  
  3777.    /*************************************************************************
  3778.     * Return priorities to normal.                        *
  3779.     *************************************************************************/
  3780.  
  3781.     DosSetPrty ( PRTYS_THREAD, PRTYC_REGULAR, 0, 0 ) ;
  3782.  
  3783.    /*************************************************************************
  3784.     * Get the elapsed time and adjust the calibration count.            *
  3785.     *************************************************************************/
  3786.  
  3787.     ULONG Milliseconds ;
  3788.     ULONG Nanoseconds ;
  3789.     Milliseconds = ElapsedTime ( &Time[0], &Time[1], &Nanoseconds ) ;
  3790.  
  3791.     AdjustedMaxLoad = (double)MaxLoad * 1.0E9 ;
  3792.     AdjustedMaxLoad /= (double)Milliseconds*1.0E6L + (double)Nanoseconds ;
  3793.  
  3794.    /*************************************************************************
  3795.     * Close down the connection to HRTIMER.SYS.                 *
  3796.     *************************************************************************/
  3797.  
  3798.     CloseTimer ( ) ;
  3799.   }
  3800.  
  3801.  /***************************************************************************
  3802.   * Return the adjusted calibration count.  If HRTIMER was not there, it    *
  3803.   *   will be zero.                                *
  3804.   ***************************************************************************/
  3805.  
  3806.   return ( (ULONG)AdjustedMaxLoad ) ;
  3807. }
  3808.  
  3809. /****************************************************************************
  3810.  *                                        *
  3811.  *              General Purpose Counter Thread                *
  3812.  *                                        *
  3813.  ****************************************************************************/
  3814.  
  3815. STATIC VOID CounterThread ( PULONG Counter )
  3816. {
  3817.   while ( 1 )
  3818.   {
  3819.     (*Counter) ++ ;
  3820.   }
  3821. }
  3822.  
  3823. /****************************************************************************
  3824.  *                                        *
  3825.  *    Open the Profile                            *
  3826.  *                                        *
  3827.  ****************************************************************************/
  3828.  
  3829. STATIC HINI OpenProfile ( PSZ Name, HAB Anchor, HMODULE Library, HWND HelpInstance )
  3830. {
  3831.  /***************************************************************************
  3832.   * Query the system INI for the profile file's path.                       *
  3833.   ***************************************************************************/
  3834.  
  3835.   PSZ ProfilePath = NULL ;
  3836.   ULONG Size ;
  3837.  
  3838.   if ( PrfQueryProfileSize ( HINI_USERPROFILE, PSZ(PROGRAM_NAME), PSZ("INIPATH"), &Size ) )
  3839.   {
  3840.     // The info exists.  Fetch it.
  3841.     ProfilePath = PSZ ( AllocateMemory ( Size ) ) ;
  3842.     PrfQueryProfileData ( HINI_USERPROFILE, PSZ(PROGRAM_NAME), PSZ("INIPATH"),
  3843.       ProfilePath, &Size ) ;
  3844.  
  3845.     // Build the profile file name.
  3846.     BYTE FullPath [_MAX_PATH] ;
  3847.     strcpy ( PCHAR(FullPath), PCHAR(ProfilePath) ) ;
  3848.     strcat ( PCHAR(FullPath), "\\" ) ;
  3849.     strcat ( PCHAR(FullPath), PCHAR(Name) ) ;
  3850.     strcat ( PCHAR(FullPath), ".INI" ) ;
  3851.  
  3852.     // Clean the name up and expand it to a full path.
  3853.     BYTE Path [256] ;
  3854.     DosQueryPathInfo ( FullPath, FIL_QUERYFULLNAME, Path, sizeof(Path) ) ;
  3855.  
  3856.     // Does the file exist?  If not, discard the name.
  3857.     FILESTATUS3 Status ;
  3858.     if ( DosQueryPathInfo ( Path, FIL_STANDARD, &Status, sizeof(Status) ) )
  3859.     {
  3860.       FreeMemory ( ProfilePath ) ;
  3861.       ProfilePath = NULL ;
  3862.     }
  3863.   }
  3864.  
  3865.  /***************************************************************************
  3866.   * If the profile file couldn't be found, ask the user for a path.         *
  3867.   ***************************************************************************/
  3868.  
  3869.   if ( ProfilePath == NULL )
  3870.   {
  3871.     // Set the default path.
  3872.     BYTE Path [256] ;
  3873.     DosQueryPathInfo ( PSZ("."), FIL_QUERYFULLNAME, Path, sizeof(Path) ) ;
  3874.  
  3875.     // Call up the entry dialog.
  3876.     PROFILE_PARMS Parms ;
  3877.     Parms.id = IDD_PROFILE_PATH ;
  3878.     Parms.hwndHelp = HelpInstance ;
  3879.     Parms.Path = Path ;
  3880.     Parms.PathSize = sizeof(Path) ;
  3881.     if ( WinDlgBox ( HWND_DESKTOP, HWND_DESKTOP, ProfileProcessor,
  3882.       Library, IDD_PROFILE_PATH, &Parms ) )
  3883.     {
  3884.       // If OK, save the approved path in the system profile.
  3885.       ProfilePath = PSZ ( AllocateMemory ( strlen(PCHAR(Path)) + 1 ) ) ;
  3886.       strcpy ( PCHAR(ProfilePath), PCHAR(Path) ) ;
  3887.  
  3888.       PrfWriteProfileData ( HINI_USERPROFILE, PSZ(PROGRAM_NAME), PSZ("INIPATH"),
  3889.     ProfilePath, strlen(PCHAR(ProfilePath))+1 ) ;
  3890.     }
  3891.     else
  3892.     {
  3893.       // If not, return an error.
  3894.       return ( NULL ) ;
  3895.     }
  3896.   }
  3897.  
  3898.  /***************************************************************************
  3899.   * Build the full profile file name.                        *
  3900.   ***************************************************************************/
  3901.  
  3902.   BYTE ProfileName [_MAX_PATH] ;
  3903.   strcpy ( PCHAR(ProfileName), PCHAR(ProfilePath) ) ;
  3904.   strcat ( PCHAR(ProfileName), "\\" PROGRAM_NAME ".INI" ) ;
  3905.  
  3906.  /***************************************************************************
  3907.   * Release the memory previously allocated to store the path.            *
  3908.   ***************************************************************************/
  3909.  
  3910.   if ( ProfilePath )
  3911.   {
  3912.     FreeMemory ( ProfilePath ) ;
  3913.   }
  3914.  
  3915.  /***************************************************************************
  3916.   * Open/Create the profile file and return the resultant handle.        *
  3917.   ***************************************************************************/
  3918.  
  3919.   return ( PrfOpenProfile ( Anchor, ProfileName ) ) ;
  3920. }
  3921. 
  3922.