summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-09-29 17:43:01 +0000
committerThierry Vignaud <tv@mandriva.org>2008-09-29 17:43:01 +0000
commite297999ce2b22a59779365cc9abd1d4b86c30d85 (patch)
tree67086229b1c96d604b19e3dee3d984b0754446e4 /perl-install
parent10fcd89af36176403ef532be5167ce4bd336dc17 (diff)
downloaddrakx-e297999ce2b22a59779365cc9abd1d4b86c30d85.tar
drakx-e297999ce2b22a59779365cc9abd1d4b86c30d85.tar.gz
drakx-e297999ce2b22a59779365cc9abd1d4b86c30d85.tar.bz2
drakx-e297999ce2b22a59779365cc9abd1d4b86c30d85.tar.xz
drakx-e297999ce2b22a59779365cc9abd1d4b86c30d85.zip
use Gtk+2's FileChooserDialog
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS3
-rwxr-xr-xperl-install/standalone/draksplash14
2 files changed, 16 insertions, 1 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 842134ead..d67ee6761 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- draksplash:
+ o use Gtk+2's FileChooserDialog
+
Version 11.59 - 29 September 2008
- libDrakX:
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