WAIT:
$self->waitVariable(\$self->{RESULT});

#test result
my $string = $self->{RESULT};

if( $string  lt '#333333' ){ goto WAIT  }
   else{
   $self->grabRelease;
   $self->withdraw;
   &$old_focus;
   &$old_grab;
      
   return $self->{RESULT};
  }
} # end  Show method