Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl
use strict;
...
$item->configure( -label => $label, -command => sub {exit()} );

MainLoop;
  2. or download this
    use strict;
use warnings;
...
$item->configure( -command => sub {exit()} );

MainLoop;