diff options
| author | Yves Duret <yduret@mandriva.com> | 2002-02-01 23:01:22 +0000 |
|---|---|---|
| committer | Yves Duret <yduret@mandriva.com> | 2002-02-01 23:01:22 +0000 |
| commit | 7bb14cdb4a7d57a8b8d2bd534d9ec76a1ed30d1a (patch) | |
| tree | 5006696f2d0c9a9e396731f6533df492baca1340 /perl-install/bootlook.pm | |
| parent | 0c41d811c8ec4471b9b35b2eb1a869f8b1394043 (diff) | |
| download | drakx-7bb14cdb4a7d57a8b8d2bd534d9ec76a1ed30d1a.tar drakx-7bb14cdb4a7d57a8b8d2bd534d9ec76a1ed30d1a.tar.gz drakx-7bb14cdb4a7d57a8b8d2bd534d9ec76a1ed30d1a.tar.bz2 drakx-7bb14cdb4a7d57a8b8d2bd534d9ec76a1ed30d1a.tar.xz drakx-7bb14cdb4a7d57a8b8d2bd534d9ec76a1ed30d1a.zip | |
ergo fix thx dadou report...
Diffstat (limited to 'perl-install/bootlook.pm')
| -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)}) ) ) ); |