--- Curses-UI-0.95/lib/Curses/UI/Container.pm.pix	2006-10-17 11:01:15.000000000 +0200
+++ Curses-UI-0.95/lib/Curses/UI/Container.pm	2006-10-17 11:41:47.000000000 +0200
@@ -131,6 +131,17 @@
     return $object;
 }
 
+sub delete_object 
+{
+    my $this = shift;
+    my $object = shift;
+
+    my $id = $this->{'-object2id'}{$object} or return $this;
+    $this->delete($id);
+
+    return $this;
+}
+
 # Delete the contained object with id=$id from the Container.
 sub delete(;$)
 {
@@ -648,6 +659,10 @@
         -y    => 5,
     );
 
+=item * B<delete_object> ( WIDGET )
+
+This method deletes the contained widget from the container.
+
 =item * B<delete> ( ID )
 
 This method deletes the contained widget with the given ID