[Tkabber-dev] r434 - trunk/plugins/boldnicks

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Wed Oct 27 17:37:15 MSD 2010


Author: Rejjin
Date: 2010-10-27 17:37:15 +0400 (Wed, 27 Oct 2010)
New Revision: 434

Modified:
   trunk/plugins/boldnicks/boldnicks.tcl
Log:
Fixed bugs (using plugin in messages with tag NICKMSG-NICK).

Modified: trunk/plugins/boldnicks/boldnicks.tcl
===================================================================
--- trunk/plugins/boldnicks/boldnicks.tcl	2010-10-26 23:10:23 UTC (rev 433)
+++ trunk/plugins/boldnicks/boldnicks.tcl	2010-10-27 13:37:15 UTC (rev 434)
@@ -84,9 +84,7 @@
 				foreach nick $chat_nicks($chatid) {
 					$w tag configure NICK-$nick -font ChatFont
 					$w tag bind NICK-$nick <Any-Enter> {}
-					$w tag bind NICKMSG-$nick <Any-Enter> {}
 					$w tag bind NICK-$nick <Any-Leave> {}
-					$w tag bind NICKMSG-$nick <Any-Leave> {}
 					chat_delete $chatid
 				}
 			}
@@ -136,21 +134,15 @@
 
     if {$options(use_bold_style)} {  
 		$w tag configure NICK-$nick -font ChatBoldFont
-		$w tag configure NICKMSG-$nick -font ChatBoldFont
 	} else {
 		$w tag configure NICK-$nick -font ChatFont
-		$w tag configure NICKMSG-$nick -font ChatFont
 	}
 	
 	$w tag bind NICK-$nick <Any-Enter> \
 		[list [namespace current]::mouse_on_nick yes $w NICK-$nick]
-	$w tag bind NICKMSG-$nick <Any-Enter> \
-		[list [namespace current]::mouse_on_nick yes $w NICKMSG-$nick]
 		
 	$w tag bind NICK-$nick <Any-Leave> \
 		[list [namespace current]::mouse_on_nick no $w NICK-$nick]
-	$w tag bind NICKMSG-$nick <Any-Leave> \
-		[list [namespace current]::mouse_on_nick no $w NICKMSG-$nick]
 }
 
 proc boldnicks::mouse_on_nick {bool w tag} {



More information about the Tkabber-dev mailing list