Mercurial > ~darius > hgwebdir.cgi > mservtk

changeset 8:81b36e5b725b default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add mouse wheel support
author darius
date Tue, 17 Sep 2002 06:04:33 +0000
parents abe05fb9c2a6
children
files mservtk.tcl
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/mservtk.tcl	Mon Sep 16 12:19:01 2002 +0000
+++ b/mservtk.tcl	Tue Sep 17 06:04:33 2002 +0000
@@ -350,6 +350,12 @@
     pack .top.tlist.list -side left -fill both -expand 1;
     scrollbar .top.tlist.scr -command ".top.tlist.list yview";
     pack .top.tlist.scr -side right -fill y;
+    
+    bind .top.tlist.list <Button-4> ".top.tlist.list yview scroll -3 units";
+    bind .top.tlist.list <Button-5> ".top.tlist.list yview scroll +3 units";
+    bind .top.tlist.list <Shift-Button-4> ".top.tlist.list yview scroll -1 pages";
+    bind .top.tlist.list <Shift-Button-5> ".top.tlist.list yview scroll +1 pages";
+
     bind .top.tlist.list <Double-Button-1> {
 	queue_song [.top.tlist.list curselection];
 	gui_updatequeue;