--- a/HorizontalScrollBar.st Fri Mar 07 16:20:58 1997 +0100
+++ b/HorizontalScrollBar.st Fri Mar 07 16:24:21 1997 +0100
@@ -284,10 +284,10 @@
"/ need fix - this is a kludge;
"/ the reference to the mswindows style here is bad
style := styleSheet name.
- style == #mswindows ifTrue:[
- h := button1 height max:button2 height.
- w := button1 width + button2 width + (Scroller defaultExtent x).
- ] ifFalse:[
+"/ style == #mswindows ifTrue:[
+"/ h := button1 height max:button2 height.
+"/ w := button1 width + button2 width + (Scroller defaultExtent x).
+"/ ] ifFalse:[
leftForm := ArrowButton leftArrowButtonForm:style on:device.
rightForm := ArrowButton rightArrowButtonForm:style on:device.
"
@@ -311,15 +311,15 @@
h := h + 4.
w := w + 4
].
- ].
+"/ ].
preferredExtent := w @ h.
^ preferredExtent.
- "Modified: 17.1.1997 / 23:18:48 / cg"
+ "Modified: 7.3.1997 / 16:22:50 / cg"
! !
!HorizontalScrollBar class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/HorizontalScrollBar.st,v 1.25 1997-02-24 20:19:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/HorizontalScrollBar.st,v 1.26 1997-03-07 15:24:09 cg Exp $'
! !