Help for this page

Select Code to Download


  1. or download this
    local $TODO = "-alpha and -fullscreen not yet implemented";

...
# Query above should not clear fullscreen state

and many more such hits
  2. or download this
    #!/usr/bin/perl
use Tk;
...
});

MainLoop;
  3. or download this
    #!/usr/bin/perl
use Tk;
...
$mw->focusForce;

MainLoop;
  4. or download this
    #!/usr/bin/perl
use Tk;
...
$mw->bind('all' => '<Key-Escape>' => sub {exit;});

MainLoop;