diff options
author | fvogel <fvogelnew1@free.fr> | 2021-09-02 06:24:16 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2021-09-02 06:24:16 (GMT) |
commit | ff1cfa9dacdf27ec5bc8a0e2c8bac690d99ed9ab (patch) | |
tree | e953491739b31a7584789dda3970739f56ed6b57 /library/iconbadges.tcl | |
parent | f7dae9448df18b97fe24a2c6cb0637dc1083470f (diff) | |
download | tk-ff1cfa9dacdf27ec5bc8a0e2c8bac690d99ed9ab.zip tk-ff1cfa9dacdf27ec5bc8a0e2c8bac690d99ed9ab.tar.gz tk-ff1cfa9dacdf27ec5bc8a0e2c8bac690d99ed9ab.tar.bz2 |
Move code after input argument checking.
Diffstat (limited to 'library/iconbadges.tcl')
-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 ab8dd5b..a47175a 100644 --- a/library/iconbadges.tcl +++ b/library/iconbadges.tcl @@ -211,10 +211,6 @@ if {[tk windowingsystem] eq "x11"} { variable ::tk::icons::base_icon - set badge "" - - image create photo overlay - if {$::tk::icons::base_icon eq ""} { return -code error "You must set the value of \"::tk::icons::base_icon\" to a Tk photo before setting an icon badge" } @@ -228,6 +224,10 @@ if {[tk windowingsystem] eq "x11"} { return } + set badge "" + + image create photo overlay + update idletasks wm iconphoto $win $::tk::icons::base_icon |