summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-02-19 11:13:19 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-02-19 11:13:19 +0000
commitf6ae0a18b62222cf9dfee74f69a5cd57aae06d96 (patch)
treeba4512768236c28cda0480c67b4b0030bfc311da /perl-install/interactive
parentb540c9640b16b4191ae24ef62d214551fea679c8 (diff)
downloaddrakx-f6ae0a18b62222cf9dfee74f69a5cd57aae06d96.tar
drakx-f6ae0a18b62222cf9dfee74f69a5cd57aae06d96.tar.gz
drakx-f6ae0a18b62222cf9dfee74f69a5cd57aae06d96.tar.bz2
drakx-f6ae0a18b62222cf9dfee74f69a5cd57aae06d96.tar.xz
drakx-f6ae0a18b62222cf9dfee74f69a5cd57aae06d96.zip
disallow double-clicking on "Refuse" (license step)
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/gtk.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 361e3a1a1..5e18a3591 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -355,7 +355,7 @@ 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 $set_all = sub {
$ignore = 1;
$_->{set}->(${$_->{e}{val}}, $_) foreach @widgets_always, @widgets_advanced;
@@ -380,7 +380,7 @@ sub ask_fromW {
my (undef, $event) = @_;
if (!$event || ($event->keyval & 0x7f) == 0xd) {
if ($ind == $#widgets) {
- @widgets == 1 ? $mainw->{ok}->clicked : $mainw->{ok}->grab_focus;
+ @widgets == 1 ? $ok_clicked->() : $mainw->{ok}->grab_focus;
} else {
$widgets[$ind+1]{focus_w}->grab_focus;
}
@@ -489,7 +489,7 @@ sub ask_fromW {
my $quit_if_double_click =
#- i'm the only one, double click means accepting
@$l == 1 || $e->{quit_if_double_click} ?
- sub { if ($_[1]->type =~ /^2/) { $mainw->{retval} = 1; Gtk2->main_quit } } : '';
+ sub { $_[1]->type =~ /^2/ && $ok_clicked->() } : '';
my @para = ($e, $may_go_to_next, $changed, $quit_if_double_click);
my $use_boxradio = exists $e->{gtk}{use_boxradio} ? $e->{gtk}{use_boxradio} : @{$e->{list}} <= 8;