diff options
Diffstat (limited to 'Rpmdrake/gurpm.pm')
| -rw-r--r-- | Rpmdrake/gurpm.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Rpmdrake/gurpm.pm b/Rpmdrake/gurpm.pm index 2879e77b..a148d7c1 100644 --- a/Rpmdrake/gurpm.pm +++ b/Rpmdrake/gurpm.pm @@ -33,7 +33,6 @@ use base qw(ugtk2); sub new { my ($self, $title, $initializing, %options) = @_; my $mainw = bless(ugtk2->new($title, %options, default_width => 600, width => 600), $self); - $mainw->{previous_main_window} = $::main_window; $::main_window = $mainw->{real_window}; $mainw->{label} = gtknew('Label', text => $initializing, alignment => [ 0.5, 0 ]); # size label's heigh to 2 lines in order to prevent dummy vertical resizing: @@ -70,7 +69,7 @@ sub progress { sub DESTROY { my ($self) = @_; - $::main_window = $self->{previous_main_window}; + mygtk2::may_destroy($self); $self and $self->destroy; $self = undef; $self->{cancel} = undef; #- in case we'll do another one later |