--- a/MultiViewToolApplication.st	Wed Apr 02 15:11:12 2014 +0200
+++ b/MultiViewToolApplication.st	Thu Apr 03 20:42:53 2014 +0200
@@ -834,6 +834,30 @@
     ^ super update:something with:aParameter from:changedObject
 
     "Modified: / 14-07-2007 / 16:46:14 / cg"
+!
+
+windowLabelPrefix
+    |nm|
+
+    nm := self class nameWithoutPrefix.
+    (nm endsWith:'Application') ifTrue:[
+        nm := nm copyButLast:'Application' size
+    ].
+    ^ nm
+!
+
+workspaceSelectionChanged
+    |wsIndex windowLabel v prefix|
+
+    "/ self selected
+    self workspaceHolder value:(v := self selectedWorkspace).
+    wsIndex := self selectedWorkspaceIndexHolder value.
+
+    wsIndex ~~ 0 ifTrue:[
+        prefix := self windowLabelPrefix.
+        windowLabel := tabList at:wsIndex ifAbsent:nil.
+        windowLabel notNil ifTrue:[self window label:prefix,': ',windowLabel].
+    ].
 ! !
 
 !MultiViewToolApplication methodsFor:'defaults'!
@@ -1325,19 +1349,6 @@
     self window label:label.
 !
 
-workspaceSelectionChanged
-    |wsIndex windowLabel v|
-
-    "/ self selected
-    self workspaceHolder value:(v := self selectedWorkspace).
-    wsIndex := self selectedWorkspaceIndexHolder value.
-
-    wsIndex ~~ 0 ifTrue:[
-        windowLabel := tabList at:wsIndex ifAbsent:nil.
-        windowLabel notNil ifTrue:[self window label:windowLabel].
-    ].
-!
-
 workspaceViewOfView:aView
     |view|
 
@@ -1375,6 +1386,6 @@
 !MultiViewToolApplication class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.47 2014-02-05 19:00:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.48 2014-04-03 18:42:53 cg Exp $'
 ! !