perl-tk-804.028-Widget-mousewheel-bind.patch

Fix for Tk::bind call in sub MouseWheelBind().

Moves a Windows-specific mousewheel bind into the platform-specific conditional
to avoid errors on non-Windows platforms.

This should fix Gentoo bug #238079 (reported for x11-terms/clusterssh, but affecting
potentially all packages dependent upon perl-tk).

Author: Bryan D. Stine <battousai@gentoo.org>

diff -urN Tk-804.028.orig/Tk/Widget.pm Tk-804.028/Tk/Widget.pm
--- Tk-804.028.orig/Tk/Widget.pm	2009-01-15 16:20:33.000000000 -0500
+++ Tk-804.028/Tk/Widget.pm	2009-01-15 16:20:43.000000000 -0500
@@ -1101,9 +1101,6 @@
  # could use the "event generate" command to produce MouseWheel
  # events on other platforms.
 
- $mw->Tk::bind($class, '<MouseWheel>',
-	       [ sub { $_[0]->yview('scroll',-($_[1]/120)*3,'units') }, Tk::Ev("D")]);
-
  if ($Tk::platform eq 'unix')
   {
    # Support for mousewheels on Linux/Unix commonly comes through mapping
@@ -1119,6 +1116,12 @@
 			   unless $Tk::strictMotif;
 		   });
   }
+ elsif ($Tk::platform eq 'MSWin32')
+  {
+    $mw->Tk::bind($class, '<MouseWheel>',
+	       [ sub { $_[0]->yview('scroll',-($_[1]/120)*3,'units') }, Tk::Ev("D")]);
+
+  }
 }
 
 sub ScrlListbox