diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-09-29 17:43:01 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-09-29 17:43:01 +0000 |
| commit | e297999ce2b22a59779365cc9abd1d4b86c30d85 (patch) | |
| tree | 67086229b1c96d604b19e3dee3d984b0754446e4 /perl-install/standalone | |
| parent | 10fcd89af36176403ef532be5167ce4bd336dc17 (diff) | |
| download | drakx-backup-do-not-use-e297999ce2b22a59779365cc9abd1d4b86c30d85.tar drakx-backup-do-not-use-e297999ce2b22a59779365cc9abd1d4b86c30d85.tar.gz drakx-backup-do-not-use-e297999ce2b22a59779365cc9abd1d4b86c30d85.tar.bz2 drakx-backup-do-not-use-e297999ce2b22a59779365cc9abd1d4b86c30d85.tar.xz drakx-backup-do-not-use-e297999ce2b22a59779365cc9abd1d4b86c30d85.zip | |
use Gtk+2's FileChooserDialog
Diffstat (limited to 'perl-install/standalone')
| -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 |