Mercurial > ~darius > hgwebdir.cgi > mservtk

comparison mservtk.tcl @ 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
comparison
equal deleted inserted replaced
7:abe05fb9c2a6 8:81b36e5b725b
348 listbox .top.tlist.list -relief raised -borderwidth 2 \ 348 listbox .top.tlist.list -relief raised -borderwidth 2 \
349 -yscrollcommand ".top.tlist.scr set"; 349 -yscrollcommand ".top.tlist.scr set";
350 pack .top.tlist.list -side left -fill both -expand 1; 350 pack .top.tlist.list -side left -fill both -expand 1;
351 scrollbar .top.tlist.scr -command ".top.tlist.list yview"; 351 scrollbar .top.tlist.scr -command ".top.tlist.list yview";
352 pack .top.tlist.scr -side right -fill y; 352 pack .top.tlist.scr -side right -fill y;
353
354 bind .top.tlist.list <Button-4> ".top.tlist.list yview scroll -3 units";
355 bind .top.tlist.list <Button-5> ".top.tlist.list yview scroll +3 units";
356 bind .top.tlist.list <Shift-Button-4> ".top.tlist.list yview scroll -1 pages";
357 bind .top.tlist.list <Shift-Button-5> ".top.tlist.list yview scroll +1 pages";
358
353 bind .top.tlist.list <Double-Button-1> { 359 bind .top.tlist.list <Double-Button-1> {
354 queue_song [.top.tlist.list curselection]; 360 queue_song [.top.tlist.list curselection];
355 gui_updatequeue; 361 gui_updatequeue;
356 } 362 }
357 363