Errata for Learning Perl/Tk

Final paragraph on the page, the text used to read: "... find all the source code from the book ..." Changed to: "... find source code for programs from the book ..."

knows that one should install Perl and then go on-line and issue PPM and INSTALL TK. You must use the ppm module manager to install the Tk module (and do special things if there is a firewall). Change the text on this page to make it fit without breaking the current page breaks?

Added text to footnote. The text used to read: "Unless you get the Win32 binary from CPAN" It now reads: "Unless you get the Win32 binary from CPAN or another pre-built distribution such as ActiveState Perl"

Paragraph 2; the text used to read: "... great binary distribution that has Perl ..." Changed to: "... great binary distribution of Perl ... "

the paragraph had a "bumpy" edge. Justified to the right.

1st paragraph, 3rd line. Used to read: "... (easy in Unix;, not so easy in MS ..." ^^^^^^ Took out the comma.

5th paragraph, in discussion of the tar file. Used to read: "Simply rename the file back so that is has a ..." ^^ Changed to: "Simply rename the file back so that it has a ..." ^^

Paragraph 4, before 2nd code snippet. Last sentence used to read: "... on its own separate line, after the last option/value pair:" Changed to: "... on its own separate line, after the last option/value pair, which retains the comma for formatting ease:"

"... without having to mess with parentheses and semicolons." Was changed to: "... without having to mess with parentheses, semicolons or commas."

was spaced widely. Tightened text.

Under -highlightbackground option (2nd on page), the text used to read: Sets the color of a nonfocus rectangle. Changed to: Sets the color of the area behind the focus rectangle (shows when widget does not have focus).

5th paragraph, last sentence used to read: "... it makes sense to put it in a separate subroutine." changed to: "... it makes sense to put it in a named subroutine."

Under -selectimage option, the text used to read: "Indicates whether image is displayed instead of text ... " Changed to: "Indicates the image to display intead of text..."

Under the -justify option used to read: Sets the side of the label against which the text will justify. It now reads: Sets the side of the label against which multi-line text will justify.

Last non-code sentence on the page used to read: To create a scrollbar and associate it with the entry widgets, do this: changed to: To create a scrollbar and associate it with an entry widget, do this: ^^^^^^^^^^^^^^^^

Last code snippet on the page used to read: $entry->index(index); Changed to: $numindex = $entry->index(index);

The code snippet once read: $lb = $parent->Listbox( options ...)->pack; Changed to: $lb = $parent->Listbox( [ options ...] )->pack; ^^^^^^^^^^^^^^ marked with ^^ is italics.

Last sentence on page used to read: "... returns a list on indexes, not elements." Changed on to of: "... returns a list of indexes, not elements." ^^

Changes the width of the insert cursor. to Changes the width of the insert cursor's borders.

(or not tab stops) to (or use the default tab stops, which is ever 8 chars)

chars" to "end - 1 lines".

Each list within the list contains two elements: the option name and the value. to: Each list within the list contains five elements: two of which are the option name and value. Change code snippet to read: @list = $text->tagConfigure("blue", -font);

If both tags try to alter the same option (such as -font), the last setting for that option wins. to If both tags try to alter the same option (such as -font), the last setting for that option wins, unless the tag's priority was changed using tagRaise or tagLower. *** put tagRaise and tagLower in courier font.

When there are several tags applied to the same text, the last tag added to the text overrides the previous ones, and its.... to When there are several tags applied to the same text, the configuration options of the last tag added are given priority.

Baseline position of the line, measured from x to Baseline position, measured from the X coord returned as first element

If the gravity is 'left', the text will be inserted to the left of the mark and the mark will refer to the left of the last character inserted. to: If the gravity is 'left', the text will be inserted to the right, and the mark stays on the left of the last character inserted. When using 'left', the text seems to be inserted backwards.

(as long as the mouse button is pressed). to (as long as the mouse button is not pressed).

# This will draw _ of an oval should be # This will draw 3/4 of an oval

Under -extent option, last sentence used to read: "... is the specified of degrees ..." Changed to: "... is the specified number of degress ..." ^^^^^^

The other captions available for createBitmap are: to The options available for createBitmap are:

If the end index isn't specified, all the characters to the end of the string will be deleted (including any " " characters). to If the end index isn't specified, only the character at $first is deleted, leaving the rest of the string intact. **Make sure to put $first into courier font.

This allows you to delete a subset of the tabs, to This allows you to delete a subset of the tags,

