--- a/UIGalleryView.st Tue May 18 21:18:11 1999 +0200
+++ b/UIGalleryView.st Fri May 21 19:58:17 1999 +0200
@@ -214,24 +214,25 @@
selection := tabRaw listIndexOf:something.
minorKeysHolder notNil ifTrue:[
- minorKeys := minorKeysHolder value.
+ minorKeys := minorKeysHolder value.
].
+
(selection notNil and:[minorKeys size >= selection]) ifTrue:[
- selector := minorKeys at:selection.
+ selector := minorKeys at:selection.
- (majorKey respondsTo:selector) ifTrue:[
- specification := majorKey perform:selector
- ] ifFalse:[
- (application := self application) notNil ifTrue:[
- Object messageNotUnderstoodSignal handle:[:ex|
- (application class respondsTo:selector) ifTrue:[
- specification := application class perform:selector
- ]
- ] do:[
- specification := application aspectFor:selector
- ]
- ]
- ]
+ (majorKey respondsTo:selector) ifTrue:[
+ specification := majorKey perform:selector
+ ] ifFalse:[
+ (application := self application) notNil ifTrue:[
+ Object messageNotUnderstoodSignal handle:[:ex|
+ (application class respondsTo:selector) ifTrue:[
+ specification := application class perform:selector
+ ]
+ ] do:[
+ specification := application aspectFor:selector
+ ]
+ ]
+ ]
].
canvas specification:specification.
@@ -245,7 +246,7 @@
"one of my models changed its value
"
changedObject == minorKeysHolder ifTrue:[
- ^ self minorKeys:( minorKeysHolder value)
+ ^ self minorKeys:( minorKeysHolder value)
].
super update:something with:aParameter from:changedObject.
@@ -508,16 +509,6 @@
].
-!
-
-mapped
- "make certain that the input view is on top.
- "
- super mapped.
- inputView raise.
-
- "Modified: / 20.7.1998 / 18:10:48 / cg"
- "Created: / 20.7.1998 / 18:12:35 / cg"
! !
!UIGalleryView::Canvas methodsFor:'initialization'!
@@ -532,6 +523,12 @@
inputView enableMotionEvents.
"Modified: / 20.7.1998 / 18:12:38 / cg"
+!
+
+mapped
+ super mapped.
+ self realizeAllSubViews.
+ inputView raise.
! !
!UIGalleryView::Canvas methodsFor:'searching'!