--- a/HorizontalPanelView.st	Fri Feb 21 20:29:10 1997 +0100
+++ b/HorizontalPanelView.st	Fri Feb 21 20:31:01 1997 +0100
@@ -1292,7 +1292,10 @@
         ^ preferredExtent
     ].
 
-    (subViews := self subViews) isNil ifTrue:[^ horizontalSpace @ verticalSpace].
+    (subViews := self subViews) isNil ifTrue:[
+        ^ super preferredExtent.
+        "/ ^ horizontalSpace @ verticalSpace].
+    ].
 
     "compute net height needed"
 
@@ -1354,5 +1357,5 @@
 !HorizontalPanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.27 1997-01-28 17:05:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.28 1997-02-21 19:30:36 ca Exp $'
 ! !