# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 951210809 -3600
# Node ID 8f36b26011e276bb5b1067b38e3244d509606f35
# Parent  edab005d57a4735e1881c96809887dc701ef953e
oops - again

diff -r edab005d57a4 -r 8f36b26011e2 ScrollableView.st
--- a/ScrollableView.st	Tue Feb 22 09:51:02 2000 +0100
+++ b/ScrollableView.st	Tue Feb 22 10:13:29 2000 +0100
@@ -1680,19 +1680,16 @@
     "/  but 2D styles are very sensitive to those;
     "/  the code below may not work correctly with different borderWidths).
 
+"/ DefaultScrolledViewMargin := 10. "/ margin around
+"/ DefaultScrollBarSpacing := 2.    "/ space between scrolledView and scrollBar.
+
     scrolledViewHMargin := scrolledViewVMargin := DefaultScrolledViewMargin.
     scrollBarVSpacing := scrollBarHSpacing := DefaultScrollBarSpacing.
+    hasV ifFalse:[
+        scrollBarHSpacing := 0.    
+    ].
     hasH ifFalse:[
         scrollBarVSpacing := 0.    
-"/        scrollBarPosition ~~ #right ifTrue:[
-            scrolledViewVMargin := 0.    
-"/        ]
-    ].
-    hasV ifFalse:[
-        scrollBarHSpacing := 0.    
-"/        scrollBarPosition ~~ #right ifTrue:[
-            scrolledViewHMargin := 0.    
-"/        ]
     ].
 
     vTopOffs := 0 - vBd + scrolledViewVMargin + margin.
@@ -1745,7 +1742,7 @@
 
             sRightOffs := sRightOffs - addMargin
         ] ifFalse:[
-            "/ left/bottom
+            "/ left/top
             vScrollBarLayout := ((0.0 @ 0.0) corner:(0.0@1.0)) asLayout.
 
             vLeftOffs := 0 - vBd + scrolledViewHMargin + margin.
@@ -2121,5 +2118,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.106 2000-02-22 08:51:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.107 2000-02-22 09:13:29 cg Exp $'
 ! !