--- deliantra/Deliantra-Client/DC/UI.pm	2006/12/23 10:18:27	1.364
+++ deliantra/Deliantra-Client/DC/UI.pm	2007/04/12 07:53:31	1.365
@@ -2832,6 +2832,7 @@
                  
       layout     => (new CFPlus::Layout),
       par        => [],
+      max_par    => 0,
       height     => 0,
       children   => [
          (new CFPlus::UI::Empty expand => 1),
@@ -2966,6 +2967,10 @@
       push @{$self->{par}}, $para;
    }
 
+   if (my $max = $self->{max_par}) {
+      shift @{$self->{par}} while @{$self->{par}} > $max;
+   }
+
    $self->{need_reflow}++;
    $self->update;
 }