diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2012-08-01 18:56:16 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 21:28:34 +0100 |
| commit | e5d2e80a09845619e90d736ac9c0f5fb3665574d (patch) | |
| tree | 857fcf4fce96435758c9734677e0d95d48eb758d /perl-install/standalone/logdrake | |
| parent | 57cc6e6e43ea687e8b9d55346698338d7d9d9dce (diff) | |
| download | drakx-e5d2e80a09845619e90d736ac9c0f5fb3665574d.tar drakx-e5d2e80a09845619e90d736ac9c0f5fb3665574d.tar.gz drakx-e5d2e80a09845619e90d736ac9c0f5fb3665574d.tar.bz2 drakx-e5d2e80a09845619e90d736ac9c0f5fb3665574d.tar.xz drakx-e5d2e80a09845619e90d736ac9c0f5fb3665574d.zip | |
perlish ->window => ->get_window
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->($_); |