diff options
Diffstat (limited to 'library/xmfbox.tcl')
| -rw-r--r-- | library/xmfbox.tcl | 9 |
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) |