--- a/HVScrollableView.st	Tue May 28 22:20:48 1996 +0200
+++ b/HVScrollableView.st	Wed May 29 12:20:58 1996 +0200
@@ -271,6 +271,10 @@
 
     |pref m2|
 
+    preferredExtent notNil ifTrue:[
+        ^ preferredExtent
+    ].
+
     scrolledView notNil ifTrue:[ 
         m2 := innerMargin * 2.
         pref := scrolledView preferredExtent.
@@ -280,7 +284,7 @@
     ].
     ^ super preferredExtent.
 
-    "Modified: 23.4.1996 / 00:15:25 / cg"
+    "Modified: 29.5.1996 / 12:12:36 / cg"
 !
 
 preferredExtentForLines:numLines cols:numCols
@@ -304,5 +308,5 @@
 !HVScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.17 1996-05-24 18:12:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.18 1996-05-29 10:20:58 cg Exp $'
 ! !