diff options
| author | dgp <dgp@users.sourceforge.net> | 2006-01-25 18:22:04 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2006-01-25 18:22:04 (GMT) |
| commit | 339966aea87195faf678c05a06895a0a2f9c65af (patch) | |
| tree | 80bb0c008e169df663722d227f5f24bc18665bac /library/comdlg.tcl | |
| parent | f59975d6eb39f7419c93e45392bab264f83ac352 (diff) | |
| download | tk-339966aea87195faf678c05a06895a0a2f9c65af.zip tk-339966aea87195faf678c05a06895a0a2f9c65af.tar.gz tk-339966aea87195faf678c05a06895a0a2f9c65af.tar.bz2 | |
* library/bgerror.tcl: Updates to use Tcl 8.4 features. [Patch 1237759] * library/choosedir.tcl:
* library/comdlg.tcl:
* library/console.tcl:
* library/dialog.tcl:
* library/focus.tcl:
* library/msgbox.tcl:
* library/palette.tcl:
* library/tk.tcl:
* library/tkfbox.tcl:
* library/xmfbox.tcl:
Diffstat (limited to 'library/comdlg.tcl')
| -rw-r--r-- | library/comdlg.tcl | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/library/comdlg.tcl b/library/comdlg.tcl index 0126ad4..dd8c599 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.12 2005/07/25 15:31:11 dgp Exp $ +# RCS: @(#) $Id: comdlg.tcl,v 1.13 2006/01/25 18:22:04 dgp Exp $ # # Copyright (c) 1996 Sun Microsystems, Inc. # @@ -187,12 +187,7 @@ proc ::tk::FocusGroup_Destroy {t w} { if {[info exists Priv(focus,$t)] && ($Priv(focus,$t) eq $w)} { set Priv(focus,$t) "" } - catch { - unset FocusIn($t,$w) - } - catch { - unset FocusOut($t,$w) - } + unset -nocomplain FocusIn($t,$w) FocusOut($t,$w) } } @@ -285,7 +280,7 @@ proc ::tk::FDGetFileTypes {string} { } } - set name "$label (" + set name "$label \(" set sep "" set doAppend 1 foreach ext $fileTypes($label) { @@ -305,9 +300,9 @@ proc ::tk::FDGetFileTypes {string} { lappend exts $ext set hasGotExt($label,$ext) 1 } - set sep , + set sep "," } - append name ")" + append name "\)" lappend types [list $name $exts] set hasDoneType($label) 1 |