--- deliantra/Deliantra-Client/DC/UI.pm	2006/04/15 13:56:25	1.114
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/04/15 19:35:20	1.115
@@ -709,6 +709,14 @@
    $self->update;
 }
 
+# TODO: move to container class maybe? send childs a signal on removal?
+sub clear {
+   my ($self) = @_;
+
+   delete $self->{children};
+   $self->update;
+}
+
 sub get_wh {
    my ($self) = @_;