--- a/HorizontalPanelView.st	Mon Feb 24 21:20:10 1997 +0100
+++ b/HorizontalPanelView.st	Tue Feb 25 14:03:55 1997 +0100
@@ -1038,9 +1038,16 @@
      my size has changed"
 
     |xpos space sumOfWidths numChilds l wEach wInside hL vL resizeToMaxV 
-     resizeToMaxH maxHeight maxWidth d m2 subViews|
+     resizeToMaxH maxHeight maxWidth d m2 subViews ext|
+
+    subViews := self subViews.
+    subViews size == 0 ifTrue:[^ self].
 
-    (subViews := self subViews) isNil ifTrue:[^ self].
+    extentChanged ifTrue:[
+        ext := self computeExtent.
+        width := ext x.
+        height := ext y.
+    ].
 
     space := horizontalSpace.
     numChilds := subViews size.
@@ -1357,5 +1364,5 @@
 !HorizontalPanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.28 1997-02-21 19:30:36 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.29 1997-02-25 13:03:31 ca Exp $'
 ! !