# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 928759574 -7200
# Node ID d0dee47ac385b6b137ba477ddbfb229a85d8ff45
# Parent  c5940bfd4ce2e713923cd29c31b2797b427ff1c8
total redeisign
including: NoteBookView TabView TabViewSpec UIGalleryView

diff -r c5940bfd4ce2 -r d0dee47ac385 UIGalleryView.st
--- a/UIGalleryView.st	Mon May 31 18:44:46 1999 +0200
+++ b/UIGalleryView.st	Mon Jun 07 14:46:14 1999 +0200
@@ -156,7 +156,7 @@
     "set the list of selectors
     "
     minorKeys := aListOfSelectors.
-    tabRaw selection:nil.
+    self selection:nil.
 ! !
 
 !UIGalleryView methodsFor:'accessing holders'!
@@ -206,12 +206,12 @@
 
 !UIGalleryView methodsFor:'change & update'!
 
-selectionChangedTo:something
+selectionChanged
     "selection changed
     "
     |specification selector selection application|
 
-    selection := tabRaw listIndexOf:something.
+    selection := self listIndexOf:(self selection).
 
     minorKeysHolder notNil ifTrue:[
         minorKeys := minorKeysHolder value.
@@ -239,7 +239,7 @@
 !
 
 update
-    self selectionChangedTo:(tabRaw selection).
+    self selectionChanged.
 !
 
 update:something with:aParameter from:changedObject
@@ -269,7 +269,7 @@
 
     super initialize.
 
-    tabRaw action:[:something| self selectionChangedTo:something ].
+    self action:[:something| self selectionChanged ].
 
 ! !