diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-01-22 13:57:48 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-01-22 13:57:48 +0000 |
| commit | a430d4134a54be1e6305afe8ad177e849f4aaaaa (patch) | |
| tree | 95cea70a37285ff2ed7c56c4e2c5191c994c629f /perl-install/interactive | |
| parent | 822c8c7c5236785c644d2037bc62e5f9ac7b1dc3 (diff) | |
| download | drakx-a430d4134a54be1e6305afe8ad177e849f4aaaaa.tar drakx-a430d4134a54be1e6305afe8ad177e849f4aaaaa.tar.gz drakx-a430d4134a54be1e6305afe8ad177e849f4aaaaa.tar.bz2 drakx-a430d4134a54be1e6305afe8ad177e849f4aaaaa.tar.xz drakx-a430d4134a54be1e6305afe8ad177e849f4aaaaa.zip | |
add {callbacks}{ok_disabled}
Diffstat (limited to 'perl-install/interactive')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 1 |
1 files changed, 1 insertions, 0 deletions
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 { |