Select Code to Download

#!/usr/bin/perl -w
                                                                      
+                           
...
  $raisetime = " Last raised at " . localtime;
  $book->pageconfigure( "Sheet 3", -state=>'normal' );
}

bad option "expand": must be -after, -anchor, -before, -expand, -fill,
+ -in, -ipadx, -ipady, -padx, -pady, or -side at /usr/lib/perl5/site_p
+erl/5.8.0/i386-linux-thread-multi/Tk/Widget.pm line 1144.
 at NoteBook.pl line 18

   # Two things going on here:
   # 1. Add configure on the front so that we can drop leading '-'
   $w->Tk::pack('configure',@_);
   # 2. Return the widget rather than nothing
   return $w;