# HG changeset patch
# User darius
# Date 1032242673 0
# Node ID 81b36e5b725b5fa7c21f3a2468b9cbb306e0758f
# Parent  abe05fb9c2a6e778536a72a8dde2d8b97246de20
Add mouse wheel support

diff -r abe05fb9c2a6 -r 81b36e5b725b mservtk.tcl
--- 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;