From: Emmanuel Rodriguez <emmanuel.rodriguez@gmail.com>
Date: Tue, 4 Aug 2009 15:24:59 +0000 (+0200)
Subject: Simplify the status label
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=18553cf4bbe25fbe469d6d7727ac95fc1fbd0739;p=libchamplain

Simplify the status label
---

diff --git a/bindings/perl/Champlain/examples/flickr.pl b/bindings/perl/Champlain/examples/flickr.pl
index 9c8182c..e72d07c 100755
--- a/bindings/perl/Champlain/examples/flickr.pl
+++ b/bindings/perl/Champlain/examples/flickr.pl
@@ -274,22 +274,10 @@ sub flickr_download_photo_callback {
 # Creates a label that shows what's going on.
 #
 sub make_label {
-	my $PADDING = 5;
-	my $button = Clutter::Group->new();
-
-	my $white = Clutter::Color->new(0xff, 0xff, 0xff, 0xff);
-	my $button_bg = Clutter::Rectangle->new($white);
-	$button->add($button_bg);
-	$button_bg->set_opacity(0xcc);
 
 	my $black = Clutter::Color->new(0x00, 0x00, 0x00, 0xff);
-	my $button_text = Clutter::Label->new("Sans 10", '', $black);
-	$button->add($button_text);
-	my ($width, $height) = $button_text->get_size();
-
-	$button_bg->set_size($width + $PADDING * 2, $height + $PADDING * 2);
-	$button_bg->set_position(0, 0);
-	$button_text->set_position($PADDING, $PADDING);
+	my $button_text = Clutter::Label->new("Sans 16", '', $black);
+	$button_text->set_position(10, 10);
 
 	return $button_text;
 }