diff options
| -rw-r--r-- | library/systray.tcl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/library/systray.tcl b/library/systray.tcl index ca5a8e5..4ec591a 100644 --- a/library/systray.tcl +++ b/library/systray.tcl @@ -339,6 +339,12 @@ proc ::tk::sysnotify {title message} { return } +if {[tk windowingsystem] eq "win32"} { + proc systray {} { + error "invalid command name \"systray\"" + } +} + #Add these commands to the tk command ensemble: tk systray, tk sysnotify #Thanks to Christian Gollwitzer for the guidance here set map [namespace ensemble configure tk -map] |