[Tkabber-dev] r1467 - trunk/tkabber-plugins/whiteboard

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Mon Jul 7 00:12:32 MSD 2008


Author: sergei
Date: 2008-07-07 00:12:31 +0400 (Mon, 07 Jul 2008)
New Revision: 1467

Modified:
   trunk/tkabber-plugins/whiteboard/whiteboard.tcl
Log:
	* whiteboard/whiteboard.tcl: Fixed cursor.


Modified: trunk/tkabber-plugins/whiteboard/whiteboard.tcl
===================================================================
--- trunk/tkabber-plugins/whiteboard/whiteboard.tcl	2008-07-06 18:19:10 UTC (rev 1466)
+++ trunk/tkabber-plugins/whiteboard/whiteboard.tcl	2008-07-06 20:12:31 UTC (rev 1467)
@@ -1051,7 +1051,10 @@
 	set dx [expr {$x - $move(startx)}]
 	set dy [expr {$y - $move(starty)}]
 
-	if {$dx == 0 && $dy == 0} return
+	if {$dx == 0 && $dy == 0} {
+	    $c configure -cursor ""
+	    return
+	}
 
 	if {[chat::is_groupchat $chatid]} {
 	    set type groupchat



More information about the Tkabber-dev mailing list