Help for this page

Select Code to Download


  1. or download this
    WAIT:
$self->waitVariable(\$self->{RESULT});
...
   return $self->{RESULT};
  }
} # end  Show method
  2. or download this
    sub get_string {
 my ($title, $parent, $prompt, $initial_value, $default_cancel) = @_;
...

 return $ret;
}
  3. or download this
    use base   qw/Tk::Derived Tk::DialogBox/;