diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-16 15:03:23 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-16 15:03:23 +0000 |
commit | 99551740f3149cd25b66dd1fbeb837b4072769d4 (patch) | |
tree | 129ae648b0af1fd624744c4f0ecd6571d254081d /perl-install/standalone/harddrake2 | |
parent | ff79b1af8c31115c3c769582a074927c63ef4548 (diff) | |
download | drakx-backup-do-not-use-99551740f3149cd25b66dd1fbeb837b4072769d4.tar drakx-backup-do-not-use-99551740f3149cd25b66dd1fbeb837b4072769d4.tar.gz drakx-backup-do-not-use-99551740f3149cd25b66dd1fbeb837b4072769d4.tar.bz2 drakx-backup-do-not-use-99551740f3149cd25b66dd1fbeb837b4072769d4.tar.xz drakx-backup-do-not-use-99551740f3149cd25b66dd1fbeb837b4072769d4.zip |
fix embedding
Diffstat (limited to 'perl-install/standalone/harddrake2')
-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); |