From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Tue, 23 Sep 2008 09:44:38 +0000 (+1200)
Subject: Remove all children from the notification groups when we remove them.
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=926e0acc3228c896b20f6371bed26e8f3bcaf23a;p=picture-display.git

Remove all children from the notification groups when we remove them.
---

diff --git a/lib/Display/Notifications.pm b/lib/Display/Notifications.pm
index c75819b..967dac9 100644
--- a/lib/Display/Notifications.pm
+++ b/lib/Display/Notifications.pm
@@ -80,6 +80,8 @@ sub post_fade_out {
     if ($block->{'expire'} <= time()) {
       $self->{'stage'}->remove($block->{'block'});
       $self->{'blocks'}->remove($block);
+
+      $block->{'block'}->remove_all()
     }
   }
 }