diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Bitmap.hs | 1 | ||||
| -rw-r--r-- | src/XGraphic.hs | 52 |
2 files changed, 0 insertions, 53 deletions
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 |