home *** CD-ROM | disk | FTP | other *** search
- ;Assembler header file for ColourMenu
- ;written by DefMod (Jun 30 1995) on Tue Sep 5 15:15:25 1995
- ;Jonathan Coxhead, Acorn Computers Ltd
-
- [ :LNOT: :DEF: Get_Types
- GBLS Get_Types
- ]
- [ :LNOT: :DEF: Types_Hdr
- Get_Types SETS "GET OS:Hdr.Types"
- |
- Get_Types SETS ""
- ]
- $Get_Types
-
- [ :LNOT: :DEF: Get_Toolbox
- GBLS Get_Toolbox
- ]
- [ :LNOT: :DEF: Toolbox_Hdr
- Get_Toolbox SETS "GET OS:Hdr.Toolbox"
- |
- Get_Toolbox SETS ""
- ]
- $Get_Toolbox
-
- [ :LNOT: :DEF: Get_Menu
- GBLS Get_Menu
- ]
- [ :LNOT: :DEF: Menu_Hdr
- Get_Menu SETS "GET OS:Hdr.Menu"
- |
- Get_Menu SETS ""
- ]
- $Get_Menu
-
- [ :LNOT: :DEF: ColourMenu_Hdr
- GBLS ColourMenu_Hdr
-
- ;Symbols for constants
- Class_ColourMenu * &82980
- ColourMenu_GenerateAboutToBeShown * &1
- ColourMenu_GenerateDialogueCompleted * &2
- ColourMenu_NoneEntry * &4
- ColourMenu_Transparent * &10
- ColourMenu_None * &FFFFFFFF
- Action_ColourMenuAboutToBeShown * &82980
- Action_ColourMenuDialogueCompleted * &82981
- Action_ColourMenuSelection * &82982
- Error_ColourMenuTasksActive * &80B000
- Error_ColourMenuAllocFailed * &80B001
- Error_ColourMenuShortBuffer * &80B002
- Error_ColourMenuNoSuchTask * &80B011
- Error_ColourMenuNoSuchMethod * &80B012
- Error_ColourMenuNoSuchMiscOpMethod * &80B013
-
- ;Symbols for structure offsets and sizes
- ColourMenu_Flags * Bits
-
- ColourMenu_Colour * Int
-
- ^ 0
- ColourMenu_Object_flags # ColourMenu_Flags
- ColourMenu_Object_title # Toolbox_MsgReference
- ColourMenu_Object_title_limit # Int
- ColourMenu_Object_colour # ColourMenu_Colour
- ColourMenu_Object * @
-
- ColourMenu_Full * OS_Coord
-
- ^ 0
- ColourMenu_ActionAboutToBeShown_tag # Toolbox_PositionTag
- ColourMenu_ActionAboutToBeShown_position * @
- ColourMenu_ActionAboutToBeShown_position_top_left # OS_Coord
- ^ ColourMenu_ActionAboutToBeShown_position
- ColourMenu_ActionAboutToBeShown_position_full # ColourMenu_Full
- ColourMenu_ActionAboutToBeShown * @
-
- ^ 0
- ColourMenu_ActionSelection_colour # ColourMenu_Colour
- ColourMenu_ActionSelection * @
-
-
- ;Symbols for SWI's and SWI reason codes
- XColourMenu_ClassSWI * &A2980
- ColourMenu_ClassSWI * &82980
-
- XColourMenu_PostFilter * &A2981
- ColourMenu_PostFilter * &82981
-
- XColourMenu_PreFilter * &A2982
- ColourMenu_PreFilter * &82982
-
- ColourMenu_SetColour * &0
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = colour_menu (Toolbox_O)
- ; R2 = &0
- ; R3 = colour (ColourMenu_Colour)
-
- ColourMenu_GetColour * &1
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = colour_menu (Toolbox_O)
- ; R2 = &1
- ;Exit
- ; R0 = colour (ColourMenu_Colour)
-
- ColourMenu_SetNoneAvailable * &2
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = colour_menu (Toolbox_O)
- ; R2 = &2
- ; R3 = none_available (Bool)
-
- ColourMenu_GetNoneAvailable * &3
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = colour_menu (Toolbox_O)
- ; R2 = &3
- ;Exit
- ; R0 = none_available (Bool)
-
- ColourMenu_SetTitle * &4
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = colour_menu (Toolbox_O)
- ; R2 = &4
- ; R3 -> title (String)
-
- ColourMenu_GetTitle * &5
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = colour_menu (Toolbox_O)
- ; R2 = &5
- ; R3 = buffer (pointer to String)
- ; R4 = size (Int)
- ;Exit
- ; R4 = used (Int)
-
- ]
- END
-