*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 11 Feb 2000 14:13:16 +0100
changeset 2135 955901594758
parent 2134 1bb04fefce04
child 2136 eb816448daec
*** empty log message ***
ScrollableView.st
--- a/ScrollableView.st	Fri Feb 11 14:11:31 2000 +0100
+++ b/ScrollableView.st	Fri Feb 11 14:13:16 2000 +0100
@@ -1801,7 +1801,7 @@
 "/            hScrollBar viewGravity:#NorthWest.
 "/        ]
     ].
-    (vScrollBar notNil and:[vScrollBarHidden not]) ifTrue:[
+    (hasV and:[vScrollBar notNil and:[vScrollBarHidden not]]) ifTrue:[
         vScrollBarLayout leftOffset:vLeftOffs.
         vScrollBarLayout rightOffset:vRightOffs.
         vScrollBarLayout topOffset:vTopOffs.
@@ -1819,7 +1819,7 @@
     ].
 
     "Created: / 21.5.1998 / 00:48:35 / cg"
-    "Modified: / 9.9.1998 / 18:57:35 / cg"
+    "Modified: / 11.2.2000 / 00:00:36 / cg"
 !
 
 setupVertical:isVertical mini:miniV horizontal:isHorizontal mini:miniH 
@@ -2105,5 +2105,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.100 1999-08-17 10:59:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.101 2000-02-11 13:13:16 cg Exp $'
 ! !