--- a/GridBagLayoutView.st	Mon Mar 23 10:57:57 2009 +0100
+++ b/GridBagLayoutView.st	Tue Mar 24 16:35:15 2009 +0100
@@ -832,8 +832,6 @@
     "Return a good extent, one that makes subviews fit. Return the the preferred extent as a point
     where x and y represents the width and height of the extent."
 
-    | d |
-
     "/ If I have an explicit preferredExtent..
     explicitExtent notNil ifTrue:[
         ^ explicitExtent
@@ -844,10 +842,11 @@
         ^ preferredExtent
     ].
 
-    (self subViews) isNil ifTrue:[ ^ super preferredExtent. ].
+    self subViews isNil ifTrue:[ 
+        ^ super preferredExtent. 
+    ].
 
-    d := self preferredLayoutSize.
-    ^ (d width) @ (d height).
+    ^ self preferredLayoutSize extent.
 
     "Created: / 17.1.1998 / 00:11:46 / av"
     "Modified: / 1.2.1998 / 13:01:46 / av"
@@ -856,5 +855,5 @@
 !GridBagLayoutView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/GridBagLayoutView.st,v 1.9 2008-10-26 20:09:46 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/GridBagLayoutView.st,v 1.10 2009-03-24 15:35:15 stefan Exp $'
 ! !