diff options
| author | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2007-07-09 01:43:04 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2007-07-09 01:43:04 +0200 |
| commit | 7fe909257403714f6f6b24afbdce30e29c5605bf (patch) | |
| tree | 61fc950be7633d437eda22bfcab5e56bf08de992 | |
| parent | 20c1f8de69ad714becc2b5e8adcfc0aab3cc50f7 (diff) | |
| download | xmobar-7fe909257403714f6f6b24afbdce30e29c5605bf.tar.gz xmobar-7fe909257403714f6f6b24afbdce30e29c5605bf.tar.bz2 | |
fixes a bug in the copyArea function
darcs-hash:20070708234304-d6583-c5185f2af7d580c900c753c3feff41becaed2b80.gz
| -rw-r--r-- | XMobar.hs | 6 |
1 files changed, 1 insertions, 5 deletions
@@ -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 |