#
## from monkchat.pl
#
   # chatfield
    $Chatfield = $lframe->Scrolled("ROText",
				   -font => $pgmfont,
				   -width  => 20,
				   -height => 2,
				   -bg     => $options{'background'},
				   -wrap   => 'word',
				   -relief => 'sunken',
				   -scrollbars => 'osoe',
				   )->pack(-side   => 'top',
					   -fill   => 'both',
					   -expand => 1);
#
## Added 09/09/2001 MitD -- wheel mouse support
#
    $Chatfield->bind("<Button-4>", sub { $Chatfield->yviewScroll(1,"units") });
    $Chatfield->bind("<Button-5>", sub { $Chatfield->yviewScroll(-1,"units") });
...

    $Userlist->bind("<Button-4>", sub { $Userlist->yviewScroll(1,"units") });
    $Userlist->bind("<Button-5>", sub { $Userlist->yviewScroll(-1,"units") });