diff options
| author | fvogel <fvogelnew1@free.fr> | 2020-11-11 20:56:53 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2020-11-11 20:56:53 (GMT) |
| commit | 700755dd51ab42c566b802e3f9d591a32c63e402 (patch) | |
| tree | 50fe568d32708d1d382acc3a04e6945c56c47ae6 /library/systray.tcl | |
| parent | 30bce52ec95ce9d993e849faef3a719632a0845b (diff) | |
| download | tk-700755dd51ab42c566b802e3f9d591a32c63e402.zip tk-700755dd51ab42c566b802e3f9d591a32c63e402.tar.gz tk-700755dd51ab42c566b802e3f9d591a32c63e402.tar.bz2 | |
Use a more accurate error message
Diffstat (limited to 'library/systray.tcl')
| -rw-r--r-- | library/systray.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/systray.tcl b/library/systray.tcl index 8f433cb..e40d7db 100644 --- a/library/systray.tcl +++ b/library/systray.tcl @@ -160,7 +160,7 @@ proc ::tk::systray {args} { set name [lindex $args 0] if {![string equal $name "create"] && ![string equal $name "modify"] && ![string equal $name "destroy"]} { - error "wrong # args: should be \"tk systray create | modify | destroy\"" + error "bad option \"$name\": must be create, modify, or destroy" } #Set variables for icon properties. |