;Assembler header file for Adjuster
;written by DefMod (Mar  9 1999) on Thu Apr  8 04:05:22 1999
;Jonathan Coxhead, jonathan@doves.demon.co.uk, 5 Sept 1995

        [       :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
