NAME

Tk::YADialog - Yet another dialog

SYNOPSIS

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

DESCRIPTION

Provides a basic, less noisy, replacement for Tk::Dialog. Inherits Tk::Toplevel.

CONFIG VARIABLES

Switch: -buttons

Default value ['Close']. Specify a list of buttons to be shown.

Buttons can be specified in two ways:

As a string

 -buttons => ['Ok', 'Do not'],

As a list

 -buttons => [
     ['Ok', $okcallback],
     ['Do not', $donotcallback],
 ]

You can specify the callbacks as standard Tk callbacks.

Switch: -command

Callback, is called when a button is pressed.

Switch: -defaultbutton

Default value not defined. Specify which button has the focus on popup.

Switch: -nowithdraw

Default value 0. When this value is set the dialog will not withdraw whatever you do. Make sure you reset it in some callback.

Switch: -padding

Horizontal and vertical padding for the buttons. Default value 20.

Only available at create time.

METHODS

Switch: get

Returns the button that was pressed.

Switch: show

Pops up the dialog. you can provide options for the Popup method. See Tk::Popup. Show (capital S) also works for compatibility with Tk::Dialog.

LICENSE

Same as Perl.

AUTHOR

Hans Jeuken (hanje at cpan dot org)

BUGS

Unknown. If you find any, please contact the author.