summaryrefslogtreecommitdiffstats
path: root/perl-install/bootlook.pm
diff options
context:
space:
mode:
authorYves Duret <yduret@mandriva.com>2002-02-01 23:01:22 +0000
committerYves Duret <yduret@mandriva.com>2002-02-01 23:01:22 +0000
commit7bb14cdb4a7d57a8b8d2bd534d9ec76a1ed30d1a (patch)
tree5006696f2d0c9a9e396731f6533df492baca1340 /perl-install/bootlook.pm
parent0c41d811c8ec4471b9b35b2eb1a869f8b1394043 (diff)
downloaddrakx-backup-do-not-use-7bb14cdb4a7d57a8b8d2bd534d9ec76a1ed30d1a.tar
drakx-backup-do-not-use-7bb14cdb4a7d57a8b8d2bd534d9ec76a1ed30d1a.tar.gz
drakx-backup-do-not-use-7bb14cdb4a7d57a8b8d2bd534d9ec76a1ed30d1a.tar.bz2
drakx-backup-do-not-use-7bb14cdb4a7d57a8b8d2bd534d9ec76a1ed30d1a.tar.xz
drakx-backup-do-not-use-7bb14cdb4a7d57a8b8d2bd534d9ec76a1ed30d1a.zip
ergo fix thx dadou report...
Diffstat (limited to 'perl-install/bootlook.pm')
-rw-r--r--perl-install/bootlook.pm14
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)})
)
)
);