From 289d752cbb02fd99408abdbd280e9e833b5a7c0a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 29 Nov 2005 11:23:05 +0000
Subject: (ask_okcancel,ask_warn) enable to set an icon (eg for banners at
 install time)

---
 perl-install/interactive.pm | 8 ++++----
 1 file 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_ {
-- 
cgit v1.2.1