*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 06 Mar 2006 09:49:27 +0100
changeset 2025 3889f308e6f7
parent 2024 6e9f614d6c9e
child 2026 df5b0b3902de
*** empty log message ***
UISelectionPanel.st
--- a/UISelectionPanel.st	Mon Mar 06 09:49:20 2006 +0100
+++ b/UISelectionPanel.st	Mon Mar 06 09:49:27 2006 +0100
@@ -1628,6 +1628,30 @@
     "Modified: / 18.3.1999 / 18:29:19 / stefan"
 ! !
 
+!UISelectionPanel methodsFor:'initialization'!
+
+initialize
+    |holder|
+
+    super initialize.
+
+    userClass  := UserClass.
+    userSpecs  := UserSpecs.
+    userLabels := UserLabels.
+
+    gallery := UIGalleryView new.
+
+    gallery           model:(ValueHolder new).
+    gallery      listHolder:(ValueHolder new).
+    gallery minorKeysHolder:(ValueHolder new).
+    gallery    menuSelector:#raiseMenu.
+
+    gallery clientSpecHolder:(holder := ValueHolder new).
+    holder  addDependent:self.
+
+    majorSelection := 0.
+! !
+
 !UISelectionPanel methodsFor:'queries'!
 
 canPaste:something
@@ -1712,30 +1736,9 @@
     "Modified: 28.7.1997 / 09:44:40 / cg"
 !
 
-initialize
-    |holder|
-
-    super initialize.
-
-    userClass  := UserClass.
-    userSpecs  := UserSpecs.
-    userLabels := UserLabels.
-
-    gallery := UIGalleryView new.
-
-    gallery           model:(ValueHolder new).
-    gallery      listHolder:(ValueHolder new).
-    gallery minorKeysHolder:(ValueHolder new).
-    gallery    menuSelector:#raiseMenu.
-
-    gallery clientSpecHolder:(holder := ValueHolder new).
-    holder  addDependent:self.
-
-    majorSelection := 0.
-!
-
 postOpenWith:aBuilder
     self majorChannel value:1.
+    super postOpenWith:aBuilder.
 ! !
 
 !UISelectionPanel methodsFor:'user defined'!