[perl-Clutter] examples: Start porting examples from upstream

[Emmanuele Bassi <ebassi src gnome org>]

commit 9c81e16965ccd982a0cada598755a3bb1431e800
Author: Emmanuele Bassi <ebassi linux intel com>
Date:   Thu May 3 16:47:42 2012 +0100

    examples: Start porting examples from upstream
    
    The basic-actor example shows how to use the actor tree, event handling,
    and implicit animations throug easing states.

 examples/basic-actor.pl |  110 +++++++++++++++++++++++++++++++++++++++++++++++
 1 files changed, 110 insertions(+), 0 deletions(-)
---
diff --git a/examples/basic-actor.pl b/examples/basic-actor.pl
new file mode 100644
index 0000000..df6a773
--- /dev/null
+++ b/examples/basic-actor.pl
@@ -0,0 +1,110 @@
+use Glib qw/ TRUE FALSE /;
+use Clutter;
+
+Clutter::init;
+
+my $stage = Clutter::Stage->new();
+$stage->signal_connect('destroy' => sub { Clutter::main_quit });
+$stage->set_title('Three flowers in a vase');
+$stage->set_user_resizable(TRUE);
+
+my $vase = Clutter::Actor->new();
+$vase->set_layout_manager(Clutter::BoxLayout->new());
+$vase->set_background_color(Clutter::color_get_static('sky-blue-light'));
+$vase->add_constraint(Clutter::AlignConstraint->new($stage, 'both', 0.5));
+$stage->add_child($vase);
+
+my %flowers = ();
+
+$flowers{'red'} = Clutter::Actor->new();
+$flowers{'red'}->set_name('flowers.1');
+$flowers{'red'}->set_size(128, 128);
+$flowers{'red'}->set_margin_left(12);
+$flowers{'red'}->set_background_color(Clutter::color_get_static('red'));
+$flowers{'red'}->set_reactive(TRUE);
+$flowers{'red'}->signal_connect(button_press_event => sub {
+    $flowers{'red'}->save_easing_state();
+    $flowers{'red'}->set_easing_duration(500);
+    $flowers{'red'}->set_easing_mode('linear');
+
+    if ($flowers{'red'}->{'toggled'}) {
+        $flowers{'red'}->set_background_color(Clutter::color_get_static('red'));
+        $flowers{'red'}->{'toggled'} = FALSE;
+    } else {
+        $flowers{'red'}->set_background_color(Clutter::color_get_static('blue'));
+        $flowers{'red'}->{'toggled'} = TRUE;
+    }
+
+    $flowers{'red'}->restore_easing_state();
+
+    return TRUE;
+});
+$vase->add_child($flowers{'red'});
+
+$flowers{'yellow'} = Clutter::Actor->new();
+$flowers{'yellow'}->set_name('flowers.3');
+$flowers{'yellow'}->set_size(128, 128);
+$flowers{'yellow'}->set_margin_left(6);
+$flowers{'yellow'}->set_margin_top(12);
+$flowers{'yellow'}->set_margin_bottom(12);
+$flowers{'yellow'}->set_margin_right(6);
+$flowers{'yellow'}->set_background_color(Clutter::color_get_static('yellow'));
+$flowers{'yellow'}->set_reactive(TRUE);
+$flowers{'yellow'}->signal_connect(enter_event => sub {
+    my ($self, $event) = @_;
+
+    $self->save_easing_state();
+    $self->set_easing_duration(500);
+    $self->set_easing_mode('ease-out-bounce');
+
+    $self->set_depth(-250);
+
+    $self->restore_easing_state();
+
+    return TRUE;
+});
+$flowers{'yellow'}->signal_connect(leave_event => sub {
+    my ($self, $event) = @_;
+
+    $self->save_easing_state();
+    $self->set_easing_duration(500);
+    $self->set_easing_mode('ease-out-bounce');
+
+    $self->set_depth(0);
+
+    $self->restore_easing_state();
+
+    return TRUE;
+});
+$vase->add_child($flowers{'yellow'});
+
+$flowers{'green'} = Clutter::Actor->new();
+$flowers{'green'}->set_name('flowers.2');
+$flowers{'green'}->set_size(128, 128);
+$flowers{'green'}->set_margin_right(12);
+$flowers{'green'}->set_background_color(Clutter::color_get_static('green'));
+$flowers{'green'}->set_reactive(TRUE);
+$flowers{'green'}->signal_connect(button_press_event => sub {
+    my ($self, $event) = @_;
+
+    $self->save_easing_state();
+    $self->set_easing_duration(1000);
+    $self->set_rotation('y-axis', 360.0, $self->get_width() / 2, 0, 0);
+
+    $self->get_transition('rotation-angle-y')->signal_connect(completed => sub {
+        $self->save_easing_state();
+        $self->set_rotation('y-axis', 0.0, $self->get_width() / 2, 0, 0);
+        $self->restore_easing_state();
+    });
+
+    $self->restore_easing_state();
+
+    return TRUE;
+});
+$vase->add_child($flowers{'green'});
+
+$stage->show;
+
+Clutter::main;
+
+0;