# HG changeset patch
# User ca
# Date 888487154 -3600
# Node ID 648ba2c8536e0b6daac75cd2980145ccd7f45ee3
# Parent  9fcd010d8fd397ed4fb435bb761ac2c504c31cad
whenever selection changed; reread minorKeys from
model:
    so you can use #setValue: to change the minorKeys model

diff -r 9fcd010d8fd3 -r 648ba2c8536e UIGalleryView.st
--- 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 ].
 
 ! !