Help for this page

Select Code to Download


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

...
$mw->bind('<Control-q>', sub { Tk::exit(0) });

MainLoop;