Drezil/pioneers
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

mouse events use local widget coordinates

Browse Source
This commit is contained in:
tpajenka
2014-05-09 00:17:31 +02:00
parent 75edc11a1e
commit 5f29ce7610
3 changed files with 29 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/UI/Callbacks.hs
View File

@ -145,7 +145,7 @@ clickHandler btn pos@(x,y) = do
case hits of
[] -> liftIO $ putStrLn $ unwords [show btn ++ ":press on (",show x,",",show y,")"]
_ -> do
changes <- mapM (\uid -> do
changes <- mapM (\(uid, pos') -> do
let w = toGUIAny hMap uid
short = w ^. baseProperties.shorthand
bound <- w ^. baseProperties.boundary
@ -153,8 +153,8 @@ clickHandler btn pos@(x,y) = do
liftIO $ putStrLn $ "hitting(" ++ show btn ++ ") " ++ short ++ ": " ++ show bound ++ " "
++ show prio ++ " at [" ++ show x ++ "," ++ show y ++ "]"
case w ^. eventHandlers.(at MouseEvent) of
Just ma -> do w' <- fromJust (ma ^? onMousePress) btn pos w -- TODO unsafe fromJust
w'' <- fromJust (ma ^? onMouseRelease) btn pos True w' -- TODO unsafe fromJust
Just ma -> do w' <- fromJust (ma ^? onMousePress) btn pos' w -- TODO unsafe fromJust
w'' <- fromJust (ma ^? onMouseRelease) btn pos' True w' -- TODO unsafe fromJust
return $ Just (uid, w'')
Nothing -> return Nothing
) hits