From a430d4134a54be1e6305afe8ad177e849f4aaaaa Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 22 Jan 2003 13:57:48 +0000 Subject: add {callbacks}{ok_disabled} --- perl-install/interactive/gtk.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install') diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 293e96ff1..168cf7f45 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -348,6 +348,7 @@ sub ask_fromW { $ignore = 1; $_->{set}->(${$_->{e}{val}}, $_) foreach @widgets_always, @widgets_advanced; $_->{real_w}->set_sensitive(!$_->{e}{disabled}()) foreach @widgets_always, @widgets_advanced; + $mainw->{ok}->set_sensitive(!$common->{callbacks}{ok_disabled}()) if $common->{callbacks}{ok_disabled}; $ignore = 0; }; my $get_all = sub { -- cgit v1.2.1