use strict;
use Tk;


my $page2;
my $w=0;  
my $wtf; 
my $wentry= 3; 
my $wcb;

$page2 = MainWindow -> new();
$wcb = $page2 ->Checkbutton (-text=> '/W:', -variable=> \$w, -font=>"Adobe 10")->pack;
#$wcb->select();
$wtf = $page2 ->Entry (-textvariable=> \ $wentry, -width=>8,
            -validate=> 'key', 
            -validatecommand=> sub{$_[0] =~ /^\d{0,1}$/},
            -invalidcommand=> sub{$page2->bell}
)->pack;
MainLoop;