sub update_status
{
	my ($self) = @_;

	print "in update\n";

	if($self->{bottom}->get('0.0', 'end') =~ /^\s*$/ && $self->{typing_status})
	{
		hook("protocol_set_typing_status", -user => $self->{buddy}, -status => 0);
		$self->{typing_status} = 0;
		return;
	}

	if((time - $self->{last_typed}) >= 5 && $self->{typing_status} == 2)
	{
		hook("protocol_set_typing_status", -user => $self->{buddy}, -status => 1);
		$self->{typing_status} = 1;
	}
}