From 2326d0271be94e2906b28dd3344ab3888a49c2f2 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 12 May 2005 03:38:49 +0000 Subject: - clean embedding stuff - center wait message on parent --- perl-install/standalone/harddrake2 | 20 ++++++++------------ 1 file changed, 8 insertions(+), 12 deletions(-) diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index 6125dfb8c..e0c3a6d47 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -233,23 +233,19 @@ my @menu_items = $ugtk2::wm_icon = "harddrake"; $in = 'interactive'->vnew('su'); #require_root_capability(); -my $wait = $in->wait_message(N("Please wait"), N("Detection in progress")); -gtkflush(); - %options = getVarsFromSh($conffile); # Build the gui add_icon_path('/usr/share/pixmaps/harddrake2/'); $w = ugtk2->new(N("Harddrake2")); -local $::main_window; # fake diagnostics pragma -my ($menubar, $factory); -if ($::isEmbedded) { - ($menubar, $factory) = create_factory_menu($::Plug, @menu_items); -} else { - $::main_window = $w->{real_window}; - ($menubar, $factory) = create_factory_menu($w->{rwindow}, @menu_items); - $w->{window}->set_size_request(805, 550); -} +# fake diagnostics pragma: +local $::main_window = $w->{real_window}; + +my $wait = $in->wait_message(N("Please wait"), N("Detection in progress")); +gtkflush() if !$::isEmbedded; + +my ($menubar, $factory) = create_factory_menu($w->{real_window}, @menu_items); +$w->{window}->set_size_request(805, 550) if !$::isEmbedded; my $tree_model = Gtk2::TreeStore->new("Gtk2::Gdk::Pixbuf", "Glib::String", "Glib::Int"); $w->{window}->add(gtkpack_(0, Gtk2::VBox->new(0, 0), -- cgit v1.2.1