fix embedding

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);