--- a/GridBagConstraints.st	Tue Aug 02 13:31:14 2005 +0200
+++ b/GridBagConstraints.st	Tue Aug 02 15:14:45 2005 +0200
@@ -12,6 +12,8 @@
 "
 
 
+"{ Package: 'stx:libwidg2' }"
+
 Object subclass:#GridBagConstraints
 	instanceVariableNames:'insets gridX gridY gridWidth gridHeight weightX weightY anchor
 		fill ipadX ipadY tempX tempY tempWidth tempHeight minWidth
@@ -62,7 +64,7 @@
 new
     "Create an initialized instance of myself."
 
-    ^ super new initialize
+    ^ self basicNew initialize
 
     "Created: / 19.1.1998 / 13:37:27 / av"
     "Modified: / 1.2.1998 / 13:09:17 / av"
@@ -496,7 +498,7 @@
     "Modified: / 1.2.1998 / 13:14:49 / av"
 ! !
 
-!GridBagConstraints methodsFor:'private'!
+!GridBagConstraints methodsFor:'initialization'!
 
 initialize
     "Set all non-temporary instance variables to default values. 
@@ -525,5 +527,5 @@
 !GridBagConstraints class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/GridBagConstraints.st,v 1.2 1999-07-06 16:49:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/GridBagConstraints.st,v 1.3 2005-08-02 13:14:13 cg Exp $'
 ! !

--- 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 $'
 ! !

--- a/SelectionInTree.st	Tue Aug 02 13:31:14 2005 +0200
+++ b/SelectionInTree.st	Tue Aug 02 15:14:45 2005 +0200
@@ -63,7 +63,7 @@
 !SelectionInTree class methodsFor:'instance creation'!
 
 new
-    ^ super new initialize
+    ^ self basicNew initialize
 ! !
 
 !SelectionInTree class methodsFor:'defaults'!
@@ -576,9 +576,6 @@
     indicatorList := OrderedCollection new.
     accessLock    := Semaphore forMutualExclusion.
     list          := List new.
-
-    super initialize.
-
 ! !
 
 !SelectionInTree methodsFor:'private'!
@@ -946,5 +943,5 @@
 !SelectionInTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.33 2004-04-02 18:19:09 werner Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.34 2005-08-02 13:14:45 cg Exp $'
 ! !