From 18553cf4bbe25fbe469d6d7727ac95fc1fbd0739 Mon Sep 17 00:00:00 2001 From: Emmanuel Rodriguez Date: Tue, 4 Aug 2009 17:24:59 +0200 Subject: [PATCH] Simplify the status label --- bindings/perl/Champlain/examples/flickr.pl | 16 ++-------------- 1 file changed, 2 insertions(+), 14 deletions(-) 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; } -- 2.39.5