Select Code to Download

#!/usr/bin/perl
# Multiple Widgets with one scrollbar.pl
...
}

MainLoop;

Tk::Error: Can't call method "rooty" without a package or object
reference at /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/Tk
+/
...
into ../blib/lib/auto/Tk/Scrollbar/ButtonDown.al) line 159
 <Button-1>
 (command bound to event)