view release on metacpan or  search on metacpan

lib/Tk/ECWarning.pm  view on Meta::CPAN

package Tk::ECWarning;

$VERSION='0.00';

use Tk qw(Ev);
use strict;
use Carp;
use base qw(Tk::Derived Tk::Toplevel);
use Tk::widgets qw(Button Label Frame);

Construct Tk::Widget 'ECWarning';

sub Cancel {
  my ($w) = @_;
  $w -> {Configure}{-response} = 'Cancel';
}

sub Ok {