Listed below are new features and other additions to Perl/Tk that post-date
the publication of the the Perl/Tk Pocket Reference, First Edition, October
1998.

Any errata have been removed and are now (or will be) part of the O'Reilly
errata page at http://www.oreilly.com/catalog/perltkpr/errata.



1998/12/01

p. 34	Add this sentence to the -menu description:

	The menu must be a child widget of the menubutton.
 	


1999/03/07

p. 26	The Text widget now supports the Tix -data option found in HList,
	et.al. You can configure any Text tag with a scalar value; the
	scalar, of course, can be a reference to a more complex data
	structure. The new -elide option can hide text. So, insert these
        options after the -bgstipple Text Tag Option:

	-data => I<scalar>    special data associated with tag.

	-elide => I<boolean>  If true then text covered by the
	                      tag is not displayed.

p. 87	Table 1 lists the valid eventGenerate() options and their corresponding
	X11 event structure codes: -width and -delta are missing.  There are
	also a handful of codes that may appear	in an event structure but have
	no eventGenerate() option, so add them to the end of the table.

	eventGenerate() Option | Code | Valid Events
        ---------------------- | ---- | ------------

	-delta => I<integer>	  D	MouseWheel
	-width => I<integer>	  w	Configure, Expose

	ASCII character		  A	KeyPress, KeyRelease
	decimal I<keysym>	  N	KeyPress, KeyRelease
	type field		  T	I<all events>
	window path name	  W	I<all events>
					 

p. 94	Add description of chooseColor() alphabetically.  Also add a
	"chooseColor" index entry.

	I<$color> = I<$widget>->B<chooseColor>(-title => I<string>,
	    -initialcolor => I<color>);

       	    Pop up a dialog box to select a color name or hexadecimal
	    color number.

p. 95	Add description of getOpenFile() alphabetically.  Also add a
	"getOpenFile" index entry.

	I<$path> = I<$widget>->B<getOpenFile>(-defaultextension => I<string>,
	    -filetypes => [filePattern ?, ...?], -initialdir => I<directory>,
	    -initialfile => I<filename>, -title => I<string>);

	    Pop up a dialog box to select a file to open.  Return the
	    file's full path name or an empty string.

p. 95	Add description of getSaveFile() alphabetically.  Also add a
	"getSaveFile" index entry.

	I<$path> = I<$widget>->B<getSaveFile>(-defaultextension => I<string>,
	    -filetypes => [filePattern ?, ...?],-initialdir => I<directory>,
	    -initialfile => I<filename>, -title => I<string>);

	    Pop up a dialog box to select a file to save.  Return the
	    file's full path name or an empty string.

p. 96	Add description of messageBox() alphabetically.  Also add a
	"messageBox" index entry.

	I<$button> = I<$widget>->B<messageBox>(-default => I<string>,
	    -icon => I<bitmap>, -message => I<string>, -title => I<string>,
	    -type => AbortRetryIgnore|OK|OKCancel|RetryCancel|YesNo|YesNoCancel);

	    Use Tk::Dialog to quickly create several common dialog boxes,
	    and return the string value of the selected button.
 	


1999/04/19

p. 93	B<findINC> and B<timeofday> are not listed alphabetically.  My convention,
	moreover, ignores case and any leading "Tk", so B<findINC> should come after
	B<fileevent>, and B<timeofday> should come after B<setPalette>.

	NOTE:  these two commands have no index entry, so be sure to add one.

p. 98	Add description of the B<Tk::tainting> subroutine, alphabetically, after B<setPalette>
	and before B<Tk::timeofday>.  Also add an index entry.

	I<$tainted> = I<$widget>->B<Tk::tainting>;

	    Returns a true value if running with taint checks enabled.



1999/06/13


p. 91	Insert this Font method alphabetically:

	$widget->as_string($font);

	    Returns the string representation of the font object I<$font>.

p. 95	focusNext() and focusPrev() do not return the next or previous widget, but 
	actually change the focus.  Thus, change the descriptive text for both, as
	follows:

	    Changes the focus to the next (or previous) widget in focus order, depending
	    upon the widget's -takefocus option (see Common Widget Options).

p. 99   Missing index entry:

        DialogBox, 44



1999/06/29


p. 49	Change the -data option - it can be any scalar, not just a string.

	-data => I<scalar>



1999/08/09


p. 56	Add these NoteBook configuration options, alphabetically:

	-backpagecolor => I<color>      color of background notebook pages
	-inactivebackground => I<color> color of inactive notebook tabs



1999/12/22

Legend:

	B<>	bold
	C<>	code
	CW<>	constant width font
	I<>	italic
	BI<>	bold italic

