From c9d6896cbd7e03af344f5d053c267174ccd10a11 Mon Sep 17 00:00:00 2001
From: Alexander Polakov <plhk@sdf.org>
Date: Mon, 25 Feb 2013 03:30:53 +0400
Subject: readBitmapFile was included into X11 package

---
 src/Bitmap.hs   |  1 -
 src/XGraphic.hs | 52 ----------------------------------------------------
 2 files changed, 53 deletions(-)
 delete mode 100644 src/XGraphic.hs

(limited to 'src')

diff --git a/src/Bitmap.hs b/src/Bitmap.hs
index dfc1d04..b073c9b 100644
--- a/src/Bitmap.hs
+++ b/src/Bitmap.hs
@@ -20,7 +20,6 @@ import Data.Map hiding (foldr, map, filter)
 import Graphics.X11.Xlib
 import System.Directory (doesFileExist)
 import System.Mem.Weak ( addFinalizer )
-import XGraphic
 import ColorCache
 import Parsers (Widget(..))
 
diff --git a/src/XGraphic.hs b/src/XGraphic.hs
deleted file mode 100644
index 416177f..0000000
--- a/src/XGraphic.hs
+++ /dev/null
@@ -1,52 +0,0 @@
-{-# LANGUAGE ForeignFunctionInterface #-}
------------------------------------------------------------------------------
--- |
--- Module      :  XGraphic
--- Copyright   :  Copyright © 2013 Edward O'Callaghan. All Rights Reserved.
--- License     :  BSD3
---
--- Maintainer  :  Edward O'Callaghan - <victoredwardocallaghan@gmail.com>
--- Stability   :  unstable
--- Portability :  unportable
---
------------------------------------------------------------------------------
-
-module XGraphic
-    ( readBitmapFile
-    ) where
-
-import Graphics.X11.Xlib
---import Graphics.X11.Xlib.Misc
-import Foreign
-import Foreign.C
-
--- | interface to the X11 library function @XWriteBitmapFile@.
-readBitmapFile :: Display -> Drawable -> String
-                  -> IO (Either String (Dimension, Dimension, Pixmap, Maybe CInt, Maybe CInt))
-readBitmapFile display d filename =
-  withCString filename $ \ c_filename ->
-  alloca $ \ width_return ->
-  alloca $ \ height_return ->
-  alloca $ \ bitmap_return ->
-  alloca $ \ x_hot_return ->
-  alloca $ \ y_hot_return -> do
-    rv <- xReadBitmapFile display d c_filename width_return height_return
-         bitmap_return x_hot_return y_hot_return
-    width <- peek width_return
-    height <- peek height_return
-    bitmap <- peek bitmap_return
-    x_hot <- peek x_hot_return
-    y_hot <- peek y_hot_return
-    let m_x_hot | x_hot == -1 = Nothing
-                | otherwise  = Just x_hot
-        m_y_hot | y_hot == -1 = Nothing
-                | otherwise  = Just y_hot
-    case rv of
-        0 -> return $ Right (fromIntegral width, fromIntegral height, bitmap, m_x_hot, m_y_hot)
-        1 -> return $ Left "readBitmapFile: BitmapOpenFailed"
-        2 -> return $ Left "readBitmapFile: BitmapFileInvalid"
-        3 -> return $ Left "readBitmapFile: BitmapNoMemory"
-        _ -> return $ Left "readBitmapFile: BitmapUnknownError"
-foreign import ccall unsafe "X11/Xlib.h XReadBitmapFile"
-  xReadBitmapFile :: Display -> Drawable -> CString -> Ptr CInt -> Ptr CInt
-                     -> Ptr Pixmap -> Ptr CInt -> Ptr CInt -> IO CInt
-- 
cgit v1.2.3