changeset 683 | 648ba2c8536e |
parent 661 | 34af6869d5b8 |
child 720 | 7f228c9cde2e |
--- a/UIGalleryView.st Wed Feb 25 23:57:53 1998 +0100 +++ b/UIGalleryView.st Thu Feb 26 10:59:14 1998 +0100 @@ -213,6 +213,9 @@ selection := tabRaw listIndexOf:something. + minorKeysHolder notNil ifTrue:[ + minorKeys := minorKeysHolder value. + ]. (selection notNil and:[minorKeys size >= selection]) ifTrue:[ selector := minorKeys at:selection. @@ -264,6 +267,7 @@ canvas := Canvas. super initialize. + tabRaw action:[:something| self selectionChangedTo:something ]. ! !