summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm9
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 ||= { };