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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Feb 27 10:40:13 MSK 2009


Author: sergei
Date: 2009-02-27 10:40:13 +0300 (Fri, 27 Feb 2009)
New Revision: 1693

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/debug/debug.tcl
Log:
	* debug/debug.tcl: Added calling procedure name to debug info. Also,
	  added caps debug category.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2009-02-27 07:39:03 UTC (rev 1692)
+++ trunk/tkabber-plugins/ChangeLog	2009-02-27 07:40:13 UTC (rev 1693)
@@ -1,3 +1,8 @@
+2009-02-27  Sergei Golovan <sgolovan at nes.ru>
+
+	* debug/debug.tcl: Added calling procedure name to debug info. Also,
+	  added caps debug category.
+
 2009-02-23  Sergei Golovan <sgolovan at nes.ru>
 
 	* browser/browser.tcl: Made Jabber Browser plugin unloadable.

Modified: trunk/tkabber-plugins/debug/debug.tcl
===================================================================
--- trunk/tkabber-plugins/debug/debug.tcl	2009-02-27 07:39:03 UTC (rev 1692)
+++ trunk/tkabber-plugins/debug/debug.tcl	2009-02-27 07:40:13 UTC (rev 1693)
@@ -43,6 +43,7 @@
 			avatar
 			browser
 			browseurl
+			caps
 			chat
 			conference
 			custom
@@ -112,7 +113,7 @@
 	    rename ::${ns}::Debug ::${ns}::Debug:debug
 	    proc ::${ns}::Debug {xlib level str} \
 		 "[namespace current]::debugmsg $ns \
-		        \"\[lindex \[info level -1\] 0\] \$xlib \$str\""
+		        \"\$xlib \$str\""
 	}
     }
 
@@ -230,9 +231,9 @@
 	    fconfigure $debug_fd -buffering line
 	}
 
-	puts $debug_fd [format "%s %-12.12s %s" \
+	puts $debug_fd [format "%s %-12.12s %s %s" \
 			       [clock format [clock seconds] -format "%m/%d %T"] \
-			       $module $msg]
+			       $module [lindex [info level -2] 0] $msg]
     }
 
     if {!$options(log_to_window) || ![info exists debug($module)] || \
@@ -276,6 +277,8 @@
 	$module] module " "
     set tag normal
 
+    $dw.body insert end [lindex [info level -2] 0] proc " "
+
     $dw.body insert end [string trimright $msg] $tag
     $dw.body insert end "\n\n"
 



More information about the Tkabber-dev mailing list