summaryrefslogtreecommitdiffstats
path: root/library/xmfbox.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'library/xmfbox.tcl')
-rw-r--r--library/xmfbox.tcl9
1 files changed, 8 insertions, 1 deletions
diff --git a/library/xmfbox.tcl b/library/xmfbox.tcl
index 52f8b33..361f08a 100644
--- a/library/xmfbox.tcl
+++ b/library/xmfbox.tcl
@@ -145,8 +145,15 @@ proc tkMotifFDialog_Config {w type argList} {
if [file isdirectory $data(-initialdir)] {
set data(selectPath) [glob $data(-initialdir)]
} else {
- error "\"$data(-initialdir)\" is not a valid directory"
+ set data(selectPath) [pwd]
}
+
+ # Convert the initialdir to an absolute path name.
+
+ set old [pwd]
+ cd $data(selectPath)
+ set data(selectPath) [pwd]
+ cd $old
}
set data(selectFile) $data(-initialfile)