--- a/FileBrowser.st	Tue Feb 01 22:53:17 2000 +0100
+++ b/FileBrowser.st	Wed Feb 02 13:40:22 2000 +0100
@@ -3613,10 +3613,10 @@
     |textView|
 
     textView := HVScrollableView 
-	for:CodeView 
-	miniScrollerH:true 
-	miniScrollerV:false 
-	in:frame.
+        for:CodeView 
+        miniScrollerH:true 
+        miniScrollerV:false 
+        in:frame.
     textView origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
 
 "/    imagePreviewView := HVScrollableView 
@@ -3628,6 +3628,20 @@
 "/
 "/    imagePreviewView beInvisible.
 
+    textView doItAction:[:theCode |
+        PositionableStream currentFileInDirectoryQuerySignal 
+        answer:(currentDirectory asFilename)
+        do:[
+            Compiler 
+                evaluate:theCode 
+                in:nil 
+                receiver:nil 
+                notifying:self 
+                logged:true 
+                ifFail:nil
+        ]
+    ].
+
     ^ textView.
 !
 
@@ -7052,5 +7066,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.363 2000-01-31 13:49:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.364 2000-02-02 12:40:22 cg Exp $'
 ! !