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:
$text−>Load($filename);
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.
$text−>Save(?$otherfilename?)
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.
$text−>FileName(?$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