summaryrefslogtreecommitdiffstats
path: root/library/comdlg.tcl
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2015-02-02 09:50:46 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2015-02-02 09:50:46 (GMT)
commit0547516d16dcfe830857541e6be7c9316bfe8a61 (patch)
treefa9bd81e01ecbd861cd680d3afca85e27da45259 /library/comdlg.tcl
parent21453c373d9fc6b7f57826ff0ab4a90ba629c68a (diff)
downloadtk-0547516d16dcfe830857541e6be7c9316bfe8a61.zip
tk-0547516d16dcfe830857541e6be7c9316bfe8a61.tar.gz
tk-0547516d16dcfe830857541e6be7c9316bfe8a61.tar.bz2
Remove unnecessary end-of-line spacing
Diffstat (limited to 'library/comdlg.tcl')
-rw-r--r--library/comdlg.tcl6
1 files changed, 3 insertions, 3 deletions
diff --git a/library/comdlg.tcl b/library/comdlg.tcl
index f89754c..18df8a6 100644
--- a/library/comdlg.tcl
+++ b/library/comdlg.tcl
@@ -180,7 +180,7 @@ proc ::tk::FocusGroup_Destroy {t w} {
if {$t eq $w} {
unset Priv(fg,$t)
- unset Priv(focus,$t)
+ unset Priv(focus,$t)
foreach name [array names FocusIn $t,*] {
unset FocusIn($name)
@@ -277,7 +277,7 @@ proc ::tk::FDGetFileTypes {string} {
continue
}
- # Validate each macType. This is to agree with the
+ # Validate each macType. This is to agree with the
# behaviour of TkGetFileFilters(). This list may be
# empty.
foreach macType [lindex $t 2] {
@@ -286,7 +286,7 @@ proc ::tk::FDGetFileTypes {string} {
"bad Macintosh file type \"$macType\""
}
}
-
+
set name "$label \("
set sep ""
set doAppend 1