use Tk;

my $mw = MainWindow->new( -title=> "Cancel Test");
	example();
MainLoop;

sub example {
	$mw->OnDestroy(sub{
		$response = $mw->messageBox(-icon => 'question', -message => 'Really Exit?', -title => 'Continue?', -type => 'OkCancel', -default => 'Ok');
		print "Reply:$response\n";
		$mw->break if $response eq 'Cancel';})
}