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.pm38
2 files changed, 32 insertions, 8 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 1ab07c353..5a4d59484 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- first steps toward new installer style
+
Version 10.48 - 28 July 2008
- 2009.0 beta 1 logo
diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm
index ce3dd34a0..b403a3e38 100644
--- a/perl-install/install/gtk.pm
+++ b/perl-install/install/gtk.pm
@@ -122,7 +122,7 @@ sub create_steps_window {
};
my @l = (
- create_logo(),
+ gtknew('HBox', height => 145),
$category->(N("Installation"))
);
foreach (grep { !eval $o->{steps}{$_}{hidden} } @{$o->{orderedSteps}}) {
@@ -138,13 +138,35 @@ sub create_steps_window {
]);
}
- my $offset = 20;
- $o->{steps_window} =
- gtknew('Window', width => ($::stepswidth - $offset), widget_name => 'Steps', title => 'Steps',
- position => [ lang::text_direction_rtl() ? $::rootwidth - $::stepswidth : $offset, 0 ],
- child => gtknew('VBox', spacing => 6, children_tight => \@l));
-
- $o->{steps_window}->show;
+ my $offset = 10;
+ $o->{steps_widget} =
+ gtknew('Fixed', widget_name => 'Steps', pixbuf_file => 'left-background',
+ has_window => 1, x => 0, y => 0, height => 500, width => $::stepswidth, # -1
+ child => gtknew('VBox', spacing => 6, width => ($::stepswidth - $offset), children_tight => \@l));
+ $o->{steps_widget}->put(
+ # FIXME: not RTL compliant (lang::text_direction_rtl() ? ...)
+ gtknew('VBox', height => $::rootheight,
+ children => [
+ 0, gtknew('Image', file => 'left-top-corner'),
+ (map { (1, gtknew('Image', file => 'left-border')) } 1 .. $::rootheight),
+ 0, gtknew('Image', file => 'left-bottom-corner'),
+ ]),
+ $::stepswidth - 21, 0);
+
+ $o->{steps_widget}->show;
+
+ $root_window->add(
+ $o->{steps_window} =
+ gtknew('HBox',
+ children =>
+ [
+ 0, $o->{steps_widget},
+ 1, gtknew('Label', width => -1, height => -1),
+ ],
+ )
+ );
+
+ $root_window->show_all
}
sub update_steps_position {