From 78d8cff49ad4d5da5897d330e72b8164d333ed05 Mon Sep 17 00:00:00 2001 From: kostix Date: Sat, 24 Jan 2009 14:35:53 +0000 Subject: 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 --- urgent.tcl | 5 +++-- 1 file 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} { -- cgit v1.2.3