sorry.. unnecessary data. | [reply] |
The problem is messageBox is a special kind of window that grabs the screen. If you make it a transient, as shown below, it works, but some Tk errors will get printed as you destroy the mainwindow, because the messagBox still has a screen grab. If the below changes are not workable for you because of the Tk dump of destroy errors, then consider using a plain toplevel window instead of a messageBox.
my $status = $mw -> messageBox(
-message=>"Do u want to start the process..?",
-type=>'yesno',);
if($status eq "Yes") {
$choice = "Yes";
print "$choice\n";
exit;
}else{
$choice = "No";
}
}
) -> pack(-side =>'right',-expand => 0);
$status->transient($mw); # will work, but causes harmless errors repo
+rted
| [reply]
[d/l] |