[Tkabber-dev] r1068 - in trunk/tkabber: . ifacetk plugins/windows

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Tue Mar 27 22:47:51 MSD 2007


Author: sergei
Date: 2007-03-27 22:47:50 +0400 (Tue, 27 Mar 2007)
New Revision: 1068

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/ifacetk/idefault.tcl
   trunk/tkabber/plugins/windows/mousewheel.tcl
Log:
	* plugins/windows/mousewheel.tcl, ifacetk/idefault.tcl: Moved scroll
	  bindings outside from windows plugin.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-03-27 18:45:50 UTC (rev 1067)
+++ trunk/tkabber/ChangeLog	2007-03-27 18:47:50 UTC (rev 1068)
@@ -1,3 +1,8 @@
+2007-03-27  Sergei Golovan  <sgolovan at nes.ru>
+
+	* plugins/windows/mousewheel.tcl, ifacetk/idefault.tcl: Moved scroll
+	  bindings outside from windows plugin.
+
 2007-03-25  Sergei Golovan  <sgolovan at nes.ru>
 
 	* muc.tcl: Process all errors in MUC presence.

Modified: trunk/tkabber/ifacetk/idefault.tcl
===================================================================
--- trunk/tkabber/ifacetk/idefault.tcl	2007-03-27 18:45:50 UTC (rev 1067)
+++ trunk/tkabber/ifacetk/idefault.tcl	2007-03-27 18:47:50 UTC (rev 1068)
@@ -79,6 +79,32 @@
     set usetabbar 1
 }
 
+bind Text <<ScrollUp>> {
+    %W yview scroll -5 units
+}
+bind Text <<ScrollDown>> {
+    %W yview scroll 5 units
+}
+bind Listbox <<ScrollUp>> {
+    %W yview scroll -5 units
+}
+bind Listbox <<ScrollDown>> {
+    %W yview scroll 5 units
+}
+
+bind Text <<ScrollLeft>> {
+    %W xview scroll -10 units
+}
+bind Text <<ScrollRight>> {
+    %W xview scroll 10 units
+}
+bind Listbox <<ScrollLeft>> {
+    %W xview scroll -10 units
+}
+bind Listbox <<ScrollRight>> {
+    %W xview scroll 10 units
+}
+
 if {([catch { tk windowingsystem }] && $::tcl_platform(platform) == "unix") ||
 	(![catch { tk windowingsystem }] && [tk windowingsystem] == "x11")} {
     event add <<ScrollUp>>    <4>

Modified: trunk/tkabber/plugins/windows/mousewheel.tcl
===================================================================
--- trunk/tkabber/plugins/windows/mousewheel.tcl	2007-03-27 18:45:50 UTC (rev 1067)
+++ trunk/tkabber/plugins/windows/mousewheel.tcl	2007-03-27 18:47:50 UTC (rev 1068)
@@ -29,35 +29,9 @@
 bind Text <MouseWheel> " "
 bind ListBox <MouseWheel> " "
 
-bind Text <<ScrollUp>> {
-    %W yview scroll -5 units
-}
-bind Text <<ScrollDown>> {
-    %W yview scroll 5 units
-}
-bind Listbox <<ScrollUp>> {
-    %W yview scroll -5 units
-}
-bind Listbox <<ScrollDown>> {
-    %W yview scroll 5 units
-}
-
 bind Text <Shift-MouseWheel> " "
 bind ListBox <Shift-MouseWheel> " "
 
-bind Text <<ScrollLeft>> {
-    %W xview scroll -10 units
-}
-bind Text <<ScrollRight>> {
-    %W xview scroll 10 units
-}
-bind Listbox <<ScrollLeft>> {
-    %W xview scroll -10 units
-}
-bind Listbox <<ScrollRight>> {
-    %W xview scroll 10 units
-}
-
 bind all <MouseWheel> \
      [list [namespace current]::mousewheel::convert_to_button none %D %X %Y]
 bind all <MouseWheel> +break



More information about the Tkabber-dev mailing list