[Tkabber-dev] r216 - trunk/plugins/bldjid

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Apr 11 17:00:20 MSD 2009


Author: bigote
Date: 2009-04-11 17:00:20 +0400 (Sat, 11 Apr 2009)
New Revision: 216

Modified:
   trunk/plugins/bldjid/ChangeLog
   trunk/plugins/bldjid/bldjid.tcl
Log:
Fixed a bug that prevented autoclosing of a monitor window for the second time.


Modified: trunk/plugins/bldjid/ChangeLog
===================================================================
--- trunk/plugins/bldjid/ChangeLog	2009-04-11 01:00:06 UTC (rev 215)
+++ trunk/plugins/bldjid/ChangeLog	2009-04-11 13:00:20 UTC (rev 216)
@@ -1,3 +1,12 @@
+2009-04-11  Serge Yudin  <xmpp:bigote at jabber.ru> <mailto:bigote at gmail.com>
+
+--- Version 0.5.13 of the plugin.
+--- Files modified:
+    bldjid.tcl, ChangeLog.
+
+--- Changes:
+	Fixed a bug that prevented autoclosing of a monitor window for the second time.
+
 2009-04-10  Serge Yudin  <xmpp:bigote at jabber.ru> <mailto:bigote at gmail.com>
 
 --- Version 0.5.12 of the plugin.

Modified: trunk/plugins/bldjid/bldjid.tcl
===================================================================
--- trunk/plugins/bldjid/bldjid.tcl	2009-04-11 01:00:06 UTC (rev 215)
+++ trunk/plugins/bldjid/bldjid.tcl	2009-04-11 13:00:20 UTC (rev 216)
@@ -1,4 +1,4 @@
-# "Bldjid" plugin for Tkabber. 2009-04-10 v. 0.5.12
+# "Bldjid" plugin for Tkabber. 2009-04-11 v. 0.5.13
 # Written by Serge Yudin xmpp:bigote at jabber.ru
 # See README file for usage.
 
@@ -756,13 +756,19 @@
 	bind $ccw.input <Shift-Alt-Next> +break
 
 	if {$options(wmon_timeout) > 0} {
-		after [expr {1000 * $options(wmon_timeout)}] [list [namespace current]::close_monitor $chatid]
+		after [expr {1000 * $options(wmon_timeout)}] \
+		[list [namespace current]::close_monitor $chatid]
 	}
 }
 
 proc bldjid::open_monitor_window {chatid} {
+	variable options
 	set ccw [chat::winid $chatid]
 	pack $ccw.mon -side top -fill x
+	if {$options(wmon_timeout) > 0} {
+		after [expr {1000 * $options(wmon_timeout)}] \
+		[list [namespace current]::close_monitor $chatid]
+	}
 }
 
 proc bldjid::add_message_to_monitor {chatid body} {



More information about the Tkabber-dev mailing list