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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Apr 10 22:00:02 MSD 2009


Author: bigote
Date: 2009-04-10 22:00:01 +0400 (Fri, 10 Apr 2009)
New Revision: 214

Modified:
   trunk/plugins/bldjid/ChangeLog
   trunk/plugins/bldjid/bldjid.tcl
Log:
Removed command autocompletion in conference private chat (to show that it doesn't work here).
Thanks to Alexey Smirnov.


Modified: trunk/plugins/bldjid/ChangeLog
===================================================================
--- trunk/plugins/bldjid/ChangeLog	2009-04-10 13:51:58 UTC (rev 213)
+++ trunk/plugins/bldjid/ChangeLog	2009-04-10 18:00:01 UTC (rev 214)
@@ -1,3 +1,19 @@
+2009-04-10  Serge Yudin  <xmpp:bigote at jabber.ru> <mailto:bigote at gmail.com>
+
+--- Version 0.5.12 of the plugin.
+--- Files modified:
+    bldjid.tcl, ChangeLog.
+
+--- Changes:
+	Removed command autocompletion in conference private chat (to show
+	that it doesn't work here).
+	Thanks to Alexey Smirnov.
+
+--- Known problem:
+	It seems that only the first call of a monitor window ends fine
+	after timeout. Called the second time in the same room,
+	it won't close by itself.
+
 2009-04-09  Serge Yudin  <xmpp:bigote at jabber.ru> <mailto:bigote at gmail.com>
 
 --- Version 0.5.11 of the plugin.

Modified: trunk/plugins/bldjid/bldjid.tcl
===================================================================
--- trunk/plugins/bldjid/bldjid.tcl	2009-04-10 13:51:58 UTC (rev 213)
+++ trunk/plugins/bldjid/bldjid.tcl	2009-04-10 18:00:01 UTC (rev 214)
@@ -1,4 +1,4 @@
-# "Bldjid" plugin for Tkabber. 2009-04-09 v. 0.5.11
+# "Bldjid" plugin for Tkabber. 2009-04-10 v. 0.5.12
 # Written by Serge Yudin xmpp:bigote at jabber.ru
 # See README file for usage.
 
@@ -147,7 +147,7 @@
 proc bldjid::visitors_compls {chatid compsvar wordstart line} {
 	variable user_list
 	set group [::xmpp::jid::stripResource [chat::get_jid $chatid]]
-	if {![::muc::is_compatible $group]} return
+	if {![::muc::is_compatible $group] || ![::chat::is_groupchat $chatid]} return
 
 	upvar 0 $compsvar comps
 
@@ -177,6 +177,7 @@
 	set no_jid "I can't see any JID of this user."
 
 	variable user_list
+
 # Detect the command.
 	if {[string match {/bldjid*} $body]} {
 		set cmd /bldjid
@@ -487,10 +488,6 @@
 				chat::add_message $chatid $group info $msg {}
 			}
 		}
-
-		/closemon {
-#			[namespace current]::close_monitor $chatid
-		}
 	}
 	return stop
 }
@@ -726,7 +723,7 @@
 }
 
 # Thanks to Konstantin Khomoutov (kostix at 007spb.ru)
-proc bldjid::is_any_integer a {
+proc bldjid::is_any_integer {a} {
 	regexp \\d+ [string trim $a]
 }
 
@@ -759,12 +756,11 @@
 	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 {
+proc bldjid::open_monitor_window {chatid} {
 	set ccw [chat::winid $chatid]
 	pack $ccw.mon -side top -fill x
 }
@@ -782,7 +778,7 @@
 	$t see end
 }
 
-proc bldjid::close_monitor chatid {
+proc bldjid::close_monitor {chatid} {
 	set ccw [chat::winid $chatid]
 	if {[winfo exists $ccw.mon]} {
 		pack forget $ccw.mon
@@ -790,7 +786,7 @@
 	}
 }
 
-proc bldjid::clear_monitor chatid {
+proc bldjid::clear_monitor {chatid} {
 	set ccw [chat::winid $chatid]
 	set t $ccw.mon.text
 	if {![winfo exists $t]} return



More information about the Tkabber-dev mailing list