--- a/GridBagLayoutView.st Fri Oct 05 10:25:29 2007 +0200
+++ b/GridBagLayoutView.st Tue Oct 09 10:43:53 2007 +0200
@@ -9,10 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
-
-
-
"{ Package: 'stx:libwidg2' }"
PanelView subclass:#GridBagLayoutView
@@ -301,11 +297,11 @@
"/ at all: just leave the parent's size as-is.
(((subViews := self subViews) size) == 0) ifTrue:[^ self].
- self extentChangedFlag ifTrue:[
- ext := self computeExtent.
- width := ext x.
- height := ext y.
- ].
+"/ self extentChangedFlag ifTrue:[
+"/ ext := self computeExtent.
+"/ width := ext x.
+"/ height := ext y.
+"/ ].
"/ Pass #1: scan all the slaves to figure out the total amount
"/ of space needed.
@@ -853,5 +849,5 @@
!GridBagLayoutView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/GridBagLayoutView.st,v 1.6 2006-04-04 12:26:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/GridBagLayoutView.st,v 1.7 2007-10-09 08:43:53 ca Exp $'
! !