[Tkabber-dev] r975 - in trunk/tkabber: . ifacetk

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Feb 25 14:34:53 MSK 2007


Author: sergei
Date: 2007-02-25 14:34:47 +0300 (Sun, 25 Feb 2007)
New Revision: 975

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/ifacetk/iface.tcl
   trunk/tkabber/userinfo.tcl
Log:
	* ifacetk/iface.tcl, userinfo.tcl: Removed trailing newline from
	  URL one-line texts. This makes unneeded unbinding scrolling events.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-02-25 09:41:57 UTC (rev 974)
+++ trunk/tkabber/ChangeLog	2007-02-25 11:34:47 UTC (rev 975)
@@ -3,6 +3,9 @@
 	* plugins/richtext/urls.tcl: Fixed bug with cursor restoring on
 	  leaving URL.
 
+	* ifacetk/iface.tcl, userinfo.tcl: Removed trailing newline from
+	  URL one-line texts. This makes unneeded unbinding scrolling events.
+
 2007-02-24  Sergei Golovan  <sgolovan at nes.ru>
 
 	* msgs/de.msg: Updated German translation (thanks to Roger

Modified: trunk/tkabber/ifacetk/iface.tcl
===================================================================
--- trunk/tkabber/ifacetk/iface.tcl	2007-02-25 09:41:57 UTC (rev 974)
+++ trunk/tkabber/ifacetk/iface.tcl	2007-02-25 11:34:47 UTC (rev 975)
@@ -509,12 +509,9 @@
 			   -bd 0 \
 			   -highlightthickness 0 \
 			   -takefocus 0]
-    bind $t <Any-4> break
-    bind $t <Any-5> break
-    bind $t <<ScrollUp>> break
-    bind $t <<ScrollDown>> break
     ::richtext::config $t -using url
     ::richtext::render_message $t "  http://tkabber.jabber.ru/" ""
+    $t delete {end - 1 char}
     $t configure -state disabled
 
     pack $t -side top -anchor w -fill x

Modified: trunk/tkabber/userinfo.tcl
===================================================================
--- trunk/tkabber/userinfo.tcl	2007-02-25 09:41:57 UTC (rev 974)
+++ trunk/tkabber/userinfo.tcl	2007-02-25 11:34:47 UTC (rev 975)
@@ -121,10 +121,6 @@
     label $g.l$name -text $text
     text $g.$name -height 1 -state disabled -relief flat \
 		  -background [option get $g background Notebook]
-    bind $g.$name <Any-4> break
-    bind $g.$name <Any-5> break
-    bind $g.$name <<ScrollUp>> break
-    bind $g.$name <<ScrollDown>> break
     ::richtext::config $g.$name -using url
     fill_user_description $g.$name userinfo($name,$jid) 0
     
@@ -500,6 +496,7 @@
 	    $txt insert 0.0 [set $descvar]
 	} else {
 	    ::richtext::render_message $txt [set $descvar] ""
+	    $txt delete {end - 1 char}
 	}
 	$txt configure -state $state
     }



More information about the Tkabber-dev mailing list