[Tkabber-dev] r1802 - trunk/tkabber/plugins/chat

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat May 9 16:16:14 MSD 2009


Author: sergei
Date: 2009-05-09 16:16:14 +0400 (Sat, 09 May 2009)
New Revision: 1802

Modified:
   trunk/tkabber/plugins/chat/chatstate.tcl
Log:
	* chatstate.tcl: Removed 8.5-ism.


Modified: trunk/tkabber/plugins/chat/chatstate.tcl
===================================================================
--- trunk/tkabber/plugins/chat/chatstate.tcl	2009-05-09 12:07:37 UTC (rev 1801)
+++ trunk/tkabber/plugins/chat/chatstate.tcl	2009-05-09 12:16:14 UTC (rev 1802)
@@ -177,7 +177,7 @@
     if {![info exists chatstate(windowactive,$chatid)] || \
 	    ($chatstate(windowactive,$chatid) == 0)} return
 
-    set empty [expr {[$iw count -chars 0.0 "end-1c"] == 0}]
+    set empty [expr {[string length [$iw get 0.0 "end-1c"]] == 0}]
 
     if {[info exists event_afterid(pause,$chatid)]} {
 	after cancel $event_afterid(pause,$chatid)



More information about the Tkabber-dev mailing list