C:\Perl_PPM\Wx-Demo-0.21\blib/lib/Wx/DemoModules/wxDirPickerCtrl.pm

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

    return ( { label       => 'Set italic font',
               action      => sub { $self->picker->SetDir( wxITALIC_FONT ) },
               },
               );
}
 C:\Perl_PPM\Wx-Demo-0.21\blib/lib/Wx/DemoModules/wxDirPickerCtrl.pm