twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-05-19 08:30:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

-Wall police

Browse Source
This commit is contained in:
Don Stewart 2007-08-16 03:31:32 +00:00
parent 6dcd66f16e
commit 6a273c2afa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Main.hs
View File

@ -194,7 +194,7 @@ handle e@(ButtonEvent {ev_event_type = t})
Nothing -> broadcastMessage e Nothing -> broadcastMessage e
-- handle motionNotify event, which may mean we are dragging. -- handle motionNotify event, which may mean we are dragging.
handle e@(MotionEvent {ev_event_type = t, ev_x = x, ev_y = y}) = do handle e@(MotionEvent {ev_event_type = _t, ev_x = x, ev_y = y}) = do
drag <- gets dragging drag <- gets dragging
case drag of case drag of
Just (d,_) -> d (fromIntegral x) (fromIntegral y) -- we're dragging Just (d,_) -> d (fromIntegral x) (fromIntegral y) -- we're dragging