diff options
author | Matthias Schiffer <mschiffer@universe-factory.net> | 2013-09-17 01:36:14 +0200 |
---|---|---|
committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2013-09-17 01:36:14 +0200 |
commit | c04271bf6b9126f635b9b9baf173b2af5380fd84 (patch) | |
tree | 7638dd803464631c8014a6a6a425d9b5fcb91e98 /MetaTile/Main.hsc | |
parent | 43759844f5fb4d8e5280e6b697b6f7efcadf0c6b (diff) | |
download | metatile-c04271bf6b9126f635b9b9baf173b2af5380fd84.tar metatile-c04271bf6b9126f635b9b9baf173b2af5380fd84.zip |
Add layout modifier for floating layer support
Diffstat (limited to 'MetaTile/Main.hsc')
-rw-r--r-- | MetaTile/Main.hsc | 5 |
1 files changed, 4 insertions, 1 deletions
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) |