make the directory of the IDE the default directory of the directory selector dialog

fedc8607 · John van Groningen · f3f39b7c · fedc8607
Commit fedc8607 authored May 12, 2005 by John van Groningen
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

Win/UtilIO.icl Win/UtilIO.icl +3 -1

No files found.
--- a/Win/UtilIO.icl
+++ b/Win/UtilIO.icl
@@ -448,7 +448,9 @@ osfileselectFatalError function error
 import StdArray

 global :: {Maybe String}
-global =: {Just ""}
+global
+	#! path_name = expand_8_3_names_in_path (RemoveFileName WinGetModulePath);
+	=: {Just path_name};

 //update_maybe_string :: !(Maybe String) !*{(Maybe String)} -> (!(Maybe String),!*{(Maybe String)})
 update_maybe_string :: !(Maybe String) !{(Maybe String)} -> (!(Maybe String),!{(Maybe String)})