diff options
-rwxr-xr-x | rpmdrake | 2 | ||||
-rw-r--r-- | rpmdrake.pm | 5 |
2 files changed, 5 insertions, 2 deletions
@@ -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; |