--- a/GridBagLayoutView.st	Thu Mar 30 19:08:17 2006 +0200
+++ b/GridBagLayoutView.st	Tue Apr 04 14:26:56 2006 +0200
@@ -378,24 +378,26 @@
     info startY:(((diffh / 2) + (insets top)) asInteger).
 
     subViews do:[ :child |
-        |rW rH|
+        |rW rH minWidth minHeight|
 
         c := self constraints:child.
+        minWidth := info minWidth.
+        minHeight := info minHeight.
 
         r setLeft:(info startX).
-        0 to:((c tempX) - 1) do:[ :i | r setLeft:((r left) + ((info minWidth) at:(i + 1))). ].
+        0 to:((c tempX) - 1) do:[ :i | r setLeft:((r left) + (minWidth at:(i + 1))). ].
         
         r setTop:(info startY).
-        0 to:((c tempY) - 1) do:[ :i | r setTop:((r top) + ((info minHeight) at:(i + 1))). ].
+        0 to:((c tempY) - 1) do:[ :i | r setTop:((r top) + (minHeight at:(i + 1))). ].
 
         r width:0.
         (c tempX) to:((c tempX) + (c tempWidth) - 1) do:[ :i |
-            r width:((r width) + ((info minWidth) at:(i + 1))).
+            r width:((r width) + (minWidth at:(i + 1))).
         ].
 
         r height:0.
         (c tempY) to:((c tempY) + (c tempHeight) - 1) do:[ :i |
-            r height:((r height) + ((info minHeight) at:(i + 1))).
+            r height:((r height) + (minHeight at:(i + 1))).
         ].
 
         self adjustForGravity:c in:r.
@@ -851,5 +853,5 @@
 !GridBagLayoutView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/GridBagLayoutView.st,v 1.5 2005-08-02 13:14:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/GridBagLayoutView.st,v 1.6 2006-04-04 12:26:56 cg Exp $'
 ! !