diff options
| -rwxr-xr-x | perl-install/standalone/printerdrake | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake index abe8e7698..7bc4e1387 100755 --- a/perl-install/standalone/printerdrake +++ b/perl-install/standalone/printerdrake @@ -272,8 +272,9 @@ my $isEmbedded = $::isEmbedded; local $::isEmbedded = 0; # Auto refresh -local $SIG{ALRM} = sub { Refresh($stringsearch) }; -alarm $refreshinterval; +my $refreshing = 0; +Glib::Timeout->add($refreshinterval * 1000, + sub { Refresh($stringsearch); 1 }); $us->{wnd}->main; ugtk2->exit; @@ -369,8 +370,9 @@ sub RefreshRemotePrintersFull { } sub Refresh { - # Do not have ourselves recalled if we are not running - alarm 0; + # Do not have ourselves recalled if we are already running + return if $refreshing; + $refreshing = 1; my ($strfilt) = @_; my $selection = get_selection(); printer::services::wait_for_cups(); @@ -380,8 +382,7 @@ sub Refresh { RefreshRemotePrintersFull($strfilt, @printers); GrayDelEdit(); set_selection($selection); - # Recall when refresh intervall has passed - alarm $refreshinterval; + $refreshing = 0; } sub AddPrinter() { |