diff options
author | Jan Vornberger <jan.vornberger@informatik.uni-oldenburg.de> | 2009-10-24 22:51:11 +0200 |
---|---|---|
committer | Jan Vornberger <jan.vornberger@informatik.uni-oldenburg.de> | 2009-10-24 22:51:11 +0200 |
commit | 4da4e91a5ab9361451bad2a51a565115bbc0d79e (patch) | |
tree | 06a7c740d845c790f64d4dd5e57b134ffd82db01 /XMonad/Layout/Decoration.hs | |
parent | c2926c7f7543f3e79d6ecd841c0c55ea2454606a (diff) | |
download | XMonadContrib-4da4e91a5ab9361451bad2a51a565115bbc0d79e.tar.gz XMonadContrib-4da4e91a5ab9361451bad2a51a565115bbc0d79e.tar.xz XMonadContrib-4da4e91a5ab9361451bad2a51a565115bbc0d79e.zip |
Extended paintAndWrite to allow for multiple strings to be written into the rectangle
Ignore-this: eb7d32284b7f98145038dcaa14f8075e
darcs-hash:20091024205111-594c5-33318832d5ca7d71ece560ea79d45109001eadfb.gz
Diffstat (limited to 'XMonad/Layout/Decoration.hs')
-rw-r--r-- | XMonad/Layout/Decoration.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Layout/Decoration.hs b/XMonad/Layout/Decoration.hs index b19603e..eee686b 100644 --- a/XMonad/Layout/Decoration.hs +++ b/XMonad/Layout/Decoration.hs @@ -374,7 +374,7 @@ updateDeco sh t fs ((w,_),(Just dw,Just (Rectangle _ _ wh ht))) = do let s = shrinkIt sh name <- shrinkWhile s (\n -> do size <- io $ textWidthXMF dpy fs n return $ size > fromIntegral wh - fromIntegral (ht `div` 2)) (show nw) - paintAndWrite dw fs wh ht 1 bc borderc tc bc AlignCenter name + paintAndWrite dw fs wh ht 1 bc borderc tc bc [AlignCenter] [name] updateDeco _ _ _ (_,(Just w,Nothing)) = hideWindow w updateDeco _ _ _ _ = return () |