Help for this page

Select Code to Download


  1. or download this
    $frame->DragAcceptFiles(1);
EVT_DROP_FILES( $frame, \&doit );
sub doit { warn "@_\n" }
  2. or download this
    use ...
Main( @ARGV );
exit( 0 );
...
sub