Help for this page

Select Code to Download

Select or download this

#
## from monkchat.pl
...
    $Userlist->bind("<Button-4>", sub { $Userlist->yviewScroll(1,"unit
+s") });
    $Userlist->bind("<Button-5>", sub { $Userlist->yviewScroll(-1,"uni
+ts") });

Select or download this

#
## from pmnewnodes.pl
...
#    $tree->bind("<Button-5>", sub { $tree->yviewScroll(-1,"units")
          });
#