sub commands { my( $self ) = @_;
return ( { label => 'Set italic font',
action => sub { $self->picker->SetFile( wxITALIC_FONT ) },
},
);
}
sub commands { my( $self ) = @_;
return ( { label => 'Set italic font',
action => sub { $self->picker->SetFile( wxITALIC_FONT ) },
},
);
}