Help for this page
my $dialog = $Global::mw->Dialog(-title => 'Status', -text => "Do you wish to continue", ... $dialog->Subwidget('Cancel')->Invoke();