Select Code to Download

sub lam_num_error {
    $mw->messageBox(-message=>"The input must be an integer.");
    exit;
}

sub lam_num_error {
    $mw->messageBox(-message=>"The input must be an integer.");
    die;
}

Tk::Error: Died at Fastenator_working.pl line 1106.
 main::fl_num_error at Fastenator_working.pl line 1106
...
.pm line 111
 <ButtonRelease-1>
 (command bound to event)