Simplify the status label

diff --git a/bindings/perl/Champlain/examples/flickr.pl b/bindings/perl/Champlain/examples/flickr.pl
index 9c8182c040bde954dd77c013bdc115b15b264879..e72d07c31ff1b93189f8980a0005c28e4976a544 100755 (executable)
--- 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;
 }