.\" -*- mode: troff; coding: utf-8 -*-
.\" Automatically generated by Pod::Man 5.01 (Pod::Simple 3.43)
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" \*(C` and \*(C' are quotes in nroff, nothing in troff, for use with C<>.
.ie n \{\
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds C`
.    ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el       .ds Aq '
.\"
.\" If the F register is >0, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.\"
.\" Avoid warning from groff about undefined register 'F'.
.de IX
..
.nr rF 0
.if \n(.g .if rF .nr rF 1
.if (\n(rF:(\n(.g==0)) \{\
.    if \nF \{\
.        de IX
.        tm Index:\\$1\t\\n%\t"\\$2"
..
.        if !\nF==2 \{\
.            nr % 0
.            nr F 2
.        \}
.    \}
.\}
.rr rF
.\" ========================================================================
.\"
.IX Title "TextUndo 3pm"
.TH TextUndo 3pm 2024-03-07 "perl v5.38.2" "User Contributed Perl Documentation"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
.nh
.SH NAME
Tk::TextUndo \- perl/tk text widget with bindings to undo changes.
.SH SYNOPSIS
.IX Header "SYNOPSIS"
\ \ \ \ \fBuse Tk::TextUndo;\fR
.PP
\ \ \ \ \fR\f(CI$testundo\fR\fI\fR = \fI\fR\f(CI$parent\fR\fI\fR\->\fBTextUndo\fR(?\fI\-option\fR=>\fIvalue\fR, ...?);
.SH DESCRIPTION
.IX Header "DESCRIPTION"
This IS-A text widget with an unlimited 'undo' history but without
a re'undo' capability.
.SS Bindings
.IX Subsection "Bindings"
The \f(CW\*(C`TextUndo\*(C'\fR widget has the same bindings as the Text widget.
In addition there are the following bindings:
.IP "Event <L4> <<Undo>>" 4
.IX Item "Event <L4> <<Undo>>"
undo the last change.  Pressing <L4> several times undo
step by step the changes made to the text widget.
.SS Methods
.IX Subsection "Methods"
The \f(CW\*(C`TextUndo\*(C'\fR widget has the same methods as \f(CW\*(C`Text\*(C'\fR widget.
Additional methods for the \f(CW\*(C`TextUndo\*(C'\fR widget are:
.ie n .IP $text\->Load($filename); 4
.el .IP \f(CW$text\fR\->Load($filename); 4
.IX Item "$text->Load($filename);"
Loads the contents of the \f(CW$filename\fR into the text widget. \fBLoad()\fR
delete the previous contents of the text widget as well as its
undo history of the previous file.
.ie n .IP $text\->Save(?$otherfilename?) 4
.el .IP \f(CW$text\fR\->Save(?$otherfilename?) 4
.IX Item "$text->Save(?$otherfilename?)"
Save contents of the text widget to a file. If the
\&\f(CW$otherfilename\fR is not specified, the text widget contents
writes the file of \f(CW$filename\fR used in the last \fBLoad()\fR
call.  If no file was previously \fBLoad()\fR'ed an error message
pops up.  The default filename of the last \fBLoad()\fR call
is not overwriten by \f(CW$otherfilename\fR.
.ie n .IP $text\->FileName(?$otherfilename?) 4
.el .IP \f(CW$text\fR\->FileName(?$otherfilename?) 4
.IX Item "$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.
.SH KEYS
.IX Header "KEYS"
widget, text, undo
.SH "SEE ALSO"
.IX Header "SEE ALSO"
Tk::Text, Tk::ROText