in reply to Perl/Tk Mouse wheel support
$tree->bind("<Button-4>", sub { $tree->yview('scroll',1,"units") } +); $tree->bind("<Button-5>", sub { $tree->yview('scroll',-1,"units") +});
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: Perl/Tk Mouse wheel support
by mitd (Curate) on Aug 11, 2001 at 03:09 UTC |