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