Help for this page

Select Code to Download


  1. or download this
    use strict;
use Tk;
...
  $$n{_pages_}{$page}->Button(-text=>'Hi')->pack();
}
  2. or download this
    Tk::Error: Not a HASH reference at try.pl line 30.
 main::AddPageContents at try.pl line 30
...
 Tk callback for .button
 Tk::__ANON__ at /usr/local/ActivePerl-5.6/lib/site_perl/5.6.1/sun4-so
+laris-thread-multi/Tk.pm line 217
 Tk::Button::butUp at /usr/local/ActivePerl-5.6/lib/site_perl/5.6.1/su
+n4-solaris-thread-multi/Tk/Button.pm line 111