summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-11-29 11:23:05 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-11-29 11:23:05 +0000
commit289d752cbb02fd99408abdbd280e9e833b5a7c0a (patch)
tree010cb4aaa4dd61868a55177497f63155588b7c3f
parent0e254e867da7c9c13c14c21885d5b71e6f9832fb (diff)
downloaddrakx-289d752cbb02fd99408abdbd280e9e833b5a7c0a.tar
drakx-289d752cbb02fd99408abdbd280e9e833b5a7c0a.tar.gz
drakx-289d752cbb02fd99408abdbd280e9e833b5a7c0a.tar.bz2
drakx-289d752cbb02fd99408abdbd280e9e833b5a7c0a.tar.xz
drakx-289d752cbb02fd99408abdbd280e9e833b5a7c0a.zip
(ask_okcancel,ask_warn) enable to set an icon (eg for banners at install time)
-rw-r--r--perl-install/interactive.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 4a6d09169..a4e865bff 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -138,16 +138,16 @@ sub exit {
#- Interactive functions
#-######################################################################################
sub ask_warn {
- my ($o, $title, $message) = @_;
- ask_warn_($o, { title => $title, messages => $message });
+ my ($o, $title, $message, $o_icon) = @_;
+ ask_warn_($o, { title => $title, messages => $message, icon => $o_icon });
}
sub ask_yesorno {
my ($o, $title, $message, $b_def) = @_;
ask_yesorno_($o, { title => $title, messages => $message }, $b_def);
}
sub ask_okcancel {
- my ($o, $title, $message, $b_def) = @_;
- ask_okcancel_($o, { title => $title, messages => $message }, $b_def);
+ my ($o, $title, $message, $b_def, $o_icon) = @_;
+ ask_okcancel_($o, { title => $title, messages => $message, icon => $o_icon }, $b_def);
}
sub ask_warn_ {