From eb7b360c998f2c6f610149b9264a1f73cbaf31e7 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 13 Aug 2008 15:34:43 +0000 Subject: (create_steps_window) fix left panel in 1024x768 --- perl-install/install/NEWS | 2 ++ perl-install/install/gtk.pm | 17 +++++++++++++++++ perl-install/install/share/themes-galaxy.rc | 8 ++++++++ 3 files changed, 27 insertions(+) diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index a9227e414..4028c218a 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,5 @@ +- fix left panel in 1024x768 + Version 11.9 - 13 August 2008 - new title style diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm index e363a5e64..ee677005d 100644 --- a/perl-install/install/gtk.pm +++ b/perl-install/install/gtk.pm @@ -144,6 +144,23 @@ sub create_steps_window { gtknew('Fixed', widget_name => 'Steps', pixbuf_file => 'left-background', has_window => 1, x => 0, y => 0, height => $height, width => $::stepswidth, # -1 child => gtknew('VBox', spacing => 6, width => ($::stepswidth - $offset), children_tight => \@l)); + + $o->{steps_widget}->put(my $da = gtknew('DrawingArea', width => $::stepswidth-11, widget_name => 'Left_background', + height => 300, # prevent logo to be tiled (do mosazic style rendering) + ), 0, $height); + + my $set_pixmap = sub { + my ($darea) = @_; + return if !$darea->realized; + my $window = $da->window; + my $pixmap = $da->{back_pixmap} ||= Gtk2::Gdk::Pixmap->new($window, 1, 1, $window->get_depth); + my $style = $da->get_style; + $pixmap->draw_points($style->base_gc('normal'), 0, 0); + $window->set_back_pixmap($pixmap); + $darea->queue_draw; + }; + $da->signal_connect(realize => $set_pixmap); + $o->{steps_widget}->put( # FIXME: not RTL compliant (lang::text_direction_rtl() ? ...) gtknew('VBox', height => $::rootheight, diff --git a/perl-install/install/share/themes-galaxy.rc b/perl-install/install/share/themes-galaxy.rc index 445aade2f..fedf447d2 100644 --- a/perl-install/install/share/themes-galaxy.rc +++ b/perl-install/install/share/themes-galaxy.rc @@ -23,8 +23,16 @@ style "background" bg[NORMAL] = "#FFFFFF" } +style "Left_background" +{ + bg[NORMAL] = "#2859B5" + base[NORMAL] = "#2859B5" + fg[NORMAL] = "#FFD200" +} + widget "*Steps*" style "white-on-blue" widget "*Step-categories*" style "step-categories" +widget "*Left_background*" style "Left_background" widget "*logo*" style "white-on-blue" widget "*background*" style "background" widget "*Banner*" style "banner" -- cgit v1.2.1