diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-10-25 21:06:25 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-10-25 21:06:25 (GMT) |
| commit | 0d5336db012f45753abace489f18f0ca299c6961 (patch) | |
| tree | b1bf3280a9046df99226158978502eeb26f5b0a3 /library/comdlg.tcl | |
| parent | e97381a6d921de403516d5b761539a450f4af83c (diff) | |
| parent | 1320b8a2a9c1269a345d44d673a7a35707fbbe9c (diff) | |
| download | tk-core-tip-626.zip tk-core-tip-626.tar.gz tk-core-tip-626.tar.bz2 | |
Merge 9.0core-tip-626
Diffstat (limited to 'library/comdlg.tcl')
| -rw-r--r-- | library/comdlg.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/comdlg.tcl b/library/comdlg.tcl index 0a7f65b..25e1b1f 100644 --- a/library/comdlg.tcl +++ b/library/comdlg.tcl @@ -65,9 +65,9 @@ proc tclParseConfigSpec {w specs flags argList} { # 2: set the default values # if {"DONTSETDEFAULTS" ni $flags} { - foreach cmdsw [array names cmd] { + foreach cmdsw [array names cmd] { set data($cmdsw) $def($cmdsw) - } + } } # 3: parse the argument list @@ -149,7 +149,7 @@ proc ::tk::FocusGroup_BindIn {t w cmd} { variable ::tk::Priv if {![info exists Priv(fg,$t)]} { return -code error -errorcode [list TK LOOKUP FOCUS_GROUP $t] \ - "focus group \"$t\" doesn't exist" + "focus group \"$t\" does not exist" } set FocusIn($t,$w) $cmd } @@ -166,7 +166,7 @@ proc ::tk::FocusGroup_BindOut {t w cmd} { variable ::tk::Priv if {![info exists Priv(fg,$t)]} { return -code error -errorcode [list TK LOOKUP FOCUS_GROUP $t] \ - "focus group \"$t\" doesn't exist" + "focus group \"$t\" does not exist" } set FocusOut($t,$w) $cmd } |