/usr/local/CPAN/Wx-Perl-DirTree/DirTreeTestAppDir.pm

• package DirTreeTestAppDir
  • OnInit
• EOF

package DirTreeTestAppDir;

use strict;
use warnings;

use Wx;
use FindBin ();
use DirTreeTestDir;

our @ISA = qw(Wx::App);

sub OnInit {
    my ( $self ) = @_;
    
    my( $frame ) = DirTreeTestDir->new( undef, -1, "Wx::Perl::DirTree", [20,20], [500,340] );
    $frame->Show(1);
    
    1;
}

1;