summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-12-09 18:16:43 +0000
committerFrancois Pons <fpons@mandriva.com>1999-12-09 18:16:43 +0000
commitcbfe718b3422cfb3a749b7642b76d371d4ff20f7 (patch)
treef778ed7da35374654f703127f6389cdce984cb25 /perl-install/my_gtk.pm
parenta1366248c416a4639905e9cf7e777a4a9490a9a3 (diff)
downloaddrakx-cbfe718b3422cfb3a749b7642b76d371d4ff20f7.tar
drakx-cbfe718b3422cfb3a749b7642b76d371d4ff20f7.tar.gz
drakx-cbfe718b3422cfb3a749b7642b76d371d4ff20f7.tar.bz2
drakx-cbfe718b3422cfb3a749b7642b76d371d4ff20f7.tar.xz
drakx-cbfe718b3422cfb3a749b7642b76d371d4ff20f7.zip
*** empty log message ***
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index d6df3696e..56e186e70 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -499,7 +499,7 @@ sub _ask_from_list {
$list->set_column_auto_resize(0, 1);
$o->{ok_clicked} = $leave;
- $o->{cancel_clicked} = sub { die "ask_from_list cancel" };
+ $o->{cancel_clicked} = sub { $o->destroy; die "ask_from_list cancel" }; #- make sure windows doesn't live any more.
gtkadd($o->{window},
gtkpack($o->create_box_with_title(@$messages),
gtkpack_(new Gtk::VBox(0,7),