summaryrefslogtreecommitdiffstats
path: root/library/systray.tcl
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2020-10-21 16:04:20 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2020-10-21 16:04:20 (GMT)
commit60185fa162e07e3ffb2351e26b1946570633487a (patch)
tree5604c1f6df6ec3460b9a634d928ccfb58d559bb0 /library/systray.tcl
parent4ff12b5ba2d676f45815ea946d632c63c925083d (diff)
parent6c408f9635216a7ef5b45abb0084de2b648bd77a (diff)
downloadtk-60185fa162e07e3ffb2351e26b1946570633487a.zip
tk-60185fa162e07e3ffb2351e26b1946570633487a.tar.gz
tk-60185fa162e07e3ffb2351e26b1946570633487a.tar.bz2
Merge trunk
Diffstat (limited to 'library/systray.tcl')
-rw-r--r--library/systray.tcl12
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