*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 13 Apr 2006 19:42:40 +0200
changeset 6768 aa5f98df1ec3
parent 6767 63e2b31fb74f
child 6769 4decf38c7feb
*** empty log message ***
DirectoryTreeBrowser.st
--- a/DirectoryTreeBrowser.st	Thu Apr 13 19:42:32 2006 +0200
+++ b/DirectoryTreeBrowser.st	Thu Apr 13 19:42:40 2006 +0200
@@ -1244,11 +1244,12 @@
                         renameFile:filename
                         to:newFileString
                         update:false) 
-                            ifTrue:[
-                                newFilename := filename directory construct:newFileString.
-                                self 
-                                    withWaitCursorDo:[self updateAndSelect:(OrderedCollection with:newFilename)]
-                            ]
+                    ifTrue:[
+                        newFilename := filename directory construct:newFileString.
+                        self withWaitCursorDo:[
+                            self updateAndSelect:(OrderedCollection with:newFilename)
+                        ]
+                    ]
                 ].
                 aGC closeEditor.
                 (field leaveKey == #CursorUp or:[field leaveKey == #CursorDown]) ifTrue:[
@@ -1330,5 +1331,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.100 2006-04-07 07:32:31 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.101 2006-04-13 17:42:40 cg Exp $'
 ! !