perlish ->window => ->get_window

3 files changed, 14 insertions, 14 deletions

diff --git a/bin/draknetprofile b/bin/draknetprofile
index 65faa7f..5a76b9d 100755
--- a/bin/draknetprofile
+++ b/bin/draknetprofile
@@ -137,7 +137,7 @@ sub set_selected_profile() {
 
 sub set_profile {
     my ($profile) = @_;
-    gtkset_mousecursor_wait($w->{window}->window);
+    gtkset_mousecursor_wait($w->{window}->get_window);
     $profiles_list->set_sensitive(0);
     $_->set_sensitive(0) foreach values %buttons;
     gtkflush();
@@ -147,7 +147,7 @@ sub set_profile {
     }
     $SIG{CHLD} = sub {
 	$SIG{CHLD} = 'IGNORE';
-	gtkset_mousecursor_normal($w->{window}->window);
+	gtkset_mousecursor_normal($w->{window}->get_window);
 	update_profiles();
 	$_->set_sensitive(1) foreach values %buttons;
     	$profiles_list->set_sensitive(1);
diff --git a/bin/net_monitor b/bin/net_monitor
index d3704b8..4bbb58b 100755
--- a/bin/net_monitor
+++ b/bin/net_monitor
@@ -128,11 +128,11 @@ gtkadd($window1->{window},
 $window1->{window}->show_all;
 $window1->{window}->realize;
 
-my $gct = Gtk3::Gdk::GC->new($window1->{window}->window);
+my $gct = Gtk3::Gdk::GC->new($window1->{window}->get_window);
 $gct->set_foreground($colort);
-my $gcr = Gtk3::Gdk::GC->new($window1->{window}->window);
+my $gcr = Gtk3::Gdk::GC->new($window1->{window}->get_window);
 $gcr->set_foreground($colorr);
-my $gca = Gtk3::Gdk::GC->new($window1->{window}->window);
+my $gca = Gtk3::Gdk::GC->new($window1->{window}->get_window);
 $gca->set_foreground($colora);
 
 $statusbar->push(1, N("Wait please, testing your connection..."));
@@ -409,7 +409,7 @@ sub color_button {
             $_[0]->queue_draw;
         },
         child => gtksignal_connect(gtkshow(gtksize(gtkset(Gtk3::DrawingArea->new, width => 10, height => 10), 10, 10)),
-            expose_event => sub { $_[0]->window->draw_rectangle($gc, 1, 0, 0, 10, 10) })
+            expose_event => sub { $_[0]->get_window->draw_rectangle($gc, 1, 0, 0, 10, 10) })
     );
 }
 
@@ -469,7 +469,7 @@ sub update() {
                 gtknew('Label', text => $intf));
             $monitor->{$intf}{page} = $notebook->page_num($page);
             $darea->{$intf}->realize;
-            $pixmap->{$intf} = Gtk3::Gdk::Pixmap->new($darea->{$intf}->window, $width, $height, $darea->{$intf}->window->get_depth);
+            $pixmap->{$intf} = Gtk3::Gdk::Pixmap->new($darea->{$intf}->get_window, $width, $height, $darea->{$intf}->window->get_depth);
             $monitor->{$intf}{referencer} = $monitor->{$intf}{val}[0];
             $monitor->{$intf}{referencet} = $monitor->{$intf}{val}[8];
             $pixmap->{$intf}->draw_rectangle($darea->{$intf}->style->black_gc, 1, 0, 0, $width, $height);
@@ -482,10 +482,10 @@ sub update() {
                     gtkset($measure_t, text => formatXiB($transmitted));
                 });
             $darea->{$intf}->signal_connect(expose_event => sub {
-                    return if !$darea->{$intf}->window;
-                    $darea->{$intf}->window->draw_drawable($darea->{$intf}->style->bg_gc('normal'), $pixmap->{$intf}, 0, 0, 0, 0, $width, $height);
+                    return if !$darea->{$intf}->get_window;
+                    $darea->{$intf}->get_window->draw_drawable($darea->{$intf}->style->bg_gc('normal'), $pixmap->{$intf}, 0, 0, 0, 0, $width, $height);
                 });
-            $gc_lines->{$intf} = Gtk3::Gdk::GC->new($darea->{$intf}->window);
+            $gc_lines->{$intf} = Gtk3::Gdk::GC->new($darea->{$intf}->get_window);
             $gc_lines->{$intf}->set_foreground($darea->{$intf}->style->white);
             $gc_lines->{$intf}->set_line_attributes(1, 'on-off-dash', 'not-last', 'round');
 
diff --git a/lib/network/connection_manager/gtk.pm b/lib/network/connection_manager/gtk.pm
index 0d3af67..1c56079 100644
--- a/lib/network/connection_manager/gtk.pm
+++ b/lib/network/connection_manager/gtk.pm
@@ -27,16 +27,16 @@ sub new {
 
 sub start_connection {
     my ($cmanager) = @_;
-    gtkset_mousecursor_wait($cmanager->{gui}{w}{window}->window);
+    gtkset_mousecursor_wait($cmanager->{gui}{w}{window}->get_window);
     $cmanager->SUPER::start_connection;
-    gtkset_mousecursor_normal($cmanager->{gui}{w}{window}->window);
+    gtkset_mousecursor_normal($cmanager->{gui}{w}{window}->get_window);
 }
 
 sub stop_connection {
     my ($cmanager) = @_;
-    gtkset_mousecursor_wait($cmanager->{gui}{w}{window}->window);
+    gtkset_mousecursor_wait($cmanager->{gui}{w}{window}->get_window);
     $cmanager->SUPER::stop_connection;
-    gtkset_mousecursor_normal($cmanager->{gui}{w}{window}->window);
+    gtkset_mousecursor_normal($cmanager->{gui}{w}{window}->get_window);
 }
 
 sub select_network {