Select Code to Download

=head1 NAME

...

=cut

#!/usr/bin/perl --
use strict; use warnings;
...
Tkx::MainLoop();

__END__

    $mw->g_wm_withdraw();
    $mw->g_wm_deiconify();
    Tkx::MainLoop();