home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / dos / prg / ghostlib / gwmenu.ch < prev    next >
Encoding:
Text File  |  1994-08-31  |  3.3 KB  |  76 lines
  1. /*****************************************************************************
  2. *  Header File : GWMENU.CH                                                   *
  3. *                                                                            *
  4. *       Author : R.P.J. van Geest                                            *
  5. *    Copyright : 1993-1994 - (c) GhostWare                                   *
  6. *                                                                            *
  7. *  Description : Header file for the GhostWare libraries GHOST.LIB,          *
  8. *                GHOSTHOL.LIB and GHOSTUSA.LIB                               *
  9. *                                                                            *
  10. * Date created : 24-03-94       updated : ■24-03-94                          *
  11. * Time created : 13:11:13       updated : ■13:21:51                          *
  12. *****************************************************************************/
  13.  
  14. // You can use this statement when compiling with Clipper 5.2
  15. #STDOUT Using GWMENU.CH   - version 2.3 by GhostWare (c) 1991-1994
  16.  
  17. #XCOMMAND BEGIN MENU <aMenu>           ;
  18.             =>                         ;
  19.           _GWMakeMenu(<"aMenu">)
  20.  
  21. #XCOMMAND ENDMENU <aMenu>              ;
  22.             =>                         ;
  23.           <aMenu> := _GWEndMenu(<"aMenu">)
  24.  
  25. #XCOMMAND OPTION <cOption>             ;
  26.           [<d1: DO, EXECUTE> <bDo>]    ;
  27.           [<h1: HOTKEY> <nHotkey>]     ;
  28.           [<m1: MESSAGE> <cMessage>]   ;
  29.           [<w1: WHEN> <cWhen>]         ;
  30.           [SHORTCUT <nShortCut>] ;
  31.             =>                         ;
  32.           _GWAddMenu({                 ;
  33.           <cOption>,                   ;
  34.           IIF(<.h1.>, <nHotkey>, 1),   ;
  35.           <{bDo}>,                     ;
  36.           IIF(<.m1.>, <cMessage>, ""), ;
  37.           IIF(<.w1.>, <{cWhen}>, .T.)},;
  38.           <nShortCut>)                 ;
  39.  
  40. #XCOMMAND OPTION <cOption>             ;
  41.           [<s1: SUBMENU> <cSubmenu>]   ;
  42.           [<h1: HOTKEY> <nHotkey>]     ;
  43.           [<m1: MESSAGE> <cMessage>]   ;
  44.           [<w1: WHEN> <cWhen>]         ;
  45.             =>                         ;
  46.           _GWAddMenu({                 ;
  47.           <cOption>,                   ;
  48.           IIF(<.h1.>, <nHotkey>, 1),   ;
  49.           <cSubmenu>,                  ;
  50.           IIF(<.m1.>, <cMessage>, ""), ;
  51.           IIF(<.w1.>, <{cWhen}>, .T.)},;
  52.           NIL)
  53.  
  54. #XCOMMAND SEPARATOR                    ;
  55.             =>                         ;
  56.           _GWAddMenu({NIL})
  57.  
  58. #XCOMMAND ACTIVATE MENU <aMenu>                  ;
  59.       [OPTION [COLOR] <cColOption>]          ;
  60.       [HOTKEY [COLOR] <cColHotkey>]          ;
  61.       [ACTIVEOPTION [COLOR] <cColActOption>] ;
  62.       [ACTIVEHOTKEY [COLOR] <cColActHotkey>] ;
  63.       [BORDER <cBorder>]                     ;
  64.       [<explode:EXPLODE>]                    ;
  65.       [<warning:WARNING>]                    ;
  66.       [BLOCK <cBlock> [AFTER <nSeconds>]]    ;
  67.       [TOPROW <nTop>]                        ;
  68.       [MESSAGEROW <nMessage>]                ;
  69.         =>                                   ;
  70.           GWPDown(<aMenu>, <cColOption>,         ;
  71.                   <cColHotkey>, <cColActOption>, ;
  72.                   <cColActHotkey>, <cBorder>,    ;
  73.                   <.explode.>, <.warning.>,      ;
  74.                   <nSeconds>, <{cBlock}>,        ;
  75.                   {<nTop>, <nMessage>})
  76.