Select Code to Download

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

   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(){}

$main_win->bind('<Any-KeyPress>'=>[\&handle_key, $s,Ev('A'), Ev('K')])
+;