From 31a1b646760213abe96ad84cd2ad58ef3c344f96 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 18 Aug 2003 08:39:29 +0000
Subject: (info_dialog) introduce another dialog helper

---
 perl-install/ugtk2.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index b013c98a0..4b96ced5d 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -25,7 +25,7 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @icon_paths $force_center $force_focus
 
     ask => [ qw(ask_browse_tree_info ask_browse_tree_info_given_widgets ask_dir ask_from_entry ask_okcancel ask_warn
                 ask_yesorno ) ],
-    dialogs => [ qw(err_dialog warn_dialog) ],
+    dialogs => [ qw(err_dialog info_dialog warn_dialog) ],
 
 );
 $EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ];
@@ -396,6 +396,13 @@ sub create_dialog {
     $ret;
 }
 
+sub info_dialog {
+    my ($title, $label, $o_options) = @_;
+    $o_options ||= { };
+    add2hash_($o_options, { small => 1, stock => 'gtk-dialog-info' });
+    create_dialog($title, $label, $o_options);
+}
+
 sub warn_dialog {
     my ($title, $label, $o_options) = @_;
     $o_options ||= { };
-- 
cgit v1.2.1