I like it!

A little bug. If I select "Save-As" or "Open", but then cancel, I get

Use of uninitialized value in concatenation (.) or string at ./tkedito
+r line 62.print() on closed filehandle FILE_S at ./tkeditor line 64.
[download]

Some kind of if defined should fix this. For example:

     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 }
[download]

and

Use of uninitialized value in concatenation (.) or string at ./tkedito
+r line 76.
readline() on closed filehandle FILE_O at ./tkeditor line 77.
[download]

with the same kind of fix.

But you already knew that :-)