From f7f0aced90c8431d8f0809e6a69cf15c9901edcc Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Wed, 1 Dec 2004 10:35:09 +0000 Subject: return value for gtkset_mousecursor --- perl-install/ugtk2.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index a72aaa945..f16003445 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -175,6 +175,7 @@ sub gtkcombo_setpopdown_strings { sub gtkset_mousecursor { my ($type, $w) = @_; ($w || gtkroot())->set_cursor(Gtk2::Gdk::Cursor->new($type)); + $w; } sub gtksignal_connect { -- cgit v1.2.1