From e5d2e80a09845619e90d736ac9c0f5fb3665574d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 1 Aug 2012 18:56:16 +0200
Subject: perlish ->window => ->get_window

---
 perl-install/standalone/logdrake | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'perl-install/standalone/logdrake')

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->($_);
-- 
cgit v1.2.1