From 581d70ff9bbdb93dca53e1c46ddb10b2b1eaa945 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 19 Nov 2013 21:37:27 +0100
Subject: perlish ->window => ->get_window

---
 rpmdrake | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'rpmdrake')

diff --git a/rpmdrake b/rpmdrake
index 78e06f0e..6d89d82d 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -211,7 +211,7 @@ sub do_search($$$$$$$) {
           N("No search results. You may want to switch to the '%s' view and to the '%s' filter",
             N("All"), N("All"),);
         statusbar_msg($string , 1);
-        gtkset_mousecursor_normal($::w->{rwindow}->window);
+        gtkset_mousecursor_normal($::w->{rwindow}->get_window);
     }
     my $tree_selection = $tree->get_selection;
     if (my $path = $tree_model->get_path($iter)) {
@@ -337,7 +337,7 @@ sub run_treeview_dialog {
     $_->signal_connect(
 	expose_event => sub {
 	    $cursor_to_restore or return;
-	    gtkset_mousecursor_normal($tree->window);
+	    gtkset_mousecursor_normal($tree->get_window);
 	    undef $cursor_to_restore;
 	},
     ) foreach $tree, $detail_list;
@@ -355,9 +355,9 @@ sub run_treeview_dialog {
         while ($parent = $model->iter_parent($parent)) {
             $group = join('|', $model->get($parent, 0), $group);
         }
-        $detail_list->window->freeze_updates;
+        $detail_list->get_window->freeze_updates;
         $options->{add_nodes}->(@{$elems{$group}});
-        $detail_list->window->thaw_updates if $detail_list->window;
+        $detail_list->get_window->thaw_updates if $detail_list->get_window;
     });
 
     $options->{state}{splited} = 1;
@@ -463,7 +463,7 @@ sub run_treeview_dialog {
             if ($filter->[0] ne $val) {
                 $filter->[0] = $val;
                 reset_search();
-                slow_func($::main_window->window, sub { switch_pkg_list_mode($default_list_mode) });
+                slow_func($::main_window->get_window, sub { switch_pkg_list_mode($default_list_mode) });
                 $options->{rebuild_tree}->();
             }
         }
@@ -516,7 +516,7 @@ sub run_treeview_dialog {
                     );
 
     my $reload_db_and_clear_all = sub {
-        slow_func($w->{real_window}->window, sub {
+        slow_func($w->{real_window}->get_window, sub {
                       $force_rebuild = 1;
                       pkgs_provider($options->{tree_mode}, skip_updating_mu => 1);
                       reset_search();
@@ -762,7 +762,7 @@ sub run_treeview_dialog {
     $detail_list->realize;
     gtkflush();
 
-    slow_func($::main_window->window, sub { pkgs_provider($default_list_mode) }); # default mode
+    slow_func($::main_window->get_window, sub { pkgs_provider($default_list_mode) }); # default mode
     if (@initial_selection) {
         $options->{initial_selection} = \@initial_selection;
         undef $pkgs->{$_}{selected} foreach @initial_selection;
-- 
cgit v1.2.1