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 /perl-install | |
| parent | 4aaaac06925be03d5543cdfec921842b0f019632 (diff) | |
| download | drakx-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.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 ||= { }; |