diff options
Diffstat (limited to 'perl-install/standalone/logdrake')
| -rwxr-xr-x | perl-install/standalone/logdrake | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index f2e9d0120..2c98de368 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -192,8 +192,8 @@ sub quit() { ugtk3->exit(0) } # search functions #------------------------------------------------------------- sub search() { - return if !$log_text->window; - $log_text->window->freeze_updates; + return if !$log_text->get_window; + $log_text->get_window->freeze_updates; $log_buf->set_text(''); if ($isFile) { parse_file($File, $File); @@ -202,7 +202,7 @@ sub search() { parse_file($files{$_}{file}, $files{$_}{desc}) if $toggle{$_}->get_active; } } - $log_text->window->thaw_updates; + $log_text->get_window->thaw_updates; $log_text->show; gtkflush(); } @@ -272,7 +272,7 @@ sub parse_file { $i++; if ($pbar && $i % 10) { $pbar->set_fraction($i/$taille); - $win_pb->window->process_updates(1); # no gtkflush() because we do not want to refresh the TextView + $win_pb->get_window->process_updates(1); # no gtkflush() because we do not want to refresh the TextView } logcolorize($_) if $test->($_); |