diff options
author | fvogel <fvogelnew1@free.fr> | 2016-10-30 18:04:10 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2016-10-30 18:04:10 (GMT) |
commit | c31d90c1299171b16fa9e871b9e515d0455b7b8a (patch) | |
tree | 145a6c18ddd0dc909781f8401f536d645bd0bf79 /library/xmfbox.tcl | |
parent | 685b8e2972aff70596e861c3369e48067e55a112 (diff) | |
parent | ce1ffe482eddaadc89c0622cb6b5df3ac11db9da (diff) | |
download | tk-c31d90c1299171b16fa9e871b9e515d0455b7b8a.zip tk-c31d90c1299171b16fa9e871b9e515d0455b7b8a.tar.gz tk-c31d90c1299171b16fa9e871b9e515d0455b7b8a.tar.bz2 |
Fixed [3588460fff] - -typevariable buggy in X11
Diffstat (limited to 'library/xmfbox.tcl')
-rw-r--r-- | library/xmfbox.tcl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/library/xmfbox.tcl b/library/xmfbox.tcl index aa66f7f..14d2be5 100644 --- a/library/xmfbox.tcl +++ b/library/xmfbox.tcl @@ -156,7 +156,7 @@ proc ::tk::MotifFDialog_FileTypes {w} { # The filetypes radiobuttons # set data(fileType) $data(-defaulttype) # Default type to first entry - set initialTypeName [lindex $data(-filetypes) 0 0] + set initialTypeName [lindex $data(origfiletypes) 0 0] if {$data(-typevariable) ne ""} { upvar #0 $data(-typevariable) typeVariable if {[info exists typeVariable]} { @@ -165,7 +165,7 @@ proc ::tk::MotifFDialog_FileTypes {w} { } set ix 0 set data(fileType) 0 - foreach fltr $data(-filetypes) { + foreach fltr $data(origfiletypes) { set fname [lindex $fltr 0] if {[string first $initialTypeName $fname] == 0} { set data(fileType) $ix @@ -185,7 +185,7 @@ proc ::tk::MotifFDialog_FileTypes {w} { set cnt 0 if {$data(-filetypes) ne {}} { foreach type $data(-filetypes) { - set title [lindex [lindex $type 0] 0] + set title [lindex $type 0] set filter [lindex $type 1] radiobutton $f.b$cnt \ -text $title \ @@ -299,6 +299,7 @@ proc ::tk::MotifFDialog_Config {dataName type argList} { # file dialog, but we check for validity of the value to make sure # the application code also runs fine with the TK file dialog. # + set data(origfiletypes) $data(-filetypes) set data(-filetypes) [::tk::FDGetFileTypes $data(-filetypes)] if {![info exists data(filter)]} { @@ -870,7 +871,7 @@ proc ::tk::MotifFDialog_ActivateSEnt {w} { if {[info exists data(-typevariable)] && $data(-typevariable) ne "" && [info exists data(-filetypes)] && $data(-filetypes) ne ""} { upvar #0 $data(-typevariable) typeVariable - set typeVariable [lindex $data(-filetypes) $data(fileType) 0] + set typeVariable [lindex $data(origfiletypes) $data(fileType) 0] } if {$data(-multiple) != 0} { |