summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--XMonad/Core.hs4
-rw-r--r--XMonad/Main.hsc8
-rw-r--r--XMonad/Operations.hs2
3 files changed, 7 insertions, 7 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs
index 483bc28..91defbf 100644
--- a/XMonad/Core.hs
+++ b/XMonad/Core.hs
@@ -51,7 +51,7 @@ import System.Process
import System.Directory
import System.Exit
import Graphics.X11.Xlib hiding (Screen)
-import Graphics.X11.Xlib.Extras (Event)
+import Graphics.X11.Xlib.Extras (Event, none)
import Data.Typeable
import Data.List ((\\))
import Data.Maybe (isJust,fromMaybe)
@@ -233,7 +233,7 @@ getAtom :: String -> X Atom
getAtom str = withDisplay $ \dpy -> io $ internAtom dpy str False
emptyWindowState :: X WindowState
-emptyWindowState = asks (defaultBorderWidth . config) >>= return . WindowState False 0 0
+emptyWindowState = asks (defaultBorderWidth . config) >>= return . WindowState False 0 none
getWindowState :: Window -> X WindowState
getWindowState w = do
diff --git a/XMonad/Main.hsc b/XMonad/Main.hsc
index d09e024..4c00b20 100644
--- a/XMonad/Main.hsc
+++ b/XMonad/Main.hsc
@@ -313,7 +313,7 @@ reparent :: Window -> X ()
reparent w = withDisplay $ \dpy -> do
rootw <- asks theRoot
p <- asks normalBorder
- noFrame <- getsWindowState ((==0) . wsFrame) w
+ noFrame <- getsWindowState ((==none) . wsFrame) w
when noFrame $ do
trace $ "reparent: " ++ show w
frame <- io $ allocaSetWindowAttributes $ \swa -> do
@@ -329,15 +329,15 @@ reparent w = withDisplay $ \dpy -> do
hideParent :: Window -> X ()
hideParent w = withDisplay $ \dpy -> do
frame <- getsWindowState wsFrame w
- when (frame /= 0) $ io $ unmapWindow dpy frame
+ when (frame /= none) $ io $ unmapWindow dpy frame
unparent :: Window -> X ()
unparent w = withDisplay $ \dpy -> do
trace $ "unparent: " ++ show w
frame <- getsWindowState wsFrame w
- when (frame /= 0) $ do
+ when (frame /= none) $ do
io $ destroyWindow dpy frame
- modifyWindowState (\ws -> ws { wsFrame = 0 }) w
+ modifyWindowState (\ws -> ws { wsFrame = none }) w
-- ---------------------------------------------------------------------
-- IO stuff. Doesn't require any X state
diff --git a/XMonad/Operations.hs b/XMonad/Operations.hs
index ad6f8b1..1723ed8 100644
--- a/XMonad/Operations.hs
+++ b/XMonad/Operations.hs
@@ -202,7 +202,7 @@ reveal w = withDisplay $ \d -> do
-- send absolute ConfigureNotify
allocaXEvent $ \event -> do
setEventType event configureNotify
- setConfigureEvent event w w (fi x') (fi y') (fi width') (fi height') 0 0 False
+ setConfigureEvent event w w (fi x') (fi y') (fi width') (fi height') 0 none False
sendEvent d w False structureNotifyMask event
modifyWindowState (\ws -> ws { wsMapped = True }) w
where