--- a/DirectoryTreeBrowser.st	Mon Jan 13 18:20:05 2003 +0100
+++ b/DirectoryTreeBrowser.st	Tue Jan 14 10:55:46 2003 +0100
@@ -1265,7 +1265,7 @@
                 field := EditField new.
                 field level:0.
                 field acceptOnReturn:true.
-                field acceptOnLeave:false.
+                field acceptOnLeave:true.
                 field acceptAction:[:x| 
                     filename := item fileName.
                     newFileString := x at:1.
@@ -1277,12 +1277,16 @@
                     ].
                     aGC closeEditor.
                 ].
+                
                 field font:(aGC font).
                 field contents:(item label).
             ].
             field
         ].
     ].
+    dirBrowser closeEditorAction:[:ln |
+        ln acceptAction value:ln list.
+    ].
 !
 
 postBuildWith:aBuilder
@@ -1361,5 +1365,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.39 2003-01-09 14:42:09 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.40 2003-01-14 09:55:46 penk Exp $'
 ! !