--- a/MultiViewToolApplication.st	Thu Dec 09 08:46:22 2010 +0100
+++ b/MultiViewToolApplication.st	Thu Dec 09 10:56:52 2010 +0100
@@ -879,7 +879,7 @@
 !
 
 addWindow:aWindow named:name asFirst:asFirst
-    |tabList wsIndex newSelectedIndex|
+    |tabList wsIndex newSelectedIndex w|
 
     tabList := self tabList.
     wsIndex := tabList size + 1.
@@ -898,9 +898,19 @@
         tabList addLast:(name bindWith:wsIndex).
         newSelectedIndex := wsIndex.
     ].
+
+    (w := aWindow) isScrollWrapper ifTrue:[
+        w := aWindow scrolledView   
+    ].
+    w isKeyboardConsumer ifTrue:[
+        w takeFocusWhenMapped:true.
+    ].
+
     workspaces at:newSelectedIndex put:aWindow.
     self selectedWorkspaceIndexHolder value:newSelectedIndex.   
 "/    workspaceHolder value:aWindow.
+
+    "Modified: / 09-12-2010 / 10:56:36 / cg"
 !
 
 addWorkspace
@@ -1271,7 +1281,7 @@
     ws := (HVScrollableView for:EditTextView).
     ^ ws
 
-    "Modified: / 25-10-2006 / 14:34:19 / cg"
+    "Modified: / 09-12-2010 / 10:55:25 / cg"
 !
 
 isModifiedWorkspace:aView
@@ -1339,9 +1349,9 @@
 !MultiViewToolApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.38 2010-11-16 14:29:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.39 2010-12-09 09:56:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.38 2010-11-16 14:29:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.39 2010-12-09 09:56:52 cg Exp $'
 ! !