From d81e88a8ecd9d312cb689092f2aadb5ed1a0a75b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 18 Nov 2013 01:41:34 +0100
Subject: perlish ->window => ->get_window
---
lib/network/connection_manager/gtk.pm | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
(limited to 'lib/network/connection_manager/gtk.pm')
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 {
--
cgit v1.2.1