GridBagLayoutView.st
changeset 2840 93e2b635838d
parent 1877 3b415fa4710f
child 2955 57c6b1a672dd
--- 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 $'
 ! !