diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-09-21 14:59:23 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-09-21 14:59:23 (GMT) |
| commit | 7ad7d97746b2e5b4c4f8a6b22d7916bf42fa2fbd (patch) | |
| tree | a29e96ff57838c5a98576d911537c94e437e18f4 /library | |
| parent | cef404441f9f60077c955c965037f758b97bead6 (diff) | |
| parent | 464d689e5ae6cd18016f68b992b3bf03884607d5 (diff) | |
| download | tk-7ad7d97746b2e5b4c4f8a6b22d7916bf42fa2fbd.zip tk-7ad7d97746b2e5b4c4f8a6b22d7916bf42fa2fbd.tar.gz tk-7ad7d97746b2e5b4c4f8a6b22d7916bf42fa2fbd.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'library')
| -rw-r--r-- | library/iconbadges.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/iconbadges.tcl b/library/iconbadges.tcl index 820e040..fd249a0 100644 --- a/library/iconbadges.tcl +++ b/library/iconbadges.tcl @@ -197,7 +197,7 @@ if {[tk windowingsystem] eq "x11"} { # ::tk::icons::IconBadge -- # This procedure creates an icon with an overlay badge on systems that - # do not have a native icon/badge API. + # do not have a native icon/badge API. # # Arguments: # win - window name @@ -219,7 +219,7 @@ if {[tk windowingsystem] eq "x11"} { return -code error "can't use \"$::tk::icons::base_icon($win)\" as iconphoto: not a photo image" } - if {!([string is integer $badgenumber] && $badgenumber > 0) + if {!([string is integer $badgenumber] && $badgenumber > 0) && [string match $badgenumber "!"] == 0 && $badgenumber ne ""} { return -code error "can't use \"$badgenumber\" as icon badge" @@ -232,14 +232,14 @@ if {[tk windowingsystem] eq "x11"} { } image create photo overlay - + switch -glob -- $badgenumber { ! { set badge ::tk::icons::!-badge } [1-9] { set badge ::tk::icons::$badgenumber-badge - } + } default { set badge ::tk::icons::9plus-badge } |