my $dialog = $Global::mw->Dialog(-title => 'Status', 
		-text => "Do you wish to continue", 
		-default_button => 'Ok', 
                -buttons => ['Ok', 'Cancel'], 
		-font => ['Arial',10 ] )->Show();
		
$dialog->Subwidget('Cancel')->Invoke();