diff options
Diffstat (limited to 'perl-install/standalone/draksplash')
| -rwxr-xr-x | perl-install/standalone/draksplash | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash index d41ebed59..a11b4382c 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 => [ - gtknew('Label', text => N("Gradient type")), + my $l = 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,6 +129,18 @@ $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 |