more for editField
authorClaus Gittinger <cg@exept.de>
Thu, 20 Mar 2003 01:40:56 +0100
changeset 4695 245e539cba94
parent 4694 ef8bebff9e07
child 4696 ca918417075d
more for editField
DirectoryTreeBrowser.st
--- a/DirectoryTreeBrowser.st	Thu Mar 20 01:39:00 2003 +0100
+++ b/DirectoryTreeBrowser.st	Thu Mar 20 01:40:56 2003 +0100
@@ -1296,9 +1296,8 @@
                 field acceptOnLeave:true.
                 field acceptAction:[:x|
                     alreadyAccepted := true.
-
                     filename := item fileName.
-                    newFileString := x asString.
+                    newFileString := x asString withoutSeparators.
                     filename baseName ~= newFileString ifTrue:[ 
                         (self renameFile:filename to:newFileString update:false) ifTrue:[ 
                             newFilename := filename directory construct:newFileString.
@@ -1397,5 +1396,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.52 2003-03-20 00:39:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.53 2003-03-20 00:40:56 cg Exp $'
 ! !