1 files changed, 8 insertions, 1 deletions
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 ||= { };