changed: #renameWorkspace:
authorClaus Gittinger <cg@exept.de>
Fri, 20 Jul 2012 10:22:53 +0200
changeset 11626 fb8ca9aad4a3
parent 11625 919aac038447
child 11627 cf7bec895444
changed: #renameWorkspace:
MultiViewToolApplication.st
--- a/MultiViewToolApplication.st	Thu Jul 19 20:28:54 2012 +0200
+++ b/MultiViewToolApplication.st	Fri Jul 20 10:22:53 2012 +0200
@@ -1129,10 +1129,12 @@
     ] ifFalse:[
         oldName := tabList at:wsIndex.
     ].
-    newName := Dialog request:(resources string:'New Name for %1:' with:oldName) initialAnswer:oldName.
+    newName := Dialog request:(resources string:'New Name for "%1":' with:oldName) initialAnswer:oldName.
     newName size == 0 ifTrue:[ ^ self].
 
     self renameWorkspace:wsIndex to:newName.
+
+    "Modified: / 20-07-2012 / 10:21:29 / cg"
 !
 
 renameWorkspace:wsIndex to:newName
@@ -1357,5 +1359,5 @@
 !MultiViewToolApplication class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.43 2012-04-21 18:38:24 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.44 2012-07-20 08:22:53 cg Exp $'
 ! !