From c04271bf6b9126f635b9b9baf173b2af5380fd84 Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Tue, 17 Sep 2013 01:36:14 +0200 Subject: Add layout modifier for floating layer support --- MetaTile/Main.hsc | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'MetaTile/Main.hsc') diff --git a/MetaTile/Main.hsc b/MetaTile/Main.hsc index 426e78f..92692a3 100644 --- a/MetaTile/Main.hsc +++ b/MetaTile/Main.hsc @@ -24,6 +24,7 @@ import Control.Monad.Reader import Control.Monad.State import Data.Maybe (fromMaybe) import Data.Monoid (getAll) +import Data.Traversable (traverse) import Foreign.C import Foreign.Ptr @@ -252,8 +253,10 @@ handle e@(ButtonEvent {ev_window = w,ev_event_type = t,ev_button = b }) isr <- isRoot w m <- cleanMask $ ev_state e mact <- asks (M.lookup (m, b) . buttonActions) + trace $ show (ev_subwindow e) + getsFrameState fsWindow (ev_subwindow e) >>= trace . show case mact of - Just act | isr -> act $ ev_subwindow e + Just act | isr -> getsFrameState fsWindow (ev_subwindow e) >>= traverse act >> return () _ -> do focus w ctf <- asks (clickJustFocuses . config) -- cgit v1.2.3