Help for this page
use Tk; use strict; ... my $box = $mw->Scrolled(qw/Text -width 100 -height 15 -scrollbars se/) +->pack; $mw->Button(text=>"click", command=>[\&something, $box])->pack; MainLoop;
www.com | www.net | www.org
No recent polls found