diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-08-18 08:39:29 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-08-18 08:39:29 +0000 |
commit | 31a1b646760213abe96ad84cd2ad58ef3c344f96 (patch) | |
tree | 2ce5dc106809a1a65557ec555ad0482209c439f8 | |
parent | 4aaaac06925be03d5543cdfec921842b0f019632 (diff) | |
download | drakx-backup-do-not-use-31a1b646760213abe96ad84cd2ad58ef3c344f96.tar drakx-backup-do-not-use-31a1b646760213abe96ad84cd2ad58ef3c344f96.tar.gz drakx-backup-do-not-use-31a1b646760213abe96ad84cd2ad58ef3c344f96.tar.bz2 drakx-backup-do-not-use-31a1b646760213abe96ad84cd2ad58ef3c344f96.tar.xz drakx-backup-do-not-use-31a1b646760213abe96ad84cd2ad58ef3c344f96.zip |
(info_dialog) introduce another dialog helper
-rw-r--r-- | perl-install/ugtk2.pm | 9 |
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 ||= { }; |