twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-18 13:43:48 -07:00
Code Issues Packages Projects Releases Wiki Activity

Update to safer initColor api

Browse Source
This commit is contained in:
Don Stewart
2008-02-06 19:22:32 +00:00
parent 7b022b9981
commit 0675af2b53
2 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
XMonad/Prompt.hs
View File

@@ -463,8 +463,8 @@ drawWin = do
wh = widthOfScreen scr
ht = height c
bw = promptBorderWidth c
bgcolor <- io $ initColor d (bgColor c)
border <- io $ initColor d (borderColor c)
Just bgcolor <- io $ initColor d (bgColor c)
Just border <- io $ initColor d (borderColor c)
p <- io $ createPixmap d w wh ht
(defaultDepthOfScreen scr)
io $ fillDrawable d p gc border bgcolor (fi bw) wh ht
@@ -569,8 +569,8 @@ drawComplWin w compl = do
scr = defaultScreenOfDisplay d
bw = promptBorderWidth c
gc = gcon st
bgcolor <- io $ initColor d (bgColor c)
border <- io $ initColor d (borderColor c)
Just bgcolor <- io $ initColor d (bgColor c)
Just border <- io $ initColor d (borderColor c)
(_,_,wh,ht,xx,yy) <- getComplWinDim compl