1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
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;
|
