The Notifications object now handles displaying multiple notifications.
[picture-display.git] / lib / Display / Plugins / NotifyTest.pm
1 package Display::Plugins::NotifyTest;
2
3 # Regularly generic notifications for testing code.
4
5 use Clutter;
6 use POE::Session;
7 use base ('Display::Plugins');
8 use strict;
9
10 my $delay = 5;
11
12 sub new {
13   my $proto = shift;
14   my $class = ref($proto) || $proto;
15
16   my $self = $class->SUPER::new(@_);
17
18   $self->{'count'} = 0;
19
20   bless ($self, $class);
21   $self->{'kernel'}->state('notifytest_display', $self, 'display');
22   $self->init_delay($delay, 'notifytest_display');
23   $self->{'kernel'}->yield('notifytest_display');
24   return $self;
25 }
26
27 sub display {
28   my ($self, $kernel) = @_[OBJECT, KERNEL];
29
30   my $text = Clutter::Label->new('Sans 20', "Notify " . ++$self->{'count'});
31   $text->set_color(Clutter::Color->parse('Blue'));
32   $text->set_ellipsize('end');
33
34   $kernel->post('display', 'notifications_add', $text);
35
36   $self->delay();
37 }
38
39 1;