--- a/GridBagLayoutView.st Tue Aug 02 13:31:14 2005 +0200
+++ b/GridBagLayoutView.st Tue Aug 02 15:14:45 2005 +0200
@@ -191,12 +191,31 @@
new
"Create a new instance of my class and do explizit initialization of it."
- ^ super new initialize
+ ^ self basicNew initialize
"Created: / 19.1.1998 / 13:53:11 / av"
"Modified: / 1.2.1998 / 13:02:59 / av"
! !
+!GridBagLayoutView methodsFor:'initialization'!
+
+initialize
+ "Initialize the instance. Mainly set our instance variables to required values."
+
+ super initialize.
+
+ columnWidths := IdentityDictionaryWithDefault newWithDefaultValue:0.
+ rowHeights := IdentityDictionaryWithDefault newWithDefaultValue:0.
+
+ columnWeights := IdentityDictionaryWithDefault newWithDefaultValue:0.0.
+ rowWeights := IdentityDictionaryWithDefault newWithDefaultValue:0.0.
+
+ layoutInfo := nil.
+
+ "Created: / 19.1.1998 / 13:53:59 / av"
+ "Modified: / 1.2.1998 / 12:57:05 / av"
+! !
+
!GridBagLayoutView methodsFor:'layout'!
setChildPositions
@@ -783,23 +802,6 @@
"Modified: / 1.2.1998 / 12:59:00 / av"
!
-initialize
- "Initialize the instance. Mainly set our instance variables to required values."
-
- super initialize.
-
- columnWidths := IdentityDictionaryWithDefault newWithDefaultValue:0.
- rowHeights := IdentityDictionaryWithDefault newWithDefaultValue:0.
-
- columnWeights := IdentityDictionaryWithDefault newWithDefaultValue:0.0.
- rowWeights := IdentityDictionaryWithDefault newWithDefaultValue:0.0.
-
- layoutInfo := nil.
-
- "Created: / 19.1.1998 / 13:53:59 / av"
- "Modified: / 1.2.1998 / 12:57:05 / av"
-!
-
minimumLayoutSize
"Return our minimum layout size. The width and height of the returned rectangle gives the minimum
layout size."
@@ -849,5 +851,5 @@
!GridBagLayoutView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/GridBagLayoutView.st,v 1.4 2000-11-08 09:17:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/GridBagLayoutView.st,v 1.5 2005-08-02 13:14:18 cg Exp $'
! !