summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@ing.unitn.it>2007-07-09 01:43:04 +0200
committerAndrea Rossato <andrea.rossato@ing.unitn.it>2007-07-09 01:43:04 +0200
commit7fe909257403714f6f6b24afbdce30e29c5605bf (patch)
tree61fc950be7633d437eda22bfcab5e56bf08de992
parent20c1f8de69ad714becc2b5e8adcfc0aab3cc50f7 (diff)
downloadxmobar-7fe909257403714f6f6b24afbdce30e29c5605bf.tar.gz
xmobar-7fe909257403714f6f6b24afbdce30e29c5605bf.tar.bz2
fixes a bug in the copyArea function
darcs-hash:20070708234304-d6583-c5185f2af7d580c900c753c3feff41becaed2b80.gz
-rw-r--r--XMobar.hs6
1 files changed, 1 insertions, 5 deletions
diff --git a/XMobar.hs b/XMobar.hs
index f0fffe0..0c9b65c 100644
--- a/XMobar.hs
+++ b/XMobar.hs
@@ -124,11 +124,7 @@ drawInWin str =
let strWithLenth = map (\(s,c) -> (s,c,textWidth fontst s)) str
p' <- printStrings p gc fontst 1 strWithLenth
-- copy the pixmap with the new string to the window.
- io $ copyArea dpy p' win gc
- (fi (xPos config))
- (fi (yPos config))
- (fi (width config))
- (fi (height config)) 0 0
+ io $ copyArea dpy p' win gc 0 0 (fi (width config)) (fi (height config)) 0 0
-- free up everything (we do not want to leak memory!)
io $ freeFont dpy fontst
io $ freeGC dpy gc