Subversion Repositories Vertical

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. #!/user/mjames/cadbin/perl -w
  2.  
  3. use Tk;
  4.  
  5. my $mw = MainWindow->new;
  6.  
  7. $mw->Button( -x=>1 , -text=>"Hello" , -command=>sub{exit}  )->grid;
  8.  
  9. $mw->Button( -x=>2 , -text=>"more" , -command=>sub{exit} )->grid;
  10.  
  11. MainLoop;
  12.  
  13.