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