From 3e45975eb8e68b96df149d258bf416d279f66a1e Mon Sep 17 00:00:00 2001 From: Kevin Walzer Date: Wed, 11 Nov 2020 00:08:39 +0000 Subject: Attempt to return error on systray command on Windows --- library/systray.tcl | 6 ++++++ 1 file changed, 6 insertions(+) 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] -- cgit v0.12