home *** CD-ROM | disk | FTP | other *** search
- ;Assembler header file for Adjuster
- ;written by DefMod (Jun 30 1995) on Tue Sep 5 16:30:07 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: Adjuster_Hdr
- GBLS Adjuster_Hdr
-
- ;Symbols for constants
- Class_Adjuster * &300
- Adjuster_Increment * &1
- Adjuster_Vertical * &2
- Action_AdjusterClicked * &8288C
-
- ;Symbols for structure offsets and sizes
- ^ 0
- Adjuster_Gadget_reserved # Int
- Adjuster_Gadget * @
-
- ^ 0
- Adjuster_ActionClicked_up # Bool
- Adjuster_ActionClicked * @
-
-
- ]
- END
-