--- 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.
! !