sub getlineUnix {
  my $message;

  eval {  
    local $SIG{ALRM} = sub { 
      $old = $readline::line; 
      die     
    };
    
    alarm($config{timeout}) unless $^O =~ /win32/i;
    $message = $term->readline("Talk: ", $old);
    $old = $readline::line = '';
    alarm(0) unless $^O =~ /win32/i;
  };      

  $message;
}


##</code><code>##


sub get_line {
  my $self = shift;
  $self->Tk_loop if $Term::ReadLine::toloop && defined &Tk::DoOneEvent;
  my $in = $self->IN;
  local ($/) = "\n"; 
  return scalar <$in>;
}