summaryrefslogtreecommitdiffhomepage
path: root/src/XUtil.hsc
diff options
context:
space:
mode:
Diffstat (limited to 'src/XUtil.hsc')
-rw-r--r--src/XUtil.hsc20
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 ()