211     "

   211     "

   212     |specification selector selection application|

   212     |specification selector selection application|

   213 

   213 

   214     selection := tabRaw listIndexOf:something.

   214     selection := tabRaw listIndexOf:something.

   215 

   215 

   216     (selection notNil and:[minorKeys size >= selection]) ifTrue:[

   219     (selection notNil and:[minorKeys size >= selection]) ifTrue:[

   217         selector := minorKeys at:selection.

   220         selector := minorKeys at:selection.

   218 

   221 

   219         (majorKey respondsTo:selector) ifTrue:[

   222         (majorKey respondsTo:selector) ifTrue:[

   220             specification := majorKey perform:selector

   223             specification := majorKey perform:selector

   262     "setup default attributes

   265     "setup default attributes

   263     "

   266     "

   264     canvas := Canvas.

   267     canvas := Canvas.

   265 

   268 

   266     super initialize.

   269     super initialize.

   267     tabRaw action:[:something| self selectionChangedTo:something ].

   271     tabRaw action:[:something| self selectionChangedTo:something ].

   268 

   272 

   269 ! !

   273 ! !

   270 

   274 

   271 !UIGalleryView::Canvas methodsFor:'accessing'!

   275 !UIGalleryView::Canvas methodsFor:'accessing'!