home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / samples / refch20 / menus.rlz
Encoding:
Text File  |  1992-09-30  |  1.2 KB  |  51 lines
  1. '***********************************************************************
  2. '    Menus.rlz                      
  3. '
  4. '    Realizer Reference Guide : Chapter 20
  5. '
  6. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  7. '    All rights reserved.
  8. '
  9. '***********************************************************************
  10.  
  11. PROC MyMenuProc(params) 
  12.     MenuSelect(params[_MenuNum]) 
  13.     SELECT CASE params[_ItemNum] 
  14.         CASE 1    ' Normal 
  15.             INPUT "Aren't menus fun!";             
  16.         CASE 2    ' Checkable 
  17.             IF Checked THEN 
  18.                 MenuSetCmd(2; _UnCheck) 
  19.                 Checked = 0 
  20.             ELSE 
  21.                 MenuSetCmd(2; _Check) 
  22.                 Checked = 1 
  23.             END IF     
  24.         CASE 3    ' Start/Stop 
  25.             IF Started THEN 
  26.                 MenuSetCmd(3, "&Start") 
  27.                 MenuSetCmd(4; _Normal) 
  28.                 Started = 0 
  29.             ELSE 
  30.                 MenuSetCmd(3, "&Stop") 
  31.                 MenuSetCmd(4; _Gray) 
  32.                 Started = 1 
  33.             END IF 
  34.         CASE 4    ' Grayed when Start 
  35.             INPUT "This command turns gray when Start is selected"; 
  36.     END SELECT 
  37. END PROC 
  38.  
  39. SampleMenu = MenuQUnique 
  40. MenuNew(SampleMenu; "&Sample") 
  41. MenuSetCmd(1, "&Normal") 
  42. MenuSetCmd(2, "&Checkable") 
  43. MenuSetCmd(_Separator) 
  44. MenuSetCmd(3, "&Start") 
  45. MenuSetCmd(4, "&Grayed when Start") 
  46. MenuSetProc(MyMenuProc) 
  47.  
  48. Checked = 0 
  49. Started = 0 
  50. MenuControl(_Show) 
  51.