(interactive_list_,interactive_msg_with_banner) move them into rpmdrake.pm

2 files changed, 5 insertions, 2 deletions

diff --git a/rpmdrake b/rpmdrake
index 4c15de49..7304214f 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -50,9 +50,7 @@ our $w;
 my $treeview_dialog_run = 0;
 our $statusbar;
 
-sub interactive_list_ { interactive_list(@_, if_($::main_window, transient => $::main_window)) }
 sub wait_msg_with_banner { push @_, banner => 1 if $::isEmbedded && !$treeview_dialog_run; &statusbar_msg }
-sub interactive_msg_with_banner { push @_, banner => 1 if $::isEmbedded; &interactive_msg }
 
 warn_about_user_mode();
 
diff --git a/rpmdrake.pm b/rpmdrake.pm
index e5c9d89a..a6ac9520 100644
--- a/rpmdrake.pm
+++ b/rpmdrake.pm
@@ -61,6 +61,8 @@ our @EXPORT = qw(
     interactive_msg
     interactive_packtable
     interactive_list
+    interactive_list_
+    interactive_msg_with_banner
     fatal_msg
     getbanner
     wait_msg
@@ -297,6 +299,9 @@ sub interactive_list {
     $choice;
 }
 
+sub interactive_list_ { interactive_list(@_, if_($::main_window, transient => $::main_window)) }
+sub interactive_msg_with_banner { push @_, banner => 1 if $::isEmbedded; &interactive_msg }
+
 sub fatal_msg {
     interactive_msg @_;
     myexit -1;