aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Layout
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@unibz.it>2007-12-24 18:10:20 +0100
committerAndrea Rossato <andrea.rossato@unibz.it>2007-12-24 18:10:20 +0100
commite8d74a86b7e6715242f10f78b35a1bf2c1305238 (patch)
treed7e966b5bd4f2561ce2df5492b134dc3bafd619e /XMonad/Layout
parentc6cb52a0bd9b59b1e5c1440d463bf319e0d8ee5d (diff)
downloadXMonadContrib-e8d74a86b7e6715242f10f78b35a1bf2c1305238.tar.gz
XMonadContrib-e8d74a86b7e6715242f10f78b35a1bf2c1305238.tar.xz
XMonadContrib-e8d74a86b7e6715242f10f78b35a1bf2c1305238.zip
Fix isssue 105
issue 105 was due to the fact that tab windows created when bootstrapping the windowset after a restart where managed. Setting the override_redirect attributes to True fixes the issue. Added the possibility to set the override_redirect attribute with XMonad.Util.XUtils.creationNewWindow darcs-hash:20071224171020-32816-74cb79d8000d00c6eb9abdcf71474df5d0d9c735.gz
Diffstat (limited to 'XMonad/Layout')
-rw-r--r--XMonad/Layout/DragPane.hs2
-rw-r--r--XMonad/Layout/Tabbed.hs8
2 files changed, 5 insertions, 5 deletions
diff --git a/XMonad/Layout/DragPane.hs b/XMonad/Layout/DragPane.hs
index 7e10597..6bb099b 100644
--- a/XMonad/Layout/DragPane.hs
+++ b/XMonad/Layout/DragPane.hs
@@ -131,6 +131,6 @@ doLay mirror (DragPane mw ty delta split) r s = do
newDragWin :: Rectangle -> X Window
newDragWin r = do
let mask = Just $ exposureMask .|. buttonPressMask
- w <- createNewWindow r mask handleColor
+ w <- createNewWindow r mask handleColor False
showWindow w
return w
diff --git a/XMonad/Layout/Tabbed.hs b/XMonad/Layout/Tabbed.hs
index 2b30caf..db4ec05 100644
--- a/XMonad/Layout/Tabbed.hs
+++ b/XMonad/Layout/Tabbed.hs
@@ -94,7 +94,7 @@ data TabState =
TabState { tabsWindows :: [(Window,Window)]
, scr :: Rectangle
, font :: XMonadFont
- }
+ }
data Tabbed s a =
Tabbed (Invisible Maybe TabState) s TConf
@@ -136,8 +136,8 @@ handleMess _ _ = return Nothing
handleEvent :: Shrinker s => s -> TConf -> TabState -> Event -> X ()
-- button press
-handleEvent ishr conf (TabState {tabsWindows = tws, scr = screen, font = fs})
- (ButtonEvent {ev_window = thisw, ev_subwindow = thisbw, ev_event_type = t})
+handleEvent ishr conf (TabState {tabsWindows = tws, scr = screen, font = fs})
+ (ButtonEvent {ev_window = thisw, ev_subwindow = thisbw, ev_event_type = t })
| t == buttonPress, tl <- map fst tws, thisw `elem` tl || thisbw `elem` tl = do
case lookup thisw tws of
Just x -> do focus x
@@ -182,7 +182,7 @@ createTabs c (Rectangle x y wh ht) owl@(ow:ows) = do
height = fromIntegral $ tabSize c
mask = Just (exposureMask .|. buttonPressMask)
d <- asks display
- w <- createNewWindow (Rectangle x y wid height) mask (inactiveColor c)
+ w <- createNewWindow (Rectangle x y wid height) mask (inactiveColor c) True
io $ restackWindows d $ w : [ow]
ws <- createTabs c (Rectangle (x + fromIntegral wid) y (wh - wid) ht) ows
return (w:ws)