diff options
Diffstat (limited to 'XMonad/Util/XUtils.hs')
-rw-r--r-- | XMonad/Util/XUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Util/XUtils.hs b/XMonad/Util/XUtils.hs index c72bd79..b37d438 100644 --- a/XMonad/Util/XUtils.hs +++ b/XMonad/Util/XUtils.hs @@ -137,7 +137,7 @@ paintWindow' win (Rectangle x y wh ht) bw color b_color str = do io $ fillRectangle d p gc 0 0 wh ht -- and now again io $ setForeground d gc color' - io $ fillRectangle d p gc (fi bw) (fi bw) ((wh - (bw * 2))) (ht - (bw * 2)) + io $ fillRectangle d p gc (fi bw) (fi bw) (wh - (bw * 2)) (ht - (bw * 2)) when (isJust str) $ do let (xmf,fc,bc,s) = fromJust str printStringXMF d p xmf gc fc bc x y s |