home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a067 / 1.img / GRUMP501.EXE / GRUMPM.CH < prev    next >
Encoding:
Text File  |  1991-08-28  |  3.6 KB  |  74 lines
  1. /*
  2.     File: GRUMPM.CH
  3.     System: GRUMPFISH LIBRARY
  4.     Author: Greg Lief
  5.     Copyright (c) 1988-90, Greg Lief
  6.     Header file to be used in conjunction with Grumpfish Library's LITE_MENU2()
  7.     This provides new definitions for Clipper's @..PROMPT and MENU TO commands.
  8. */
  9.  
  10.  
  11. #xcommand @ <row>, <col> PROMPT <prompt> [MESSAGE <msg>] [WHEN <when>] ;
  12.            [MESSAGECOLOR <msgcolor>] [ACTION <action>]                 ;
  13.            [TRIGGERCOLOR <trigcolor>]                                  ;
  14.                                                                    =>  ;
  15.            if(menulist == NIL, menulist := {}, )                     ; ;
  16.            setpos(<row>, <col>)                                      ; ;
  17.            aadd(menulist, { row(), col(), <prompt>, <msg>, <msgcolor>, ;
  18.                            <{when}>, <{action}>, <trigcolor> } )
  19.  
  20.  
  21. #xcommand MENU TO <v> [COLOR <color>] [INITIAL <initial>]          ;
  22.                       [CLOCK] [TIMEOUT <timeout>]                  ;
  23.                       [PULLDOWN]                                   ;
  24.                       [EXITEVENT <exitevent>]                      ;
  25.                       [TRIGGERCOLOR <trigcolor>]                   ;
  26.                                                                 => ;
  27.          <v> := lite_menu2(menulist, <color>, <initial>, #<v>,     ;
  28.                           {|| gfclock()}, <timeout>, <{exitevent}>,;
  29.                           <trigcolor>, chr(27)+chr(19)+chr(13),    ;
  30.                                        chr(27)+chr(4)+chr(13) )    ;
  31.          ; menulist := {}
  32.  
  33.  
  34.  
  35. #xcommand MENU TO <v> [COLOR <color>] [INITIAL <initial>]          ;
  36.                       [CLOCK] [TIMEOUT <timeout>]                  ;
  37.                       [LEFT <left>] [RIGHT <right>]                ;
  38.                       [EXITEVENT <exitevent>]                      ;
  39.                       [TRIGGERCOLOR <trigcolor>]                   ;
  40.                                                                 => ;
  41.          <v> := lite_menu2(menulist, <color>, <initial>, #<v>,     ;
  42.                           {|| gfclock()}, <timeout>, <{exitevent}>,;
  43.                           <trigcolor>, <left>, <right>)            ;
  44.          ; menulist := {}
  45.  
  46.  
  47. #xcommand MENU TO <v> [COLOR <color>] [INITIAL <initial>]          ;
  48.                       [EVENT <event>] [TIMEOUT <timeout>]          ;
  49.                       [PULLDOWN]                                   ;
  50.                       [EXITEVENT <exitevent>]                      ;
  51.                       [TRIGGERCOLOR <trigcolor>]                   ;
  52.                                                                 => ;
  53.          <v> := lite_menu2(menulist, <color>, <initial>, #<v>,     ;
  54.                            <{event}>, <timeout>, <{exitevent}>,    ;
  55.                            <trigcolor>, chr(27)+chr(19)+chr(13),   ;
  56.                                         chr(27)+chr(4)+chr(13) )   ;
  57.          ; menulist := {}
  58.  
  59.  
  60. #xcommand MENU TO <v> [COLOR <color>] [INITIAL <initial>]          ;
  61.                       [EVENT <event>] [TIMEOUT <timeout>]          ;
  62.                       [LEFT <left>] [RIGHT <right>]                ;
  63.                       [EXITEVENT <exitevent>]                      ;
  64.                       [TRIGGERCOLOR <trigcolor>]                   ;
  65.                                                                 => ;
  66.          <v> := lite_menu2(menulist, <color>, <initial>, #<v>,     ;
  67.                            <{event}>, <timeout>, <{exitevent}>,    ;
  68.                            <trigcolor>, <left>, <right>)           ;
  69.          ; menulist := {}
  70.  
  71.  
  72.  
  73. * eof: GRUMPM.CH
  74.