[Tkabber-dev] r169 - trunk/plugins/urgent

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Jan 24 17:35:53 MSK 2009


Author: kostix
Date: 2009-01-24 17:35:53 +0300 (Sat, 24 Jan 2009)
New Revision: 169

Modified:
   trunk/plugins/urgent/urgent.tcl
Log:
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.


Modified: trunk/plugins/urgent/urgent.tcl
===================================================================
--- trunk/plugins/urgent/urgent.tcl	2009-01-23 02:28:49 UTC (rev 168)
+++ trunk/plugins/urgent/urgent.tcl	2009-01-24 14:35:53 UTC (rev 169)
@@ -85,7 +85,6 @@
 }
 
 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::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} {



More information about the Tkabber-dev mailing list