--- deliantra/Deliantra-Client/DC/UI.pm	2006/05/23 21:14:41	1.225
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/05/23 23:14:46	1.226
@@ -2314,11 +2314,18 @@
    $self->update;
 }
 
+sub clear {
+   my ($self) = @_;
+
+   $self->{par} = [];
+   $self->{height} = 0;
+
+   $self->reflow;
+}
+
 sub add_paragraph {
    my ($self, $color, $text, $indent) = @_;
 
-   #TODO: intelligently "reformat" paragraph
-
    for my $line (split /\n/, $text) {
       my $height = $self->text_height ($line);
       $self->{height} += $height;