Affect universe in more events

src/Dodge/Event.hs

@@ -60,8 +60,7 @@ handleMouseMotionEvent mmev u = Just $ u & uvWorld . mousePos .~ V2
 handleMouseButtonEvent :: MouseButtonEventData -> Universe -> Maybe Universe
 handleMouseButtonEvent mbev u = case mouseButtonEventMotion mbev of
     Released -> Just $ u & uvWorld . mouseButtons %~ S.delete but
-    Pressed  -> uvWorld
-        (handlePressedMouseButton but)
+    Pressed  -> (handlePressedMouseButton but)
         (u & uvWorld . mouseButtons %~ S.insert but)
   where 
     but = mouseButtonEventButton mbev
@@ -87,10 +86,10 @@ handleResizeEvent sev u = Just $ u
     V2 x' y' = windowSizeChangedEventSize sev
     divRes = w ^. config . resolution_factor
 
-handlePressedMouseButton :: MouseButton -> World -> Maybe World
+handlePressedMouseButton :: MouseButton -> Universe -> Maybe Universe
 handlePressedMouseButton but w 
-    | but == ButtonMiddle || _carteDisplay w 
-                = Just $ w & clickMousePos .~ _mousePos w
+    | but == ButtonMiddle || _carteDisplay (_uvWorld w) 
+                = Just $ w & uvWorld . clickMousePos .~ _mousePos (_uvWorld w)
     | otherwise = Just w
 
 handleMouseWheelEvent :: MouseWheelEventData -> Universe -> Maybe Universe