diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-28 12:56:26 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-28 12:56:26 +0000 |
| commit | 5fd046ac65b74d9b9b5c18bbb9579329f4036c49 (patch) | |
| tree | 7787538c42e634c8e9935866048bfcfb282a7ef8 /perl-install/interactive_gtk.pm | |
| parent | f902492a01c974283c9c800ddbd5de651c474c25 (diff) | |
| download | drakx-backup-do-not-use-5fd046ac65b74d9b9b5c18bbb9579329f4036c49.tar drakx-backup-do-not-use-5fd046ac65b74d9b9b5c18bbb9579329f4036c49.tar.gz drakx-backup-do-not-use-5fd046ac65b74d9b9b5c18bbb9579329f4036c49.tar.bz2 drakx-backup-do-not-use-5fd046ac65b74d9b9b5c18bbb9579329f4036c49.tar.xz drakx-backup-do-not-use-5fd046ac65b74d9b9b5c18bbb9579329f4036c49.zip | |
no_comment
Diffstat (limited to 'perl-install/interactive_gtk.pm')
| -rw-r--r-- | perl-install/interactive_gtk.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index f730cc2e6..95c668378 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -222,3 +222,14 @@ sub wait_message_endW { my ($o, $w) = @_; $w->destroy; } + +sub kill { + my ($o) = @_; + $o->{before_killing} ||= 0; + while (@interactive::objects > $o->{before_killing}) { + my $w = pop @interactive::objects; + $w->destroy; + } + @my_gtk::grabbed = (); + $o->{before_killing} = @interactive::objects; +} |