The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Wx-Demo-0.22
River stage zero No dependents
5 ++
/ Wx::DemoModules::wxDirPickerCtrl

sub commands { my( $self ) = @_;

    return ( { label       => 'Set italic font',
               action      => sub { $self->picker->SetDir( wxITALIC_FONT ) },
               },
               );
}