--- a/FileBrowser.st Sun Jul 29 14:46:36 2001 +0200
+++ b/FileBrowser.st Sun Jul 29 17:32:19 2001 +0200
@@ -2733,6 +2733,7 @@
queryBox initialText:oldName.
].
queryBox action:[:newName |
+ fileListView removeFromSelection:(fileList indexOf:oldName).
self doRename:oldName to:newName.
lastOldName := oldName.
lastNewName := newName.
@@ -7301,5 +7302,5 @@
!FileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.412 2001-07-29 12:46:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.413 2001-07-29 15:32:19 cg Exp $'
! !