Errata

this order: right, left, top, bottom" instead of "left, right..."

-anchor -> 'n'

should be

-anchor => 'n'

"$widget1" instead of "$done1".

To get this code snippet to work correctly, $mw can't be defined as "my
$mw", just as "$mw":

$mw = MainWindow->new;

This should either be noted on pg 33 or defined that way in the earlier
versions on pages 17 & 18.

If you haven't seen this before, possibly I am using a version of Tk/perl
which checks for errors which the version used to write the book missed.

[ccurley@charlesc tkperl]$ rpm -qa | grep -i perl
perl-5.6.0-12
groff-perl-1.16.1-7
perl-SGMLSpm-1.03ii-4
postgresql-perl-7.0.3-8

[root@charlesc /root]# find .cpan/ -iname tk* | grep -i gz
.cpan/sources/authors/id/N/NI/NI-S/Tk800.023.tar.gz

The error message I see is:
[ccurley@charlesc tkperl]$ ./enlarge.pl
Tk::Error: Can't call method "packSlaves" on an undefined value at
./enlarge.pl line 8.
[&main::repack_kids]
Tk callback for .button1
Tk::__ANON__ at /usr/lib/perl5/site_perl/5.6.0/i386-linux/Tk.pm line 228
Tk::Button::butUp at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Tk/Button.pm line 111
(command bound to event)

There is an incorrect use of the configure method. The line should read:

-command=>sub {my $state = $exit_b->cget(-state);

When using this program under Windoze the correct directory is

C:PerlsitelibTkX11cursorfont.h

"the right button is the one that has the focus"

should be

"the left button..."

Replace "window" with "widget".

"$variable" (in description line) should read "$value" (see synopsis line
above and the following section).

out because "$variable" is not explained.

"configure" is a method, not a command (in "configure command").

The value used is 10, not 5.

The "solid" relief type is not in the list "flat, raised, groove..."

"-relief": "solid" is not in the list

=-=-=-=-=-
$texte = $mw->Text()->pack();
$texte->tagConfigure('gras', -font =>
"-*-Courier-Bold-B-Normal--*-120-*-*-*-*-*-*");
# Utilisez -font => "{Courier New} 24 {bold}" pour les syst?mes Win32
$texte->insert('end', "Voici du texte normal
");
$texte->insert('end', "Voici du texte en gras
", 'gras');
-=-=-=-=-=

=-=-=-=-=-
@liste_de_listes = $texte->tagConfigure("bleu");
foreach $opt (@liste_de_listes) { print "@$opt
"; } # l'affiche
-=-=-=-=-=

missing ";" at the end

missing ">" in "values for op are":

"returns a 1 because ...": use "less" instead of "less than".

Use "dlineinfo" instead of "lineinfo".

"values" should read "value".

The fist line of the Third code block should read:
$c = $mw->Scrolled("Canvas")->pack();
(That's a capital C on Canvas)

The Footnote should read CanvasBind (Captials on both the C and the B - not
just the B as it is printed) in both occurrences in the footnote.

(This is from my experiences using Tk8.0 and trying the example code)

"Button!" should be "Button!
".

The example for $canvas->bbox reads

($l, $r, $t, $b) = $canvas->bbox("blue", "red");

Even though there was no mentioning what $l, $r, $t, and $b are, I assumed
they meant left, right, top and bottom, respectively. With this assumption,
the correct order returned by $canvas->bbox is

($l, $t, $r, $b) = $canvas->bbox("blue", "red");

"1/10 the top value of the scale" or "1/10 the total range"?

The description of "-menu" is not adequate.

we used:
=-=-=-=-=-
Indique au bouton de menu qu'il doit afficher le menu associe' a`
$menu, et donc ne'gliger l'option -menuitems.
-=-=-=-=-=
approx meaning:
=-=-=-=-=-
The menubutton will display the menu contained by $menu (neglecting
-menuitems)
-=-=-=-=-=

-takefocus must be <> 0.

Correct syntax:
$Menub->AddItems(["command"=>"Item1",-command=>[&DoItem,"Param1"]]);

The comma must be inside the braces.

The option in this code sample should also be called with a reference.

Thus:

-textvariable => $number

should read

-textvariable => $number

"indentifier;" should be "indentifier:".

Toplevel widgets display automatically. Therefore the explanation why
MainWindow is special is not correct.

Special is instead:
- closing of (the last) MainWindow finishs/stops (?) event processing of Tk
- MainWindow does not have a ParentWidget

$toplevel->maxsize(300, 300);

Suggestion: using different values for the parameters same for minsize (below)

The Fr translator thinks that the description is somewhat insufficient (the
official documentation is more precise).

(262/263) Order of deiconify, iconify and withdraw should be changed so that
deiconify is explained *after* iconify and withdraw (move the section to right
before the "Specifying the Icon Bitmap" header).

"from the last chapter" is chapter 11, in fact.

("<Button-3>")

The parentheses seem useless.

"sequence" should read "callback".

"subwidget" should read "Subwidget" (same on page 286).

"color" may in fact be "SlateGrey".

The "{" of the "if" form is missing.

"idletasks" in Learning Perl/TK. These methods allow you to update widgets
"asynchronously". This is very important if you need change a mouse cursor,
accept user input, or refresh displays before a long-running subroutine
returns.

Very vague reference is made to "update" on this page. It is useless. No
mention is made of "idletasks".

"()" missing after "visualsavailable"

"methods" (inside Getopts) should be "functions".

=-=-=-=-=-
use Tk;
use Tk::Pretty;

$mw = MainWindow->new();
$widget = $mw->Button;
@config = $widget->configure();
print Pretty @config;
-=-=-=-=-=

"Tk::Font" should be "Tk::Fonts".

(Chapter 6) In the scroll_listboxes subroutine, it should read:

$list->yview(moveto=>$top); # Adjusts each listbox

INDEX:
MainLoop is not a method (but a function). Same with CmdLine.

?Reader suggestion? I would like to suggest that in a future edition, Ms.
Walsh include coverage of the Tix widgets. At the very least, coverage of the
more popular composite widgets like FileSelect would be welcome. The
documentation that comes with these widgets tends to be spotty.