60 sub SaveAs {
     61  $save = $main->getSaveFile(-filetypes => $types, -initialfile => $file);
     62  if ( defined $save ) {
     63  open(FILE_S, "> $save");
     64  my $content = $text->get('1.0', 'end');
     65  print FILE_S $content;
     66  close(FILE_S);
     67  }
     68  else {
     69  return;
     70  }
     71 }