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

• package DirTreeTestAppAllowedDir
  • OnInit
• EOF

package DirTreeTestAppAllowedDir;

use strict;
use warnings;

use Wx;
use FindBin ();
use DirTreeTestAllowedDir;

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

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

1;