summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakfloppy
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakfloppy')
-rwxr-xr-xperl-install/standalone/drakfloppy12
1 files changed, 7 insertions, 5 deletions
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index ea90e748b..568fa25e6 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -38,7 +38,7 @@ if ($ENV{LANGUAGE} =~ /\b(ar|he|hi|ta)/) { $ENV{LANGUAGE} = "C" };
require_root_capability();
-my $expert_mode = 0;
+my $expert_mode = $::expert;
# we have put here the list in order to do $list->clear() when we have to do
my $fixed_font = Gtk::Gdk::Font->fontset_load(N("-misc-Fixed-Medium-r-*-*-*-140-*-*-*-*-*-*,*"));
my $list = new_with_titles Gtk::CList(N("Module name"), N("Size"));
@@ -107,7 +107,7 @@ $up_vbox->pack_start($ker_hbox, 0, 0, 5);
# vbox part
my $up_frame = new Gtk::Frame(N("General"));
$up_frame->add($up_vbox);
-$global_vbox->pack_start($up_frame, 1, 1, 0);
+$global_vbox->pack_start($up_frame, 0, 0, 0);
### expert mode
my $expert_main_frame = new Gtk::Frame(N("Expert Area"));
@@ -204,7 +204,7 @@ $output_hbox->set_usize(30, 75);
$output_hbox->pack_start($output, 1, 1, 0);
$output_hbox->pack_start($vscrollbar, 0, 0, 0);
$output_frame->add($output_hbox);
-$global_vbox->pack_start($output_frame, 0, 0, 0);
+$global_vbox->pack_start($output_frame, 1, 10, 0);
### final buttons
my $build_button = new Gtk::Button(N("Build the disk"));
@@ -221,8 +221,10 @@ $global_vbox->pack_start($fin_hbox, 0, 0, 0);
$window->{window}->add($global_vbox);
$window->{rwindow}->show_all();
-$expert_mod_frame->hide();
-$expert_button_frame->hide();
+if (!$expert_mode) {
+ $expert_mod_frame->hide();
+ $expert_button_frame->hide();
+}
$window->main;
my_gtk->exit(0);