This update to the eratta brings the Perl/Tk Pocket Reference up-to-date with
Perl/Tk version 800.017.  The changes are extensive, for various reasons:

	. Added widgets that are newly arrived since last printing, or
	  were omitted for one reason or another: Animation, InputO,
	  Pane, ProgressBar, Table, TextUndo.

	. Added Compound and Pixmap image types.

	. Added Tk::CmdLine and OS-dependent menu style info.

	. Incorporated the myriad of changes from the great "dash patch"
	  that added dashed lines to the Canvas widget, plus zillions
	  of assorted "companion changes" that came along for the ride.

	. Added tons of new methods for Text and TextUndo widgets.

Steve Lidie, 1999/12/08


Front,
and
Back	Get out your paint and re-color the red with spanking-new blue (-:
Covers,
Spine

p.  3	The "dash patch" added lots of common options to the Common Widget
	Options section.  Add these, alphabetically:

	-activetile => I<image>
	    Tile displayed when drawing an active widget.

	-disabledtile => <image>
	    Tile displayed when drawing a disabled widget.

	-offset => I<offsetSpec>
	    Specifies the tile offset. I<offsetSpec> can be an array
	    reference [x, y] or CW<n>, CW<ne>, CW<e>, CW<se>, CW<s>,
	    CW<sw>, CW<w>, CW<nw>, or CW<center>. Also used for Canvas
	    stipples.  Also an index for Canvas line/polygon items.

	-tile => I<image>
	    Tile displayed as a widget's background.  Legal on these widgets:
	    Button, Canvas, Checkbutton, Entry, Frame, Label, Listbox,
	    MainWindow, Menubutton, Message, Scale, Scrollbar, Radiobutton,
	    Text, Toplevel.

	-troughtile => I<image>
	    Tile displayed in the rectangular trough area.

p.  6	After all the Common Widget Options, add this new subsection at
	the bottom of the page:

	BI<Command Line Processing and X11 Resources>

	The first MainWindow call invokes Tk::CmdLine::SetArguments to
	extract these X11 arguments from the command line:

	-background | -bg => I<color>     -iconic
	-class => I<class>                -motif
	-display | -screen => I<display>  -name => I<name>
	-font | -fn => I<font>            -synchronous
	-foreground | -fg => I<color>     -title => I<string>
	-geometry => I<Geometry>          -xrm => I<resourceString>

	X11 resource data format is CW<*background: cyan>

	B<Tk::CmdLine::SetArguments>(I<?@argList?>);
	    Extract the X11 options contained in the specified array
	    (@ARGV by default). All other arguments are left untouched.
	
	B<Tk::CmdLine::cget>(I<?-option?>);
	    Get the value of a configuration option (default CW<-class>).

	B<Tk::CmdLine::SetResources>(I<(\@resource | $resource) ?, priority?>);
	    Set one or more resources.  I<priority> may be CW<widgetDefault>,
	    CW<startupFile>, CW<userDefault>, CW<interactive>.

	B<Tk::CmdLine::LoadResources>(?-symbol => I<envVar>?,
	?-file => I<pathName>?, ?-priority => I<priority>?,
	?-echo => I<fileHandle>?);
	    Process command line and load resources.

p.  7	This option is actually NOT in pTk - I'll leave it here for if-and-when
	it becomes so. Add optional -gain option to the scanDragto method:

	?, -gain => I<integer>?

	Append to the description by changing:

	coordinates.

	to:

	coordinates, multiplied by the I<-gain>.

p.  9 	The "dash patch" adds *lots* of options to the Canvas widget.
	Under Canvas Options at the top of the page add -state and
	-tile, alphabetically, in the right column.

	Further down, after the -scrollregion description, add:

	-state => CW<normal | disabled | hidden>
	    Modifies the default state of the canvas.  Individual
	    canvas items have their own state option that overrides
	    the default state.

	At the bottom of the page, before Coordinates example, add
	this:

	Item ids and tags examples: items are automatically assigned
	a positive integer id when they are created, and can optionally
	be assigned one or more string tags.  tagOrId may contain a
	logical expression of tags by using operators &&, ||, ^,
	!, and parenthezised subexpressions, e.g.:

	    C<$c->find('withtag', '(a&&!b)|(!a&&b)');>

	The second to the last line, change:

	Character positions:

	to
		
	Text item character positions and line/polygon item coordinate
	indices (even values since coordinates are paired):

p. 10	For the dchars method, change:

	deletes the characters

	to
	
	deletes the characters or line/polygon coordinate indices

p. 11	For the index method, change:

	character position

	to

	character position or line/polygon coordinate

p. 11	For the insert method, append:

	For line/polygon items I<string> is a reference to an array
	of coordinate pairs.

p. 13 	The "dash patch" added tons of new Canvas options related to
	Canvas items.  Add the common options after the section
	heading BI<Canvas Item Types>, and before the createArc
	discussion, in a manner analagous to Common Widget Options
	in section 1.

	-activedash => I<dashSpec>
	    Dash pattern of an active item.

	-activefill => I<color>
	    Fill color of an active item.
	
	-activeoutline => I<color>
	    Outline color of an active item.
	
	-activeoutlinestipple => I<bitmap>
	    Outline stipple of an active item.

	-activeoutlinetile => I<image>
	    Outline tile of an active item.

	-activestipple => I<bitmap>
	    Stipple of an active item.

	-activewidth => I<outlineWidth>
	    Outline width of an active item.

	-dash => I<dashSpec>
	    A list of integers representing the number of pixels of
	    a line segment. Odd segments are the outline color, even
	    segments are transparent.  Or, a character list containing
	    only the five characters CW<.,-_ >, e.g.:

		-dash => '.'   = -dash => [2,4]
		-dash => '-'   = -dash => [6,4]
		-dash => '-.'  = -dash => [6,4,2,4]
		-dash => '-..' = -dash => [6,4,2,4,2,4]
		-dash => '. '  = -dash => [2,8]
		-dash => ','   = -dash => [4,4]

	-dashoffset => I<integer>
	    Offset in the dash list where the drawing starts.

	-disableddash => I<dashSpec>
	    Dash pattern for a disabled item.

	-disabledfill => I<color>
	    Fill color of a disabled item.
	
	-disableoutline => I<color>
	    Outline color of a disabled item.
	
	-disabledoutlinestipple => I<bitmap>
	    Outline stipple of a disabled item.

	-disabledoutlinetile => I<image>
	    Outline tile of a disabled item.

	-disabledstipple => I<bitmap>
	    Stipple of a disabled item.

	-disabledwidth => I<outlineWidth>
	    Outline width of a disabled item.

	-outline => I<color>
	    Outline color of an item.
	
	-outlinestipple => I<bitmap>
	    Outline stipple of an item.

	-outlinetile => I<image>
	    Outline tile of an item.

	-state => CW<normal | disabled | hidden>
	    State of the canvas item.  Overrides the Canvas' state.

	-stipple => I<bitmap>
	    Stipple of an item.

	-updatecommand => I<callback>
	    Callback invoked when item is updated on the display.

	-width => I<outlineWidth>
	    Outline width of an item.
	    

p. 13	Replace all the createArc options:

	-activedash => I<dashSpec>         -disabledoutlinestipple => I<bitmap>
	-activefill => I<color>            -disabledstipple => I<bitmap>
	-activeoutline => I<color>         -disabledwidth => I<outlineWidth> 
	-activeoutlinestipple => I<bitmap> -fill => I<color>
	-activestipple => I<bitmap>        -outline => I<color>
	-activewidth => I<outlineWidth>    -outlinestipple => I<bitmap>
	-dash => I<dashSpec>               -state => I<itemState>
	-dashoffset => I<integer>          -stipple => I<bitmap>
	-disableddash => I<dashSpec>       -tags => I<tagList>
	-disabledfill => I<color>          -updatecommand => I<callback>
	-disabledoutline => I<color>       -width => I<outlineWidth>

	-extent> => I<degrees>
	    Size of the angular range occupied by the arc.

	-start => I<degrees>
	    Start angle measured from 3 o'clock position.

	-style => CW<pieslice | chord | arc>
	     How to finish drawing the arc.

p. 14	Replace all createBitmap options:
	
	-activebackground => I<color>   -disabledbitmap => I<bitmap>
	-activebitmap => I<bitmap>      -disabledforeground => I<bitmap>
	-activeforeground => I<bitmap>  -foreground => I<color>
	-anchor => I<anchorPos>         -state => I<itemState>
	-background => I<color>         -tags => I<tagList>
	-bitmap => I<bitmap>            -updatecommand => I<callback>
	-disabledbackground => I<color>

p. 14 	Add createGrid item type.

	I<$canvas>->B<createGrid>(I<x1, y1, x2, y2 ?, option => value?>);

	-color => I<color>            -disabledwidth => I<outlineWidth>
	-dash => I<dashSpec>          -state => I<itemState>
	-dashoffset => I<offset>      -stipple => I<bitmap>
	-disabledcolor => I<color>    -tags => I<tagList>
	-disableddash => I<dashSpec>  -updatecommand => I<callback>
	-disabledstipple => I<bitmap> -width => I<outlineWidth>

	-lines => I<boolean>
	    True to draw lines instead of dots.

p. 14 	Replace all createImage options.

	-anchor => I<anchorPos>    -state => I<itemState>
	-image => I<name>          -tags => I<tagList>
	-activeimage => I<name>    -updatecommand => I<callback>
	-disabledimage => I<name>

p. 14 	Replace all createLine options.

	-activedash => I<dashSpec>    -disabledstipple => I<bitmap>
	-activefill => I<color>       -disabledwidth => I<lineWidth>
	-activestipple => I<bitmap>   -fill => I<color>
	-activewidth => I<lineWidth>  -state => I<itemState>
	-dash => I<dashSpec>          -stipple => I<bitmap>
	-dashoffset => I<offset>      -tags => I<tagList>
	-disableddash => I<dashSpec>  -updatecommand => I<callback>
	-disabledfill => I<color>     -width => I<lineWidth>

	-arrow => CW<none | first | last | both>
	    Specifies on which end(s) of the line to draw arrows.

	-arrowshape => I<[a1, a2, a3]>
	    Three-element array describing the arrowhead shape.

	-capstyle => CW<butt | projecting | round>
	    How to draw caps at the endpoints of the line.

	-joinstyle => CW<bevel | mitre | round>
	    How to draw joints at line vertices.

	-smooth => I<boolean>
	    True if line segments should be drawn smoothed.

	-splinesteps => I<integer>
	    Degree of smoothness desired for curves.

p. 14 	Replace all createOval options.

	-activedash => I<dashSpec>         -disabledoutlinestipple => I<bitmap>
	-activefill => I<color>            -disabledstipple => I<bitmap>
	-activeoutline => I<color>         -disabledwidth => I<outlineWidth>
	-activestipple => I<bitmap>        -fill => I<color>
	-activewidth => I<outlineWidth>    -outline => I<color>
	-activeoutlinestipple => I<bitmap> -outlinestipple => I<bitmap>
	-dash => I<dashSpec>               -state => I<itemState>
	-dashoffset => I<offset>           -stipple => I<bitmap>
	-disableddash => I<dashSpec>       -tags => I<tagList>
	-disabledfill => I<color>          -updatecommand => I<callback>
	-disabledoutline => I<color>       -width => I<outlineWidth>

p. 15	Replace all createPolygon options.

	-activedash => I<dashSpec>          -disabledoutlinestipple => I<bitmap>
	-activefill => I<color>             -disabledstipple => I<bitmap>
	-activeoutline => I<color>          -disabledwidth => I<outlineWidth>
	-activeoutlinestipple => I<bitmap>  -fill => I<color>
	-activestipple => I<bitmap>         -outline => I<color>
	-activewidth => I<outlineWidth>     -outlinestipple => I<bitmap>
	-dash => I<dashSpec>                -state => I<itemState>
	-dashoffset => I<offset>            -stipple => I<bitmap>
	-disableddash => I<dashSpec>        -tags => I<tagList>
	-disabledfill => I<color>           -updatecommand => I<callback>
	-disabledoutline => I<color>        -width => I<outlineWidth>

	-joinstyle =>  CW<bevel | mitre | round>
	    How to draw joints at line vertices.

	-smooth => I<boolean>
	    True if line segments should be drawn smoothed.

	-splinesteps => I<integer>
	    Degree of smoothness desired for curves.

p. 15	Replace all createRectangle options.

	-activedash => I<dashSpec>          -disabledoutlinestipple => I<bitmap>
	-activefill => I<color>             -disabledstipple => I<bitmap>
	-activeoutline => I<color>          -disabledwidth => I<outlineWidth>
	-activeoutlinestipple => I<bitmap>  -fill => I<color>
	-activestipple => I<bitmap>         -outline => I<color>
	-activewidth => I<outlineWidth>     -outlinestipple => I<bitmap>
	-dash => I<dashSpec>                -state => I<itemState>
	-dashoffset => I<offset>            -stipple => I<bitmap>
	-disableddash => I<dashSpec>        -tags => I<tagList>
	-disabledfill => I<color>           -updatecommand => I<callback>
	-disabledoutline => I<color>        -width => I<outlineWidth>

p. 15 	Replace all createText options.

	-activefill => I<color>        -justify => I<how>
	-activestipple => I<bitmap>    -state => I<itemState>
	-anchor => I<anchorPos>        -stipple => I<bitmap>
	-disabledfill => I<color>      -tags => I<tagList>
	-disabledstipple => I<bitmap>  -text => I<string>
	-fill => I<color>              -updatecommand => I<callback>
	-font => I<fontName>

	-width => I<lineLength>
	    Maximum line length for the text.  If zero break only on \n.

p. 15	Replace *only* the createWindow options in the two columns with
	these (-height, -width and -window are OK):

	-anchor => I<anchorPos>    -state => I<itemState>
	-tags => I<tagList>        -updatecommand => I<callback>

p. 17	The "dash patch" adds validation code to the Entry widget. Add
	these options, alphabetically, before and after the -show option
	at the bottom of the page:

	-invalidcommand => I<callback>
	    Specifies a callback to invoke when CW<-validatecommand>
	    returns false - C<undef> disables this feature (default).
	    Typically, just call the B<bell> method.

	-validate => I<validateMode>
	    Specifies the events that invoke the CW<-validatecommand>
	    callback: CW<none> (default), CW<focus>, CW<focusin>,
	    CW<focusout>, CW<key> or CW<all>.

	-validatecommand => I<callback>
	    Specifies a callback that validates the input - C<undef> disables
	    this feature (default). The callback returns false to reject
	    the new input and invoke the CW<-invalidcommand> callback, or
	    true to accept the input.

p. 17	After the section Entry Indices, add this new section on
	validation:

	BI<Entry Widget Validation>

	The CW<-validatecommand> and CW<-invalidcommand> callbacks are called
	with these arguments:

	    . The proposed value of the entry (the value of the
	      textvariable too).

	    . The characters to be added or deleted. C<undef> if
	      called due to focus, explicit call, or change in
	      textvariable.

	    . The current value before the proposed change.
	
	    . Index of string to be added/deleted, if any, else -1.
	
	    . Type of action, 1 for insert, 0 for delete, -1 if
	      a forced validation or textvariable validation.
 
p. 24	Add another subsection to section 7, The Menu Widget.

	BI<Menubars>

	A classical Tk 4 menubar is a Frame filled with Menubuttons:

	C<my $menubar = $mw->Frame(qw/-relief raised -borderwidth 2/);
	$menubar->pack(qw/-fill x/);
	my $file = $menubar->Menubutton(qw/-text File -underline 0/);
	my $help = $menubar->Menubutton(qw/-text Help -underline 0/);
	$file->pack(qw/-side left/);
	$help->pack(qw/-side right/);>

	A modern Tk 8 menubar is a Menu widget filled with I<cascade>
	menu items representing menu buttons:

	C<$mw->configure(-menu => my $menubar = $mw->Menu);
	my $file = $menubar->cascade(-label => '~File');
	my $help = $menubar->cascade(-label => '~Help');>

	Whenever the cursor passes over the menubar <<MenuSelect>>
	virtual events are generated.  Menu items handled specially
	by the menu system include CW<Help> (Unix), CW<System> (Win32),
	CW<Apple> and CW<Help> (MacOS).

p. 26	The "dash patch" adds several new options to the Text widget's
	tag options, add -state alphabetically after -rmargin.

	-state => CW<normal | hidden>
	    Specifies the state of the tagged text.

P. 27	In subsection BI<Text Widget Commands>, insert these new methods
	alphabetically:

	I<$text>->B<adjustSelect>;
	    Moves the end point of selection and anchor
            point to the mouse pointer location.

	I<$text>->B<clipboardColumnCopy>;
	    Rectangle copy of the selected text.

	I<$text>->B<clipboardColumnCut>;
	    Rectangle cut of the selected text.

	I<$text>->B<clipboardColumnPaste>;
	    Rectangle paste of the text in clipboard.

	I<$text>->B<deleteSelected>;
	    Deletes the currently selected text.

	I<$text>->B<DeleteTextTaggedWith>(I<tag>);
	    Deletes the text tagged with I<tag>.

	I<$text>->B<deleteToEndofLine>;
	    Deletes from the insert mark location to
            end of line.

	I<$text>->B<FindAll>(I<mode, case, pattern>);
	    I<mode> is CW<-exact | -regexp>, I<case> is
	    CW<-nocase | -case>.  All text matching I<pattern>
	    is tagged with the tag CW<sel>.

	I<$text>->B<FindAndReplaceAll>(I<mode, case, pattern, newString>);
	    I<mode> and I<case> are as described for B<FindAll>.
	    All matching pattern strings are replaced with I<newString>.

	I<$text>->B<FindAndReplacePopUp>;
	    Creates a find and replace popup and fills CW<find> field
	    with selected text.

	I<$text>->B<FindNext>(I<direction, mode, case, pattern>);
	    I<direction> is CW<-forward | -reverse>, I<mode>
	    and I<case> are as described for B<FindAll>.  Text
	    matching I<pattern> is tagged with the tag CW<sel>.

	I<$text>->B<FindPopUp>;
	    Creates a find  popup and fills CW<find> field
	    with selected text.

	I<$text>->B<FindSelectionNext>;
	    Searches for currently selected text in a forward direction.

	I<$text>->B<FindSelectionPrevious>;
	    Searches for currently selected text in a backward direction.

	I<$text>->B<getSelected>;
	    Returns the currently selected text.

	I<$text>->B<GetTextTaggedWith>(I<tag>);
	    Returns the text tagged with I<tag>.

	I<$text>->B<GotoLineNumber>(I<line_number>);
	    Sets (and remembers) the CW<insert> mark to line_number.

	I<$text>->B<GotoLineNumberPopUp>;
	    Creates a goto line mumber popup and gives it focus.

	I<$text>->B<Insert(I<string>)>;
	    Inserts I<string> at the insertion cursor, first deleting 
	    any selected text.

	I<$text>->B<InsertKeypress>(I<character>);
	    In overstrike mode delete the character at the CW<insert>
	    mark index.  Insert I<character> at the CW<insert> mark.

	I<$text>->B<InsertSelection>;
	    Inserts the selection at the CW<insert> mark.

	I<$text>->B<insertTab>;
	    Inserts a tab (\t) character at the insert mark.

	I<$text>->B<markExists>(I<markname>);
	    Returns true if I<markname> exists, else false.

	I<$text>->B<menu>(?I<menuRef>?);;
	    Set or get a reference to the Text widget's Menu.
	    Menus are disabled if I<menuRef> is CW<undef>.

	I<$text>->B<openLine>;
	    Inserts a newline (\n) at the insert mark. 

	I<$text>->B<OverstrikeMode>(?<boolean>?);
	    Gets or sets the overstrike value.

	I<$text>->B<PostPopupMenu>(I<x, y>);
	    Createa a popup menu at the coordinates (I<x, y>).

	I<$text>->B<ResetAnchor>;
	    Sets the selection anchor to whichever end is
	    farthest from the index argument.

	I<$text>->B<selectAll>;
	    Selects all the text in the widget.

	I<$text>->B<SetCursor>(I<position>);
	    Moves the CW<insert> mark to I<position>.

	I<$text>->B<ToggleInsertMode>;
	    Inverts the current overstrike mode.

	I<$text>->B<unselectAll>;
	    Unselects all the text in the widget.

	I<$text>->B<selectLine>;
	    Selects the line with the insert mark.

	I<$text>->B<selectWord>;
	    Selects the word with the insert mark.

	I<$text>->B<WhatLineNumberPopUp>;
	    Creates a what line number pop up and displays the
	    line number of the CW<insert> mark.

p. 29	Add CW<-hidden> to the Text widget search method switches.

p. 40	Section 10, Perl/Tk Widgets, add the Animation widget after
	Adjuster - add an index entry too.

	BI<Animation>

	Animation is a widget that display a series of Photo images, or
	a GIF89 file with multiple frames.

	-format => I<photoFormat>
	    Specifies the format of the images.  Use CW<gif> if you have
	    a multi-frame GIF89 file.

	-file => I<pathName>
	    If CW<-format> is CW<gif> then this is a GIF89 multi-frame file.

	I<$animation>->B<add_frames>(I<images>);
	    I<images> is a list of Photo images, preferably all the
	    same dimensions.

	I<$animation>->B<start_animation>(I<frequency>);
	    Starts the animation, displaying frames with the indicated
	    I<frequency>.
	
        I<$animation>->B<stop_animation>;
	    Stops the animation.

p. 55	Add new widget InputO before LabFrame - add an index entry too.

	BI<InputO> is an invisible widget that exists solely to intercept
	user inputs via B<bind>.  It's typically B<place>d over the widget
	of interest.

	-cursor => I<cursorSpec>  -width => I<width>
	-height => I<height>

p. 58	Section 10, Perl/Tk Widgets, add the Pane and ProgressBar widgets
	before ROText - add index entries too.

	BI<Pane>

	Pane is a simple Frame-like widget that is scrollable.

	-gridded => I<direction>
	    For widgets managed by B<grid>, specifies if the top and 
	    left edges of the Pane should snap to a grid column. May
	    be CW<x>, CW<y> or CW<both>.

	-scrollbars => I<scrollbarSpecs>
	    See the Scrolled documentation in the section Perl/Tk Widgets.

	-sticky => I<style>
	    For B<grid> managed widgets, may be any of CW<n>, CW<s>, 
	    CW<e> and CW<w>.

     	I<$pane>->B<see>(I<$widget>, ?, -anchor => I<anchor>?);
	    Adjusts the Pane so I<$widget> is visible.  I<anchor>
	    can be CW<n>, CW<s>, CW<e>, CW<w>, CW<nw>, CW<ne>, CW<se>
	    or CW<sw>.
	
	I<$pane>->B<xview>(I<$widget>);
	    Adjusts the view so that I<$widget> is displayed at
	    the left of the Pane;

	I<$pane>->B<xview>;
	I<$pane>->B<xview>('moveto' => I<fraction>);
	I<$pane>->B<xview>('scroll' => I<what>);
	    These methods parallel those described in the section
	    BI<Widget Scroll Commands>.
	
	I<$pane>->B<yview>(I<$widget>);
	    Adjusts the view so that I<$widget> is displayed at
	    the top of the Pane;

	I<$pane>->B<yview>;
	I<$pane>->B<yview>('moveto' => I<fraction>);
	I<$pane>->B<yview>('scroll' => I<what>);
	    These methods parallel those described in the section
	    BI<Widget Scroll Commands>.


	BI<ProgressBar>

	ProgressBar graphically displays a value in a Scale-like 
	widget. 

	-borderwidth          -pady
	-highlightthickness   -relief
	-padx                 -troughcolor

	-width => I<width>
	    Specifies the narrow dimension of the ProgressBar -
	    width if vertical, height if horizontal.

	-height => I<height>
	    Specifies the wide dimension of the ProgressBar -
	    height if vertical, width if horizontal.

	-colors => [I<integer1> => I<color1>, I<integer2> => I<color2>, ...]
	    The slider changes colors at the specified demarcations.

	-blocks => I<integer>
	    The slider is displayed as a series of blocks of the specified
	    size - typically a percentage of the difference between the
	    minimum and maximum values. If this option is omitted the slider
	    is solid.

	-resolution => I<real>
	    If > 0 the ProgressBar's value is rounded to an even
	    multiple of the number.  If < 0 then no rounding.
	    If = 1 (default) the value is an integer.

	-anchor => I<anchor>
	    One of CW<n>, CW<s>, CW<e> or CW<w>
	
	-variable => I<varRef>
	    A reference to a scalar tied to the ProgressBar.  Updating
	    this variable moves the slider.

	-from => I<number>
	    Minimum value of ProgressBar.
	
	-to => I<number>
	    Maximum value of ProgressBar.

	-gap => I<pixels>
	    Size of gap between blocks.
	
	I<$progress>=>B<value>(?I<number>?);
	    Set or get the ProgressBar's value.

p. 58	The -scrollbars description shows an illegal letter combination for
	the scrollbar positions.  In the second to last line, change
	the fixed-width characters "rwos" to "osrw".

p. 59	Section 10, Perl/Tk Widgets, add the Table and TextUndo widgets
	before TixGrid - add index entries too.

	BI<Table>

       	Table is a geometry manager that displays a two dimensional table of
	arbitary Perl/Tk widgets.  The widgets must be created with the Table
	as their parent.  All rows and columns are the same size, that of the
	tallest and widest widgets.

	-rows => I<integer>
	    The number of table rows. The first row of the Table is row zero.

	-columns => I<integer>
	    The number of table columns. The first column of the Table is
	    column zero.

	-scrollbars => I<scrollbarSpecs>
	    See the Scrolled documentation in the section Perl/Tk Widgets.

	-fixedrows => I<integer>
	    The number of Table rows that are fixed and do not scroll,
	    often used for column labels.
	
	-fixedcolumns => I<integer>
	    The number of Table columns that are fixed and do not scroll,
	    often used for row labels.


     	I<$table>->B<Create>(I<row>, I<column>, <widgetClass>,
	    ?I<-option> => I<value>?);
	    Creates a child widget of type I<widgetClass> and B<put>s
	    it into the Table.  Returns the widget reference of the
	    widget already at the specified position, or C<undef>.

	I<$table>->B<get>(I<row>, I<column>);
	    Fetches the widget reference at the specified Table position.

       	I<$table>->B<put>(I<row>, I<column>, I<$widget>);
	    Places the widget I<$widget> in the table at the specified
	    position.  If a string is supplied then Table creates a
	    Label widget having the string as its text and places the
	    Label in the Table.  Returns the widget reference of the
	    widget already at the specified position, or C<undef>.

	I<$table>->B<Posn>(I<$widget>);
	    In scalar context returns a reference to an array of two
	    integers - the row and column - of the specified widget.
	    In list context returns the actual row and column values.

      	I<$table>->B<see>(I<$widget>);
	I<$table>->B<see>(I<row>, I<column>);
	    Scrolls the Table so the specified widget or position is
	    visible.

	I<$table>->B<totalColumns>;
	    Returns the total Table column count.
 
	I<$table>->B<totalRows>;
	    Returns the total Table row count.


	BI<TextUndo>

	TextUndo is a Text widget with unlimited undo and redo capability.
	The widget supports two virtual events, '<<Undo>>' and '<<Redo>>',
	which invoke B<undo> and B<redo>, respectively.   

	I<$textundo>->B<ConfirmDiscard>;
	    A B<messageBox> displays "Save edits?".  Returns
	    0 if CW<yes> or CW<cancel>, 1 if CW<no>.

	I<$textundo>->B<ConfirmEmptyDocument>;
	    Same as C<$textundo->EmptyDocument if $textundo->ConfirmDiscard;>

	I<$textundo>->B<ConfirmExit>;
	    Same as C<$textundo->toplevel->destroy if $textundo->ConfirmDiscard;>

	I<$textundo>->B<CreateFileSelect>;
	    Creates a popup file browser to select a filename.  Used by
	    B<FileLoadPopup>, B<IncludeFilePopup> and B<FileSaveAsPopup>.

	I<$textundo>->B<deleteStringAtStartOfSelectedLines(I<string>);
	    Deletes I<string> from the start of every selected line.

	I<$textundo>->B<EmptyDocument>;
	    Deletes all text, undo/redo information, and undefs the filename.

	I<$textundo>->B<FileName>(?I<pathName>?);
	    Optionally updates the current filename to I<pathName>.
	    Returns the current filename.

	I<$textundo>->B<IncludeFile>;
	    Same as B<Load> except does not call B<EmptyDocument>.

	I<$textundo>->B<insertStringAtStartOfSelectedLines>(I<string>);
	    Inserts I<string> at the start of every selected line.

	I<$textundo>->B<Load>;
	    C<$filename = $textundo->FileName unless defined $filename;
	    return 0 unless defined $filename;
	    $textundo->EmptyDocument;>
	    Then loads the contents of $filename into the widget.

	I<$textundo>->B<numberChanges>;
	    Returns the number of current undo operations.

	I<$textundo>->B<redo>;
	    Redoes the previous operation.

	I<$textundo>->B<ResetUndo>;
	    Deletes all undo/redo information.

	I<$textundo>->B<Save> (?<IpathName?);
	    C<$filename = $textundo->FileName unless defined $filename;
	    $textundo->FileSaveAsPopup unless defined $filename;
	    $textundo->FileName($filename);
	    $textundo->ResetUndo;>
	    Returns 1 if successful, else 0.

	I<$textundo>->B<SizeRedo>;
	    Returns the number of current redo operations.

	I<$textundo>->B<undo>;
	    Undoes the previous operation.

p. 69	In the section Other Perl/Tk Widget remove Table and InputO as
	they are fully described in this eratta.

	Section 10, Perl/Tk Widgets, the URL for the Perl/Tk module list has
	changed.  Replace it with this link, guaranteed to always redirect
	your browser to the proper spot:
  
	http://www.Lehigh.EDU/sol0/ptk/modlist

p. 74	Section 12, Images, does not include the Pixmap image type. Replace
	the entire first paragraph with these two paragraphs:

	Images are created with the B<DefineBitmap>, B<Bitmap>, B<Pixmap> and
	B<Photo> methods.  Bitmaps (XBM) are two-color images, Pixmaps (XPM)
	are multi-color images, and Photos are full color 32-bit images. The
	Photo image type supports several image formats: BMP, PPM and GIF.
	Support for PNG, JPEG and TIFF image formats is available from CPAN.
	The B<Compound> method  allows multi-line composite images consisting
	of text characters, bitmaps, images and spaces.

	All Photo image formats except PPM support the CW<-data> option.
	The string data must be Base64 MIME encoded.

p. 76	Insert this documentation for the B<Pixmap> method before the B<Photo>
	method - add an index entry too:

	B<The Pixmap image method>

        -data => I<string>
            Specifies the pixmap as an XPM string.

        -file => I<pathName>
            Gives the name of a file whose contents define the XPM pixmap.

p. 78	Add the Compound image type decription after the Photo description.
	Also add an index entry.

	BI<The Compound Image Method>

	-anchor => I<color>        -foreground => I<color>
	-background => I<color>    -padx => I<value>
	-borderwidth => I<pixels>  -pady => I<value>
	-font => I<font>           -relief => I<value>

	-showbackground => I<boolean>
	    True to draw the background and the 3D borders, false to
	    leave the compound transparent.

	I<$compound>->B<Line>(?I<option => value ...?>);
	    Start a new Compound image line.

	    -anchor> CW<w | c | e>
		How the line is aligned.

	I<$compound>->B<Bitmap>(?I<option => value ...>?);
	    Add a bitmap to the Compound.

	    -bitmap => I<bitmap>
		The bitmap to display in this item.

	I<$compound>->B<Image>(?I<option => value ...>?);
	    Add an image to the Compound.

	    -image => I<image>
		The image.

	I<$compound>->B<Space>(?I<option => value ...>?);
	    Add space to the Compound.

	    -width => I<value>
		The width of the space.

	    -height => I<value>
		The height of the space

	I<$compound>->B<Text>(?I<option => value ...>?);
	    Add text to the Compound.

	    -font => I<fontName>
	    -justify> I<value>
	    -text => I<string>
	    -underline> I<value>
	    -wraplength> I<value>
		These text attributes function as normal.

p. 86   Add the optional -warp option to eventGenerate, just like the 
	optional -when argument:

	?, -warp => I<boolean>?

	Add this descriptive text after the -when discussion:

	CW<-warp> specifies whether the pointer is warped. Valid for
	CW<KeyPress>, CW<KeyRelease>, CW<ButtonPress>,
	CW<ButtonRelease> and CW<Motion> events.

p. 96	Section 18, Other Perl/Tk Commands, add these two commands 
	alphabetically - also add index entries.  After MainLoop add:

	I<$widget>->B<MapWindow>;
	    Remaps and redisplays a previously mapped widget.

	And after Unbusy add:

	I<$widget>->B<UnmapWindow>;
	    Removes a widget from the display.


2000/04/21

p. 29	Add the menu() method to the text widget docs.

	I<$text>->B<menu>(<menuRef>);
	    Replaces the default menu activated by Button-3.