diff options
| author | fvogel <fvogelnew1@free.fr> | 2016-11-02 20:07:14 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2016-11-02 20:07:14 (GMT) |
| commit | 584aeb456ebbbcaebbafbaa77e629cb053b16ae8 (patch) | |
| tree | 7a748293a54112b49a67b8043631ef805a002067 /library/xmfbox.tcl | |
| parent | b09df9dd0715deedba99bd9a34e47a245439f02f (diff) | |
| download | tk-584aeb456ebbbcaebbafbaa77e629cb053b16ae8.zip tk-584aeb456ebbbcaebbafbaa77e629cb053b16ae8.tar.gz tk-584aeb456ebbbcaebbafbaa77e629cb053b16ae8.tar.bz2 | |
Removed proc ::tk_getFileType since it is used nowhere in Tk, is undocumented, is superseded by the -typevariable option of file dialogs, and was anyway only available if tk_strictMotif is true.
Diffstat (limited to 'library/xmfbox.tcl')
| -rw-r--r-- | library/xmfbox.tcl | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/library/xmfbox.tcl b/library/xmfbox.tcl index 14d2be5..f1daea0 100644 --- a/library/xmfbox.tcl +++ b/library/xmfbox.tcl @@ -210,7 +210,6 @@ proc ::tk::MotifFDialog_SetFilter {w type} { variable ::tk::Priv set data(filter) [lindex $type 1] - set Priv(selectFileType) [lindex [lindex $type 0] 0] MotifFDialog_Update $w } @@ -981,9 +980,3 @@ proc ::tk::ListBoxKeyAccel_Reset {w} { unset -nocomplain Priv(lbAccel,$w) } -proc ::tk_getFileType {} { - variable ::tk::Priv - - return $Priv(selectFileType) -} - |