diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-28 14:58:15 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-28 14:58:15 +0100 |
| commit | 4a4c4aead90724a76abc12fd489742336b6f3912 (patch) | |
| tree | a01d2d65cd3e3b4c75051c717e1f3d1f4fc5e7ca /perl-install/standalone/logdrake | |
| parent | 139725a86f58091d6a4efe312a3550bb1c35eae0 (diff) | |
| download | drakx-4a4c4aead90724a76abc12fd489742336b6f3912.tar drakx-4a4c4aead90724a76abc12fd489742336b6f3912.tar.gz drakx-4a4c4aead90724a76abc12fd489742336b6f3912.tar.bz2 drakx-4a4c4aead90724a76abc12fd489742336b6f3912.tar.xz drakx-4a4c4aead90724a76abc12fd489742336b6f3912.zip | |
factorize a variable
(needed for next commit)
Diffstat (limited to 'perl-install/standalone/logdrake')
| -rwxr-xr-x | perl-install/standalone/logdrake | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index 8ad314f0f..532cd6087 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -197,8 +197,9 @@ sub quit() { ugtk3->exit(0) } # search functions #------------------------------------------------------------- sub search() { - return if !$log_text->get_window; - $log_text->get_window->freeze_updates; + my $window = $log_text->get_window; + return if !$window; + $window->freeze_updates; $log_buf->set_text(''); if ($isFile) { parse_file($File, $File); @@ -207,7 +208,7 @@ sub search() { parse_file($files{$_}{file}, $files{$_}{desc}) if $toggle{$_}->get_active; } } - $log_text->get_window->thaw_updates; + $window->thaw_updates; $log_text->show; gtkflush(); } |