# HG changeset patch
# User tz
# Date 885480030 -3600
# Node ID a8da4f1924a4be22ac315b9bdf3863d76d793a20
# Parent  845121b3901b018b36b4177c92362016e04f755a
evaluate actions with complete path

diff -r 845121b3901b -r a8da4f1924a4 DirectoryView.st
--- a/DirectoryView.st	Thu Jan 22 15:28:16 1998 +0100
+++ b/DirectoryView.st	Thu Jan 22 15:40:30 1998 +0100
@@ -299,8 +299,8 @@
         ].
         fileDoubleClickAction numArgs = 1
         ifTrue:
-        [
-            fileDoubleClickAction value: self selectionOfFile value baseName
+        [                
+            fileDoubleClickAction value: (directory asFilename construct: self selectionOfFile value baseName) name
         ]
     ]
 !
@@ -318,7 +318,7 @@
         fileSelectAction numArgs = 1
         ifTrue:
         [
-            fileSelectAction value: self selectionOfFile value baseName
+            fileSelectAction value: (directory asFilename construct: self selectionOfFile value baseName) name
         ]
     ]
 ! !