sub Combobox1action {
    my( $self, $event ) = @_;

    $self->SetTitle( 'Combo box selected' );
}