summaryrefslogtreecommitdiffstats
path: root/MetaTile/Main.hsc
diff options
context:
space:
mode:
Diffstat (limited to 'MetaTile/Main.hsc')
-rw-r--r--MetaTile/Main.hsc5
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)