summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/install/gtk.pm17
-rw-r--r--perl-install/install/share/themes-galaxy.rc8
3 files changed, 27 insertions, 0 deletions
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"