--- a/MultiViewToolApplication.st	Fri Jan 21 12:07:42 2011 +0100
+++ b/MultiViewToolApplication.st	Sat Jan 22 12:05:01 2011 +0100
@@ -869,7 +869,10 @@
     (self toolBarVisibleHolder value 
     or:[ self editToolBarVisibleHolder value ]) ifTrue:[ self toolBarVisibilityChanged ].
 
+    self workspaceSelectionChanged.
+
     "Created: / 18-02-2007 / 15:03:08 / cg"
+    "Modified: / 22-01-2011 / 11:46:35 / cg"
 ! !
 
 !MultiViewToolApplication methodsFor:'menu-actions'!
@@ -899,18 +902,18 @@
         newSelectedIndex := wsIndex.
     ].
 
-    (w := aWindow) isScrollWrapper ifTrue:[
-        w := aWindow scrolledView   
-    ].
+    w := aWindow scrolledView.
     w isKeyboardConsumer ifTrue:[
         w takeFocusWhenMapped:true.
     ].
 
     workspaces at:newSelectedIndex put:aWindow.
-    self selectedWorkspaceIndexHolder value:newSelectedIndex.   
+    self selectedWorkspaceIndexHolder value:newSelectedIndex.
+    self workspaceSelectionChanged.
+
 "/    workspaceHolder value:aWindow.
 
-    "Modified: / 09-12-2010 / 10:56:36 / cg"
+    "Modified: / 22-01-2011 / 12:02:59 / cg"
 !
 
 addWorkspace
@@ -1349,9 +1352,9 @@
 !MultiViewToolApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.39 2010-12-09 09:56:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.40 2011-01-22 11:05:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.39 2010-12-09 09:56:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.40 2011-01-22 11:05:01 cg Exp $'
 ! !