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