[Tkabber-dev] r780 - in trunk/tkabber: . plugins/richtext

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Nov 4 13:16:46 MSK 2006


Author: sergei
Date: 2006-11-04 13:16:43 +0300 (Sat, 04 Nov 2006)
New Revision: 780

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/chats.tcl
   trunk/tkabber/plugins/richtext/urls.tcl
Log:
	* plugins/richtext/urls.tcl, chats.tcl: Fixed URL highlighting
	  when mouse pointer is over the URL (thanks to Konstantin
	  Khomoutov).


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2006-11-04 10:07:17 UTC (rev 779)
+++ trunk/tkabber/ChangeLog	2006-11-04 10:16:43 UTC (rev 780)
@@ -1,5 +1,9 @@
 2006-11-04  Sergei Golovan  <sgolovan at nes.ru>
 
+	* plugins/richtext/urls.tcl, chats.tcl: Fixed URL highlighting
+	  when mouse pointer is over the URL (thanks to Konstantin
+	  Khomoutov).
+
 	* filetransfer.tcl, plugins/filetransfer/si.tcl: Fixed bug with
 	  'stream id is in use' after choosing a file, which cannot be
 	  written. Show error messages in the main file transfer windows,

Modified: trunk/tkabber/chats.tcl
===================================================================
--- trunk/tkabber/chats.tcl	2006-11-04 10:07:17 UTC (rev 779)
+++ trunk/tkabber/chats.tcl	2006-11-04 10:16:43 UTC (rev 780)
@@ -9,9 +9,6 @@
 option add *Chat.serverforeground      violet widgetDefault
 option add *Chat.infoforeground        blue   widgetDefault
 option add *Chat.errforeground         red    widgetDefault
-option add *urlforeground              blue   widgetDefault
-option add *urlactiveforeground        red    widgetDefault
-option add *urlcursor                  hand2  widgetDefault
 option add *Chat.inputheight           3      widgetDefault
 
 

Modified: trunk/tkabber/plugins/richtext/urls.tcl
===================================================================
--- trunk/tkabber/plugins/richtext/urls.tcl	2006-11-04 10:07:17 UTC (rev 779)
+++ trunk/tkabber/plugins/richtext/urls.tcl	2006-11-04 10:16:43 UTC (rev 780)
@@ -1,6 +1,14 @@
 # $Id: urls.tcl 19 2006-10-28 00:41:03Z kostix $
 # "Rich text" framework -- processing of URLs.
 
+
+
+option add *urlforeground       blue  widgetDefault
+option add *urlactiveforeground red   widgetDefault
+option add *urlcursor           hand2 widgetDefault
+
+
+
 namespace eval urls {
     variable options
     variable urlid 0
@@ -131,8 +139,7 @@
 
     set privtag url_$urlid
 
-    $w tag configure $privtag
-    $w tag raise url
+    $w tag configure $privtag -foreground $options(foreground) -underline 1
 
     $w insert end $url [lfuse $type $tags $privtag]
 
@@ -213,8 +220,6 @@
     set options(activeforeground) [option get $w urlactiveforeground Text]
     set options(cursor)           [option get $w urlcursor           Text]
 
-    $w tag configure url -foreground $options(foreground) -underline 1
-
     config_url $w url -command [list [namespace current]::browse_url %W %x %y]
 }
 



More information about the Tkabber-dev mailing list