diff options
| author | stanton <stanton> | 1998-06-24 16:05:34 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-06-24 16:05:34 (GMT) |
| commit | 4a4091d8d3e7e8b3559d9b3b69f72b5c2020d520 (patch) | |
| tree | be9d73c70010730081c8b5966f6b5f6f4cf5a4f6 /library/xmfbox.tcl | |
| parent | 13d3d8619de3fd760447e51e420766fb5d52f5f0 (diff) | |
| download | tk-4a4091d8d3e7e8b3559d9b3b69f72b5c2020d520.zip tk-4a4091d8d3e7e8b3559d9b3b69f72b5c2020d520.tar.gz tk-4a4091d8d3e7e8b3559d9b3b69f72b5c2020d520.tar.bz2 | |
fixed initialdir bug
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) |