summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-08-18 08:39:29 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-08-18 08:39:29 +0000
commit31a1b646760213abe96ad84cd2ad58ef3c344f96 (patch)
tree2ce5dc106809a1a65557ec555ad0482209c439f8 /perl-install
parent4aaaac06925be03d5543cdfec921842b0f019632 (diff)
downloaddrakx-31a1b646760213abe96ad84cd2ad58ef3c344f96.tar
drakx-31a1b646760213abe96ad84cd2ad58ef3c344f96.tar.gz
drakx-31a1b646760213abe96ad84cd2ad58ef3c344f96.tar.bz2
drakx-31a1b646760213abe96ad84cd2ad58ef3c344f96.tar.xz
drakx-31a1b646760213abe96ad84cd2ad58ef3c344f96.zip
(info_dialog) introduce another dialog helper
Diffstat (limited to 'perl-install')
-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 ||= { };