diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-12-24 18:10:20 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-12-24 18:10:20 +0100 |
| commit | e8d74a86b7e6715242f10f78b35a1bf2c1305238 (patch) | |
| tree | d7e966b5bd4f2561ce2df5492b134dc3bafd619e /XMonad/Layout | |
| parent | c6cb52a0bd9b59b1e5c1440d463bf319e0d8ee5d (diff) | |
| download | XMonadContrib-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.hs | 2 | ||||
| -rw-r--r-- | XMonad/Layout/Tabbed.hs | 8 |
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) |