sub expire {
my ($self) = @_[OBJECT];
+ for my $block ($self->{'blocks'}->members()) {
+ if ($block->{'expire'} <= time()) {
+ my $old_effect = Clutter::EffectTemplate->new_for_duration(1000, 'main::smoothstep_inc' );
+ my $old = Clutter::Effect->fade($old_effect, $block->{'block'}, 0, $self->can('post_fade_out'), $self);
+ $old->start();
+ }
+ }
+}
+
+sub post_fade_out {
+ my ($old_timeline, $self) = @_;
+
for my $block ($self->{'blocks'}->members()) {
if ($block->{'expire'} <= time()) {
$self->{'stage'}->remove($block->{'block'});