--- a/ScrView.st	Mon Apr 22 23:42:27 1996 +0200
+++ b/ScrView.st	Tue Apr 23 00:20:42 1996 +0200
@@ -864,12 +864,17 @@
 !ScrollableView methodsFor:'queries'!
 
 preferredExtent
+    "return my preferredExtent from the scrolledViews prefExtent
+     plus the size of the scrollBar"
+
     scrolledView notNil ifTrue:[ 
        | pref |
        pref := scrolledView preferredExtent.
        ^ (pref x + scrollBar width + (innerMargin * 2)) @ pref y.
     ].
     ^ super preferredExtent.
+
+    "Modified: 23.4.1996 / 00:17:53 / cg"
 ! !
 
 !ScrollableView methodsFor:'slave-view messages'!
@@ -939,5 +944,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.28 1996-04-20 13:52:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.29 1996-04-22 22:19:16 cg Exp $'
 ! !