(create_steps_window) first steps toward new installer style

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 {