urgent/urgent.tcl: A call to [tkwait visibility] moved

 to chat_winid from xclientwinid, in which it would never
 return when called with tabbed interface mode active.


git-svn-id: http://svn.xmpp.ru/repos/tkabber-3rd-party/trunk/plugins/urgent@169 cc602e41-bd33-0410-9637-a208f32f1443

1 files changed, 3 insertions, 2 deletions

diff --git a/urgent.tcl b/urgent.tcl
index d7996c1..4242987 100644
--- a/urgent.tcl
+++ b/urgent.tcl
@@ -85,7 +85,6 @@ proc urgent::chat_message_notify {chatid from type body extras} {
 }
 
 proc urgent::xclientwinid {tkwin} {
-    tkwait visibility $tkwin ;# seems to be needed by xwininfo
     set data [exec xwininfo -children -id [winfo id $tkwin]]
     if {[regexp {Parent window id: (\S+)} $data -> id]} {
 	return $id
@@ -100,7 +99,9 @@ proc urgent::root_xwinid {xwinid _chatid} {
 }
 
 proc urgent::chat_xwinid {chatid} {
-    xclientwinid [chat::winid $chatid]
+    set tkwin [chat::winid $chatid]
+    tkwait visibility $tkwin ;# seems to be needed by xwininfo
+    xclientwinid $tkwin
 }
 
 proc urgent::record_xwinid {chatid _type} {