Factorize banner code

1 files changed, 9 insertions, 6 deletions

diff --git a/rpmdrake b/rpmdrake
index 0887974a..b19c2097 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -155,6 +155,14 @@ package main;
 my $w;
 my $changelog_first;
 
+sub getbanner {
+    Gtk2::Banner->new("title-$MODE", {
+	remove  => N("Software Packages Removal"),
+	update  => N("Software Packages Update"),
+	install => N("Software Packages Installation"),
+    }->{$MODE}),
+}
+
 sub interactive_msg_  {  interactive_msg(@_, if_(exists $w->{rwindow}, transient => $w->{rwindow})) }
 sub interactive_list_ { interactive_list(@_, if_(exists $w->{rwindow}, transient => $w->{rwindow})) }
 sub wait_msg_         {         wait_msg(@_, if_(exists $w->{rwindow}, transient => $w->{rwindow})) }
@@ -1108,11 +1116,6 @@ Is it ok to continue?",
     $hpaned->pack2(create_scrolled_window($info), 1, 0);
     $table->attach($hpaned, 0, 2, 1, 2, ['expand', 'fill'], ['expand', 'fill'], 0, 0);
 
-    my %mode2title = (
-	remove => N("Software Packages Removal"),
-	update => N("Software Packages Update"),
-	install => N("Software Packages Installation"),
-    );
     my $status = Gtk2::Label->new;
     my $checkbox_show_autoselect;
     my ($menu, $factory) = create_factory_menu(
@@ -1163,7 +1166,7 @@ Is it ok to continue?",
 	gtkpack_(
 	    Gtk2::VBox->new(0, 3),
 	    0, $menu,
-	    0, Gtk2::Banner->new("title-$MODE", $mode2title{$MODE}),
+	    0, getbanner(),
 	    1, gtkadd(
 		gtkset_shadow_type(gtkset_border_width(Gtk2::Frame->new, 3), 'none'),
 		gtkpack_(