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 --- bin/draknetprofile | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'bin/draknetprofile') 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); -- cgit v1.2.1