Help for this page

Select Code to Download


  1. or download this
    use Tk;
my $mw = MainWindow->new(-title=>"hello world");
$mw->Label(-text=>"hello")->pack();
$mw->Button(-text=>"Exit",-command=>sub{exit})->pack();
MainLoop;
  2. or download this
    use Tcl::Tk;
my $int = new Tcl::Tk;
...
$mw->Label( -text => "Hello World!" )->pack();
$mw->Button( -text => "Exit", -command => sub { exit } )->pack();
$int->MainLoop;
  3. or download this
    perl5.18 quit unexpectedly while using the Tk plug-in.