summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draksplash16
1 files changed, 10 insertions, 6 deletions
diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
index 24c543401..f667cae54 100755
--- a/perl-install/standalone/draksplash
+++ b/perl-install/standalone/draksplash
@@ -80,12 +80,16 @@ $notebook->append_page(gtknew('VBox', spacing => 5, children_tight => [
create_scale_table('tb_x', 'tb_y', 'tb_w', 'tb_h', 'transp'),
gtknew('Button', text => N("Choose text zone color"),
clicked => sub { choose_color('tc') }),
- gtknew('Label', text => N("Text color")),
- gtksignal_connect(Gtk2::ComboBox->new_with_strings([ 0 .. 15 ], 1),
- changed => sub { $theme{conf}{fgcolor} = $_[0]->entry->get_text }),
- gtknew('Label', text => N("Background color")),
- gtksignal_connect(Gtk2::ComboBox->new_with_strings([ 0 .. 15 ], '0'),
- changed => sub { $theme{conf}{bgcolor} = $_[0]->entry->get_text }),
+ gtknew('Table', children => [
+ [ gtknew('Label', text => N("Text color")),
+ gtksignal_connect(Gtk2::ComboBox->new_with_strings([ 0 .. 15 ], 1),
+ changed => sub { $theme{conf}{fgcolor} = $_[0]->entry->get_text }),
+ ],
+ [ gtknew('Label', text => N("Background color")),
+ gtksignal_connect(Gtk2::ComboBox->new_with_strings([ 0 .. 15 ], '0'),
+ changed => sub { $theme{conf}{bgcolor} = $_[0]->entry->get_text }),
+ ],
+ ]),
gtknew('Button', text => N("Choose picture"), clicked => sub { choose_image('jpeg') })]),
N("Verbose bootsplash"));