Help for this page

Select Code to Download


  1. or download this
    Tk::Error: Undefined subroutine &Entry_Display_In_Wins::next_rand_or_r
    +ecorded_file called at shown.pl line 1403.
     <Key>
    ...
        eval {...} called at /usr/lib/perl5/vendor_perl/5.8/cygwin/Tk.pm l
    +ine 406
        Tk::MainLoop called at shown.pl line 1720
        main::main() called at shown.pl line 1727
    
  2. or download this
       package File_Rating_DB;                 #pckg ONE
          sub write_db(){}...
    ...
       package Timed_Display_In_Wins;          #pckg FOUR
        our @ISA = qw(Entry_Display_In_Wins);
          sub _handle_timer(){}
    
  3. or download this
    $main_win->bind('<Any-KeyPress>'=>[\&handle_key, $s,Ev('A'), Ev('K')])
    +;