sub styles {
    my( $self ) = @_;
 
    return ( [ wxALIGN_LEFT, 'Align left' ],
             [ wxALIGN_CENTER, 'Align center' ],
             [ wxALIGN_RIGHT, 'Align right' ],
             [ wxST_NO_AUTORESIZE, 'No autoresize' ],
             );
}