diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-24 15:16:39 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-24 15:16:39 (GMT) |
commit | adcfabe5a8a7750abb1b1f7920990436ec9abeb1 (patch) | |
tree | 6e6386c7f338b691ca1383341a4290516bb020f2 /library | |
parent | aeef890ebe6106ea783b80a7626e04a8a7906824 (diff) | |
download | tk-adcfabe5a8a7750abb1b1f7920990436ec9abeb1.zip tk-adcfabe5a8a7750abb1b1f7920990436ec9abeb1.tar.gz tk-adcfabe5a8a7750abb1b1f7920990436ec9abeb1.tar.bz2 |
Fix [7255ef9aa6]: problems with [tk systray] balloon on X11
Diffstat (limited to 'library')
-rw-r--r-- | library/systray.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/systray.tcl b/library/systray.tcl index 66bf460..56cfbf9 100644 --- a/library/systray.tcl +++ b/library/systray.tcl @@ -37,9 +37,10 @@ namespace eval ::tk::systray { } set top $w._balloon - catch {destroy $top} + ::destroy $top toplevel $top -bg black -bd 1 wm overrideredirect $top 1 + wm state $top withdrawn if {[tk windowingsystem] eq "aqua"} { ::tk::unsupported::MacWindowStyle style $top help none } |