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

            

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