Commit c976ead1 authored by Stefan Tauner's avatar Stefan Tauner
Browse files

Rename DialogBox to DialogBoxUL

parent 06fc4006
......@@ -3,7 +3,7 @@
# in the top frame. Widgets can be added with the add method. Currently
# there exists no way of deleting a widget once it has been added.
package Tk::DialogBox;
package Tk::DialogBoxUL;
use strict;
use Carp;
......@@ -13,7 +13,7 @@ $VERSION = '4.016'; # was: sprintf '4.%03d', q$Revision: #13 $ =~ /\D(\d+)\s*$/;
use base qw(Tk::Toplevel);
Tk::Widget->Construct('DialogBox');
Tk::Widget->Construct('DialogBoxUL');
sub Populate {
my ($cw, $args) = @_;
......@@ -106,7 +106,7 @@ sub Wait
sub Show {
croak 'DialogBox: "Show" method requires at least 1 argument'
croak 'DialogBoxUL: "Show" method requires at least 1 argument'
if scalar @_ < 1;
my $cw = shift;
my ($grab) = @_;
......@@ -145,7 +145,7 @@ sub SelectButton
sub Exit
{
my $cw = shift;
#kill the dialogbox, by faking a 'DONE'
#kill the DialogBoxUL, by faking a 'DONE'
$cw->{'selected_button'} = $cw->{'default_button'}->cget(-text);
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment