HorizontalScrollBar.st
changeset 1118 e075a4773b79
parent 1040 2bed2e003e9d
child 1229 19be2e822d45
--- 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 $'
 ! !