incorporate in example02

This commit is contained in:
nek0 2017-03-21 12:12:46 +01:00
parent 85c6288f50
commit efbfe14fe8

View file

@ -126,8 +126,9 @@ handle (SDL.MouseMotionEvent dat) = do
ud <- getAffection ud <- getAffection
nmap <- return $ M.adjust nmap <- return $ M.adjust
(updateProperty ("y", G.PropertyDouble (fromIntegral (y - 10))) . (updateProperties $ props $ do
updateProperty ("x", G.PropertyDouble (fromIntegral (x - 10))) prop "x" (fromIntegral (x - 10) :: Double)
prop "y" (fromIntegral (y - 10) :: Double)
) )
"rect" "rect"
(actors ud) (actors ud)