home *** CD-ROM | disk | FTP | other *** search
- ;Assembler header file for ActionButton
- ;written by DefMod (Jun 30 1995) on Tue Sep 5 16:30:09 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_Gadget
- GBLS Get_Gadget
- ]
- [ :LNOT: :DEF: Gadget_Hdr
- Get_Gadget SETS "GET OS:Hdr.Gadget"
- |
- Get_Gadget SETS ""
- ]
- $Get_Gadget
-
- [ :LNOT: :DEF: ActionButton_Hdr
- GBLS ActionButton_Hdr
-
- ;Symbols for constants
- Class_ActionButton * &80
- ActionButton_IsDefault * &1
- ActionButton_IsCancel * &2
- ActionButton_IsLocal * &4
- ActionButton_IsMenu * &8
- Action_ActionButtonSelected * &82881
- ActionButton_SelectedAdjust * &1
- ActionButton_SelectedSelect * &4
- ActionButton_SelectedDefault * &8
- ActionButton_SelectedCancel * &10
- ActionButton_SelectedLocal * &20
-
- ;Symbols for structure offsets and sizes
- ^ 0
- ActionButton_Gadget_text # Toolbox_MsgReference
- ActionButton_Gadget_text_limit # Int
- ActionButton_Gadget_click_show # Toolbox_StringReference
- ActionButton_Gadget_action # Bits
- ActionButton_Gadget * @
-
-
- ;Symbols for SWI's and SWI reason codes
- ActionButton_SetText * &80
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = window (Toolbox_O)
- ; R2 = &80
- ; R3 = action_button (Toolbox_C)
- ; R4 -> text (String)
-
- ActionButton_GetText * &81
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = window (Toolbox_O)
- ; R2 = &81
- ; R3 = action_button (Toolbox_C)
- ; R4 = text (pointer to String)
- ; R5 = size (Int)
- ;Exit
- ; R5 = used (Int)
-
- ActionButton_SetAction * &82
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = window (Toolbox_O)
- ; R2 = &82
- ; R3 = action_button (Toolbox_C)
- ; R4 = action (Bits)
-
- ActionButton_GetAction * &83
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = window (Toolbox_O)
- ; R2 = &83
- ; R3 = action_button (Toolbox_C)
- ;Exit
- ; R0 = action (Bits)
-
- ActionButton_SetClickShow * &84
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = window (Toolbox_O)
- ; R2 = &84
- ; R3 = action_button (Toolbox_C)
- ; R4 = obj (Toolbox_O)
-
- ActionButton_GetClickShow * &85
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = window (Toolbox_O)
- ; R2 = &85
- ; R3 = action_button (Toolbox_C)
- ;Exit
- ; R0 = obj (Toolbox_O)
-
- ]
- END
-