summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-09 23:33:42 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-09 23:33:42 +0000
commit341111e85b2a5425188349dced71e11ac4b178e3 (patch)
tree05a763082e837e9b53420a16c7499bf29770847e /perl-install
parent64aa6cb3c08ce2c0164398712e106397f041b374 (diff)
downloaddrakx-341111e85b2a5425188349dced71e11ac4b178e3.tar
drakx-341111e85b2a5425188349dced71e11ac4b178e3.tar.gz
drakx-341111e85b2a5425188349dced71e11ac4b178e3.tar.bz2
drakx-341111e85b2a5425188349dced71e11ac4b178e3.tar.xz
drakx-341111e85b2a5425188349dced71e11ac4b178e3.zip
(ask_from_entries_refH_powered_normalize): field "disabled" added,
"advanced_messages" added
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 84c5fe6cc..6373911a8 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -14,6 +14,7 @@ use common qw(:common :functional);
#- icon => icon to put before the description
#- help => tooltip
#- advanced => wether it is shown in by default or only in advanced mode
+#- disabled => function returning wether it should be disabled (grayed)
#- type =>
#- bool (with text)
#- range (with min, max)
@@ -213,12 +214,13 @@ sub ask_from_entries_refH_powered_normalize {
$e->{min} <= $e->{max} or die "bad range min $e->{min} > max $e->{max} (called from " . join(':', caller()) . ")";
${$e->{val}} = max($e->{min}, min(${$e->{val}}, $e->{max}));
}
+ $e->{disabled} ||= sub { 0 };
}
#- don't display empty lists
@$l = grep { !($_->{list} && @{$_->{list}} == () && $_->{not_edit}) } @$l;
- $common->{messages} = [ deref($common->{messages}) ];
+ $common->{$_} = [ deref($common->{$_}) ] foreach qw(messages advanced_messages);
add2hash_($common, { ok => _("Ok"), cancel => _("Cancel") }) if !exists $common->{ok};
add2hash_($common->{callbacks} ||= {}, { changed => sub {}, focus_out => sub {}, complete => sub { 0 } });
}