diff options
| author | Kevin Walzer <kw@codebykevin.com> | 2020-11-12 02:34:59 (GMT) |
|---|---|---|
| committer | Kevin Walzer <kw@codebykevin.com> | 2020-11-12 02:34:59 (GMT) |
| commit | 950726731dd2068e363d294fedc3d3a68da2698b (patch) | |
| tree | 03c66943f57a39676a97ed447c12da6aa0d6e155 /library/systray.tcl | |
| parent | 617f5151888f4b974581950a5c9a6e817a5a7fe3 (diff) | |
| download | tk-950726731dd2068e363d294fedc3d3a68da2698b.zip tk-950726731dd2068e363d294fedc3d3a68da2698b.tar.gz tk-950726731dd2068e363d294fedc3d3a68da2698b.tar.bz2 | |
Minor cleanup of spacing
Diffstat (limited to 'library/systray.tcl')
| -rw-r--r-- | library/systray.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/systray.tcl b/library/systray.tcl index c05692a..7163423 100644 --- a/library/systray.tcl +++ b/library/systray.tcl @@ -15,9 +15,9 @@ namespace eval ::tk::systray:: { - variable ::tk::systray::_iconlist + variable ::tk::systray::_iconlist set ::tk::systray::_iconlist {} - + proc _balloon {w help} { bind $w <Any-Enter> "after 1000 [list ::tk::systray::_balloon_show %W [list $help]]" bind $w <Any-Leave> "destroy %W._balloon" @@ -249,7 +249,7 @@ proc ::tk::systray {args} { ._tray configure -image [lindex $args 2] } text { - ::tk::systray::_balloon ._tray [lindex $args 2] + ::tk::systray::_balloon ._tray [lindex $args 2] } b1_callback { bind ._tray <Button-1> [lindex $args 2] |