[Tkabber-dev] r1541 - in trunk/tkabber-plugins: . georoster

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Oct 18 09:28:55 MSD 2008


Author: sergei
Date: 2008-10-18 09:28:54 +0400 (Sat, 18 Oct 2008)
New Revision: 1541

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/georoster/georoster.tcl
Log:
	* georoster/georoster.tcl: Fixed balloon text setting.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2008-10-17 21:14:33 UTC (rev 1540)
+++ trunk/tkabber-plugins/ChangeLog	2008-10-18 05:28:54 UTC (rev 1541)
@@ -1,3 +1,7 @@
+2008-10-18  Sergei Golovan <sgolovan at nes.ru>
+
+	* georoster/georoster.tcl: Fixed balloon text setting.
+
 2008-10-17  Sergei Golovan <sgolovan at nes.ru>
 
 	* *: 0.11.1 is released.

Modified: trunk/tkabber-plugins/georoster/georoster.tcl
===================================================================
--- trunk/tkabber-plugins/georoster/georoster.tcl	2008-10-17 21:14:33 UTC (rev 1540)
+++ trunk/tkabber-plugins/georoster/georoster.tcl	2008-10-18 05:28:54 UTC (rev 1541)
@@ -344,7 +344,7 @@
 
 	if {![lcontain $tags icon]} continue
 
-	set xlib [crange [lmatch -glob $tags xlib*] 6 end]
+	set xlib [crange [lmatch -glob $tags xlib*] 4 end]
 
 	set jidtag [crange [lmatch -glob $tags jid*] 3 end]
 	set jid [tag_to_jid $jidtag]
@@ -693,7 +693,7 @@
 	set move(lastx) $x
 	set move(lasty) $y
 
-	set xlib [crange [lmatch -glob $tags xlib*] 6 end]
+	set xlib [crange [lmatch -glob $tags xlib*] 4 end]
 	set move(xlib) $xlib
 
 	set jidtag [crange [lmatch -glob $tags jid*] 3 end]
@@ -780,7 +780,7 @@
 	set x [$c canvasx $x]
 	set y [$c canvasy $y]
 
-	set xlib [crange [lmatch -glob $tags xlib*] 6 end]
+	set xlib [crange [lmatch -glob $tags xlib*] 4 end]
 
 	set jidtag [crange [lmatch -glob $tags jid*] 3 end]
 	set jid [tag_to_jid $jidtag]



More information about the Tkabber-dev mailing list