diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-17 00:27:43 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-17 00:27:43 +0100 |
| commit | ec255a33cd8fa98e8dc325c475ba4d2c4e7a53d9 (patch) | |
| tree | 8ed676b342e026ab95a8841d33bb16829a70a8f0 /XMonad/Util/XUtils.hs | |
| parent | 2ccdb6b9f9a618a5615c0fe9e42414def4ae7cf0 (diff) | |
| download | XMonadContrib-ec255a33cd8fa98e8dc325c475ba4d2c4e7a53d9.tar.gz XMonadContrib-ec255a33cd8fa98e8dc325c475ba4d2c4e7a53d9.tar.xz XMonadContrib-ec255a33cd8fa98e8dc325c475ba4d2c4e7a53d9.zip | |
Port XPrompt to XMonad.Util.Font, various other refactorings
darcs-hash:20071116232743-a5988-555816e43cf5559966bee4c22e21e8a2f46edb92.gz
Diffstat (limited to 'XMonad/Util/XUtils.hs')
| -rw-r--r-- | XMonad/Util/XUtils.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Util/XUtils.hs b/XMonad/Util/XUtils.hs index 9f4bc69..e53d371 100644 --- a/XMonad/Util/XUtils.hs +++ b/XMonad/Util/XUtils.hs @@ -53,7 +53,7 @@ createNewWindow :: Rectangle -> Maybe EventMask -> String -> X Window createNewWindow (Rectangle x y w h) m col = do d <- asks display rw <- asks theRoot - c <- stringToPixel col + c <- stringToPixel d col win <- io $ createSimpleWindow d rw x y w h 0 c c case m of Just em -> io $ selectInput d win em @@ -116,7 +116,7 @@ paintWindow' win (Rectangle x y wh ht) bw color b_color str = do gc <- io $ createGC d p -- draw io $ setGraphicsExposures d gc False - [color',b_color'] <- mapM stringToPixel [color,b_color] + [color',b_color'] <- mapM (stringToPixel d) [color,b_color] -- we start with the border io $ setForeground d gc b_color' io $ fillRectangle d p gc 0 0 wh ht |