--- a/ScrollableView.st	Tue Oct 21 20:32:56 1997 +0200
+++ b/ScrollableView.st	Wed Oct 22 15:16:55 1997 +0200
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.2.1 on 20-oct-1997 at 5:48:38 pm'                  !
+'From Smalltalk/X, Version:3.2.1 on 22-oct-1997 at 4:04:37 pm'                  !
 
 SimpleView subclass:#ScrollableView
 	instanceVariableNames:'scrolledView vScrollBar hScrollBar scrollBarPosition lockUpdates
@@ -1573,6 +1573,13 @@
         hRightOffs := hRightOffs - addMargin.
     ].
 
+    (hScrollBar notNil
+     and:[ hScrollBar borderWidth == 0 
+     and:[sBd ~~ 0
+     and:[scrollBarPosition == #right]]]) ifTrue:[
+        hRightOffs := hRightOffs + sBd + sBd.
+    ].
+
     scrolledView notNil ifTrue:[
         scrolledViewLayout leftOffset:sLeftOffs.
         scrolledViewLayout rightOffset:sRightOffs.
@@ -1887,5 +1894,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.73 1997-10-21 18:12:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.74 1997-10-22 13:16:55 cg Exp $'
 ! !