--- Graphics/Gloss/Internals/Interface/Backend/GLUT.hs	2011-11-16 09:58:40.359886120 +0100
+++ Graphics/Gloss/Internals/Interface/Backend/GLUT.patched.hs	2011-11-16 09:58:57.951886166 +0100
@@ -239,7 +239,9 @@
         -> IO ()
 
 installMotionCallbackGLUT ref callbacks
-        = GLUT.motionCallback $= Just (callbackMotion ref callbacks)
+        = do GLUT.motionCallback $= Just (callbackMotion ref callbacks)
+             GLUT.passiveMotionCallback $= Just (callbackMotion ref callbacks)
+
 
 callbackMotion
         :: IORef GLUTState -> [Callback]