--- deliantra/Deliantra-Client/DC/UI.pm	2007/08/01 14:27:21	1.421
+++ deliantra/Deliantra-Client/DC/UI.pm	2007/08/02 14:35:21	1.422
@@ -1925,6 +1925,12 @@
    $self->SUPER::realloc;
 }
 
+sub clear {
+   my ($self) = @_;
+
+   $self->set_text ("");
+}
+
 sub set_text {
    my ($self, $text) = @_;