diff options
| author | fvogel <fvogelnew1@free.fr> | 2023-07-25 20:03:56 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2023-07-25 20:03:56 (GMT) |
| commit | 6b0f5ef846d4089c166ffc752bacfe9103d3060f (patch) | |
| tree | 89da1994c6d4d0d8f67c7f54003cd51c44658be1 | |
| parent | d155eede1984f1fb425b0b7ba2c96082053787ca (diff) | |
| parent | f4908ad6483be0c228a30c0aad4d254a1f967130 (diff) | |
| download | tk-6b0f5ef846d4089c166ffc752bacfe9103d3060f.zip tk-6b0f5ef846d4089c166ffc752bacfe9103d3060f.tar.gz tk-6b0f5ef846d4089c166ffc752bacfe9103d3060f.tar.bz2 | |
Resolve unintended fork.
| -rw-r--r-- | library/systray.tcl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/library/systray.tcl b/library/systray.tcl index b0dc737..ada0721 100644 --- a/library/systray.tcl +++ b/library/systray.tcl @@ -195,6 +195,7 @@ namespace eval ::tk::sysnotify:: { # Fade the window into view. proc _fadeIn {w} { variable defaults + if {![winfo exists $w]} {return} if {[set alpha [option get $w alpha ""]] eq ""} { set alpha [dict get $defaults alpha] } @@ -212,6 +213,7 @@ namespace eval ::tk::sysnotify:: { # Fade out and destroy window. proc _fadeOut {w} { + if {![winfo exists $w]} {return} set before [wm attributes $w -alpha] set new [expr { $before - 0.02 }] wm attributes $w -alpha $new |