diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2007-02-21 11:27:12 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2007-02-21 11:27:12 +0000 |
| commit | 112d3362596790517427197b66d443113be339b6 (patch) | |
| tree | 1162f3aff3ba98469d1d7d4cce6e5a22d48c026b /Rpmdrake/gurpm.pm | |
| parent | 1f98c1551d643136470e7d3caf8273b4baf2d7a4 (diff) | |
| download | rpmdrake-112d3362596790517427197b66d443113be339b6.tar rpmdrake-112d3362596790517427197b66d443113be339b6.tar.gz rpmdrake-112d3362596790517427197b66d443113be339b6.tar.bz2 rpmdrake-112d3362596790517427197b66d443113be339b6.tar.xz rpmdrake-112d3362596790517427197b66d443113be339b6.zip | |
(init,end) do not garbage $::main_window once gurpmi message is destroyed
Diffstat (limited to 'Rpmdrake/gurpm.pm')
| -rwxr-xr-x | Rpmdrake/gurpm.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Rpmdrake/gurpm.pm b/Rpmdrake/gurpm.pm index 12501e57..7d66e8fc 100755 --- a/Rpmdrake/gurpm.pm +++ b/Rpmdrake/gurpm.pm @@ -31,9 +31,12 @@ use ugtk2 qw(:all); our ($mainw, $label, $progressbar, $vbox, $cancel, $hbox_cancel); +my $previous_main_window; + sub init { my ($title, $initializing, %options) = @_; $mainw = ugtk2->new($title, %options); + $previous_main_window = $::main_window; $::main_window = $mainw->{real_window}; $label = gtknew('Label', text => $initializing); $progressbar = gtknew('ProgressBar', width => 300); @@ -57,6 +60,7 @@ sub end() { $mainw and $mainw->destroy; $mainw = undef; $cancel = undef; #- in case we'll do another one later + $::main_window = $previous_main_window; } sub validate_cancel { |