[Tkabber-dev] r1041 - in trunk/tkabber-plugins: . debug

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Mar 10 18:04:01 MSK 2007


Author: sergei
Date: 2007-03-10 18:04:00 +0300 (Sat, 10 Mar 2007)
New Revision: 1041

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/debug/debug.tcl
Log:
	* debug/debug.tcl: Made jlib module debug messages more clear.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2007-03-10 15:03:04 UTC (rev 1040)
+++ trunk/tkabber-plugins/ChangeLog	2007-03-10 15:04:00 UTC (rev 1041)
@@ -3,6 +3,8 @@
 	* georoster/georoster.tcl: Added -connection argument to jlib::send_iq
 	  call.
 
+	* debug/debug.tcl: Made jlib module debug messages more clear.
+
 2006-03-08  Sergei Golovan <sgolovan at nes.ru>
 
 	* tclchat/tclchat.tcl: Load translated messages.

Modified: trunk/tkabber-plugins/debug/debug.tcl
===================================================================
--- trunk/tkabber-plugins/debug/debug.tcl	2007-03-10 15:03:04 UTC (rev 1040)
+++ trunk/tkabber-plugins/debug/debug.tcl	2007-03-10 15:04:00 UTC (rev 1041)
@@ -166,12 +166,12 @@
     set tag normal
     switch -- $module {
         jlib {
-            if {[set x [string first "(jlib::" $msg]] > 0} {
+            if {[set x [string first "(jlib" $msg]] > 0} {
                 set tag error
             }
             if {[set y [string first ")" $msg]] > 0} {
                 $dw.body insert end \
-                         [string range $msg [expr $x+7] [expr $y-1]] proc \
+                         [string range $msg [expr $x+1] [expr $y-1]] proc \
                          "\n"
                 set msg [string trimleft \
                                 [string range $msg [expr $y+1] end]]



More information about the Tkabber-dev mailing list