home *** CD-ROM | disk | FTP | other *** search
- ;Assembler header file for ColourDbox
- ;written by DefMod (Jun 30 1995) on Tue Sep 5 14:01:22 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_Window
- GBLS Get_Window
- ]
- [ :LNOT: :DEF: Window_Hdr
- Get_Window SETS "GET OS:Hdr.Window"
- |
- Get_Window SETS ""
- ]
- $Get_Window
-
- [ :LNOT: :DEF: Get_ColourPicker
- GBLS Get_ColourPicker
- ]
- [ :LNOT: :DEF: ColourPicker_Hdr
- Get_ColourPicker SETS "GET OS:Hdr.ColourPicker"
- |
- Get_ColourPicker SETS ""
- ]
- $Get_ColourPicker
-
- [ :LNOT: :DEF: ColourDbox_Hdr
- GBLS ColourDbox_Hdr
-
- ;Symbols for constants
- Class_ColourDbox * &829C0
- Error_ColourDboxTasksActive * &80AE00
- Error_ColourDboxAllocFailed * &80AE01
- Error_ColourDboxShortBuffer * &80AE02
- Error_ColourDboxNoSuchTask * &80AE11
- Error_ColourDboxNoSuchMethod * &80AE12
- Error_ColourDboxNoSuchMiscOpMethod * &80AE13
- ColourDbox_GenerateAboutToBeShown * &1
- ColourDbox_GenerateDialogueCompleted * &2
- ColourDbox_IncludeNoneButton * &4
- ColourDbox_SelectNoneButton * &8
- ColourDbox_ColourTransparent * &1
- Action_ColourDboxAboutToBeShown * &829C0
- Action_ColourDboxDialogueCompleted * &829C1
- Action_ColourDboxColourSelected * &829C2
- ColourDbox_DialogueCompletedColourChoice * &1
-
- ;Symbols for structure offsets and sizes
- ColourDbox_Flags * Bits
-
- ColourDbox_ColourFlags * Bits
-
- ^ 0
- ColourDbox_Object_flags # ColourDbox_Flags
- ColourDbox_Object_title # Toolbox_MsgReference
- ColourDbox_Object_title_limit # Int
- ColourDbox_Object_colour # OS_Colour
- ColourDbox_Object * @
-
- ColourDbox_Full * Toolbox_Full
-
- ^ 0
- ColourDbox_ActionAboutToBeShown_tag # Toolbox_PositionTag
- ColourDbox_ActionAboutToBeShown_position * @
- ColourDbox_ActionAboutToBeShown_position_top_left # OS_Coord
- ^ ColourDbox_ActionAboutToBeShown_position
- ColourDbox_ActionAboutToBeShown_position_full # ColourDbox_Full
- ColourDbox_ActionAboutToBeShown * @
-
- ^ 0
- ColourDbox_ColourModel_size # Int
- ColourDbox_ColourModel_info # Int
- ColourDbox_ColourModel * @
-
- ColourDbox_DialogueCompletedFlags * Bits
-
- ^ 0
- ColourDbox_ActionDialogueCompleted_flags # ColourDbox_DialogueCompletedFlags
- ColourDbox_ActionDialogueCompleted * @
-
- ^ 0
- ColourDbox_ActionColourSelected_flags # ColourDbox_ColourFlags
- ColourDbox_ActionColourSelected_colour # OS_Colour
- ColourDbox_ActionColourSelected_size # Int
- ColourDbox_ActionColourSelected_info # 50*Int
- ColourDbox_ActionColourSelected * @
-
-
- ;Symbols for SWI's and SWI reason codes
- XColourDbox_ClassSWI * &A29C0
- ColourDbox_ClassSWI * &829C0
-
- XColourDbox_PostFilter * &A29C1
- ColourDbox_PostFilter * &829C1
-
- XColourDbox_PreFilter * &A29C2
- ColourDbox_PreFilter * &829C2
-
- ColourDbox_GetWimpHandle * &0
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = colour_dbox (Toolbox_O)
- ; R2 = &0
- ;Exit
- ; R0 = w (Wimp_W)
-
- ColourDbox_GetDialogueHandle * &1
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = colour_dbox (Toolbox_O)
- ; R2 = &1
- ;Exit
- ; R0 = d (ColourPicker_D)
-
- ColourDbox_SetColour * &2
- ;Entry
- ; R0 = flags (ColourDbox_ColourFlags)
- ; R1 = colour_dbox (Toolbox_O)
- ; R2 = &2
- ; R3 -> colour (ColourPicker_Colour)
-
- ColourDbox_GetColour * &3
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = colour_dbox (Toolbox_O)
- ; R2 = &3
- ; R3 = buffer (pointer to ColourPicker_Colour)
- ; R4 = size (Int)
- ;Exit
- ; R0 = flags_out (ColourDbox_ColourFlags)
- ; R4 = used (Int)
-
- ColourDbox_SetColourModel * &4
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = colour_dbox (Toolbox_O)
- ; R2 = &4
- ; R3 -> model (ColourDbox_ColourModel)
-
- ColourDbox_GetColourModel * &5
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = colour_dbox (Toolbox_O)
- ; R2 = &5
- ; R3 = buffer (pointer to ColourDbox_ColourModel)
- ; R4 = size (Int)
- ;Exit
- ; R4 = used (Int)
-
- ColourDbox_SetNoneAvailable * &6
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = colour_dbox (Toolbox_O)
- ; R2 = &6
- ; R3 = none (Bool)
-
- ColourDbox_GetNoneAvailable * &7
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = colour_dbox (Toolbox_O)
- ; R2 = &7
- ;Exit
- ; R0 = none (Bool)
-
- ]
- END
-