There are two more possible arguments for this form of addtag. You can specify a number that indicates how far out from the x,y coordinates items are to be considered. For instance, if you want an item that is within 10 pixels to be considered "closest", make the call as follows: to If more than one item overlaps the specified point then the last item added in the stack will be returned. To add to the area considered a part of the overlap, you specify an additional number that will essentially enlarge the overlap area. To add 10 pixels to the overlap area:

part of paragraph from: x1 < x2 and y1 < y2 to x1 <= x2 and y1 <= y2

Second paragraph, second sentence used to read: Items added to the canvas after the "all" tag is called will not... Changed to: Items added to the canvas after the call to addtag will not... ^^^^^^^^^^^^^^^^^^^ Make 'addtag' courier font.

of Tk:: bind in code examples only. Do not change the text.

Default is the left edge of the window. to Default is the top edge of the window.

... causing the value to change by 1/10 the top value of the scale. to: ... causing the value to change by 1/10 the total range of the scale.

If you happen to switch them, the scale will still display with the higher value on the right and the lower value on the left. to If you happen to switch them, the scale will simply display the -from value on the left and the -to value on the right. ***Make sure and put -from and -to in courier font.

The information displayed in $variable should be... to The information contained in $variable should be...

Torn-off menus won't be be updated when other events in the program are updated, so it is a good idea to limit your use of tear-off menus.

-variable => $variable to -variable => $variable **Make sure to keep courier font

We can use the menubutton widget's menu() method to return the actual menu item and then create the new menu as a child of the menu item. to: We can use the menubutton widget's menu() method to return the actual menu widget and then create the new menu as a child of that menu widget.

-relief => 'flat' | .... | 'sunken' to -relief => 'flat' | .... | 'sunken' | 'solid'

-relief => 'flat' | .... | 'sunken' to -relief => 'flat' | .... | 'sunken' | 'solid'

Changing the -borderwidth... to Increasing the -borderwidth...

To add items, use the -options command instead of... to: To add items, use the -options option instead of...

In the first code example, the last two lines read: -textvariable => $displayed, -variable => $number Change to -textvariable => $displayed, -variable => $number

The default arguments to the callback are the variables assigned with -textvariable and then -variable (if it exists). to: The default arguments to the callback is the stored value for the menu, regardless of -textvariable and -variable option values.

Default is undef. to Default is undef, which means to use the parent's colormap.

from: The number indicates the depth of color used (2 = black/white) to The number indicates the number of colors used (2 = black/white)

"Setting the Client Machine Name" and the contents of that section should be replaced with this: You can set the property stored in WM_CLIENT_MACHINE by calling the client method with an argument: $toplevel->client("name"); To find out the current name sent: $name = $toplevel->client; If you send an empty string to client, then you'll erase any value previously stored in WM_CLIENT_MACHINE.

sentence from: The changes present in your application depend completely... to The way focus changes in your application depends completely... ^^^^^^^^^^ ^^^

, the user manually placed the window when it was created. to: , the user requested the position of the window.

(such as a pull-down menu) to: (such as a torn-off menu or a dialog)

If we didn't, we would get a list of.... to: If we didn't specify a callback, we would get a list of....

, if you want to trigger an event when the user clicks on mouse button 1 and then mouse button 3, you can use... to , if you want to trigger an event when the user clicks on mouse button 3 while holding down mouse button 1, you can use... Also change: .. would not be triggered if you clicked mouse button 3 and then mouse button 1. to .. would not be triggered if you clicked mouse button 1 while holding down mouse buttom 3.

Double puts a constraint on the minimum amount of time... to Double puts a constraint on the maximum amount of time...

ConfigDefaults to ConfigSpecs **Make sure to leave the font as courier.

"It only returns the current value of the option..." Changed to: "It only returns the current value (or address if the option stores a reference) of the option..."

# return reference : print $option_menu->cget(-textvariable), " "; # return actual value : print ${$option_menu->cget(-textvariable)}, " "; # or... $ref = $option_menu->cget(-textvariable); print $$ref, " "; (Colophon) Paragraph 3 used to read: Newly hatched emus weigh about 15 pounds (440 g). That's a big baby emu. It now reads: Newly hatched emus weigh about 15 ounces (440 g).

The curly braces are not required. to: The curly braces are not required unless there is a space in the font name.

Add the entry sticky, 37-38.

reprints. Please consult the online index at http://www.ora.com/catalog/9781565923140/inx.html for entries width (continued) entry through yview method scrollbar