Help for this page

Select Code to Download

Select or download this

# TkClient.pl
# A modification of the fileevent work around on Win32, from  the book
+: "Mastering Perl/Tk",
...
      $mw->update;   # LET Tk DO UPDATES   
     } until $kid == -1; 
}

Select or download this

# IO_server.pl
# see also:
...
    print $data;  # tee
    syswrite $new_sock, $data;
}