From 020ee7687e3f2f06740ec4007e3c7ebdcdf061b3 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 29 Sep 2008 17:46:13 +0000 Subject: revert latest bogus commit --- perl-install/standalone/draksplash | 14 +------------- 1 file changed, 1 insertion(+), 13 deletions(-) (limited to 'perl-install/standalone/draksplash') diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash index a11b4382c..d41ebed59 100755 --- a/perl-install/standalone/draksplash +++ b/perl-install/standalone/draksplash @@ -69,7 +69,7 @@ $notebook->append_page(gtknew('VBox', spacing => 5, children_tight => [ gtknew('Button', text => N("Choose progress bar background"), clicked => sub { choose_color('pbg_c') }), gtknew('HButtonBox', layout => 'edge', children_tight => [ - my $l = gtknew('Label', text => N("Gradient type")), + gtknew('Label', text => N("Gradient type")), gtksignal_connect( Gtk2::ComboBox->new_with_strings([ 'vertical', 'horizontal' ], 'vertical'), changed => sub { $theme{conf}{gradient} = $_[0]->entry->get_text }), @@ -129,18 +129,6 @@ $window->{rwindow}->set_size_request($global_width, -1); $window->{rwindow}->set_border_width(5); $window->{rwindow}->set_position('center'); $window->{rwindow}->show_all; - -Glib::Timeout->add(100, sub { - my (undef, $y_pangolayout_offset) = $l->get_layout_offsets; - my $pango_layout = $l->get_layout; - my $y = $pango_layout->get_height; - my (undef, $t) = $pango_layout->get_pixel_size; - warn ">> [$y_pangolayout_offset] $y => $t\n"; - use Data::Dumper; - warn Dumper [ $pango_layout->get_pixel_extents ]; - 0; - }); - $window->main; # Should never get here -- cgit v1.2.1