diff options
Diffstat (limited to 'itcl/iwidgets3.0.0/generic/extfileselectionbox.itk')
-rw-r--r-- | itcl/iwidgets3.0.0/generic/extfileselectionbox.itk | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/itcl/iwidgets3.0.0/generic/extfileselectionbox.itk b/itcl/iwidgets3.0.0/generic/extfileselectionbox.itk index 34c9ddbaec7..0b04fcf26d4 100644 --- a/itcl/iwidgets3.0.0/generic/extfileselectionbox.itk +++ b/itcl/iwidgets3.0.0/generic/extfileselectionbox.itk @@ -81,20 +81,17 @@ class iwidgets::Extfileselectionbox { method filter {} } - public { - method _selectDir {} - method _dblSelectDir {} - method _selectFile {} - method _selectSelection {} - method _selectFilter {} - } - protected { method _packComponents {{when later}} method _updateLists {{when later}} } private { + method _selectDir {} + method _dblSelectDir {} + method _selectFile {} + method _selectSelection {} + method _selectFilter {} method _setFilter {} method _setSelection {} method _setDirList {} @@ -716,6 +713,8 @@ body iwidgets::Extfileselectionbox::_setSelection {} { } else { set selection [file join $_pwd ..] } + } else { + set selection [file join $_pwd $selection] } # |