home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / oslib / oslib_1 / OSLib / Toolbox / Hdr / Slider < prev    next >
Encoding:
Text File  |  1995-09-05  |  3.5 KB  |  130 lines
  1. ;Assembler header file for Slider
  2. ;written by DefMod (Jun 30 1995) on Tue Sep  5 16:29:48 1995
  3. ;Jonathan Coxhead, Acorn Computers Ltd
  4.  
  5.         [       :LNOT: :DEF: Get_Types
  6.         GBLS    Get_Types
  7.         ]
  8.         [       :LNOT: :DEF: Types_Hdr
  9. Get_Types                       SETS    "GET OS:Hdr.Types"
  10.         |
  11. Get_Types                       SETS    ""
  12.         ]
  13.         $Get_Types
  14.  
  15.         [       :LNOT: :DEF: Get_Toolbox
  16.         GBLS    Get_Toolbox
  17.         ]
  18.         [       :LNOT: :DEF: Toolbox_Hdr
  19. Get_Toolbox                     SETS    "GET OS:Hdr.Toolbox"
  20.         |
  21. Get_Toolbox                     SETS    ""
  22.         ]
  23.         $Get_Toolbox
  24.  
  25.         [       :LNOT: :DEF: Get_Gadget
  26.         GBLS    Get_Gadget
  27.         ]
  28.         [       :LNOT: :DEF: Gadget_Hdr
  29. Get_Gadget                      SETS    "GET OS:Hdr.Gadget"
  30.         |
  31. Get_Gadget                      SETS    ""
  32.         ]
  33.         $Get_Gadget
  34.  
  35.         [       :LNOT: :DEF: Slider_Hdr
  36.         GBLS    Slider_Hdr
  37.  
  38. ;Symbols for constants
  39. Class_Slider                    *       &240
  40. Slider_GenerateValueChanged     *       &1
  41. Slider_GenerateValueChangedByDragging *       &2
  42. Slider_GenerateSetValueChanged  *       &4
  43. Slider_Vertical                 *       &8
  44. Slider_Draggable                *       &10
  45. Slider_KnobColour               *       &F000
  46. Slider_KnobColourShift          *       12
  47. Slider_WellColour               *       &F0000
  48. Slider_WellColourShift          *       16
  49. Action_SliderValueChanged       *       &82886
  50. Slider_ValueChanging            *       &1
  51. Slider_ValueChangedByDragging   *       &2
  52. Slider_ValueChanged             *       &4
  53. Slider_BoundLower               *       &1
  54. Slider_BoundUpper               *       &2
  55. Slider_BoundStep                *       &4
  56.  
  57. ;Symbols for structure offsets and sizes
  58.                                 ^       0
  59. Slider_Gadget_lower_bound       #       Int
  60. Slider_Gadget_upper_bound       #       Int
  61. Slider_Gadget_step_size         #       Int
  62. Slider_Gadget_initial_value     #       Int
  63. Slider_Gadget                   *       @
  64.  
  65.                                 ^       0
  66. Slider_ActionValueChanged_value #       Int
  67. Slider_ActionValueChanged       *       @
  68.  
  69. Slider_BoundsFlags              *       Bits
  70.  
  71.  
  72. ;Symbols for SWI's and SWI reason codes
  73. Slider_SetValue                 *       &240
  74.    ;Entry
  75.    ;  R0 = flags (Bits)
  76.    ;  R1 = window (Toolbox_O)
  77.    ;  R2 = &240
  78.    ;  R3 = slider (Toolbox_C)
  79.    ;  R4 = colour (Wimp_Colour)
  80.  
  81. Slider_GetValue                 *       &241
  82.    ;Entry
  83.    ;  R0 = flags (Bits)
  84.    ;  R1 = window (Toolbox_O)
  85.    ;  R2 = &241
  86.    ;  R3 = slider (Toolbox_C)
  87.    ;Exit
  88.    ;  R0 = value (Int)
  89.  
  90. Slider_SetBounds                *       &242
  91.    ;Entry
  92.    ;  R0 = flags (Slider_BoundsFlags)
  93.    ;  R1 = window (Toolbox_O)
  94.    ;  R2 = &242
  95.    ;  R3 = slider (Toolbox_C)
  96.    ;  R4 = upper_bound (Int)
  97.    ;  R5 = lower_bound (Int)
  98.    ;  R6 = step_size (Int)
  99.  
  100. Slider_GetBounds                *       &243
  101.    ;Entry
  102.    ;  R0 = flags (Slider_BoundsFlags)
  103.    ;  R1 = window (Toolbox_O)
  104.    ;  R2 = &243
  105.    ;  R3 = slider (Toolbox_C)
  106.    ;Exit
  107.    ;  R4 = upper_bound (Int)
  108.    ;  R5 = lower_bound (Int)
  109.    ;  R6 = step_size (Int)
  110.  
  111. Slider_SetColour                *       &244
  112.    ;Entry
  113.    ;  R0 = flags (Bits)
  114.    ;  R1 = window (Toolbox_O)
  115.    ;  R2 = &244
  116.    ;  R3 = slider (Toolbox_C)
  117.    ;  R4 = colour (Wimp_Colour)
  118.  
  119. Slider_GetColour                *       &245
  120.    ;Entry
  121.    ;  R0 = flags (Bits)
  122.    ;  R1 = window (Toolbox_O)
  123.    ;  R2 = &245
  124.    ;  R3 = slider (Toolbox_C)
  125.    ;Exit
  126.    ;  R0 = colour (Wimp_Colour)
  127.  
  128.         ]
  129.         END
  130.