sub savefile {
#print "You clicked Save As..\n";	

my $savetypes = [
     ['All Files',        '*',             ],
 ];
 $outfile = $top->getSaveFile(-filetypes=>$savetypes, -title=> "Type an output filename");
   if ($outfile ne "") {
       $save_entry_box->delete(0,99999);
       $save_entry_box->insert(0,$outfile);
       ui $main_frame;
   }



}