From 19f52e51101e970aef1fe6ad9a73886fb8b79613 Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alexander@sulfrian.net>
Date: Tue, 1 Jun 2010 15:39:57 +0200
Subject: fixed errors if urgent is created while opening the window

---
 urgent.tcl | 4 ++--
 1 file 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) &
     }
-- 
cgit v1.2.3