home *** CD-ROM | disk | FTP | other *** search
/ PC Shareware 1996 December / PC_Shareware-1996-12.iso / windows / spectrum / sources / speed.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-06-16  |  2.6 KB  |  93 lines
  1.  
  2. /* Speed.c: Speed dialog interface implementation.
  3.  *
  4.  * Copyright 1996 Rui Fernando Ferreira Ribeiro.
  5.  *
  6.  * This program is free software; you can redistribute it and/or modify
  7.  * it under the terms of the GNU General Public License as published by
  8.  * the Free Software Foundation; either version 2 of the License, or
  9.  * (at your option) any later version.
  10.  *
  11.  * This program is distributed in the hope that it will be useful,
  12.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14.  * GNU General Public License for more details.
  15.  *
  16.  * You should have received a copy of the GNU General Public License
  17.  * along with this program; if not, write to the Free Software
  18.  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19.  */
  20.  
  21. #include <windows.h>
  22. #include "wspecem.h"            // Local header
  23. #include "env.h"
  24.  
  25. //   determine wich value there's on the box, and if there is one, return
  26. // it
  27. static BOOL ReadInt(HWND hwnd,int Control,unsigned short Min,
  28.             unsigned short  Max, unsigned short *Val)
  29. {
  30.     BOOL fError;
  31.     int n;
  32.  
  33.     n=(int)GetDlgItemInt(hwnd,Control,&fError,FALSE);
  34.     if (!fError || (n < Min) || (n > Max))
  35.     return(TRUE);
  36.     else
  37.     *Val=n;
  38.     return(FALSE);
  39. }
  40.  
  41. // dispatcher : handle the dialog
  42. BOOL CALLBACK DoSpeed(HWND hwnd,UINT Message,WPARAM wParam,LPARAM lParam)
  43. { 
  44.     char szBuffer[7];
  45.  
  46.     switch(Message)
  47.     {
  48.        case WM_INITDIALOG:
  49.       wsprintf((LPSTR)szBuffer, "%u", DelayEmVal);
  50.       SendDlgItemMessage(hwnd,IDC_DELAY,WM_SETTEXT,
  51.             0,(LPARAM)(LPSTR)szBuffer);
  52.       wsprintf((LPSTR)szBuffer, "%u", ScreenUpdate);
  53.       SendDlgItemMessage(hwnd,IDC_FRAMES,WM_SETTEXT,
  54.             0,(LPARAM)(LPSTR)szBuffer);
  55.       return(TRUE);
  56.  
  57.        case WM_COMMAND:
  58.       switch(wParam)
  59.       {
  60.          unsigned short frames;
  61.  
  62.          case IDOK:
  63.         if(ReadInt(hwnd,IDC_DELAY,0,65535,&DelayEmVal))
  64.         {
  65.            MessageBeep(MB_ICONEXCLAMATION);
  66.            MessageBox(hwnd, "Address must be between 16384 and 65535.",
  67.               "Speed", MB_OK | MB_ICONEXCLAMATION);
  68.            SetFocus(GetDlgItem(hwnd, IDC_ADDRESS) );
  69.            return(TRUE);
  70.         }
  71.  
  72.         if(ReadInt(hwnd,IDC_FRAMES,1,127,&frames))
  73.         {
  74.            MessageBeep(MB_ICONEXCLAMATION);
  75.            MessageBox(hwnd, "Value must be between 1 and 127.",
  76.               "Speed", MB_OK | MB_ICONEXCLAMATION);
  77.            SetFocus(GetDlgItem(hwnd, IDC_VALUE) );
  78.            return(TRUE);
  79.         }
  80.         ScreenUpdate = frames;
  81.         EndDialog(hwnd,1);
  82.         return(TRUE);
  83.  
  84.          case IDCANCEL:
  85.         EndDialog(hwnd,0);
  86.         return(TRUE);
  87.       }
  88.     }
  89.     return(FALSE);
  90. }
  91.  
  92. /* EOF: Speed.c */
  93.