From 2ebbfb9d4d04547978de66c7d53e68a6735c0773 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Fri, 10 Jun 2005 01:48:29 +0000 Subject: Don't hide banner in mcc when lauching rpmdrake --- rpmdrake.pm | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'rpmdrake.pm') diff --git a/rpmdrake.pm b/rpmdrake.pm index 42cc6796..5177e44c 100644 --- a/rpmdrake.pm +++ b/rpmdrake.pm @@ -59,6 +59,7 @@ our @EXPORT = qw( interactive_packtable interactive_list fatal_msg + getbanner wait_msg remove_wait_msg but @@ -295,6 +296,14 @@ sub fatal_msg { myexit -1; } +sub getbanner () { + Gtk2::Banner->new("title-$::MODE", { + remove => N("Software Packages Removal"), + update => N("Software Packages Update"), + install => N("Software Packages Installation"), + }->{$::MODE}); +} + sub wait_msg { my ($msg, %options) = @_; gtkflush(); @@ -305,6 +314,7 @@ sub wait_msg { $mainw->{window}, gtkpack__( gtkset_border_width(Gtk2::VBox->new(0, 5), 6), + if_($options{banner}, getbanner), $label, if_(exists $options{widgets}, @{$options{widgets}}), ) -- cgit v1.2.1