On Tuesday, May 13, 2003, at 08:38 US/Eastern, Steve Lidie wrote:

>  -- forwarded message --
>  Path: Lehigh.EDU!ptk
>  From: "Tim Harsch" <harsch1@[...].gov>
>  Newsgroups: comp.lang.perl.tk
>  Subject: example from Mastering Perl/Tk
>  Date: 8 May 2003 14:26:21 -0400
>  Lines: 47
>  Sender: news@[...].EDU
>  Approved: @netnews.CC.Lehigh.EDU
>  Message-ID: <b9e7gd$bhc@[...].EDU>
>  NNTP-Posting-Host: fidoii.cc.lehigh.edu
> 
>  Hi all,
> 
>  I typed in this example, as far as I can tell, exactly as it appears 
>  in the
>  CH11, p.233 of the book.
> 
>  use Tk;
> 
>  $mw = MainWindow->new();
>  $mw->title("MainWindow");
>  $mw->Button( -text => "TopLevel", -command => \&do_TopLevel )->pack();
> 
>  MainLoop;
>  sub do_TopLevel {
>      if( ! Exists($tl) ) {
>          $tl = $mw->TopLevel();


The widget method is Toplevel(), not TopLevel().

Not to be confused with the toplevel() method that returns a widget's 
parent Toplevel widget.

-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server.  If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to majordomo@lists.stanford.edu