view release on metacpan or  search on metacpan

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

Tk::YADialog - Yet another dialog

=cut

use strict;
use warnings;
use vars qw($VERSION);
$VERSION = '0.05';

use Tk;
use base qw(Tk::Derived Tk::Toplevel);
Construct Tk::Widget 'YADialog';

=head1 SYNOPSIS

 require Tk::YADialog;
 my $dialog = $window->YADialog(
	-buttons => ['Ok, 'Close'],
 );
 my $e = $dialog->Entry->pack;
 my $but = $dial->Show;

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

Tk::YAMessage - Yet another message box

=cut

use strict;
use warnings;
use vars qw($VERSION);
$VERSION = '0.05';

use Tk;
use base qw(Tk::Derived Tk::YADialog);
Construct Tk::Widget 'YAMessage';

=head1 SYNOPSIS

 my $dialog = $window->YAMessage(
	-image = $window->Getimage('info');
	-text => 'Hello',
 );
 $dialog->Show;