Help for this page

Select Code to Download


  1. or download this
    sub messageBox
{
...
 $args{'-default'} = lc($args{'-default'}) if (exists $args{'-default'
+});
 ucfirst tk_messageBox(-parent => $widget, %args);
}
  2. or download this
    sub Methods
{
...
my %dialog = ( tk_chooseColor => 'ColorDialog',
               tk_messageBox  => 'MessageBox',
...
  3. or download this
    sub MessageBox {
    my ($kind,%args) = @_;
...
        return $an;
    }
} # end messageBox
  4. or download this
    sub MessageBox {
    my ($kind,%args) = @_;
...
        return $an;
    }
} # end messageBox