http://qs321.pair.com?node_id=186519
Description: The TextUndo widget comes with Tk 800.xxx. Right clicking on the textarea will give a full menu of options making this editor "usable."

--
hiseldl

I use double quotes here to make it compatible under win using Activestate Perl.
perl -MTk -MTk::TextUndo -e "(tkinit)->Scrolled('TextUndo')->pack;Main
+Loop"