diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/harddrake2 | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index a8a09bdc8..7e1a150dc 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -118,8 +118,11 @@ gtkflush(); # Build the gui add_icon_path('/usr/share/pixmaps/harddrake2/'); $w = ugtk2->new(N("Harddrake2 version ") . $harddrake::data::version); -$w->{window}->set_size_request(805, 550) unless $::isEmbedded; -my ($menubar, $factory) = create_factory_menu($w->{rwindow}, @menu_items); +my ($menubar, $factory); +unless ($::isEmbedded) { + $w->{window}->set_size_request(805, 550); + ($menubar, $factory) = create_factory_menu($w->{rwindow}, @menu_items); +} my $tree_model = Gtk2::TreeStore->new(Gtk2::GType->OBJECT, Gtk2::GType->STRING); my $statusbar; $w->{window}->add(gtkpack_(0, Gtk2::VBox->new(0, 0), @@ -256,9 +259,11 @@ $w->{rwindow}->set_position('center') unless $::isEmbedded; foreach (['PRINTERS_DETECTION', N("/Autodetect printers")], ['MODEMS_DETECTION', N("/Autodetect modems")], ['JAZZ_DETECTION', N("/Autodetect jazz drives")],) { - $check_boxes{$_->[0]} = $factory->get_widget("<main>".N("/Options").$_->[1]); $options{$_->[0]} = 0 unless defined($options{$_->[0]}); # force detection by default - $check_boxes{$_->[0]}->set_active($options{$_->[0]}); # restore saved values + unless ($::isEmbedded) { + $check_boxes{$_->[0]} = $factory->get_widget("<main>".N("/Options").$_->[1]); + $check_boxes{$_->[0]}->set_active($options{$_->[0]}); # restore saved values + } } $textcolumn->set_min_width(350); |