{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, GeneralizedNewtypeDeriving, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}
module Graphics.UI.Qtah.Generated.Gui.QPaintDevice (
QPaintDeviceValue (..),
QPaintDeviceConstPtr (..),
colorCount,
depth,
devicePixelRatio,
devicePixelRatioF,
height,
heightMM,
logicalDpiX,
logicalDpiY,
paintingActive,
physicalDpiX,
physicalDpiY,
width,
widthMM,
QPaintDevicePtr (..),
QPaintDeviceConst (..),
castQPaintDeviceToConst,
QPaintDevice (..),
castQPaintDeviceToNonconst,
QPaintDeviceSuper (..),
QPaintDeviceSuperConst (..),
QPaintDevicePaintDeviceMetric (..),
) where
import qualified Foreign as HoppyF
import qualified Foreign.C as HoppyFC
import qualified Foreign.Hoppy.Runtime as HoppyFHR
import Prelude (($), (++), (.), (/=), (==))
import qualified Prelude as HoppyP
foreign import ccall "genpop__QPaintDevice_colorCount" colorCount' :: HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QPaintDevice_depth" depth' :: HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QPaintDevice_devicePixelRatio" devicePixelRatio' :: HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QPaintDevice_devicePixelRatioF" devicePixelRatioF' :: HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CDouble
foreign import ccall "genpop__QPaintDevice_height" height' :: HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QPaintDevice_heightMM" heightMM' :: HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QPaintDevice_logicalDpiX" logicalDpiX' :: HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QPaintDevice_logicalDpiY" logicalDpiY' :: HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QPaintDevice_paintingActive" paintingActive' :: HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFHR.CBool
foreign import ccall "genpop__QPaintDevice_physicalDpiX" physicalDpiX' :: HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QPaintDevice_physicalDpiY" physicalDpiY' :: HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QPaintDevice_width" width' :: HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QPaintDevice_widthMM" widthMM' :: HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "gendel__QPaintDevice" delete'QPaintDevice :: HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO ()
foreign import ccall "&gendel__QPaintDevice" deletePtr'QPaintDevice :: HoppyF.FunPtr (HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO ())
class QPaintDeviceValue a where
withQPaintDevicePtr :: a -> (QPaintDeviceConst -> HoppyP.IO b) -> HoppyP.IO b
instance {-# OVERLAPPABLE #-} QPaintDeviceConstPtr a => QPaintDeviceValue a where
withQPaintDevicePtr = HoppyP.flip ($) . toQPaintDeviceConst
class (HoppyFHR.CppPtr this) => QPaintDeviceConstPtr this where
toQPaintDeviceConst :: this -> QPaintDeviceConst
colorCount :: (QPaintDeviceValue arg'1) => arg'1 -> HoppyP.IO HoppyP.Int
colorCount arg'1 =
withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
HoppyP.fmap HoppyFHR.coerceIntegral
(colorCount' arg'1')
depth :: (QPaintDeviceValue arg'1) => arg'1 -> HoppyP.IO HoppyP.Int
depth arg'1 =
withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
HoppyP.fmap HoppyFHR.coerceIntegral
(depth' arg'1')
devicePixelRatio :: (QPaintDeviceValue arg'1) => arg'1 -> HoppyP.IO HoppyP.Int
devicePixelRatio arg'1 =
withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
HoppyP.fmap HoppyFHR.coerceIntegral
(devicePixelRatio' arg'1')
devicePixelRatioF :: (QPaintDeviceValue arg'1) => arg'1 -> HoppyP.IO HoppyP.Double
devicePixelRatioF arg'1 =
withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
HoppyP.fmap HoppyP.realToFrac
(devicePixelRatioF' arg'1')
height :: (QPaintDeviceValue arg'1) => arg'1 -> HoppyP.IO HoppyP.Int
height arg'1 =
withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
HoppyP.fmap HoppyFHR.coerceIntegral
(height' arg'1')
heightMM :: (QPaintDeviceValue arg'1) => arg'1 -> HoppyP.IO HoppyP.Int
heightMM arg'1 =
withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
HoppyP.fmap HoppyFHR.coerceIntegral
(heightMM' arg'1')
logicalDpiX :: (QPaintDeviceValue arg'1) => arg'1 -> HoppyP.IO HoppyP.Int
logicalDpiX arg'1 =
withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
HoppyP.fmap HoppyFHR.coerceIntegral
(logicalDpiX' arg'1')
logicalDpiY :: (QPaintDeviceValue arg'1) => arg'1 -> HoppyP.IO HoppyP.Int
logicalDpiY arg'1 =
withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
HoppyP.fmap HoppyFHR.coerceIntegral
(logicalDpiY' arg'1')
paintingActive :: (QPaintDeviceValue arg'1) => arg'1 -> HoppyP.IO HoppyP.Bool
paintingActive arg'1 =
withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
HoppyP.fmap (/= 0)
(paintingActive' arg'1')
physicalDpiX :: (QPaintDeviceValue arg'1) => arg'1 -> HoppyP.IO HoppyP.Int
physicalDpiX arg'1 =
withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
HoppyP.fmap HoppyFHR.coerceIntegral
(physicalDpiX' arg'1')
physicalDpiY :: (QPaintDeviceValue arg'1) => arg'1 -> HoppyP.IO HoppyP.Int
physicalDpiY arg'1 =
withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
HoppyP.fmap HoppyFHR.coerceIntegral
(physicalDpiY' arg'1')
width :: (QPaintDeviceValue arg'1) => arg'1 -> HoppyP.IO HoppyP.Int
width arg'1 =
withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
HoppyP.fmap HoppyFHR.coerceIntegral
(width' arg'1')
widthMM :: (QPaintDeviceValue arg'1) => arg'1 -> HoppyP.IO HoppyP.Int
widthMM arg'1 =
withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
HoppyP.fmap HoppyFHR.coerceIntegral
(widthMM' arg'1')
class (QPaintDeviceConstPtr this) => QPaintDevicePtr this where
toQPaintDevice :: this -> QPaintDevice
data QPaintDeviceConst =
QPaintDeviceConst (HoppyF.Ptr QPaintDeviceConst)
| QPaintDeviceConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPaintDeviceConst)
deriving (HoppyP.Show)
instance HoppyP.Eq QPaintDeviceConst where
x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y
instance HoppyP.Ord QPaintDeviceConst where
compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)
castQPaintDeviceToConst :: QPaintDevice -> QPaintDeviceConst
castQPaintDeviceToConst (QPaintDevice ptr') = QPaintDeviceConst $ HoppyF.castPtr ptr'
castQPaintDeviceToConst (QPaintDeviceGc fptr' ptr') = QPaintDeviceConstGc fptr' $ HoppyF.castPtr ptr'
instance HoppyFHR.CppPtr QPaintDeviceConst where
nullptr = QPaintDeviceConst HoppyF.nullPtr
withCppPtr (QPaintDeviceConst ptr') f' = f' ptr'
withCppPtr (QPaintDeviceConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'
toPtr (QPaintDeviceConst ptr') = ptr'
toPtr (QPaintDeviceConstGc _ ptr') = ptr'
touchCppPtr (QPaintDeviceConst _) = HoppyP.return ()
touchCppPtr (QPaintDeviceConstGc fptr' _) = HoppyF.touchForeignPtr fptr'
instance HoppyFHR.Deletable QPaintDeviceConst where
delete (QPaintDeviceConst ptr') = delete'QPaintDevice ptr'
delete (QPaintDeviceConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPaintDeviceConst", " object."]
toGc this'@(QPaintDeviceConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPaintDeviceConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPaintDevice :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())
toGc this'@(QPaintDeviceConstGc {}) = HoppyP.return this'
instance QPaintDeviceConstPtr QPaintDeviceConst where
toQPaintDeviceConst = HoppyP.id
data QPaintDevice =
QPaintDevice (HoppyF.Ptr QPaintDevice)
| QPaintDeviceGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPaintDevice)
deriving (HoppyP.Show)
instance HoppyP.Eq QPaintDevice where
x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y
instance HoppyP.Ord QPaintDevice where
compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)
castQPaintDeviceToNonconst :: QPaintDeviceConst -> QPaintDevice
castQPaintDeviceToNonconst (QPaintDeviceConst ptr') = QPaintDevice $ HoppyF.castPtr ptr'
castQPaintDeviceToNonconst (QPaintDeviceConstGc fptr' ptr') = QPaintDeviceGc fptr' $ HoppyF.castPtr ptr'
instance HoppyFHR.CppPtr QPaintDevice where
nullptr = QPaintDevice HoppyF.nullPtr
withCppPtr (QPaintDevice ptr') f' = f' ptr'
withCppPtr (QPaintDeviceGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'
toPtr (QPaintDevice ptr') = ptr'
toPtr (QPaintDeviceGc _ ptr') = ptr'
touchCppPtr (QPaintDevice _) = HoppyP.return ()
touchCppPtr (QPaintDeviceGc fptr' _) = HoppyF.touchForeignPtr fptr'
instance HoppyFHR.Deletable QPaintDevice where
delete (QPaintDevice ptr') = delete'QPaintDevice $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QPaintDeviceConst)
delete (QPaintDeviceGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPaintDevice", " object."]
toGc this'@(QPaintDevice ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPaintDeviceGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPaintDevice :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())
toGc this'@(QPaintDeviceGc {}) = HoppyP.return this'
instance QPaintDeviceConstPtr QPaintDevice where
toQPaintDeviceConst (QPaintDevice ptr') = QPaintDeviceConst $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDevice -> HoppyF.Ptr QPaintDeviceConst) ptr'
toQPaintDeviceConst (QPaintDeviceGc fptr' ptr') = QPaintDeviceConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDevice -> HoppyF.Ptr QPaintDeviceConst) ptr'
instance QPaintDevicePtr QPaintDevice where
toQPaintDevice = HoppyP.id
class QPaintDeviceSuper a where
downToQPaintDevice :: a -> QPaintDevice
class QPaintDeviceSuperConst a where
downToQPaintDeviceConst :: a -> QPaintDeviceConst
instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QPaintDevice)) QPaintDevice where
assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'
instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QPaintDevice)) QPaintDevice where
decode = HoppyP.fmap QPaintDevice . HoppyF.peek
data QPaintDevicePaintDeviceMetric =
PdmWidth
| PdmHeight
| PdmWidthMm
| PdmHeightMm
| PdmNumColors
| PdmDepth
| PdmDpiX
| PdmDpiY
| PdmPhysicalDpiX
| PdmPhysicalDpiY
| PdmDevicePixelRatio
| PdmDevicePixelRatioScaled
deriving (HoppyP.Bounded, HoppyP.Eq, HoppyP.Ord, HoppyP.Show)
instance HoppyP.Enum QPaintDevicePaintDeviceMetric where
fromEnum PdmWidth = 1
fromEnum PdmHeight = 2
fromEnum PdmWidthMm = 3
fromEnum PdmHeightMm = 4
fromEnum PdmNumColors = 5
fromEnum PdmDepth = 6
fromEnum PdmDpiX = 7
fromEnum PdmDpiY = 8
fromEnum PdmPhysicalDpiX = 9
fromEnum PdmPhysicalDpiY = 10
fromEnum PdmDevicePixelRatio = 11
fromEnum PdmDevicePixelRatioScaled = 12
toEnum (1) = PdmWidth
toEnum (2) = PdmHeight
toEnum (3) = PdmWidthMm
toEnum (4) = PdmHeightMm
toEnum (5) = PdmNumColors
toEnum (6) = PdmDepth
toEnum (7) = PdmDpiX
toEnum (8) = PdmDpiY
toEnum (9) = PdmPhysicalDpiX
toEnum (10) = PdmPhysicalDpiY
toEnum (11) = PdmDevicePixelRatio
toEnum (12) = PdmDevicePixelRatioScaled
toEnum n' = HoppyP.error $ "Unknown QPaintDevicePaintDeviceMetric numeric value: " ++ HoppyP.show n'