home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / cbm / os-include.lha / os-include / libraries / gadtools.i < prev    next >
Text File  |  1993-10-15  |  15KB  |  423 lines
  1.     IFND LIBRARIES_GADTOOLS_I
  2. LIBRARIES_GADTOOLS_I    SET    1
  3. **
  4. **    $VER: gadtools.i 39.12 (24.8.93)
  5. **    Includes Release 40.15
  6. **
  7. **    gadtools.library definitions
  8. **
  9. **    (C) Copyright 1989-1993 Commodore-Amiga, Inc.
  10. **    All Rights Reserved.
  11. **
  12.  
  13. *------------------------------------------------------------------------*
  14.  
  15.     IFND EXEC_TYPES_I
  16.     INCLUDE "exec/types.i"
  17.     ENDC
  18.  
  19.     IFND UTILITY_TAGITEM_I
  20.     INCLUDE "utility/tagitem.i"
  21.     ENDC
  22.  
  23.     IFND INTUITION_INTUITION_I
  24.     INCLUDE "intuition/intuition.i"
  25.     ENDC
  26.  
  27. *------------------------------------------------------------------------*
  28.  
  29. * The kinds (almost classes) of gadgets that GadTools supports.
  30. * Use these identifiers when calling CreateGadgetA()
  31.  
  32. GENERIC_KIND    EQU    0
  33. BUTTON_KIND    EQU    1
  34. CHECKBOX_KIND    EQU    2
  35. INTEGER_KIND    EQU    3
  36. LISTVIEW_KIND    EQU    4
  37. MX_KIND        EQU    5
  38. NUMBER_KIND    EQU    6
  39. CYCLE_KIND    EQU    7
  40. PALETTE_KIND    EQU    8
  41. SCROLLER_KIND    EQU    9
  42. * Kind number 10 is reserved
  43. SLIDER_KIND    EQU    11
  44. STRING_KIND    EQU    12
  45. TEXT_KIND    EQU    13
  46.  
  47. NUM_KINDS    EQU    14
  48.  
  49. *------------------------------------------------------------------------*
  50.  
  51. * 'Or' the appropriate set together for your Window IDCMPFlags: *
  52.  
  53. ARROWIDCMP    EQU    GADGETUP!GADGETDOWN!INTUITICKS!MOUSEBUTTONS
  54.  
  55. BUTTONIDCMP    EQU    GADGETUP
  56. CHECKBOXIDCMP    EQU    GADGETUP
  57. INTEGERIDCMP    EQU    GADGETUP
  58. LISTVIEWIDCMP    EQU    GADGETUP!GADGETDOWN!MOUSEMOVE!ARROWIDCMP
  59.  
  60. MXIDCMP        EQU    GADGETDOWN
  61. NUMBERIDCMP    EQU    0
  62. CYCLEIDCMP    EQU    GADGETUP
  63. PALETTEIDCMP    EQU    GADGETUP
  64.  
  65. * Use ARROWIDCMP!SCROLLERIDCMP if your scrollers have arrows: *
  66. SCROLLERIDCMP    EQU    GADGETUP!GADGETDOWN!MOUSEMOVE
  67. SLIDERIDCMP    EQU    GADGETUP!GADGETDOWN!MOUSEMOVE
  68. STRINGIDCMP    EQU    GADGETUP
  69.  
  70. TEXTIDCMP    EQU    0
  71.  
  72. *------------------------------------------------------------------------*
  73.  
  74. * Generic NewGadget used by several of the gadget classes: *
  75.  
  76.     STRUCTURE NewGadget,0
  77.  
  78.     WORD    gng_LeftEdge
  79.     WORD    gng_TopEdge    ; gadget position
  80.     WORD    gng_Width
  81.     WORD    gng_Height    ; gadget size
  82.     APTR    gng_GadgetText    ; gadget label
  83.     APTR    gng_TextAttr    ; desired font for gadget label
  84.     UWORD    gng_GadgetID    ; gadget ID
  85.     ULONG    gng_Flags    ; see below
  86.     APTR    gng_VisualInfo    ; Set to retval of GetVisualInfo()
  87.     APTR    gng_UserData    ; gadget UserData
  88.  
  89.     LABEL    gng_SIZEOF
  90.  
  91. * ng_Flags control certain aspects of the gadget.  The first five control
  92. * the placement of the descriptive text.  Each gadget kind has its default,
  93. * which is usually PLACETEXT_LEFT.  Consult the autodocs for details.
  94.  
  95. PLACETEXT_LEFT    EQU    $0001    * Right-align text on left side
  96. PLACETEXT_RIGHT    EQU    $0002    * Left-align text on right side
  97. PLACETEXT_ABOVE    EQU    $0004    * Center text above
  98. PLACETEXT_BELOW    EQU    $0008    * Center text below
  99. PLACETEXT_IN    EQU    $0010    * Center text on
  100.  
  101. NG_HIGHLABEL    EQU    $0020    * Highlight the label
  102.  
  103. *------------------------------------------------------------------------*
  104.  
  105. * Fill out an array of these and pass that to CreateMenus():
  106.  
  107.     STRUCTURE NewMenu,0
  108.  
  109.     UBYTE    gnm_Type        ; See below
  110.     UBYTE    gnm_Pad            ; alignment padding
  111.     APTR    gnm_Label        ; Menu's label
  112.     APTR    gnm_CommKey        ; MenuItem Command Key Equiv
  113.     UWORD    gnm_Flags        ; Menu or MenuItem flags (see note)
  114.     LONG    gnm_MutualExclude    ; MenuItem MutualExclude word
  115.     APTR    gnm_UserData        ; For your own use, see note
  116.  
  117.     LABEL    gnm_SIZEOF
  118.  
  119. * Needed only by inside IM_ definitions below */
  120. MENU_IMAGE    EQU    128
  121.  
  122. * nm_Type determines what each NewMenu structure corresponds to.
  123. * for the NM_TITLE, NM_ITEM, and NM_SUB values, nm_Label should
  124. * be a text string to use for that menu title, item, or sub-item.
  125. * For IM_ITEM or IM_SUB, set nm_Label to point at the Image structure
  126. * you wish to use for this item or sub-item.
  127. * NOTE: At present, you may only use conventional images.
  128. * Custom images created from Intuition image-classes do not work.
  129. NM_TITLE    EQU    1    * Menu header
  130. NM_ITEM        EQU    2    * Textual menu item
  131. NM_SUB        EQU    3    * Textual menu sub-item
  132.  
  133. IM_ITEM        EQU    NM_ITEM!MENU_IMAGE    * Graphical menu item
  134. IM_SUB        EQU    NM_SUB!MENU_IMAGE    * Graphical menu sub-item
  135.  
  136. * The NewMenu array should be terminated with a NewMenu whose
  137. * nm_Type equals NM_END.
  138. NM_END        EQU    0    * End of NewMenu array
  139.  
  140. * Starting with V39, GadTools will skip any NewMenu entries whose
  141. * nm_Type field has the NM_IGNORE bit set.
  142. NM_IGNORE    EQU    64
  143.  
  144.  
  145. * nm_Label should be a text string for textual items, a pointer
  146. * to an Image structure for graphical menu items, or the special
  147. * constant NM_BARLABEL, to get a separator bar.
  148. NM_BARLABEL    EQU    -1
  149.  
  150.  
  151. * The nm_Flags field is used to fill out either the Menu->Flags or
  152. * MenuItem->Flags field.  Note that the sense of the MENUENABLED or
  153. * ITEMENABLED bit is inverted between this use and Intuition's use,
  154. * in other words, NewMenus are enabled by default.  The following
  155. * labels are provided to disable them:
  156. NM_MENUDISABLED        EQU    MENUENABLED
  157. NM_ITEMDISABLED        EQU    ITEMENABLED
  158.  
  159. * New for V39:    NM_COMMANDSTRING.  For a textual MenuItem or SubItem,
  160. * point nm_CommKey at an arbitrary string, and set the NM_COMMANDSTRING
  161. * flag.
  162. NM_COMMANDSTRING    EQU    COMMSEQ
  163.  
  164. * The following are pre-cleared (COMMSEQ, ITEMTEXT, and HIGHxxx are set
  165. * later as appropriate):
  166. * Under V39, the COMMSEQ flag bit is not cleared, since it now has
  167. * meaning.
  168. NM_FLAGMASK        EQU    ~(COMMSEQ!ITEMTEXT!HIGHFLAGS)
  169. NM_FLAGMASK_V39        EQU    ~(ITEMTEXT!HIGHFLAGS)
  170.  
  171. * You may choose among CHECKIT, MENUTOGGLE, and CHECKED.
  172. * Toggle-select menuitems are of type CHECKIT!MENUTOGGLE, along
  173. * with CHECKED if currently selected.  Mutually exclusive ones
  174. * are of type CHECKIT, and possibly CHECKED too.  The nm_MutualExclude
  175. * is a bit-wise representation of the items excluded by this one,
  176. * so in the simplest case (choose 1 among n), these flags would be
  177. * ~1, ~2, ~4, ~8, ~16, etc.  See the Intuition Menus chapter.
  178.  
  179. * A UserData pointer can be associated with each Menu and MenuItem structure.
  180. * The CreateMenus() call allocates space for a UserData after each
  181. * Menu or MenuItem (header, item or sub-item).    You should use the
  182. * GTMENU_USERDATA or GTMENUITEM_USERDATA macro to extract it. */
  183.  
  184. GTMENU_USERDATA    MACRO
  185.         move.l    mu_SIZEOF(\1),\2
  186.         ENDM
  187.  
  188. GTMENUITEM_USERDATA    MACRO
  189.         move.l    mi_SIZEOF(\1),\2
  190.         ENDM
  191.  
  192. * Here is an old one for compatibility.  Do not use in new code!
  193. MENU_USERDATA    MACRO
  194.         move.l    mi_SIZEOF(\1),\2
  195.         ENDM
  196.  
  197.  
  198. * These return codes can be obtained through the GTMN_SecondaryError tag:
  199. GTMENU_TRIMMED    EQU    $00000001    ; Too many menus, items, or subitems,
  200.                     ; menu has been trimmed down
  201. GTMENU_INVALID    EQU    $00000002    ; Invalid NewMenu array
  202. GTMENU_NOMEM    EQU    $00000003    ; Out of memory
  203.  
  204.  
  205. *------------------------------------------------------------------------*
  206.  
  207. * Starting with V39, checkboxes and mx gadgets can be scaled to your
  208. * specified gadget width/height.  Use the new GTCB_Scaled or GTMX_Scaled
  209. * tags, respectively.  Under V37, and by default in V39, the imagery
  210. * is of the following fixed size:
  211.  
  212. * MX gadget default dimensions:
  213. MX_WIDTH    EQU    17
  214. MX_HEIGHT    EQU    9
  215.  
  216. * Checkbox default dimensions:
  217. CHECKBOX_WIDTH    EQU    26
  218. CHECKBOX_HEIGHT    EQU    11
  219.  
  220. *------------------------------------------------------------------------*
  221.  
  222. * Tags for GadTools functions:
  223.  
  224. GT_TagBase    EQU    TAG_USER+$80000 ; Begin counting tags
  225.  
  226. GTVI_NewWindow    EQU    GT_TagBase+1    ; NewWindow struct for GetVisualInfo
  227. GTVI_NWTags    EQU    GT_TagBase+2    ; NWTags for GetVisualInfo
  228.  
  229. GT_Private0    EQU    GT_TagBase+3    ; (private)
  230.  
  231. GTCB_Checked    EQU    GT_TagBase+4    ; State of checkbox
  232.  
  233. GTLV_Top    EQU    GT_TagBase+5    ; Top visible one in listview
  234. GTLV_Labels    EQU    GT_TagBase+6    ; List to display in listview
  235. GTLV_ReadOnly    EQU    GT_TagBase+7    ; TRUE if listview is to be read-only
  236. GTLV_ScrollWidth    EQU    GT_TagBase+8    ; Width of scrollbar
  237.  
  238. GTMX_Labels    EQU    GT_TagBase+9    ; NULL-terminated array of labels
  239. GTMX_Active    EQU    GT_TagBase+10    ; Active one in mx gadget
  240.  
  241. GTTX_Text    EQU    GT_TagBase+11    ; Text to display
  242. GTTX_CopyText    EQU    GT_TagBase+12    ; Copy text label instead of referencing it
  243.  
  244. GTNM_Number    EQU    GT_TagBase+13    ; Number to display
  245.  
  246. GTCY_Labels    EQU    GT_TagBase+14    ; NULL-terminated array of labels
  247. GTCY_Active    EQU    GT_TagBase+15    ; The active one in the cycle gad
  248.  
  249. GTPA_Depth    EQU    GT_TagBase+16    ; Number of bitplanes in palette
  250. GTPA_Color    EQU    GT_TagBase+17    ; Palette color
  251. GTPA_ColorOffset    EQU    GT_TagBase+18    ; First color to use in palette
  252. GTPA_IndicatorWidth    EQU    GT_TagBase+19    ; Width of current-color indicator
  253. GTPA_IndicatorHeight    EQU    GT_TagBase+20    ; Height of current-color indicator
  254.  
  255. GT