diff options
Diffstat (limited to 'itcl/iwidgets3.0.0/generic/fileselectionbox.itk')
-rw-r--r-- | itcl/iwidgets3.0.0/generic/fileselectionbox.itk | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/itcl/iwidgets3.0.0/generic/fileselectionbox.itk b/itcl/iwidgets3.0.0/generic/fileselectionbox.itk index b41b29cdcdf..b164afbfd49 100644 --- a/itcl/iwidgets3.0.0/generic/fileselectionbox.itk +++ b/itcl/iwidgets3.0.0/generic/fileselectionbox.itk @@ -674,6 +674,8 @@ body iwidgets::Fileselectionbox::_setSelection {} { } else { set selection [file join $_pwd ..] } + } else { + set selection [file join $_pwd $selection] } # @@ -683,6 +685,7 @@ body iwidgets::Fileselectionbox::_setSelection {} { regsub {^/(tmp_mnt|export)} $selection {} selection; } + $itk_component(selection) delete 0 end $itk_component(selection) insert 0 $selection } |