twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-16 04:33:57 -07:00
Code Issues Packages Projects Releases Wiki Activity

make Decoration set the input mask appropriately.

Browse Source
This commit is contained in:
David Roundy
2007-06-10 20:34:51 +00:00
parent 5a54e27a76
commit c61dd16d81
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Decoration.hs
View File

@@ -1,6 +1,7 @@
module XMonadContrib.Decoration ( newDecoration ) where module XMonadContrib.Decoration ( newDecoration ) where
import qualified Data.Map as M import qualified Data.Map as M
import Data.Bits ( (.|.) )
import Control.Monad.Reader ( asks ) import Control.Monad.Reader ( asks )
import Control.Monad.State ( modify, gets ) import Control.Monad.State ( modify, gets )
import Graphics.X11.Xlib import Graphics.X11.Xlib
@@ -18,6 +19,7 @@ newDecoration (Rectangle x y w h) th fg bg draw click =
n <- (W.tag . W.workspace . W.current) `fmap` gets windowset n <- (W.tag . W.workspace . W.current) `fmap` gets windowset
Just (l,ls) <- M.lookup n `fmap` gets layouts Just (l,ls) <- M.lookup n `fmap` gets layouts
win <- io $ createSimpleWindow d rt x y w h (fromIntegral th) fg bg win <- io $ createSimpleWindow d rt x y w h (fromIntegral th) fg bg
io $ selectInput d win $ exposureMask .|. buttonPressMask
io $ mapWindow d win io $ mapWindow d win
let draw' = withGC win draw let draw' = withGC win draw
modml :: (SomeMessage -> X (Maybe Layout)) -> SomeMessage -> X (Maybe Layout) modml :: (SomeMessage -> X (Maybe Layout)) -> SomeMessage -> X (Maybe Layout)
@@ -30,9 +32,9 @@ newDecoration (Rectangle x y w h) th fg bg draw click =
| t == buttonPress && thisw == win = click | t == buttonPress && thisw == win = click
handle_event (ButtonEvent {ev_window = thisw,ev_event_type = t}) handle_event (ButtonEvent {ev_window = thisw,ev_event_type = t})
| t == buttonPress && thisw == win = click | t == buttonPress && thisw == win = click
handle_event (AnyEvent {ev_window = thisw}) | thisw == win = draw' handle_event (AnyEvent {ev_window = thisw, ev_event_type = t})
| thisw == win && t == expose = draw'
handle_event _ = return () handle_event _ = return ()
draw'
modify $ \s -> s { layouts = M.insert n (modl l,ls) (layouts s) } modify $ \s -> s { layouts = M.insert n (modl l,ls) (layouts s) }
return win return win