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
|
package My::FooInterval;
use Clutter;
use Glib::Object::Subclass
'Clutter::Interval',
properties => [
Glib::ParamSpec->float(
'threshold',
'Threshold',
'Threshold for the switch',
0.1, 0.9, 0.5,
[ qw( readable writable ) ],
),
];
sub SET_PROPERTY {
my ($self, $pspec, $value) = @_;
$self->{$pspec->get_name()} = $value;
}
sub GET_PROPERTY {
my ($self, $pspec) = @_;
return $self->{$pspec->get_name()};
}
sub INIT_INSTANCE {
my ($self) = @_;
$self->{threshold} = 0.5;
}
sub COMPUTE_VALUE {
my ($self, $factor) = @_;
my ($initial, $final) = $self->get_interval();
return $final if $factor > $self->{threshold};
return $initial;
}
sub set_threshold {
my ($self, $factor) = @_;
$self->{threshold} = $factor;
$self->notify('threshold');
}
sub get_threshold {
my ($self) = @_;
return $self->{threshold}
}
package main;
use Clutter::TestHelper tests => 14;
my $interval = Clutter::Interval->new('Glib::Int');
isa_ok($interval, 'Clutter::Interval', 'is an interval');
$interval->set_initial_value(0);
is($interval->get_initial_value(), 0, 'initial value/1');
$interval->set_final_value(42);
is($interval->get_final_value(), 42, 'final value/1');
$interval->set_interval(42, 47);
is($interval->get_initial_value(), 42, 'initial value/2');
is($interval->get_final_value(), 47, 'final value/2');
my @values = $interval->get_interval();
is_deeply(\@values, [ 42, 47 ], 'interval');
SKIP: {
skip 'no support for GParamSpecGType in perl-Glib', 8;
$interval = My::FooInterval->new(value_type => 'Glib::Boolean');
isa_ok($interval, 'My::FooInterval', 'is a foo interval');
isa_ok($interval, 'Clutter::Interval', 'is a clutter interval');
$interval->set_interval(FALSE, TRUE);
is($interval->compute_value(0.3), FALSE, 'compute value/1');
is($interval->compute_value(0.7), TRUE, 'compute value/2');
is($interval->compute_value(0.9), TRUE, 'compute value/3');
$interval->set_threshold(0.8);
is($interval->compute_value(0.3), FALSE, 'compute value after set threshold/1');
is($interval->compute_value(0.7), FALSE, 'compute value after set threshold/2');
is($interval->compute_value(0.9), TRUE, 'compute value after set threshold/3');
}
|
