home *** CD-ROM | disk | FTP | other *** search
/ BUG 4 / BUGCD1997_05.BIN / aplic / clip4win / clip4win.exe / C4W30E.HUF / INCLUDE / MENU.CH < prev    next >
Text File  |  1995-04-28  |  7KB  |  174 lines
  1. ////////////////////////////
  2. //
  3. //    Clip-4-Win MENU definitions
  4. //
  5. //    Copyright (C) 1994 Skelton Software, Kendal Cottage, Hillam, Leeds, UK.
  6. //    All Rights Reserved.
  7. //
  8. //    NOTE: Some of the apparent possibiities are due to the pre-processor
  9. //          but aren't actually sensible/valid.  Also, the OO versions
  10. //          currently implement more of the options than the non-class ones.
  11. //          The syntax is deliberately almost identical so you can convert
  12. //          if you want.  Both are based on the syntax used by the resource
  13. //          compiler (and also VO).
  14. //
  15. ////////////////////////////
  16.  
  17. #ifndef    C4W_MENU_CH
  18. #define    C4W_MENU_CH
  19.  
  20. #ifdef    NO_C4WCLASS
  21.  
  22. // Use CreateMenu()/AppendMenu() etc. - See MENUF2.PRG
  23.  
  24. #xcommand MENU [<hMenu>] [RESOURCE <cnResId>]                ;
  25.           [DLL <cDLL>] [INSTANCE <hInst>]                ;
  26.           [<in: IN WINDOW, IN, OF> <hWnd>]                ;
  27.                                     ;
  28.        => [<hMenu> :=]                            ;
  29.           _Menu_Begin( <cnResId>, <hWnd>, <cDLL>, <hInst> )
  30.  
  31. #xcommand POPUP [<hPopup> TEXT] <cText> [ID <cnId>]            ;
  32.           [<in: IN MENU, IN, OF> <hMenu>]                ;
  33.                                     ;
  34.        => [<hPopup> :=]                            ;
  35.           _Popup_Begin( <cText>, <hMenu> [, <cnId>] )
  36.  
  37. #xcommand MENUITEM [<hMenuItem> TEXT] <cText> [ID <cnId>]        ;
  38.           [COMMAND <cCmd>] [ACTION <bAction>]                ;
  39.           [HELP <oHelp>] [ACCELERATOR <oAccel>]                ;
  40.           [<chk: CHECKED>] [<dis: DISABLED>] [<gray: GRAYED>]        ;
  41.           [<in: IN MENU, IN, OF> <hMenu>]                ;
  42.                                     ;
  43.        => [<hMenuItem> :=]                        ;
  44.           _Menu_Append( <cText>, <hMenu>, <cnId>, [ {|| <cCmd>()} ], <{bAction}>,;
  45.                         <oHelp>, <oAccel>,                ;
  46.                         <.chk.>, <.dis.>, <.gray.>)
  47.  
  48. #xcommand MENUITEM [<hMenuItem>] [ID <cnId>]                ;
  49.           [COMMAND <cCmd>] [ACTION <bAction>]                ;
  50.           [HELP <oHelp>] [ACCELERATOR <oAccel>]                ;
  51.           [<chk: CHECKED>] [<dis: DISABLED>] [<gray: GRAYED>]        ;
  52.           BITMAP FILE <cBmpFile>                    ;
  53.           [<in: IN MENU, IN, OF> <hMenu>]                ;
  54.                                     ;
  55.        => [<hMenuItem> :=]                        ;
  56.           _Menu_Append( , <hMenu>, <cnId>, [ {|| <cCmd>()} ], <{bAction}>,;
  57.                         <oHelp>, <oAccel>,                ;
  58.                         <.chk.>, <.dis.>, <.gray.>, <cBmpFile>)
  59.  
  60. #xcommand MENUITEM [<hMenuItem>] [ID <cnId>]                ;
  61.           [COMMAND <cCmd>] [ACTION <bAction>]                ;
  62.           [HELP <oHelp>] [ACCELERATOR <oAccel>]                ;
  63.           [<chk: CHECKED>] [<dis: DISABLED>] [<gray: GRAYED>]        ;
  64.           BITMAP RESOURCE <cnResId>                    ;
  65.           [DLL <cDLL>] [INSTANCE <hInst>]                ;
  66.           [<in: IN MENU, IN, OF> <hMenu>]                ;
  67.                                     ;
  68.        => [<hMenuItem> :=]                        ;
  69.           _Menu_Append( , <hMenu>, <cnId>, [ {|| <cCmd>()} ], <{bAction}>,;
  70.                         <oHelp>, <oAccel>,                ;
  71.                         <.chk.>, <.dis.>, <.gray.>, ,             ;
  72.                         <cnResId>, <cDLL>, <hInst> )
  73.  
  74. #xcommand MENUITEM SEPARATOR [<in: IN MENU, IN, OF> <hMenu>]        ;
  75.        => _Menu_Append( [, <hMenu>] )
  76.  
  77. #xcommand ENDPOPUP                            ;
  78.        => _Popup_End()
  79.  
  80. #xcommand ENDMENU                            ;
  81.        => _Menu_End()
  82.  
  83. #command MDIWINDOWPOPUP                            ;
  84.       => POPUP   "&Window"                        ;
  85.        ;    MENUITEM "&Cascade"       COMMAND Cascade            ;
  86.                HELP DoHelp("Cascade child windows")            ;
  87.        ;    MENUITEM "&Tile"          COMMAND Tile            ;
  88.                HELP DoHelp("Tile child windows")                ;
  89.        ;    MENUITEM "Arrange &Icons" COMMAND ArrangeIcons        ;
  90.                HELP DoHelp("Arrange Icons of Minimised Children")    ;
  91.        ;    MENUITEM "Close &All"     COMMAND CloseAll            ;
  92.                HELP DoHelp("Close all child windows")            ;
  93.        ;    ENDPOPUP
  94.  
  95. #else    // NO_C4WCLASS
  96.  
  97. // Use classes - See MENUFN.PRG which uses WMenu, WPopup, WMenuItem, etc.
  98.  
  99. #xcommand MENU [<oMenu>] [RESOURCE <cnResId>]                ;
  100.           [DLL <cDLL>] [INSTANCE <hInst>]                ;
  101.           [<in: IN WINDOW, IN, OF> <oWnd>]                ;
  102.                                     ;
  103.        => [<oMenu> :=]                            ;
  104.           _MenuBegin( <cnResId>, <oWnd>, <cDLL>, <hInst> )
  105.  
  106. #xcommand POPUP [<oPopup> TEXT] <cText> [ID <cnId>]            ;
  107.           [<in: IN MENU, IN, OF> <oMenu>]                ;
  108.                                     ;
  109.        => [<oPopup> :=]                            ;
  110.           _PopupBegin( <cText> [, <oMenu>] )    // <cnId> isn't used
  111.  
  112. #xcommand MENUITEM [<oMenuItem> TEXT] <cText> [ID <nId>]        ;
  113.           [COMMAND <cCmd>] [ACTION <bAction>]                ;
  114.           [HELP <oHelp>] [ACCELERATOR <oAccel>]                ;
  115.           [<chk: CHECKED>] [<dis: DISABLED>] [<gray: GRAYED>]        ;
  116.           [<in: IN MENU, IN, OF> <oMenu>]                ;
  117.                                     ;
  118.        => [<oMenuItem> :=]                        ;
  119.           _MenuAppend( <cText>, <oMenu>, <nId>, <(cCmd)>, <{bAction}>,    ;
  120.                        <oHelp>, <oAccel>,                ;
  121.                        <.chk.>, <.dis.>, <.gray.>)
  122.  
  123. #xcommand MENUITEM [<oMenuItem>] [ID <nId>]                ;
  124.           [COMMAND <cCmd>] [ACTION <bAction>]                ;
  125.           [HELP <oHelp>] [ACCELERATOR <oAccel>]                ;
  126.           [<chk: CHECKED>] [<dis: DISABLED>] [<gray: GRAYED>]        ;
  127.           BITMAP FILE <cBmpFile>                    ;
  128.           [<in: IN MENU, IN, OF> <oMenu>]                ;
  129.                                     ;
  130.        => [<oMenuItem> :=]                        ;
  131.           _MenuAppend( , <oMenu>, <nId>, <(cCmd)>, <{bAction}>,        ;
  132.                        <oHelp>, <oAccel>,                ;
  133.                        <.chk.>, <.dis.>, <.gray.>, <cBmpFile>)
  134.  
  135. #xcommand MENUITEM [<oMenuItem>] [ID <nId>]                ;
  136.           [COMMAND <cCmd>] [ACTION <bAction>]                ;
  137.           [HELP <oHelp>] [ACCELERATOR <oAccel>]                ;
  138.           [<chk: CHECKED>] [<dis: DISABLED>] [<gray: GRAYED>]        ;
  139.           BITMAP RESOURCE <cnResId>                    ;
  140.           [DLL <cDLL>] [INSTANCE <hInst>]                ;
  141.           [<in: IN MENU, IN, OF> <oMenu>]                ;
  142.                                     ;
  143.        => [<oMenuItem> :=]                        ;
  144.           _MenuAppend( , <oMenu>, <nId>, <(cCmd)>, <{bAction}>,        ;
  145.                        <oHelp>, <oAccel>,                ;
  146.                        <.chk.>, <.dis.>, <.gray.>, ,             ;
  147.                        <cnResId>, <cDLL>, <hInst> )
  148.  
  149. #xcommand MENUITEM SEPARATOR [<in: IN MENU, IN, OF> <oMenu>]        ;
  150.        => _MenuAppend( [, <oMenu>] )
  151.  
  152. #xcommand ENDPOPUP                            ;
  153.        => _PopupEnd()
  154.  
  155. #xcommand ENDMENU                            ;
  156.        => _MenuEnd()
  157.  
  158. #command MDIWINDOWPOPUP                            ;
  159.       => POPUP   "&Window"                        ;
  160.        ;    MENUITEM "&Cascade"       COMMAND Cascade            ;
  161.                HELP WHelp{"Cascade child windows"}            ;
  162.        ;    MENUITEM "&Tile"          COMMAND Tile            ;
  163.                HELP WHelp{"Tile child windows"}                ;
  164.        ;    MENUITEM "Arrange &Icons" COMMAND ArrangeIcons        ;
  165.                HELP WHelp{"Arrange Icons of Minimised Children"}    ;
  166.        ;    MENUITEM "Close &All"     COMMAND CloseAll            ;
  167.                HELP WHelp{"Close all child windows"}            ;
  168.        ;    ENDPOPUP
  169.  
  170. #endif    // NO_C4WCLASS
  171.  
  172. #endif    // C4W_MENU_CH
  173.  
  174.