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