Select Code to Download

    $self->{bottom} = $self->{frame}->Scrolled("BrowseEdit",
        -height => 6, -font => "times 12", -scrollbars => 'oe', -wrap 
+=> 'word',
...
    $self->OnDestroy([$self, "on_destroy"]);
    $self->{bottom}->focus;
    $self->{rep_id} = $self->repeat(1000, [$self, "update_status"]);

sub on_key
{
...
    }
    $self->{last_typed} = time;
}

sub update_status
{
...
        $self->{typing_status} = 1;
    }
}