Searched defs:Tk (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Term/
H A DReadLine.pm115 makes Tk event loop run when waiting for user input (i.e., during
181 our @ISA = qw'Term::ReadLine::Tk Term::ReadLine::TermCap';
197 and defined &Tk::DoOneEvent;
359 package Term::ReadLine::Tk;
368 # Tk->tkwait('variable',\$giveup); # needs Widget
369 $count_DoOne++, Tk::DoOneEvent(0) until $giveup;
377 or Tk->fileevent($self->IN,'readable',\&handle);
387 $self->Tk_loop if $Term::ReadLine::toloop && defined &Tk::DoOneEvent;
393 $self->Tk_loop if $Term::ReadLine::toloop && defined &Tk::DoOneEvent;

Completed in 35 milliseconds