From ab51d9e75890692fed119c1a168fdc5088c4538d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Sun, 28 Sep 2008 21:33:49 +0000
Subject: make it fit in 800x600 resolution by spliting into notebook (#36105)

---
 perl-install/NEWS                  | 2 +-
 perl-install/standalone/draksplash | 8 ++++++++
 2 files changed, 9 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 67800514a..65063b03d 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -3,7 +3,7 @@
     (regression introduced in 11.37 on 2008-09-08)
   o improved layout
   o increase default width so that translated widgets fit in
-  o make it fit a little better in 800x600 resolution (#36105)
+  o make it fit in 800x600 resolution (#36105)
 
 Version 11.56 - 26 September 2008
 
diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
index 567581797..b5aec0bab 100755
--- a/perl-install/standalone/draksplash
+++ b/perl-install/standalone/draksplash
@@ -58,6 +58,9 @@ my $notebook = gtksignal_connect(gtknew('Notebook'), switch_page => sub {
 				     switch_to_mode($mode);
 				 });
 $notebook->append_page(gtknew('VBox', spacing => 5, children_tight => [
+    gtknew('Notebook', children => [
+        gtknew('Label', text => N("Progress Bar")),
+        gtknew('VBox', spacing => 5, children_tight => [
 				 create_scale_table('px', 'pw', 'py', 'ph', 'ptransp'),
 				 gtknew('Button', text => N("Choose progress bar color 1"),
                                         clicked => sub { choose_color('pc1') }),
@@ -71,11 +74,16 @@ $notebook->append_page(gtknew('VBox', spacing => 5, children_tight => [
                                          Gtk2::ComboBox->new_with_strings([ 'vertical', 'horizontal' ], 'vertical'),
                                          changed => sub { $theme{conf}{gradient} = $_[0]->entry->get_text }),
                                  ]),
+                             ]),
+        gtknew('Label', text => N("Text")),
+        gtknew('VBox', spacing => 5, children_tight => [
 				 gtknew('Button', text => N("Choose text color"),
                                         clicked => sub { choose_color('text_color') }),
 				 create_scale_table('text_x', 'text_y', 'text_size'),
 				 gtknew('Button', text => N("Choose picture"),
                                         clicked => sub { choose_image('silentjpeg') })]),
+    ])
+]),
 		       N("Silent bootsplash"));
 $notebook->append_page(gtknew('VBox', spacing => 5, children_tight => [
 				 create_scale_table('tb_x', 'tb_y', 'tb_w', 'tb_h', 'transp'),
-- 
cgit v1.2.1