diff options
Diffstat (limited to 'src/XUtil.hsc')
| -rw-r--r-- | src/XUtil.hsc | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/XUtil.hsc b/src/XUtil.hsc index f0a4b2d..28569da 100644 --- a/src/XUtil.hsc +++ b/src/XUtil.hsc @@ -163,21 +163,21 @@ textExtents (Xft xftfont) _ = do loadBitmap :: Display -> Drawable -> FilePath -> IO (Maybe Bitmap) loadBitmap d w p = do - exist <- doesFileExist p - if exist - then do - (bw, bh, bp, _, _) <- readBitmapFile d w p - return $ Just $ Bitmap bw bh bp - else - return Nothing + exist <- doesFileExist p + if exist + then do + (bw, bh, bp, _, _) <- readBitmapFile d w p + return $ Just $ Bitmap bw bh bp + else + return Nothing drawBitmap :: Display -> Drawable -> XFont -> GC -> String -> String -> Position -> Position -> Bitmap -> IO () drawBitmap d p _ gc fc bc x y i = do withColors d [fc, bc] $ \[fc', bc'] -> do - setForeground d gc fc' - setBackground d gc bc' - io $ copyPlane d (pixmap i) p gc 0 0 (width i) (height i) x (y - (fi $ height i)) 1 + setForeground d gc fc' + setBackground d gc bc' + io $ copyPlane d (pixmap i) p gc 0 0 (width i) (height i) x (y - (fi $ height i)) 1 printString :: Display -> Drawable -> XFont -> GC -> String -> String -> Position -> Position -> Widget -> IO () |