AbstractFileBrowser.st
changeset 18734 ffbafcfcccf1
parent 18666 96b9b1954989
child 18746 a12a52c66c53
--- a/AbstractFileBrowser.st	Wed Apr 10 05:59:23 2019 +0200
+++ b/AbstractFileBrowser.st	Wed Apr 10 05:59:50 2019 +0200
@@ -3441,7 +3441,6 @@
     |dir|
 
     dir := self currentDirectory.
-    
     dir isNil ifTrue:[
         dir :=  Filename homeDirectory
     ].
@@ -3449,6 +3448,8 @@
     self 
         applicationNamed:#FileApplicationNoteBook
         ifPresentDo:[:appl | appl addTerminalIn:dir].
+
+    "Modified (format): / 10-04-2019 / 05:53:35 / Claus Gittinger"
 !
 
 doOpenSearchFile
@@ -9467,7 +9468,12 @@
 initialCommandFor:fileName into:aBox
     "set a useful initial command for execute box."
 
-    self class initialCommandFor:fileName in:Filename currentDirectory intoBox:aBox
+    self class 
+        initialCommandFor:fileName 
+        in:self "Filename" currentDirectory 
+        intoBox:aBox
+
+    "Modified: / 10-04-2019 / 05:55:21 / Claus Gittinger"
 !
 
 isAbstractFileBrowser