The example examples/hello.pl is no ported to Clutter 1.0. The attached
patch fixes this issue.
| Subject: | 0001-Port-to-Clutter-1.0.patch |
From 81529c4f882a9a2f515520ced4474c66ae51654b Mon Sep 17 00:00:00 2001
From: Emmanuel Rodriguez <emmanuel.rodriguez@gmail.com>
Date: Tue, 1 Sep 2009 21:18:28 +0200
Subject: [PATCH] Port to Clutter 1.0
---
examples/hello.pl | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/examples/hello.pl b/examples/hello.pl
index a866a97..3014ff0 100644
--- a/examples/hello.pl
+++ b/examples/hello.pl
@@ -14,7 +14,7 @@ use Clutter qw( :init );
use Clutter::Keysyms;
my $stage = Clutter::Stage->get_default();
-$stage->set_color(Clutter::Color->parse('DarkSlateGray'));
+$stage->set_color(Clutter::Color->from_string('DarkSlateGray'));
$stage->signal_connect('button-press-event' => sub { Clutter->main_quit() });
$stage->signal_connect('key-press-event' => sub {
my ($stage, $event) = @_;
@@ -24,7 +24,7 @@ $stage->signal_connect('key-press-event' => sub {
});
$stage->set_size(800, 600);
-my $label = Clutter::Label->new("Sans 30", "Hello, Clutter!");
+my $label = Clutter::Text->new("Sans 30", "Hello, Clutter!");
$label->set_color(Clutter::Color->new(0xff, 0xcc, 0xcc, 0xdd));
$label->set_position(($stage->get_width() - $label->get_width()) / 2,
($stage->get_height() - $label->get_height()) / 2);
--
1.6.0.4