--- a/HorizontalPanelView.st	Wed Jul 23 14:25:07 2008 +0200
+++ b/HorizontalPanelView.st	Fri Jul 25 14:02:05 2008 +0200
@@ -1464,11 +1464,11 @@
 
         "/ better to use component's preferredExtent ...
 
-        child realized ifTrue:[
-            childsPreference := child extent.
-        ] ifFalse:[
+"/        child realized ifTrue:[
+"/            childsPreference := child extent.
+"/        ] ifFalse:[
             childsPreference := child preferredExtent.
-        ].
+"/        ].
         sumOfWidths := sumOfWidths + childsPreference x.
         maxHeight := maxHeight max:childsPreference y.
         maxWidth := maxWidth max:childsPreference x.
@@ -1478,10 +1478,11 @@
 "/        maxHeight := maxHeight max:(child heightIncludingBorder).
 "/        maxWidth := maxWidth max:(child widthIncludingBorder).
     ].
-    borderWidth ~~ 0 ifTrue:[
-        sumOfWidths := sumOfWidths + (horizontalSpace * 2).
-        maxHeight := maxHeight + (verticalSpace * 2).
-    ].
+"/    borderWidth ~~ 0 ifTrue:[
+"/        sumOfWidths := sumOfWidths + (horizontalSpace * 2).
+"/        maxHeight := maxHeight + (verticalSpace * 2).
+"/    ].
+
     (hLayout == #fit 
     or:[hLayout == #fitSpace
     or:[hLayout endsWith:'Max']]) ifTrue:[
@@ -1524,5 +1525,5 @@
 !HorizontalPanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.56 2008-07-18 09:43:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.57 2008-07-25 12:02:05 cg Exp $'
 ! !