home *** CD-ROM | disk | FTP | other *** search
- ;Assembler header file for RadioButton
- ;written by DefMod (Jun 30 1995) on Tue Sep 5 16:29:50 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: RadioButton_Hdr
- GBLS RadioButton_Hdr
-
- ;Symbols for constants
- Class_RadioButton * &180
- RadioButton_GenerateStateChanged * &1
- RadioButton_GenerateSetStateChanged * &2
- RadioButton_On * &4
- Action_RadioButtonStateChanged * &82883
- RadioButton_StateChangedAdjust * &1
- RadioButton_StateChangedSelect * &4
-
- ;Symbols for structure offsets and sizes
- ^ 0
- RadioButton_Gadget_group # Int
- RadioButton_Gadget_label # Toolbox_MsgReference
- RadioButton_Gadget_label_limit # Int
- RadioButton_Gadget_action # Bits
- RadioButton_Gadget * @
-
- ^ 0
- RadioButton_ActionStateChanged_on # Bool
- RadioButton_ActionStateChanged_previous_on # Toolbox_C
- RadioButton_ActionStateChanged * @
-
-
- ;Symbols for SWI's and SWI reason codes
- RadioButton_SetLabel * &180
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = window (Toolbox_O)
- ; R2 = &180
- ; R3 = radio_button (Toolbox_C)
- ; R4 -> label (String)
-
- RadioButton_GetLabel * &181
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = window (Toolbox_O)
- ; R2 = &181
- ; R3 = radio_button (Toolbox_C)
- ; R4 = buffer (pointer to String)
- ; R5 = size (Int)
- ;Exit
- ; R5 = used (Int)
-
- RadioButton_SetAction * &182
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = window (Toolbox_O)
- ; R2 = &182
- ; R3 = radio_button (Toolbox_C)
- ; R4 = action (Bits)
-
- RadioButton_GetAction * &183
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = window (Toolbox_O)
- ; R2 = &183
- ; R3 = radio_button (Toolbox_C)
- ;Exit
- ; R0 = action (Bits)
-
- RadioButton_SetState * &184
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = window (Toolbox_O)
- ; R2 = &184
- ; R3 = radio_button (Toolbox_C)
- ; R4 = on (Bool)
-
- RadioButton_GetState * &185
- ;Entry
- ; R0 = flags (Bits)
- ; R1 = window (Toolbox_O)
- ; R2 = &185
- ; R3 = radio_button (Toolbox_C)
- ;Exit
- ; R0 = on (Bool)
- ; R1 = on_button (Toolbox_C)
-
- ]
- END
-