diff options
Diffstat (limited to '')
-rw-r--r-- | XMonad/Util/XUtils.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/XMonad/Util/XUtils.hs b/XMonad/Util/XUtils.hs index aff7b4b..c72bd79 100644 --- a/XMonad/Util/XUtils.hs +++ b/XMonad/Util/XUtils.hs @@ -117,7 +117,8 @@ paintAndWrite :: Window -- ^ The window where to draw -> String -- ^ String to be printed -> X () paintAndWrite w fs wh ht bw bc borc ffc fbc al str = do - (x,y) <- stringPosition fs (Rectangle 0 0 wh ht) al str + d <- asks display + (x,y) <- stringPosition d fs (Rectangle 0 0 wh ht) al str paintWindow' w (Rectangle x y wh ht) bw bc borc ms where ms = Just (fs,ffc,fbc,str) |