--- a/ScrollableView.st	Tue Feb 22 00:39:43 2000 +0100
+++ b/ScrollableView.st	Tue Feb 22 09:51:02 2000 +0100
@@ -1684,11 +1684,15 @@
     scrollBarVSpacing := scrollBarHSpacing := DefaultScrollBarSpacing.
     hasH ifFalse:[
         scrollBarVSpacing := 0.    
-"/        scrolledViewVMargin := 0.    
+"/        scrollBarPosition ~~ #right ifTrue:[
+            scrolledViewVMargin := 0.    
+"/        ]
     ].
     hasV ifFalse:[
         scrollBarHSpacing := 0.    
-"/        scrolledViewHMargin := 0.    
+"/        scrollBarPosition ~~ #right ifTrue:[
+            scrolledViewHMargin := 0.    
+"/        ]
     ].
 
     vTopOffs := 0 - vBd + scrolledViewVMargin + margin.
@@ -2117,5 +2121,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.105 2000-02-21 23:39:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.106 2000-02-22 08:51:02 cg Exp $'
 ! !