--- a/ScrollBar.st Sat Oct 24 15:43:51 2009 +0200
+++ b/ScrollBar.st Sat Oct 24 16:00:20 2009 +0200
@@ -820,11 +820,11 @@
button2 autoRepeat:true.
bw := self borderWidth.
- button1 setBorderWidth:bw.
+ button1 borderWidth:bw.
DefaultScrollerBordered ifFalse:[
- thumb setBorderWidth:bw.
+ thumb borderWidth:bw.
].
- button2 setBorderWidth:bw.
+ button2 borderWidth:bw.
style := styleSheet name.
((style = #iris) and:[Screen current hasGrayscales]) ifTrue:[
@@ -1186,9 +1186,9 @@
!ScrollBar class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.87 2009-10-23 15:21:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.88 2009-10-24 14:00:20 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.87 2009-10-23 15:21:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.88 2009-10-24 14:00:20 cg Exp $'
! !