diff options
| -rw-r--r-- | urgent.tcl | 11 |
1 files changed, 8 insertions, 3 deletions
@@ -116,13 +116,17 @@ proc urgent::chat_xwinid {chatid} { xclientwinid $tkwin } +proc urgent::initialize {chatid type} { + variable state + set state(active,$chatid) false +} + proc urgent::record_xwinid {chatid _type} { variable state set state(xwinid,$chatid) [xwinid $chatid] - set state(active,$chatid) false } -proc urgent::forget_xwinid {chatid} { +proc urgent::cleanup {chatid} { variable state unset state(xwinid,$chatid) @@ -177,8 +181,9 @@ namespace eval urgent { } }] + hook::add open_chat_pre_hook [namespace current]::initialize hook::add open_chat_post_hook [namespace current]::record_xwinid 40 - hook::add close_chat_post_hook [namespace current]::forget_xwinid + hook::add close_chat_post_hook [namespace current]::cleanup hook::add draw_message_hook [namespace current]::chat_message_notify 19 hook::add got_focus_hook [namespace current]::clear_urgency_hint } |