our $fe;
sub register_Tk
{
    my $self = shift;
    ::LOG("Registering");
    $fe ||= AE::io($self->IN, 0, sub { $cv->send() });
}