diff options
| author | dgp <dgp@users.sourceforge.net> | 2007-05-16 18:10:34 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2007-05-16 18:10:34 (GMT) |
| commit | 2175fd4d04e6c0088b9adfac510d6b7603686997 (patch) | |
| tree | 064a406739ab677cf5bcb77107f0e569b8f6a0fe /library/comdlg.tcl | |
| parent | 67e948d9e2500d26778cd5605eebc2b265e08900 (diff) | |
| download | tk-2175fd4d04e6c0088b9adfac510d6b7603686997.zip tk-2175fd4d04e6c0088b9adfac510d6b7603686997.tar.gz tk-2175fd4d04e6c0088b9adfac510d6b7603686997.tar.bz2 | |
* library/choosedir.tcl: Removed uses of obsolete {expand}
* library/comdlg.tcl: syntax; replaced with the now
* library/tk.tcl: approved {*}. [Bug 1710633]
* tests/canvImg.test:
* tests/imgPhoto.test:
Diffstat (limited to 'library/comdlg.tcl')
| -rw-r--r-- | library/comdlg.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/comdlg.tcl b/library/comdlg.tcl index dd8c599..6190fa3 100644 --- a/library/comdlg.tcl +++ b/library/comdlg.tcl @@ -3,7 +3,7 @@ # Some functions needed for the common dialog boxes. Probably need to go # in a different file. # -# RCS: @(#) $Id: comdlg.tcl,v 1.13 2006/01/25 18:22:04 dgp Exp $ +# RCS: @(#) $Id: comdlg.tcl,v 1.14 2007/05/16 18:10:35 dgp Exp $ # # Copyright (c) 1996 Sun Microsystems, Inc. # @@ -259,7 +259,7 @@ proc ::tk::FDGetFileTypes {string} { if {[llength $t] < 2 || [llength $t] > 3} { error "bad file type \"$t\", should be \"typeName {extension ?extensions ...?} ?{macType ?macTypes ...?}?\"" } - lappend fileTypes([lindex $t 0]) {expand}[lindex $t 1] + lappend fileTypes([lindex $t 0]) {*}[lindex $t 1] } set types {} |