From f621a6716fac7f95e473db764a90f222871b30f3 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 20 Feb 2007 14:08:11 +0000 Subject: (init) set up so that transientness hint are OK for next dialogs --- Rpmdrake/gurpm.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/Rpmdrake/gurpm.pm b/Rpmdrake/gurpm.pm index 220c2eaf..12501e57 100755 --- a/Rpmdrake/gurpm.pm +++ b/Rpmdrake/gurpm.pm @@ -34,6 +34,7 @@ our ($mainw, $label, $progressbar, $vbox, $cancel, $hbox_cancel); sub init { my ($title, $initializing, %options) = @_; $mainw = ugtk2->new($title, %options); + $::main_window = $mainw->{real_window}; $label = gtknew('Label', text => $initializing); $progressbar = gtknew('ProgressBar', width => 300); gtkadd($mainw->{window}, $vbox = gtknew('VBox', spacing => 5, border_width => 6, children_tight => [ $label, $progressbar ])); -- cgit v1.2.1