sub Combobox1action {
    my( $frame, $comboevent ) = @_;
    my $combobox  = $comboevent->GetEventObject;
    my $selection = $comboevent->GetString;
    $frame->SetTitle( "Combo box selected ($selection)" );
}