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

print $self, "\n";

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