#
## 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") });
 

##</code><code>##

#
## from pmnewnodes.pl
#
    $tree = $uframe->Scrolled("Tree",
			      -width            => 80,
			      -height           => 5,
			      -background       => "$options{background}",
			      -selectbackground => "$options{background}",
			      -itemtype         => 'text',
			      -separator        => '.',
			      -selectmode       => 'single',
			      -relief           => 'sunken',
			      -scrollbars       => 'osoe',
			      -command          => \&command,
			      )->pack(-side     => 'top',
				      -fill     => 'both',
				      -expand   => 1);
#
## Added 09/09/2001 MitD -- This code DOES NOT WORK
#
#    $tree->bind("<Button-4>", sub { $tree->yviewScroll(1,"units") });
#    $tree->bind("<Button-5>", sub { $tree->yviewScroll(-1,"units")
		  });
#