From 950726731dd2068e363d294fedc3d3a68da2698b Mon Sep 17 00:00:00 2001 From: Kevin Walzer Date: Thu, 12 Nov 2020 02:34:59 +0000 Subject: Minor cleanup of spacing --- library/systray.tcl | 6 +++--- 1 file 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 "after 1000 [list ::tk::systray::_balloon_show %W [list $help]]" bind $w "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 [lindex $args 2] -- cgit v0.12