Add quotes to the "processing * option" error-messages, for consistancy. Some indenting fixes

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 27fa1de..7153974 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 -encoding utf-8 [file join $::tk_library $file.tcl]]
+	namespace eval :: [list source -encoding utf-8 [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 ""} {