From 74be11b60da8ad9373d26fb2a669ba3c4852b6a7 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Fri, 10 Aug 2007 23:39:40 +0200 Subject: Cleanup darcs-hash:20070810213940-a5988-7baa041cdf9a07038cb36645f314eb48bb8423aa --- Main.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'Main.hs') diff --git a/Main.hs b/Main.hs index fc12bce..1716b60 100644 --- a/Main.hs +++ b/Main.hs @@ -189,16 +189,16 @@ handle e@(ButtonEvent {ev_event_type = t}) | t == buttonRelease = do drag <- gets dragging case drag of - Just (_,f) -> modify (\s -> s { dragging = Nothing }) >> f - -- we're done dragging and have released the mouse - Nothing -> broadcastMessage e + -- we're done dragging and have released the mouse: + Just (_,f) -> modify (\s -> s { dragging = Nothing }) >> f + Nothing -> broadcastMessage e -- handle motionNotify event, which may mean we are dragging. handle e@(MotionEvent {ev_event_type = t, ev_x = x, ev_y = y}) = do drag <- gets dragging case drag of - Just (d,_) -> d (fromIntegral x) (fromIntegral y) -- we're dragging - Nothing -> broadcastMessage e + Just (d,_) -> d (fromIntegral x) (fromIntegral y) -- we're dragging + Nothing -> broadcastMessage e -- click on an unfocused window, makes it focused on this workspace handle e@(ButtonEvent {ev_window = w,ev_event_type = t,ev_button = b }) -- cgit v1.2.3