That has inspired me to write a "minimal" Tk editor.

You can probably get somewhat closer to "minimal" (depending on your def'n) using Tk::TextUndo. Something like this will get you most of the way there:

perl -MTk -MTk::TextUndo -e "(tkinit)->Scrolled('TextUndo')->pack;Main
+Loop"
[download]

-sauoq
"My two cents aren't worth a dime.";