aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Layout/ShowWName.hs
diff options
context:
space:
mode:
authorJan Vornberger <jan.vornberger@informatik.uni-oldenburg.de>2009-10-24 22:51:11 +0200
committerJan Vornberger <jan.vornberger@informatik.uni-oldenburg.de>2009-10-24 22:51:11 +0200
commit4da4e91a5ab9361451bad2a51a565115bbc0d79e (patch)
tree06a7c740d845c790f64d4dd5e57b134ffd82db01 /XMonad/Layout/ShowWName.hs
parentc2926c7f7543f3e79d6ecd841c0c55ea2454606a (diff)
downloadXMonadContrib-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/ShowWName.hs')
-rw-r--r--XMonad/Layout/ShowWName.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Layout/ShowWName.hs b/XMonad/Layout/ShowWName.hs
index c010843..5f9d49a 100644
--- a/XMonad/Layout/ShowWName.hs
+++ b/XMonad/Layout/ShowWName.hs
@@ -96,7 +96,7 @@ flashName c (Rectangle _ _ wh ht) wrs = do
x = (fi wh - width + 2) `div` 2
w <- createNewWindow (Rectangle (fi x) (fi y) (fi width) (fi hight)) Nothing "" True
showWindow w
- paintAndWrite w f (fi width) (fi hight) 0 "" "" (swn_color c) (swn_bgcolor c) AlignCenter n
+ paintAndWrite w f (fi width) (fi hight) 0 "" "" (swn_color c) (swn_bgcolor c) [AlignCenter] [n]
releaseXMF f
io $ sync d False
i <- startTimer (swn_fade c)