Subversion Repositories Vertical

#!/user/mjames/cadbin/perl -w

use Tk;

my $mw = MainWindow->new;

$mw->Button( -x=>1 , -text=>"Hello" , -command=>sub{exit}  )->grid;

$mw->Button( -x=>2 , -text=>"more" , -command=>sub{exit} )->grid;

MainLoop;