home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1995 March / SOFM_Mar1995.bin / pc / utility / os2 / clock / config.cpp < prev    next >
Text File  |  1995-01-27  |  18KB  |  466 lines
  1. /***************************************************************** CONFIG.CPP
  2.  *                                                                          *
  3.  *                        Clock Configuration Dialog                        *
  4.  *                                                                          *
  5.  ****************************************************************************/
  6.  
  7. #define INCL_BASE
  8. #define INCL_PM
  9. #define INCL_WINSTDSPIN
  10. #include <os2.h>
  11.  
  12. #include <stdlib.h>
  13. #include <string.h>
  14.  
  15. #include "debug.h"
  16. #include "support.h"
  17. #include "config.h"
  18.  
  19.  
  20. /****************************************************************************
  21.  *                                                                          *
  22.  *                     Definitions & Declarations                           *
  23.  *                                                                          *
  24.  ****************************************************************************/
  25.  
  26.   // Constants
  27.  
  28. enum
  29. {
  30.   IDD_ANALOG,
  31.   IDD_DIGITAL,
  32.   IDD_HOUR24,
  33.   IDD_HIDECONTROLS,
  34.   IDD_CHIME,
  35.   IDD_FLOAT,
  36.   IDD_ANIMATE,
  37.   IDD_TASKCOUNT,
  38.   IDD_CPULOAD,
  39.   IDD_TASKCOUNTRED,
  40.   IDD_TASKCOUNTYELLOW,
  41.   IDD_CPULOADRED,
  42.   IDD_CPULOADYELLOW
  43. } ;
  44.  
  45.  
  46.   // Type Definitions
  47.  
  48. typedef struct
  49. {
  50.   BOOL   Analog ;
  51.   BOOL   Hour24 ;
  52.   BOOL   HideControls ;
  53.   BOOL   Chime ;
  54.   BOOL   Float ;
  55.   BOOL   Animate ;
  56.   USHORT AlertType ;
  57.   USHORT AlertLevels [2] [2] ;
  58.   PCONFIG_PARMS Parms ;
  59. }
  60. DATA, *PDATA ;
  61.  
  62.  
  63.   // Function Prototypes
  64.  
  65. static METHODFUNCTION InitDlg ;
  66. static METHODFUNCTION Control ;
  67. static METHODFUNCTION Command ;
  68. static METHODFUNCTION OK ;
  69. static METHODFUNCTION Cancel ;
  70.  
  71.  
  72.   // Global Data (local to this module)
  73.  
  74. static DATA Data ;
  75.  
  76.  
  77. /****************************************************************************
  78.  *                                                                          *
  79.  *      "Configure" Dialog Processor                                            *
  80.  *                                                                          *
  81.  ****************************************************************************/
  82.  
  83. extern MRESULT EXPENTRY ConfigureProcessor
  84. (
  85.   HWND hwnd,
  86.   ULONG msg,
  87.   MPARAM mp1,
  88.   MPARAM mp2
  89. )
  90. {
  91.  /***************************************************************************
  92.   *                             Declarations                                *
  93.   ***************************************************************************/
  94.  
  95.   static METHOD Methods [] =
  96.   {
  97.     { WM_INITDLG, InitDlg },
  98.     { WM_CONTROL, Control },
  99.     { WM_COMMAND, Command }
  100.   } ;
  101.  
  102.  /***************************************************************************
  103.   * Dispatch the message according to the method table and return the       *
  104.   *   result.  Any messages not defined above get handled by the system     *
  105.   *   default dialog processor.                                             *
  106.   ***************************************************************************/
  107.  
  108.   return ( DispatchMessage ( hwnd, msg, mp1, mp2, Methods, sizeof(Methods)/sizeof(Methods[0]), WinDefDlgProc ) ) ;
  109. }
  110.  
  111. /****************************************************************************
  112.  *                                                                          *
  113.  *      Initialize Dialog                                                   *
  114.  *                                                                          *
  115.  ****************************************************************************/
  116.  
  117. static MRESULT APIENTRY InitDlg
  118. ( 
  119.   HWND hwnd, 
  120.   ULONG msg,
  121.   MPARAM mp1, 
  122.   MPARAM mp2
  123. )
  124. {
  125.  /***************************************************************************
  126.   * Local Declarations                                                      *
  127.   ***************************************************************************/
  128.  
  129.   PCONFIG_PARMS Parms ;
  130.  
  131.  /***************************************************************************
  132.   * Get initial parameters.                                                 *
  133.   ***************************************************************************/
  134.  
  135.   Parms = (PCONFIG_PARMS) ( PVOIDFROMMP ( mp2 ) ) ;
  136.  
  137.   Data.Analog       = Parms->Analog ;
  138.   Data.Hour24       = Parms->Hour24 ;
  139.   Data.HideControls = Parms->HideControls ;
  140.   Data.Chime        = Parms->Chime ;
  141.   Data.Float        = Parms->Float ;
  142.   Data.Animate      = Parms->Animate ;
  143.   Data.AlertType    = Parms->AlertType ;
  144.  
  145.   memcpy ( Data.AlertLevels, Parms->AlertLevels, sizeof(Data.AlertLevels) ) ;
  146.  
  147.   Data.Parms = Parms ;
  148.  
  149.  /***************************************************************************
  150.   * Associate the help instance.                                            *
  151.   ***************************************************************************/
  152.  
  153.   WinSetWindowUShort ( hwnd, QWS_ID, Parms->id ) ;
  154.  
  155.   if ( Parms->hwndHelp )
  156.   {
  157.     WinAssociateHelpInstance ( Parms->hwndHelp, hwnd ) ;
  158.   }
  159.  
  160.  /***************************************************************************
  161.   * Set the radio button and checkbox values.                               *
  162.   ***************************************************************************/
  163.  
  164.   WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_ANALOG,
  165.     BM_SETCHECK, MPFROMSHORT(Data.Analog==TRUE), 0 ) ;
  166.  
  167.   WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_DIGITAL,
  168.     BM_SETCHECK, MPFROMSHORT(Data.Analog==FALSE), 0 ) ;
  169.  
  170.   WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_HOUR24,
  171.     BM_SETCHECK, MPFROMSHORT(Data.Hour24), 0 ) ;
  172.  
  173.   WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_HIDECONTROLS,
  174.     BM_SETCHECK, MPFROMSHORT(Data.HideControls), 0 ) ;
  175.  
  176.   WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_CHIME,
  177.     BM_SETCHECK, MPFROMSHORT(Data.Chime), 0 ) ;
  178.  
  179.   WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_FLOAT,
  180.     BM_SETCHECK, MPFROMSHORT(Data.Float), 0 ) ;
  181.  
  182.   WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_ANIMATE,
  183.     BM_SETCHECK, MPFROMSHORT(Data.Animate), 0 ) ;
  184.  
  185.   WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_TASKCOUNT,
  186.     BM_SETCHECK, MPFROMSHORT(Data.AlertType==0), 0 ) ;
  187.  
  188.   WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_CPULOAD,
  189.     BM_SETCHECK, MPFROMSHORT(Data.AlertType==1), 0 ) ;
  190.  
  191.  /***************************************************************************
  192.   * Set the limits and initial values of the spin-button controls.          *
  193.   ***************************************************************************/
  194.  
  195.   WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_TASKCOUNTRED,
  196.     SPBM_SETLIMITS, (MPARAM)100, (MPARAM)(Data.AlertLevels[0][0]+1) ) ;
  197.  
  198.   WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_TASKCOUNTYELLOW,
  199.     SPBM_SETLIMITS, (MPARAM)(Data.AlertLevels[0][1]-1), (MPARAM)0 ) ;
  200.  
  201.   WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_CPULOADRED,
  202.     SPBM_SETLIMITS, (MPARAM)100, (MPARAM)(Data.AlertLevels[1][0]+1) ) ;
  203.  
  204.   WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_CPULOADYELLOW,
  205.     SPBM_SETLIMITS, (MPARAM)(Data.AlertLevels[1][1]-1), (MPARAM)0 ) ;
  206.  
  207.   WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_TASKCOUNTRED,
  208.     SPBM_SETCURRENTVALUE, (MPARAM)Data.AlertLevels[0][1], NULL ) ;
  209.  
  210.   WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_TASKCOUNTYELLOW,
  211.     SPBM_SETCURRENTVALUE, (MPARAM)Data.AlertLevels[0][0], NULL ) ;
  212.  
  213.   WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_CPULOADRED,
  214.     SPBM_SETCURRENTVALUE, (MPARAM)Data.AlertLevels[1][1], NULL ) ;
  215.  
  216.   WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_CPULOADYELLOW,
  217.     SPBM_SETCURRENTVALUE, (MPARAM)Data.AlertLevels[1][0], NULL ) ;
  218.  
  219.  /***************************************************************************
  220.   * Set input focus to the first group.                                     *
  221.   ***************************************************************************/
  222.  
  223.   if ( Data.Analog )
  224.     WinSetFocus ( HWND_DESKTOP, WinWindowFromID ( hwnd, Data.Parms->id+IDD_ANALOG ) ) ;
  225.   else
  226.     WinSetFocus ( HWND_DESKTOP, WinWindowFromID ( hwnd, Data.Parms->id+IDD_DIGITAL ) ) ;
  227.  
  228.  /***************************************************************************
  229.   * Return without error.                                                   *
  230.   ***************************************************************************/
  231.  
  232.   return ( MRFROMSHORT ( FALSE ) ) ;
  233. }
  234.  
  235. /****************************************************************************
  236.  *                                                                          *
  237.  *      Process control notifications                                       *
  238.  *                                                                          *
  239.  ****************************************************************************/
  240.  
  241. static MRESULT APIENTRY Control
  242. ( 
  243.   HWND hwnd, 
  244.   ULONG msg,
  245.   MPARAM mp1, 
  246.   MPARAM mp2
  247. )
  248. {
  249.  /***************************************************************************
  250.   * Local Declarations                                                      *
  251.   ***************************************************************************/
  252.  
  253.   USHORT id ;
  254.   LONG   Long ;
  255.   USHORT Message ;
  256.  
  257.  /***************************************************************************
  258.   * Decode the message.  Find out what control sent it, and what the        *
  259.   *   control had to say.                                                   *
  260.   ***************************************************************************/
  261.  
  262.   id = SHORT1FROMMP ( mp1 ) ;
  263.   Message = SHORT2FROMMP ( mp1 ) ;
  264.  
  265.  /***************************************************************************
  266.   * Here we process messages from the spin buttons.                         *
  267.   ***************************************************************************/
  268.  
  269.   if ( id == (USHORT) ( Data.Parms->id+IDD_TASKCOUNTRED ) )
  270.   {
  271.     if ( ( Message == SPBN_CHANGE )
  272.       OR ( Message == SPBN_UPARROW )
  273.       OR ( Message == SPBN_DOWNARROW ) )
  274.     {
  275.       WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_TASKCOUNTRED,
  276.         SPBM_QUERYVALUE, &Long, MPFROM2SHORT(0,SPBQ_UPDATEIFVALID) ) ;
  277.       WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_TASKCOUNTYELLOW,
  278.         SPBM_SETLIMITS, (MPARAM)(Long-1), (MPARAM)0 ) ;
  279.     }
  280.   }
  281.   else if ( id == (USHORT) ( Data.Parms->id+IDD_TASKCOUNTYELLOW ) )
  282.   {
  283.     if ( ( Message == SPBN_CHANGE )
  284.       OR ( Message == SPBN_UPARROW )
  285.       OR ( Message == SPBN_DOWNARROW ) )
  286.     {
  287.       WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_TASKCOUNTYELLOW,
  288.         SPBM_QUERYVALUE, &Long, MPFROM2SHORT(0,SPBQ_UPDATEIFVALID) ) ;
  289.       WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_TASKCOUNTRED,
  290.         SPBM_SETLIMITS, (MPARAM)100, (MPARAM)(Long+1) ) ;
  291.     }
  292.   }
  293.   else if ( id == (USHORT) ( Data.Parms->id+IDD_CPULOADRED ) )
  294.   {
  295.     if ( ( Message == SPBN_CHANGE )
  296.       OR ( Message == SPBN_UPARROW )
  297.       OR ( Message == SPBN_DOWNARROW ) )
  298.     {
  299.       WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_CPULOADRED,
  300.         SPBM_QUERYVALUE, &Long, MPFROM2SHORT(0,SPBQ_UPDATEIFVALID) ) ;
  301.       WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_CPULOADYELLOW,
  302.         SPBM_SETLIMITS, (MPARAM)(Long-1), (MPARAM)0 ) ;
  303.     }
  304.   }
  305.   else if ( id == (USHORT) ( Data.Parms->id+IDD_CPULOADYELLOW ) )
  306.   {
  307.     if ( ( Message == SPBN_CHANGE )
  308.       OR ( Message == SPBN_UPARROW )
  309.       OR ( Message == SPBN_DOWNARROW ) )
  310.     {
  311.       WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_CPULOADYELLOW,
  312.         SPBM_QUERYVALUE, &Long, MPFROM2SHORT(0,SPBQ_UPDATEIFVALID) ) ;
  313.       WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_CPULOADRED,
  314.         SPBM_SETLIMITS, (MPARAM)100, (MPARAM)(Long+1) ) ;
  315.     }
  316.   }
  317.  
  318.  /***************************************************************************
  319.   * Return without error.                                                   *
  320.   ***************************************************************************/
  321.  
  322.   return ( MRFROMSHORT ( FALSE ) ) ;
  323. }
  324.  
  325. /****************************************************************************
  326.  *                                                                          *
  327.  *      Process commands received by the Configure Dialog                       *
  328.  *                                                                          *
  329.  ****************************************************************************/
  330.  
  331. static MRESULT APIENTRY Command
  332. ( 
  333.   HWND hwnd, 
  334.   ULONG msg, 
  335.   MPARAM mp1, 
  336.   MPARAM mp2
  337. )
  338. {
  339.  /***************************************************************************
  340.   * Local Declarations                                                      *
  341.   ***************************************************************************/
  342.  
  343.   static METHOD Methods [] =
  344.   {
  345.     { DID_OK,     OK     },
  346.     { DID_CANCEL, Cancel },
  347.   } ;
  348.  
  349.  /***************************************************************************
  350.   * Dispatch the message without a default message processor.               *
  351.   ***************************************************************************/
  352.  
  353.   return ( DispatchMessage ( hwnd, SHORT1FROMMP(mp1), mp1, mp2, Methods, sizeof(Methods)/sizeof(Methods[0]), 0 ) ) ;
  354. }
  355.  
  356. /****************************************************************************
  357.  *                                                                          *
  358.  *      Process the Configure Dialog's OK button being pressed.             *
  359.  *                                                                          *
  360.  ****************************************************************************/
  361.  
  362. static MRESULT APIENTRY OK
  363. ( 
  364.   HWND hwnd, 
  365.   ULONG msg, 
  366.   MPARAM mp1, 
  367.   MPARAM mp2
  368. )
  369. {
  370.  /***************************************************************************
  371.   * Local Declarations                                                      *
  372.   ***************************************************************************/
  373.  
  374.   LONG Long ;
  375.  
  376.  /***************************************************************************
  377.   * Query the buttons for their new settings.                               *
  378.   ***************************************************************************/
  379.  
  380.   Data.Analog = (BOOL) SHORT1FROMMR ( WinSendDlgItemMsg ( hwnd,
  381.     Data.Parms->id+IDD_ANALOG, BM_QUERYCHECK, 0L, 0L ) ) ;
  382.  
  383.   Data.Hour24 = (BOOL) SHORT1FROMMR ( WinSendDlgItemMsg ( hwnd,
  384.     Data.Parms->id+IDD_HOUR24, BM_QUERYCHECK, 0L, 0L ) ) ;
  385.  
  386.   Data.HideControls = (BOOL) SHORT1FROMMR ( WinSendDlgItemMsg ( hwnd,
  387.     Data.Parms->id+IDD_HIDECONTROLS, BM_QUERYCHECK, 0L, 0L ) ) ;
  388.  
  389.   Data.Chime = (BOOL) SHORT1FROMMR ( WinSendDlgItemMsg ( hwnd,
  390.     Data.Parms->id+IDD_CHIME, BM_QUERYCHECK, 0L, 0L ) ) ;
  391.  
  392.   Data.Float = (BOOL) SHORT1FROMMR ( WinSendDlgItemMsg ( hwnd,
  393.     Data.Parms->id+IDD_FLOAT, BM_QUERYCHECK, 0L, 0L ) ) ;
  394.  
  395.   Data.Animate = (BOOL) SHORT1FROMMR ( WinSendDlgItemMsg ( hwnd,
  396.     Data.Parms->id+IDD_ANIMATE, BM_QUERYCHECK, 0L, 0L ) ) ;
  397.  
  398.   Data.AlertType = (USHORT) SHORT1FROMMR ( WinSendDlgItemMsg ( hwnd,
  399.     Data.Parms->id+IDD_CPULOAD, BM_QUERYCHECK, 0L, 0L ) ) ;
  400.  
  401.  /***************************************************************************
  402.   * Query the spinbuttons for their new settings.                           *
  403.   ***************************************************************************/
  404.  
  405.   WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_TASKCOUNTRED,
  406.     SPBM_QUERYVALUE, &Long, MPFROM2SHORT(0,SPBQ_UPDATEIFVALID) ) ;
  407.   Data.AlertLevels[0][1] = (USHORT) Long ;
  408.  
  409.   WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_TASKCOUNTYELLOW,
  410.     SPBM_QUERYVALUE, &Long, MPFROM2SHORT(0,SPBQ_UPDATEIFVALID) ) ;
  411.   Data.AlertLevels[0][0] = (USHORT) Long ;
  412.  
  413.   WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_CPULOADRED,
  414.     SPBM_QUERYVALUE, &Long, MPFROM2SHORT(0,SPBQ_UPDATEIFVALID) ) ;
  415.   Data.AlertLevels[1][1] = (USHORT) Long ;
  416.  
  417.   WinSendDlgItemMsg ( hwnd, Data.Parms->id+IDD_CPULOADYELLOW,
  418.     SPBM_QUERYVALUE, &Long, MPFROM2SHORT(0,SPBQ_UPDATEIFVALID) ) ;
  419.   Data.AlertLevels[1][0] = (USHORT) Long ;
  420.  
  421.  /***************************************************************************
  422.   * Save the altered data to the original parameter block.                  *
  423.   ***************************************************************************/
  424.  
  425.   Data.Parms->Analog       = Data.Analog ;
  426.   Data.Parms->Hour24       = Data.Hour24 ;
  427.   Data.Parms->HideControls = Data.HideControls ;
  428.   Data.Parms->Chime        = Data.Chime ;
  429.   Data.Parms->Float        = Data.Float ;
  430.   Data.Parms->Animate      = Data.Animate ;
  431.   Data.Parms->AlertType    = Data.AlertType ;
  432.  
  433.   memcpy ( Data.Parms->AlertLevels, Data.AlertLevels, sizeof(Data.AlertLevels) ) ;
  434.  
  435.  /***************************************************************************
  436.   * Dismiss the dialog with a TRUE status.                                  *
  437.   ***************************************************************************/
  438.  
  439.   WinDismissDlg ( hwnd, TRUE ) ;
  440.  
  441.   return ( 0 ) ;
  442. }
  443.  
  444. /****************************************************************************
  445.  *                                                                          *
  446.  *      Process the Configure Dialog's being cancelled.                     *
  447.  *                                                                          *
  448.  ****************************************************************************/
  449.  
  450. static MRESULT APIENTRY Cancel
  451. ( 
  452.   HWND hwnd, 
  453.   ULONG msg, 
  454.   MPARAM mp1, 
  455.   MPARAM mp2
  456. )
  457. {
  458.  /***************************************************************************
  459.   * Dismiss the dialog with a TRUE status.                                  *
  460.   ***************************************************************************/
  461.  
  462.   WinDismissDlg ( hwnd, FALSE ) ;
  463.  
  464.   return ( 0 ) ;
  465. }
  466.