Re: Gtk2::Dialog ... adding a label

["A. Pagaltzis" <pagaltzis gmx de>]

* Daniel Kasak <dkasak nusconsulting com au> [2004-05-26 01:56]:
> sub msgbox {
>   
>    my ($parent, $title, $message) = @_;
>   
>    my $dialog = Gtk2::Dialog->new ($title,
>                                    $parent,
>                                    'destroy-with-parent',
>                                    'gtk-ok'        => 'accept',
>                                    'gtk-cancel'    => 'reject');
>   
>    my $label = Gtk2::Label->new ($message);
>    $dialog->vbox->add ($label);
     $label->show();
>   
>    return $dialog;
>   
> }

-- 
Regards,
Aristotle
 
"If you can't laugh at yourself, you don't take life seriously enough."