Slider changes

[Tom Hughes]

This patch makes the changes to the Slider module suggested by Alex
Thoukydides. As with the ProgInfo patch I added descriptions at the
same time.

Tom

-- 
Tom Hughes (tom at compton.nu)
http://www.compton.nu/
...Make love not war.
-------------- next part --------------
Index: Slider
===================================================================
RCS file: /home/cvs/riscos/oslib/Source/Toolbox/Slider,v
retrieving revision 1.1.1.1
diff -c -r1.1.1.1 Slider
*** Slider	2000/02/14 22:36:10	1.1.1.1
--- Slider	2000/03/04 16:31:01
***************
*** 41,49 ****
        ENTRY
        (  R0 = .Bits: flags,
           R1 = Toolbox_O: window,
!          R2 # 576*,
           R3 = Toolbox_C: slider,
!          R4 = Wimp_Colour: colour
     )  );
  
  SWI
--- 41,49 ----
        ENTRY
        (  R0 = .Bits: flags,
           R1 = Toolbox_O: window,
!          R2 # 576 "Sets the value of a slider",
           R3 = Toolbox_C: slider,
!          R4 = .Int: value
     )  );
  
  SWI
***************
*** 52,58 ****
        ENTRY
        (  R0 = .Bits: flags,
           R1 = Toolbox_O: window,
!          R2 # 577*,
           R3 = Toolbox_C: slider
        ),
        EXIT
--- 52,58 ----
        ENTRY
        (  R0 = .Bits: flags,
           R1 = Toolbox_O: window,
!          R2 # 577 "Gets the value of a slider",
           R3 = Toolbox_C: slider
        ),
        EXIT
***************
*** 71,77 ****
        ENTRY
        (  R0 = Slider_BoundsFlags: flags,
           R1 = Toolbox_O: window,
!          R2 # 578*,
           R3 = Toolbox_C: slider,
           R4 = .Int: upper_bound,
           R5 = .Int: lower_bound,
--- 71,77 ----
        ENTRY
        (  R0 = Slider_BoundsFlags: flags,
           R1 = Toolbox_O: window,
!          R2 # 578 "Sets the bounding values and step size of a slider",
           R3 = Toolbox_C: slider,
           R4 = .Int: upper_bound,
           R5 = .Int: lower_bound,
***************
*** 84,96 ****
        ENTRY
        (  R0 = Slider_BoundsFlags: flags,
           R1 = Toolbox_O: window,
!          R2 # 579*,
           R3 = Toolbox_C: slider
        ),
        EXIT
!       (  R4 = .Int: upper_bound,
!          R5 = .Int: lower_bound,
!          R6 = .Int: step_size
     )  );
  
  SWI
--- 84,96 ----
        ENTRY
        (  R0 = Slider_BoundsFlags: flags,
           R1 = Toolbox_O: window,
!          R2 # 579 "Gets the bounding values and step size of a slider",
           R3 = Toolbox_C: slider
        ),
        EXIT
!       (  R0 = .Int: upper_bound,
!          R1 = .Int: lower_bound,
!          R2 = .Int: step_size
     )  );
  
  SWI
***************
*** 99,107 ****
        ENTRY
        (  R0 = .Bits: flags,
           R1 = Toolbox_O: window,
!          R2 # 580*,
           R3 = Toolbox_C: slider,
!          R4 = Wimp_Colour: colour
     )  );
  
  SWI
--- 99,108 ----
        ENTRY
        (  R0 = .Bits: flags,
           R1 = Toolbox_O: window,
!          R2 # 580 "Sets the desktop colours used in a slider",
           R3 = Toolbox_C: slider,
!          R4 = Wimp_Colour: bar_colour,
!          R5 = Wimp_Colour: background_colour
     )  );
  
  SWI
***************
*** 110,118 ****
        ENTRY
        (  R0 = .Bits: flags,
           R1 = Toolbox_O: window,
!          R2 # 581*,
           R3 = Toolbox_C: slider
        ),
        EXIT
!       (  R0! = Wimp_Colour: colour
     )  )
--- 111,120 ----
        ENTRY
        (  R0 = .Bits: flags,
           R1 = Toolbox_O: window,
!          R2 # 581 "Gets the desktop colours used in a slider",
           R3 = Toolbox_C: slider
        ),
        EXIT
!       (  R0 = Wimp_Colour: bar_colour,
!          R1 = Wimp_Colour: background_colour
     )  )