From 0e5a578902f70b8531bcf888a4411509c45b4d20 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 19 Feb 2003 19:42:08 +0000 Subject: can't use $mainw->{ok}->clicked since $mainw->{ok} doesn't always exist, set {retval} and main_quit instead (the way it was done for double click, is this ok when pressing enter?) --- perl-install/interactive/gtk.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 5e18a3591..1951137a6 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -355,7 +355,11 @@ sub ask_fromW { my (@widgets, @widgets_always, @widgets_advanced, $advanced, $advanced_pack, $has_horiz_scroll, $has_scroll, $max_width); my $total_size = 0; my $tooltips = Gtk2::Tooltips->new; - my $ok_clicked = sub { $mainw->{ok}->get_property('sensitive') and $mainw->{ok}->clicked }; + my $ok_clicked = sub { + $mainw->{ok}->get_property('sensitive') or return; + $mainw->{retval} = 1; + Gtk2->main_quit; + }; my $set_all = sub { $ignore = 1; $_->{set}->(${$_->{e}{val}}, $_) foreach @widgets_always, @widgets_advanced; -- cgit v1.2.1