Empty badgenumber is valid!

tcltk · Aug 6, 2024 · 25f5144 · 25f5144
2 parents d782d9f + 5395acd
commit 25f5144
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/library/iconbadges.tcl b/library/iconbadges.tcl
@@ -220,7 +220,7 @@ if {[tk windowingsystem] eq "x11"} {
 	}
 
 	if {!([string is integer -strict $badgenumber] && $badgenumber > 0)
-	        && $badgenumber ne "!"} {
+	        && $badgenumber ne "!" && $badgenumber ne ""} {
 	    return -code error "can't use \"$badgenumber\" as icon badge"
 	}