ScrollBar.st
changeset 1724 b437f36e7e3f
parent 1603 9089f7bdf62a
child 1821 b57cc9dc2c08
--- a/ScrollBar.st	Tue Nov 24 17:56:00 1998 +0100
+++ b/ScrollBar.st	Wed Dec 02 17:57:50 1998 +0100
@@ -407,7 +407,7 @@
 
         "if I become too small, hide buttons"
 
-        width < (leftAndRightWidth + m2) ifTrue:[
+        width <= (leftAndRightWidth + m2) ifTrue:[
             b1Hidden := b2Hidden := thumbHidden := true.
         ] ifFalse:[
             b1Hidden := b2Hidden := thumbHidden := false.
@@ -435,7 +435,7 @@
 
         "if I become too small, hide buttons and thumb"
 
-        height < (upAndDownHeight + (m2)) ifTrue:[
+        height <= (upAndDownHeight + (m2)) ifTrue:[
             b1Hidden := b2Hidden := thumbHidden := true.
         ] ifFalse:[
             b1Hidden := b2Hidden := thumbHidden := false.
@@ -666,7 +666,7 @@
     ].
 
     "Modified: / 3.5.1996 / 23:49:02 / stefan"
-    "Modified: / 15.7.1998 / 13:49:36 / cg"
+    "Modified: / 2.12.1998 / 00:02:14 / cg"
 ! !
 
 !ScrollBar methodsFor:'forced scroll'!
@@ -1032,5 +1032,5 @@
 !ScrollBar class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.55 1998-07-15 11:50:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.56 1998-12-02 16:57:50 cg Exp $'
 ! !