summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm22
1 files changed, 20 insertions, 2 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 66d6f0820..4c70a2081 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -25,6 +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) ],
);
$EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ];
@@ -367,14 +368,19 @@ sub _create_dialog {
}
-# drakfloppy / drakfont / harddrake2
+# drakfloppy / drakfont / harddrake2 / mcc
sub create_dialog {
my ($title, $label, $o_options) = @_;
my $ret = 0;
my $dialog = _create_dialog($title, $o_options);
$dialog->set_border_width(10);
my $text = $o_options->{use_markup} ? gtkset_markup(Gtk2::Label->new(), $label) : Gtk2::Label->new($label);
- $dialog->vbox->pack_start(create_scrolled_window($text, [ 'never', 'automatic' ]), 1, 1, 0);
+ gtkpack($dialog->vbox,
+ gtkpack_(Gtk2::HBox->new,
+ if_($o_options->{stock}, 0, Gtk2::Image->new_from_stock($o_options->{stock}, 'dialog')),
+ 1, create_scrolled_window($text, [ 'never', 'automatic' ]),
+ ),
+ );
$text->set_line_wrap(1);
if ($o_options->{cancel}) {
@@ -395,6 +401,18 @@ sub create_dialog {
$ret;
}
+sub warn_dialog {
+ my ($title, $label, $o_options) = @_;
+ add2hash_($o_options, { small => 1, stock => 'gtk-dialog-warning', cancel => 1 });
+ create_dialog($title, $label, $o_options);
+}
+
+sub err_dialog {
+ my ($title, $label, $o_options) = @_;
+ add2hash_($o_options, { small => 1, stock => 'gtk-dialog-error' });
+ create_dialog($title, $label, $o_options);
+}
+
sub create_hbox { gtkset_layout(gtkset_border_width(Gtk2::HButtonBox->new, 3), $_[0] || 'spread') }
sub create_vbox { gtkset_layout(Gtk2::VButtonBox->new, $_[0] || 'spread') }