$warnings = "";
$prompt_warning = $mw->Dialog(-title => 'Warings:', -textvariable => \$warnings, -bitmap => 'warning' );
                $prompt_warning->destroy if ($warnings eq 'we\re ok now!');
$answer= &readmap(1069); #reads warings from my invertor 
for (my $i=1; $i<256; $i=$i*2) {
       if (($answer&$i)!=0) {
           $warning = EnWarning{$answer&$i};
           $prompt_warning->Show( );
       }
}
if ($answer==0) {
     $warnings = 'we\'re ok now!';
     $prompt_warning->destroy;
}
}