diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-21 16:04:20 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-21 16:04:20 (GMT) |
commit | 60185fa162e07e3ffb2351e26b1946570633487a (patch) | |
tree | 5604c1f6df6ec3460b9a634d928ccfb58d559bb0 /library/systray.tcl | |
parent | 4ff12b5ba2d676f45815ea946d632c63c925083d (diff) | |
parent | 6c408f9635216a7ef5b45abb0084de2b648bd77a (diff) | |
download | tk-60185fa162e07e3ffb2351e26b1946570633487a.zip tk-60185fa162e07e3ffb2351e26b1946570633487a.tar.gz tk-60185fa162e07e3ffb2351e26b1946570633487a.tar.bz2 |
Merge trunk
Diffstat (limited to 'library/systray.tcl')
-rw-r--r-- | library/systray.tcl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/library/systray.tcl b/library/systray.tcl index 8306194..fb21d2d 100644 --- a/library/systray.tcl +++ b/library/systray.tcl @@ -56,7 +56,7 @@ namespace eval ::winicoprops { } proc _win_callback {msg icn} { - + switch -exact -- $msg { WM_LBUTTONDOWN { eval $::winicoprops::cb1 @@ -168,7 +168,7 @@ proc ::tk::systray {args} { #Set variables for icon properties. global _iconlist - + #Remove the systray icon. if {[lindex $args 0] eq "destroy" && [llength $args] == 1} { @@ -199,11 +199,11 @@ proc ::tk::systray {args} { set _txt [lindex $args 2] set _cb_1 [lindex $args 3] set _cb_3 [lindex $args 4] - + set ::winicoprops::img $_img set ::winicoprops::txt $_txt set ::winicoprops::cb1 $_cb_1 - set ::winicoprops::cb3 $_cb_3 + set ::winicoprops::cb3 $_cb_3 switch -- [tk windowingsystem] { "win32" { if {[llength $_iconlist] > 0} { @@ -257,7 +257,7 @@ proc ::tk::systray {args} { set ::winicoprops::cb3 $_cb_3 _systray taskbar modify $::winicoprops::ico -callback [list _win_callback %m %i] } - + } "x11" { if {[lindex $args 1] eq "image"} { @@ -335,7 +335,7 @@ proc ::tk::sysnotify {title message} { } #Add these commands to the tk command ensemble: tk systray, tk sysnotify -#Thanks to Christian Gollwitzer for the guidance here +#Thanks to Christian Gollwitzer for the guidance here set map [namespace ensemble configure tk -map] dict set map systray ::tk::systray dict set map sysnotify ::tk::sysnotify |