diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-06-14 16:08:10 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-06-14 16:08:10 (GMT) |
| commit | 4c2383b472b848c812ffb25dc0c7e2fc0e8f9b5f (patch) | |
| tree | bd1c39d413a834acc9427fa0661a92c10e3dffb5 /library | |
| parent | eee6c9db0590a4087098a7a7d85dd139bfda6d0f (diff) | |
| parent | 83514ebcf9336a0ee9330bdfa93a39de39ac6b54 (diff) | |
| download | tk-4c2383b472b848c812ffb25dc0c7e2fc0e8f9b5f.zip tk-4c2383b472b848c812ffb25dc0c7e2fc0e8f9b5f.tar.gz tk-4c2383b472b848c812ffb25dc0c7e2fc0e8f9b5f.tar.bz2 | |
Add quotes to the "processing * option" error-messages, for consistancy. Some indenting fixes
Diffstat (limited to 'library')
| -rw-r--r-- | library/button.tcl | 6 | ||||
| -rw-r--r-- | library/tk.tcl | 50 |
2 files changed, 28 insertions, 28 deletions
diff --git a/library/button.tcl b/library/button.tcl index 4be16b1..03d70c5 100644 --- a/library/button.tcl +++ b/library/button.tcl @@ -752,9 +752,9 @@ proc ::tk::CheckLeave {w} { # has not changed it in the meantime. if {![$w cget -indicatoron] && [info exist Priv($w,selectcolor)]} { - if {[$w cget -selectcolor] eq $Priv($w,selectcolor) - || ([info exist Priv($w,aselectcolor)] && - [$w cget -selectcolor] eq $Priv($w,aselectcolor))} { + if {[$w cget -selectcolor] eq $Priv($w,selectcolor) + || ([info exist Priv($w,aselectcolor)] && + [$w cget -selectcolor] eq $Priv($w,aselectcolor))} { $w configure -selectcolor $Priv($w,selectcolor) } } diff --git a/library/tk.tcl b/library/tk.tcl index 390ca69..f12470f 100644 --- a/library/tk.tcl +++ b/library/tk.tcl @@ -18,28 +18,28 @@ namespace eval ::tk { # Set up the msgcat commands namespace eval msgcat { namespace export mc mcmax - if {[interp issafe] || [catch {package require msgcat}]} { - # The msgcat package is not available. Supply our own - # minimal replacement. - proc mc {src args} { - return [format $src {*}$args] - } - proc mcmax {args} { - set max 0 - foreach string $args { - set len [string length $string] - if {$len>$max} { - set max $len - } - } - return $max - } - } else { - # Get the commands from the msgcat package that Tk uses. - namespace import ::msgcat::mc - namespace import ::msgcat::mcmax - ::msgcat::mcload [file join $::tk_library msgs] - } + if {[interp issafe] || [catch {package require msgcat}]} { + # The msgcat package is not available. Supply our own + # minimal replacement. + proc mc {src args} { + return [format $src {*}$args] + } + proc mcmax {args} { + set max 0 + foreach string $args { + set len [string length $string] + if {$len>$max} { + set max $len + } + } + return $max + } + } else { + # Get the commands from the msgcat package that Tk uses. + namespace import ::msgcat::mc + namespace import ::msgcat::mcmax + ::msgcat::mcload [file join $::tk_library msgs] + } } namespace import ::tk::msgcat::* } @@ -498,7 +498,7 @@ switch -exact -- [tk windowingsystem] { if {$::tk_library ne ""} { proc ::tk::SourceLibFile {file} { - namespace eval :: [list source [file join $::tk_library $file.tcl]] + namespace eval :: [list source [file join $::tk_library $file.tcl]] } namespace eval ::tk { SourceLibFile icons @@ -724,8 +724,8 @@ if {[tk windowingsystem] eq "aqua"} { #This procedure is required to silence warnings generated #by inline AppleScript execution. proc ::tk::mac::GetDynamicSdef {} { - puts "" - } + puts "" + } } if {[info commands ::tk::endOfWord] eq ""} { |