diff options
| -rw-r--r-- | urgent.tcl | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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} { |