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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Feb 25 12:41:59 MSK 2007


Author: sergei
Date: 2007-02-25 12:41:57 +0300 (Sun, 25 Feb 2007)
New Revision: 974

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/richtext/urls.tcl
Log:
	* plugins/richtext/urls.tcl: Fixed bug with cursor restoring on
	  leaving URL.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-02-25 09:03:31 UTC (rev 973)
+++ trunk/tkabber/ChangeLog	2007-02-25 09:41:57 UTC (rev 974)
@@ -1,3 +1,8 @@
+2007-02-25  Sergei Golovan  <sgolovan at nes.ru>
+
+	* plugins/richtext/urls.tcl: Fixed bug with cursor restoring on
+	  leaving URL.
+
 2007-02-24  Sergei Golovan  <sgolovan at nes.ru>
 
 	* msgs/de.msg: Updated German translation (thanks to Roger

Modified: trunk/tkabber/plugins/richtext/urls.tcl
===================================================================
--- trunk/tkabber/plugins/richtext/urls.tcl	2007-02-25 09:03:31 UTC (rev 973)
+++ trunk/tkabber/plugins/richtext/urls.tcl	2007-02-25 09:41:57 UTC (rev 974)
@@ -177,7 +177,7 @@
 	      $w $privtag $options(activeforeground) $options(cursor)]
     $w tag bind $privtag <Any-Leave> \
 	[list ::richtext::highlighttext \
-	      $w $privtag $options(foreground) [$w cget -cursor]]
+	      $w $privtag $options(foreground) [lindex [$w configure -cursor] 3]]
 
     if {$show_hints} {
 	$w tag bind $privtag <Any-Enter> \



More information about the Tkabber-dev mailing list