use vars
qw($VERSION @EXPORT_OK);
$VERSION = '3.036'; # $Id: //depot/Tk8/Event/Event/IO.pm#12 $ +24
@EXPORT_OK = qw(READABLE WRITABLE);
my $func = (caller(1))[3];
print "$func(",join(',',@_),")\n";
return syswrite($obj->handle,$_[1],$_[2]);
return sysread($h,$_[1],$_[2],defined $_[3] ?
$_[3] : 0);
my $imode = ${{'readable' => READABLE
(),
'writable' => WRITABLE
()}}{$mode};
croak
("Invalid handler type '$mode'") unless (defined $imode);
my ($widget,$file,$mode,$cb) = @_;
my $imode = imode
($mode);
$file = Symbol
::qualify
($file,(caller)[0]);
$obj = tie
*$file,'Tk::Event::IO', $file unless $obj && $obj->isa('Tk::Event::IO');
return $obj->handler($imode);
my $h = $obj->handler($imode,$cb);