diff -r 41253026b070 -r 69bd579838f7 UIGalleryView.st --- 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'!