diff options
Diffstat (limited to 'lib/AdminPanel/rpmdragora.pm')
-rw-r--r-- | lib/AdminPanel/rpmdragora.pm | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/lib/AdminPanel/rpmdragora.pm b/lib/AdminPanel/rpmdragora.pm index 4af30e5..59dd237 100644 --- a/lib/AdminPanel/rpmdragora.pm +++ b/lib/AdminPanel/rpmdragora.pm @@ -381,11 +381,7 @@ sub fatal_msg { } sub wait_msg { - my ($msg, %options) = @_; - - if (ref \%options) { - warnings::warn("AdminPanel::rpmdragora::wait_msg: options parameter is deprecated, and discarded"); - } + my $msg = shift; my $label = $msg ? $msg : $loc->N("Please wait"); @@ -434,11 +430,12 @@ sub slow_func ($&) { } sub statusbar_msg { + my ($msg, $o_timeout) = @_; + unless ($::statusbar) { #- fallback if no status bar - my $msg = shift; return wait_msg($msg); } - my ($msg, $o_timeout) = @_; + $::statusbar->setLabel($msg); #- always use the same context description for now #my $cx = $::statusbar->get_context_id("foo"); |