[Tkabber-dev] r877 - in trunk/tkabber: . plugins/chat

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Wed Jan 17 01:11:55 MSK 2007


Author: sergei
Date: 2007-01-17 01:11:52 +0300 (Wed, 17 Jan 2007)
New Revision: 877

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/chat/nick_colors.tcl
Log:
	* plugins/chat/nick_colors.tcl: Fixed colored nicknames processing.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-01-16 16:33:02 UTC (rev 876)
+++ trunk/tkabber/ChangeLog	2007-01-16 22:11:52 UTC (rev 877)
@@ -13,6 +13,8 @@
 	* README, doc/tkabber.html, doc/tkabber.xml: Documented changes in
 	  ispell module.
 
+	* plugins/chat/nick_colors.tcl: Fixed colored nicknames processing.
+
 2007-01-15  Sergei Golovan  <sgolovan at nes.ru>
 
 	* plugins/general/autoaway.tcl: Fixed bug with restoring status

Modified: trunk/tkabber/plugins/chat/nick_colors.tcl
===================================================================
--- trunk/tkabber/plugins/chat/nick_colors.tcl	2007-01-16 16:33:02 UTC (rev 876)
+++ trunk/tkabber/plugins/chat/nick_colors.tcl	2007-01-16 22:11:52 UTC (rev 877)
@@ -138,6 +138,7 @@
 	    if {[winfo exists $wn]} {
 		if {$options(use_colored_nicks)} {
 		    $wn tag configure NICK-$nick -foreground $NickColors($nick)
+		    $wn tag configure NICKMSG-$nick -foreground $NickColors($nick)
 		}
 		if {$options(use_colored_messages)} {
 		    $wn tag configure MSG-$nick -foreground $NickColors($nick)
@@ -269,6 +270,8 @@
             foreach {nick clr} [array get NickColors] {
                 $wn tag configure NICK-$nick \
 		    -foreground [expr {$options(use_colored_nicks) ? $clr : ""}]
+                $wn tag configure NICKMSG-$nick \
+		    -foreground [expr {$options(use_colored_nicks) ? $clr : ""}]
                 $wn tag configure MSG-$nick \
 		    -foreground [expr {$options(use_colored_messages) ? $clr : ""}]
             }
@@ -290,6 +293,9 @@
 	if {[set idx [lsearch -glob $tags NICK-*]] >= 0} {
 	    set nick [string range [lindex $tags $idx] 5 end]
 	}
+	if {[set idx [lsearch -glob $tags NICKMSG-*]] >= 0} {
+	    set nick [string range [lindex $tags $idx] 5 end]
+	}
     }
 
     if {$nick == ""} return



More information about the Tkabber-dev mailing list