.\" Automatically generated by Pod::Man 4.07 (Pod::Simple 3.32)
.\"
.\" 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
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
.\" nothing in troff, for use with C<>.
.tr \(*W-
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
.    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
..
.if !\nF .nr F 0
.if \nF>0 \{\
.    de IX
.    tm Index:\\$1\t\\n%\t"\\$2"
..
.    if !\nF==2 \{\
.        nr % 0
.        nr F 2
.    \}
.\}
.\" ========================================================================
.\"
.IX Title "TextUndo 3pm"
.TH TextUndo 3pm "2015-05-03" "perl v5.24.1" "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
    \fI\f(CI$testundo\fI\fR = \fI\f(CI$parent\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. \fILoad()\fR
delete the previous contents of the text widget as well as it's
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 \fILoad()\fR
call.  If no file was previously \fILoad()\fR'ed an error message
pops up.  The default filename of the last \fILoad()\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