ScrollList fix

[Tom Hughes]

The attached patch fixes a couple of incorrect reason codes
in ScrollList that somebody pointed out.

Tom

-- 
Tom Hughes (tom at compton.nu)
http://www.compton.nu/
...2 + 2 = 5  for sufficiently large values of 2.
-------------- next part --------------
Index: ScrollList
===================================================================
RCS file: /home/cvs/riscos/oslib/Source/Toolbox/ScrollList,v
retrieving revision 1.2
diff -c -r1.2 ScrollList
*** ScrollList	2000/03/04 22:41:25	1.2
--- ScrollList	2000/03/04 21:19:09
***************
*** 190,196 ****
        ENTRY
        (  R0 = .Bits: flags,
           R1 = Toolbox_O: window,
!          R2 # 0x4023 "Sets the font details for the ScrollList",
           R3 = Toolbox_C: scroll_list,
           R4 -> .String: font_name,
           R5 = .Int: width,
--- 190,196 ----
        ENTRY
        (  R0 = .Bits: flags,
           R1 = Toolbox_O: window,
!          R2 # 0x4024 "Sets the font details for the ScrollList",
           R3 = Toolbox_C: scroll_list,
           R4 -> .String: font_name,
           R5 = .Int: width,
***************
*** 202,208 ****
        ENTRY
        (  R0 = .Bits: flags,
           R1 = Toolbox_O: window,
!          R2 # 0x4024 "Gets the text of a ScrollList entry",
           R3 = Toolbox_C: scroll_list,
           R4 = .Ref .String: buffer,
           R5 = .Bits: buffer_size,
--- 202,208 ----
        ENTRY
        (  R0 = .Bits: flags,
           R1 = Toolbox_O: window,
!          R2 # 0x4025 "Gets the text of a ScrollList entry",
           R3 = Toolbox_C: scroll_list,
           R4 = .Ref .String: buffer,
           R5 = .Bits: buffer_size,