Merge 9.0core-tip-626

1 files changed, 11 insertions, 11 deletions

diff --git a/library/systray.tcl b/library/systray.tcl
index 56cfbf9..eae3183 100644
--- a/library/systray.tcl
+++ b/library/systray.tcl
@@ -196,7 +196,7 @@ namespace eval ::tk::sysnotify:: {
     # Fade the window into view.
     proc _fadeIn {w} {
 	variable defaults
-        if {![winfo exists $w]} {return}
+	if {![winfo exists $w]} {return}
 	if {[set alpha  [option get $w alpha ""]] eq ""} {
 	    set alpha [dict get $defaults alpha]
 	}
@@ -214,7 +214,7 @@ namespace eval ::tk::sysnotify:: {
 
     # Fade out and destroy window.
     proc _fadeOut {w} {
-        if {![winfo exists $w]} {return}
+	if {![winfo exists $w]} {return}
 	set before [wm attributes $w -alpha]
 	set new    [expr { $before - 0.02 }]
 	wm attributes $w -alpha $new
@@ -432,16 +432,16 @@ proc ::tk::systray::_check_options {argsList singleOk} {
 
     set len [llength $argsList]
     while {[llength $argsList] > 0} {
-        set opt [lindex $argsList 0]
-        if {![dict exists $_options $opt]} {
-            tailcall return -code error -errorcode {TK SYSTRAY OPTION} \
+	set opt [lindex $argsList 0]
+	if {![dict exists $_options $opt]} {
+	    tailcall return -code error -errorcode {TK SYSTRAY OPTION} \
 		"unknown option \"$opt\": must be -image, -text, -button1 or -button3"
-        }
-        if {[llength $argsList] == 1 && !($len == 1 && $singleOk)} {
-            tailcall return -code error -errorcode {TK SYSTRAY OPTION} \
+	}
+	if {[llength $argsList] == 1 && !($len == 1 && $singleOk)} {
+	    tailcall return -code error -errorcode {TK SYSTRAY OPTION} \
 		"missing value for option \"$opt\""
-        }
-        set argsList [lrange $argsList 2 end]
+	}
+	set argsList [lrange $argsList 2 end]
     }
 }
 
@@ -479,5 +479,5 @@ proc ::tk::sysnotify::sysnotify {title message} {
 #Thanks to Christian Gollwitzer for the guidance here
 namespace ensemble configure tk -map \
     [dict merge [namespace ensemble configure tk -map] \
-        {systray ::tk::systray sysnotify ::tk::sysnotify::sysnotify}]
+	{systray ::tk::systray sysnotify ::tk::sysnotify::sysnotify}]