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
nmap <- return $ M.adjust
(updateProperty ("y", G.PropertyDouble (fromIntegral (y - 10))) .
updateProperty ("x", G.PropertyDouble (fromIntegral (x - 10)))
(updateProperties $ props $ do
prop "x" (fromIntegral (x - 10) :: Double)
prop "y" (fromIntegral (y - 10) :: Double)
)
"rect"
(actors ud)