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