From 9b216dc0262020ac49b56509f670cf543753e03c Mon Sep 17 00:00:00 2001 From: Emmanuel Rodriguez Date: Tue, 15 Sep 2009 22:01:24 +0200 Subject: [PATCH] Port to Clutter 1.0 --- bindings/perl/Champlain/examples/animated-marker.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/bindings/perl/Champlain/examples/animated-marker.pl b/bindings/perl/Champlain/examples/animated-marker.pl index fe7a985..f6c5cf3 100755 --- a/bindings/perl/Champlain/examples/animated-marker.pl +++ b/bindings/perl/Champlain/examples/animated-marker.pl @@ -79,10 +79,10 @@ sub create_animation { my ($texture) = @_; # Timeline controlling the animation - my $timeline = Clutter::Timeline->new_for_duration(1000); + my $timeline = Clutter::Timeline->new(1000); $self->set(timeline => $timeline); $timeline->set_loop(TRUE); - my $alpha = Clutter::Alpha->new($timeline, \&Clutter::Alpha::sine_inc); + my $alpha = Clutter::Alpha->new($timeline, 'ease-in-sine'); # Circle's echo growing my $behaviour_zoom = Clutter::Behaviour::Scale->new($alpha, 0.5, 0.5, 2.0, 2.0); @@ -98,7 +98,7 @@ sub create_animation { sub create_static_circle { - my $texture = Clutter::Texture::Cairo->new($MARKER_SIZE, $MARKER_SIZE); + my $texture = Clutter::CairoTexture->new($MARKER_SIZE, $MARKER_SIZE); my $cr = $texture->create_context(); # Draw the circle @@ -118,7 +118,7 @@ sub create_static_circle { sub create_echo_circle { - my $texture = Clutter::Texture::Cairo->new($MARKER_SIZE * 2, $MARKER_SIZE * 2); + my $texture = Clutter::CairoTexture->new($MARKER_SIZE * 2, $MARKER_SIZE * 2); my $cr = $texture->create_context(); # Draw the circle -- 2.39.5