The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.


Tk::TextUndo - perl/tk text widget with bindings to undo changes.


use Tk::TextUndo;

$testundo = $parent->TextUndo(?-option=>value, ...?);


This IS-A text widget with an unlimited 'undo' history but without a re'undo' capability.


The TextUndo widget has the same bindings as the Text widget. In addition there are the following bindings:

Event <L4> <<Undo>>

undo the last change. Pressing <L4> several times undo step by step the changes made to the text widget.


The TextUndo widget has the same methods as Text widget. Additional methods for the TextUndo widget are:


Loads the contents of the $filename into the text widget. Load() delete the previous contents of the text widget as well as its undo history of the previous file.


Save contents of the text widget to a file. If the $otherfilename is not specified, the text widget contents writes the file of $filename used in the last Load() call. If no file was previously Load()'ed an error message pops up. The default filename of the last Load() call is not overwriten by $otherfilename.


If passed an argument sets the file name associated with the loaded document. Returns the current file name associated with the document.


widget, text, undo


Tk::Text, Tk::ROText