--- a/FileSelectionTree.st Tue Jul 05 20:36:56 2005 +0200
+++ b/FileSelectionTree.st Wed Jul 06 10:01:51 2005 +0200
@@ -342,7 +342,7 @@
node := self itemClass pathName:oldFile.
node expand.
loc := node children.
- idx := loc findFirst:[:el| el pathName = oldPath ].
+ idx := loc findFirst:[:el| el pathName = oldPath ].
idx == 0 ifTrue:[
^ self directory:newFile
@@ -746,5 +746,5 @@
!FileSelectionTree class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionTree.st,v 1.28 2004-06-16 08:47:04 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionTree.st,v 1.29 2005-07-06 08:01:51 cg Exp $'
! !