--- 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 $'
! !