[Tkabber-dev] r1070 - in trunk/tkabber-plugins: . traffic

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Wed Mar 28 10:29:40 MSD 2007


Author: sergei
Date: 2007-03-28 10:29:40 +0400 (Wed, 28 Mar 2007)
New Revision: 1070

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/traffic/traffic.tcl
Log:
	* traffic/traffic.tcl: Added scrolling by mousewheel (thanks to Artem
	  Borodin).


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2007-03-28 06:20:52 UTC (rev 1069)
+++ trunk/tkabber-plugins/ChangeLog	2007-03-28 06:29:40 UTC (rev 1070)
@@ -1,3 +1,8 @@
+2006-03-28  Sergei Golovan <sgolovan at nes.ru>
+
+	* traffic/traffic.tcl: Added scrolling by mousewheel (thanks to Artem
+	  Borodin).
+
 2006-03-27  Sergei Golovan <sgolovan at nes.ru>
 
 	* mute/mute.tcl: Fixed bug with breaking messages into separate words

Modified: trunk/tkabber-plugins/traffic/traffic.tcl
===================================================================
--- trunk/tkabber-plugins/traffic/traffic.tcl	2007-03-28 06:20:52 UTC (rev 1069)
+++ trunk/tkabber-plugins/traffic/traffic.tcl	2007-03-28 06:29:40 UTC (rev 1070)
@@ -170,16 +170,18 @@
     $sw setwidget $sf
     set f [$sf getframe]
 
+    bindscroll $f $sf
 
     # fill grid header
     grid [label $f.titlejid -text [::msgcat::mc "JID"] -width 20] -row 0 -column 0 -sticky w
+    bindscroll $f.titlejid $sf
     set i 1
     foreach col $columns {
 
         set b [Button $f.titlelabel$i -text $names($col) \
 		    -command [list [namespace current]::sort $col]]
         grid $b -row 0 -column $i -sticky we
-
+        bindscroll $f.titlelabel$i $sf
         incr i
     }
 
@@ -231,6 +233,7 @@
 	    }
 	}
 	grid $f.jid$tag -row $row -column 0 -sticky w
+       bindscroll $f.jid$tag $w.sf
 
         set i 1
 
@@ -245,6 +248,7 @@
 	    incr sum($col) $value
 	    $f.value$i$tag configure -text [convert_to_hr $value 10]
 	    grid $f.value$i$tag -row $row -column $i -sticky e
+           bindscroll $f.value$i$tag $w.sf
 
     	    incr i
 	}
@@ -257,6 +261,7 @@
 	label $f.sumname -text [::msgcat::mc "Total"]
     }
     grid $f.sumname -row $row -column 0 -sticky w
+    bindscroll $f.sumname $w.sf
 
     set i 1
     foreach col $columns {
@@ -265,6 +270,7 @@
 	}
 	$f.sumval$i configure -text [convert_to_hr $sum($col) 10]
 	grid $f.sumval$i -row $row -column $i -sticky e
+	bindscroll $f.sumval$i $w.sf
 	incr i
     }
 }



More information about the Tkabber-dev mailing list