diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/bootlook.pm | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm index 4ca78f895..94c27640b 100644 --- a/perl-install/bootlook.pm +++ b/perl-install/bootlook.pm @@ -98,11 +98,15 @@ my $x_box = new Gtk::VBox(0, 0); gtkadd($window, gtkpack__ (my $global_vbox = new Gtk::VBox(0,0), gtkadd (new Gtk::Frame (_("Lilo/grub mode")), - gtkpack__(new Gtk::HBox(0, 0), - _("You are currently using %s as Boot Manager. +# gtkpack__(new Gtk::VBox(0,0), + (gtkpack_(gtkset_border_width(new Gtk::HBox(0, 0),5), + 1,_("You are currently using %s as Boot Manager. Click on Configure to launch the setup wizard.", $lilogrub), - gtksignal_connect(new Gtk::Button (_("Configure")), clicked => $::lilo_choice) - ) + 0,gtksignal_connect(new Gtk::Button (_("Configure")), clicked => $::lilo_choice), + )), +# "" #we need some place under the button -- replaced by gtkset_border_width( for the moment +# ) + ), # aurora gtkadd (new Gtk::Frame (_("Boot mode")), @@ -153,7 +157,7 @@ Click on Configure to launch the setup wizard.", $lilogrub), ), gtkadd (gtkset_layout(new Gtk::HButtonBox,-end), gtksignal_connect(new Gtk::Button (_("OK")), clicked=>sub{updateInit();updateAutologin();updateAurora();$::isEmbedded ? kill(USR1,$::CCPID) : Gtk->exit(0)}), - gtksignal_connect(new Gtk::Button ($::isEmbedded ? _("Cancel") : _("Quit")), clicked => sub {$::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0)}) + gtksignal_connect(new Gtk::Button (_("Cancel")), clicked => sub {$::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0)}) ) ) ); |