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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Mon Oct 15 15:39:57 MSD 2007


Author: sergei
Date: 2007-10-15 15:39:56 +0400 (Mon, 15 Oct 2007)
New Revision: 1275

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/ifacetk/buttonbar.tcl
Log:
	* ifacetk/buttonbar.tcl: Replaced ... by \u2026 at the end of trimmed
	  button labels. This helps to show extra two symbols if a monospaced
	  font is used.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-10-14 14:58:32 UTC (rev 1274)
+++ trunk/tkabber/ChangeLog	2007-10-15 11:39:56 UTC (rev 1275)
@@ -1,3 +1,9 @@
+2007-10-15  Sergei Golovan  <sgolovan at nes.ru>
+
+	* ifacetk/buttonbar.tcl: Replaced ... by \u2026 at the end of trimmed
+	  button labels. This helps to show extra two symbols if a monospaced
+	  font is used.
+
 2007-10-14  Sergei Golovan  <sgolovan at nes.ru>
 
 	* chats.tcl: Added a procedure which returns chat ID given its window

Modified: trunk/tkabber/ifacetk/buttonbar.tcl
===================================================================
--- trunk/tkabber/ifacetk/buttonbar.tcl	2007-10-14 14:58:32 UTC (rev 1274)
+++ trunk/tkabber/ifacetk/buttonbar.tcl	2007-10-15 11:39:56 UTC (rev 1275)
@@ -546,7 +546,8 @@
     set len [string length $text]
 
     for {set ind 0} {$ind < $len} {incr ind} {
-	lappend data(text,$name) [font measure $font [string range $text 0 $ind]...]
+	lappend data(text,$name) \
+		[font measure $font [string range $text 0 $ind]\u2026]
     }
 }
 
@@ -587,7 +588,7 @@
     set i -1
     foreach textw [lrange $data(text,$name) 2 end] {
 	if {$textw > $tw || $textw > $mw} {
-	    Button::configure $but -text [string range $text 0 $i]... \
+	    Button::configure $but -text [string range $text 0 $i]\u2026 \
 				   -helptext $text
 	    return
 	}



More information about the Tkabber-dev mailing list