From d81e88a8ecd9d312cb689092f2aadb5ed1a0a75b Mon Sep 17 00:00:00 2001 From: Thierry Vignaud 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') 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