Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

use 5.12.1;
...
$term->tkRunning(1);

my $x = $term->readline('> ');
  2. or download this
    #!/usr/bin/perl

...
$term->tkRunning(1);

my $x = $term->readline('> ');
  3. or download this
    our $fe;
sub register_Tk
...
    ::LOG("Registering");
    $fe ||= AE::io($self->IN, 0, sub { $cv->send() });
}