summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-01-16 15:03:23 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-01-16 15:03:23 +0000
commit99551740f3149cd25b66dd1fbeb837b4072769d4 (patch)
tree129ae648b0af1fd624744c4f0ecd6571d254081d /perl-install
parentff79b1af8c31115c3c769582a074927c63ef4548 (diff)
downloaddrakx-99551740f3149cd25b66dd1fbeb837b4072769d4.tar
drakx-99551740f3149cd25b66dd1fbeb837b4072769d4.tar.gz
drakx-99551740f3149cd25b66dd1fbeb837b4072769d4.tar.bz2
drakx-99551740f3149cd25b66dd1fbeb837b4072769d4.tar.xz
drakx-99551740f3149cd25b66dd1fbeb837b4072769d4.zip
fix embedding
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/harddrake213
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);