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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Sep 15 17:33:56 MSD 2006


Author: sergei
Date: 2006-09-15 17:33:53 +0400 (Fri, 15 Sep 2006)
New Revision: 714

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/ifacetk/idefault.tcl
Log:
	* ifacetk/idefault.tcl: Bind mouse buttons to scroll events
	  only on nonwindows systems.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2006-09-13 18:54:28 UTC (rev 713)
+++ trunk/tkabber/ChangeLog	2006-09-15 13:33:53 UTC (rev 714)
@@ -1,3 +1,8 @@
+2006-09-15  Sergei Golovan  <sgolovan at nes.ru>
+
+	* ifacetk/idefault.tcl: Bind mouse buttons to scroll events
+	  only on nonwindows systems.
+
 2006-09-13  Sergei Golovan  <sgolovan at nes.ru>
 
 	* msgs/pl.msg: Polish translation is updated (thanks to
@@ -27,7 +32,7 @@
 
 	* jabberlib-tclxml/jabberlib.tcl: Added xml packet size logging
 	  possibility. It can be used for traffic accounting (thanks to
-	  Artem A.).
+	  Artem Borodin).
 
 2006-09-10  Sergei Golovan  <sgolovan at nes.ru>
 

Modified: trunk/tkabber/ifacetk/idefault.tcl
===================================================================
--- trunk/tkabber/ifacetk/idefault.tcl	2006-09-13 18:54:28 UTC (rev 713)
+++ trunk/tkabber/ifacetk/idefault.tcl	2006-09-15 13:33:53 UTC (rev 714)
@@ -70,12 +70,14 @@
     option add *Entry.font font widgetDefault
 }
 
-event add <<ScrollUp>>    <4>
-event add <<ScrollDown>>  <5>
-event add <<ScrollLeft>>  <6>
-event add <<ScrollRight>> <7>
-event add <<ScrollLeft>>  <Shift-4>
-event add <<ScrollRight>> <Shift-5>
+if {$::tcl_platform(platform) != "windows"} {
+    event add <<ScrollUp>>    <4>
+    event add <<ScrollDown>>  <5>
+    event add <<ScrollLeft>>  <6>
+    event add <<ScrollRight>> <7>
+    event add <<ScrollLeft>>  <Shift-4>
+    event add <<ScrollRight>> <Shift-5>
+}
 
 if {$::tcl_platform(platform) == "windows"} {
 



More information about the Tkabber-dev mailing list