package ContinueBox;
use Tk;

use base qw(Tk::DialogBox);
Tk::Widget->Construct('ContinueBox');

sub Populate
{
   my ($cw, $args) = @_;
   $args->{-buttons} = [qw/Continue Exit/],
   $args->{-default_button} = "Continue";
   $cw->SUPER::Populate($args);

   $cw->add("Label", -text => "Do you want to continue?")->pack;

   $cw->protocol(WM_DELETE_WINDOW => sub {
       $cw->Subwidget('B_Exit')->invoke;
   }); 
}
1;