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 |