module Graphics.X11.Xdamage(
DamageReportLevel,
DamageNotify(..),
xdamageCreate,
xdamageDestroy,
xdamageSubtract,
xdamageQueryExtension,
xdamageQueryVersion
) where
import Foreign
import Foreign.C.Types
import Graphics.X11.Xlib
import Graphics.X11.Xlib.Region
import Control.Monad
type Damage = CInt
type DamageReportLevel = CInt
data DamageNotify = DamageNotify
{ xdn_type :: CInt,
xdn_serial :: CUInt,
xdn_send_event :: Bool,
xdn_display :: Display,
xdn_drawable :: Drawable,
xdn_damage :: Damage,
xdn_level :: CInt,
xdn_more :: Bool,
xdn_timestamp :: Time,
xdn_area :: Rectangle,
xdn_geometry :: Rectangle }
compiledWithXdamage :: Bool
compiledWithXdamage = False
xdamageIsActive :: Display -> IO Bool
xdamageIsActive _ = return False
xdamageQueryExtension :: Display -> IO (Maybe (CInt, CInt))
xdamageQueryExtension _ = return Nothing
xdamageQueryVersion :: Display -> IO (Maybe (CInt, CInt))
xdamageQueryVersion _ = return Nothing
xdamageCreate :: Display -> Drawable -> DamageReportLevel -> IO(Damage)
xdamageCreate _ _ _ = return 0
xdamageDestroy :: Display -> Damage -> IO()
xdamageDestroy _ _ = return ()
xdamageSubtract :: Display -> Damage -> Region -> Region -> IO()
xdamageSubtract _ _ _ _ = return ()