# HG changeset patch
# User ca
# Date 888487211 -3600
# Node ID 998a2d438fa73e0d4268fd9b1118370f255b0058
# Parent  648ba2c8536e0b6daac75cd2980145ccd7f45ee3
first draw tab-labels than the spec

diff -r 648ba2c8536e -r 998a2d438fa7 UISelectionPanel.st
--- a/UISelectionPanel.st	Thu Feb 26 10:59:14 1998 +0100
+++ b/UISelectionPanel.st	Thu Feb 26 11:00:11 1998 +0100
@@ -1574,43 +1574,34 @@
 !
 
 majorSelection:aSelection
-    |spec channel|
+    |spec gallery|
 
     (majorSelection == aSelection or:[aSelection == 0]) ifTrue:[
         ^ self
     ].
+
     (self builder componentAt:#gallery) builder:nil.
+
     majorSelection := aSelection.
-    spec := ((self class specifications) at:aSelection) last.
+    spec := ((self class specifications) at:majorSelection) last.
+
+    gallery := self galleryModel.
+    gallery value:0.
+    self minorKeys value:nil.
 
     spec isSymbol ifFalse:[
-        self galleryList value:(spec collect:[:a| a first]).
-        self minorKeys   value:(spec collect:[:a| a last]).
+        self galleryList  value:(spec collect:[:a| a first]).
+        self minorKeys setValue:(spec collect:[:a| a last]).
     ] ifTrue:[
-        self perform:spec
+        self perform:spec.
     ].
-    channel := self galleryModel.
+    gallery value:1.
 
-    channel value notNil ifTrue:[
-        channel setValue:nil
-    ].
-    channel value:1.
 
 ! !
 
 !UISelectionPanel methodsFor:'startup / release'!
 
-allButOpenInterface:aSpec
-    "setup default values
-    "
-    userClass  := UserClass.
-    userSpecs  := UserSpecs.
-    userLabels := UserLabels.
-    ^ super allButOpenInterface:aSpec.
-
-    "Modified: / 5.2.1998 / 20:12:15 / cg"
-!
-
 closeRequest
     |sav|
 
@@ -1627,15 +1618,15 @@
 
 initialize
     super initialize.
+
+    userClass  := UserClass.
+    userSpecs  := UserSpecs.
+    userLabels := UserLabels.
+
     majorSelection := 0.
 !
 
-openWindow
-    "setup default values
-    "
-    super openWindow.
-    "/ self window waitForExpose.
-    Delay waitForSeconds:1.
+postOpenWith:aBuilder
     self majorChannel value:1.
 ! !