diff options
author | fvogel <fvogelnew1@free.fr> | 2021-09-03 21:12:27 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2021-09-03 21:12:27 (GMT) |
commit | 93c02cc3902e597f0b5802809471133278dc815e (patch) | |
tree | 2a1ce66a095a82b0cfd117f6199a466a1378b351 /library/iconbadges.tcl | |
parent | a7394d5e83a625fafd2a580e809fce8c48edde89 (diff) | |
download | tk-93c02cc3902e597f0b5802809471133278dc815e.zip tk-93c02cc3902e597f0b5802809471133278dc815e.tar.gz tk-93c02cc3902e597f0b5802809471133278dc815e.tar.bz2 |
Simplify slightly
Diffstat (limited to 'library/iconbadges.tcl')
-rw-r--r-- | library/iconbadges.tcl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/library/iconbadges.tcl b/library/iconbadges.tcl index 0415d06..7647e28 100644 --- a/library/iconbadges.tcl +++ b/library/iconbadges.tcl @@ -215,15 +215,14 @@ if {[tk windowingsystem] eq "x11"} { return -code error "You must set a Tk image as a window icon via the \"wm iconphoto\" command before setting an icon badge" } + wm iconphoto $win $::tk::icons::base_icon + if {$badgenumber eq ""} { - wm iconphoto $win $::tk::icons::base_icon return } image create photo overlay - wm iconphoto $win $::tk::icons::base_icon - switch -glob -- $badgenumber { ! { set badge ::tk::icons::!-badge |