fixed errors if urgent is created while opening the window

1 files changed, 2 insertions, 2 deletions

diff --git a/urgent.tcl b/urgent.tcl
index fb3de51..2d5ce6e 100644
--- a/urgent.tcl
+++ b/urgent.tcl
@@ -137,7 +137,7 @@ proc urgent::set_urgency_hint {chatid} {
     variable options
     variable state
 
-    if {!$state(active,$chatid)} {
+    if {[info exists state(xwinid,$chatid)]} {
 	exec $options(program) -set $state(xwinid,$chatid) &
 	set state(active,$chatid) true
     }
@@ -150,7 +150,7 @@ proc urgent::clear_urgency_hint {winid} {
     variable options
     variable state
     
-    if {$state(active,$chatid)} {
+    if {[info exists state(xwinid,$chatid)]} {
 	set state(active,$chatid) false
 	exec $options(program) -clear $state(xwinid,$chatid) &
     }