diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-02-21 14:14:49 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-02-21 14:14:49 +0000 |
| commit | 688f33610db3f2f997449b58d383245c2a1d61b0 (patch) | |
| tree | ab831e25aaf5742ac022680ba94f07f4c4cef7bc /perl-install | |
| parent | b42ba60bf559e6c8f1e3d4161478424ef6a9ae62 (diff) | |
| download | drakx-688f33610db3f2f997449b58d383245c2a1d61b0.tar drakx-688f33610db3f2f997449b58d383245c2a1d61b0.tar.gz drakx-688f33610db3f2f997449b58d383245c2a1d61b0.tar.bz2 drakx-688f33610db3f2f997449b58d383245c2a1d61b0.tar.xz drakx-688f33610db3f2f997449b58d383245c2a1d61b0.zip | |
(ask_standalone_gtk): ensure popup is not destroyed more than once
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/services.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm index cfc560605..c41c14190 100644 --- a/perl-install/services.pm +++ b/perl-install/services.pm @@ -191,7 +191,7 @@ sub ask_standalone_gtk { my $W = ugtk2->new(N("Services")); my ($x, $y, $w_popup); - my $nopop = sub { $w_popup and $w_popup->destroy }; + my $nopop = sub { $w_popup and $w_popup->destroy; undef $w_popup }; my $display = sub { $nopop->(); $_[0] and gtkshow(gtkadd($w_popup = Gtk2::Window->new('popup'), gtksignal_connect(gtkadd(Gtk2::EventBox->new, gtkadd(gtkset_shadow_type(Gtk2::Frame->new, 'etched_out'), |