home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / os2 / memsz200.zip / SETTIMER.CC < prev    next >
Text File  |  1993-06-04  |  7KB  |  215 lines
  1. /**************************************************************** SETTIMER.CC
  2.  *                                        *
  3.  *            Dialog: Set Timer Interval                *
  4.  *                                        *
  5.  ****************************************************************************/
  6.  
  7. #define INCL_BASE
  8. #define INCL_PM
  9. #define INCL_WINSTDSPIN
  10. #include <os2.h>
  11.  
  12. #include "support.h"
  13. #include "settimer.h"
  14.  
  15.  
  16. /****************************************************************************
  17.  *                                        *
  18.  *               Definitions & Declarations                *
  19.  *                                        *
  20.  ****************************************************************************/
  21.  
  22.   // Function Prototypes
  23.  
  24. static METHODFUNCTION InitDlg ;
  25. static METHODFUNCTION Command ;
  26. static METHODFUNCTION OK ;
  27. static METHODFUNCTION Cancel ;
  28.  
  29.  
  30.   // Global Data
  31.  
  32. static SHORT id ;
  33. static PUSHORT TimerInterval ;
  34.  
  35.  
  36. /****************************************************************************
  37.  *                                        *
  38.  *    "SetTimer" Dialog Processor                        *
  39.  *                                        *
  40.  ****************************************************************************/
  41.  
  42. extern MRESULT EXPENTRY SetTimerProcessor
  43. (
  44.   HWND hwnd,
  45.   USHORT msg,
  46.   MPARAM mp1,
  47.   MPARAM mp2
  48. )
  49. {
  50.  /***************************************************************************
  51.   *                Declarations                    *
  52.   ***************************************************************************/
  53.  
  54.   static METHOD Methods [] =
  55.   {
  56.     { WM_INITDLG, InitDlg },
  57.     { WM_COMMAND, Command }
  58.   } ;
  59.  
  60.  /***************************************************************************
  61.   * Dispatch the message according to the method table and return the        *
  62.   *   result.  Any messages not defined above get handled by the system     *
  63.   *   default dialog processor.                         *
  64.   ***************************************************************************/
  65.  
  66.   return ( DispatchMessage ( hwnd, msg, mp1, mp2, Methods, sizeof(Methods)/sizeof(Methods[0]), WinDefDlgProc ) ) ;
  67. }
  68.  
  69. /****************************************************************************
  70.  *                                        *
  71.  *    Initialize Dialog                            *
  72.  *                                        *
  73.  ****************************************************************************/
  74.  
  75. static MRESULT APIENTRY InitDlg
  76. ( 
  77.   HWND hwnd, 
  78.   USHORT msg,
  79.   MPARAM mp1, 
  80.   MPARAM mp2
  81. )
  82. {
  83.  /***************************************************************************
  84.   * Local Declarations                                *
  85.   ***************************************************************************/
  86.  
  87.   SETTIMER_PARMS *Parms = (SETTIMER_PARMS*) ( PVOIDFROMMP ( mp2 ) ) ;
  88.  
  89.  /***************************************************************************
  90.   * Save parameter data.                            *
  91.   ***************************************************************************/
  92.  
  93.   id = Parms->id ;
  94.   TimerInterval = Parms->TimerInterval ;
  95.  
  96.  /***************************************************************************
  97.   * Set the dialog help instance.                        *
  98.   ***************************************************************************/
  99.  
  100.   WinSetWindowUShort ( hwnd, QWS_ID, id ) ;
  101.  
  102.   if ( Parms->hwndHelp )
  103.   {
  104.     WinAssociateHelpInstance ( Parms->hwndHelp, hwnd ) ;
  105.   }
  106.  
  107.  /***************************************************************************
  108.   * Set the limits and initial value of the spin-button control.        *
  109.   ***************************************************************************/
  110.  
  111.   WinSendDlgItemMsg ( hwnd, id,
  112.     SPBM_SETLIMITS, (MPARAM)300L, (MPARAM)10L ) ;
  113.  
  114.   WinSendDlgItemMsg ( hwnd, id,
  115.     SPBM_SETCURRENTVALUE, (MPARAM)(*TimerInterval/100), NULL ) ;
  116.  
  117.  /***************************************************************************
  118.   * Return OK.                                    *
  119.   ***************************************************************************/
  120.  
  121.   return ( MRFROMSHORT ( FALSE ) ) ;
  122.  
  123.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  124. }
  125.  
  126. /****************************************************************************
  127.  *                                        *
  128.  *    Process command messages.                        *
  129.  *                                        *
  130.  ****************************************************************************/
  131.  
  132. static MRESULT APIENTRY Command
  133. ( 
  134.   HWND hwnd, 
  135.   USHORT msg, 
  136.   MPARAM mp1, 
  137.   MPARAM mp2
  138. )
  139. {
  140.  /***************************************************************************
  141.   * Local Declarations                                *
  142.   ***************************************************************************/
  143.  
  144.   static METHOD Methods [] =
  145.   {
  146.     { DID_OK,      OK     },
  147.     { DID_CANCEL, Cancel },
  148.   } ;
  149.  
  150.  /***************************************************************************
  151.   * Dispatch the message without a default message processor.            *
  152.   ***************************************************************************/
  153.  
  154.   return ( DispatchMessage ( hwnd, SHORT1FROMMP(mp1), mp1, mp2, Methods, sizeof(Methods)/sizeof(Methods[0]), NULL ) ) ;
  155.  
  156.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  157. }
  158.  
  159. /****************************************************************************
  160.  *                                        *
  161.  *    Process acceptance of new timer value.                    *
  162.  *                                        *
  163.  ****************************************************************************/
  164.  
  165. static MRESULT APIENTRY OK
  166. ( 
  167.   HWND hwnd, 
  168.   USHORT msg, 
  169.   MPARAM mp1, 
  170.   MPARAM mp2
  171. )
  172. {
  173.  /***************************************************************************
  174.   * Save the results.                                *
  175.   ***************************************************************************/
  176.  
  177.   WinSendDlgItemMsg ( hwnd, id, SPBM_QUERYVALUE, TimerInterval, MPFROM2SHORT(NULL,SPBQ_UPDATEIFVALID) ) ;
  178.   *TimerInterval *= 100 ;
  179.  
  180.  /***************************************************************************
  181.   * Dismiss the dialog with a TRUE status.                    *
  182.   ***************************************************************************/
  183.  
  184.   WinDismissDlg ( hwnd, TRUE ) ;
  185.  
  186.   return ( 0 ) ;
  187.  
  188.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  189. }
  190.  
  191. /****************************************************************************
  192.  *                                        *
  193.  *    Process cancellation.                            *
  194.  *                                        *
  195.  ****************************************************************************/
  196.  
  197. static MRESULT APIENTRY Cancel
  198. ( 
  199.   HWND hwnd, 
  200.   USHORT msg, 
  201.   MPARAM mp1, 
  202.   MPARAM mp2
  203. )
  204. {
  205.  /***************************************************************************
  206.   * Dismiss the dialog with a TRUE status.                    *
  207.   ***************************************************************************/
  208.  
  209.   WinDismissDlg ( hwnd, FALSE ) ;
  210.  
  211.   return ( 0 ) ;
  212.  
  213.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  214. }
  215.