Rename DialogBox to DialogBoxUL

bin/Tk/DialogBox.pm → bin/Tk/DialogBoxUL.pm

@@ -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);
 }