From 5395acd87e81f0c3da0d0463650ff5797c18f8d2 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Tue, 6 Aug 2024 14:13:42 +0000
Subject: [PATCH] Empty badgenumber is valid!

---
 library/iconbadges.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/iconbadges.tcl b/library/iconbadges.tcl
index 2884a4a74..b6fd8dab1 100644
--- 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"
 	}