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