diff options
author | Jason Creighton <jcreigh@gmail.com> | 2007-06-14 01:45:01 +0200 |
---|---|---|
committer | Jason Creighton <jcreigh@gmail.com> | 2007-06-14 01:45:01 +0200 |
commit | ca00fbd50f9c4b6a6dbbb9ec7bb525b459a4612b (patch) | |
tree | 4de8b9bc920c610af0322dbb6875392d35fa3990 /Main.hs | |
parent | ff9757d5d1240ccf646635dc5e0777095fad057f (diff) | |
download | xmonad-ca00fbd50f9c4b6a6dbbb9ec7bb525b459a4612b.tar.gz xmonad-ca00fbd50f9c4b6a6dbbb9ec7bb525b459a4612b.tar.xz xmonad-ca00fbd50f9c4b6a6dbbb9ec7bb525b459a4612b.zip |
move initColor to Operations and only store the Pixel value of colors
Moving initColor to Operations allows it to be used by extensions.
The Pixel component of the color is the only thing we need, so it's simpler
just to deal with that.
darcs-hash:20070613234501-b9aa7-5b39416db9f9d5ac42692262c233179baeb2540f.gz
Diffstat (limited to '')
-rw-r--r-- | Main.hs | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -42,12 +42,11 @@ main :: IO () main = do dpy <- openDisplay "" let dflt = defaultScreen dpy - initcolor c = fst `liftM` allocNamedColor dpy (defaultColormap dpy dflt) c rootw <- rootWindow dpy dflt xinesc <- getScreenInfo dpy - nbc <- initcolor normalBorderColor - fbc <- initcolor focusedBorderColor + nbc <- initColor dpy normalBorderColor + fbc <- initColor dpy focusedBorderColor hSetBuffering stdout NoBuffering args <- getArgs |