{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gdk.Interfaces.Paintable
(
Paintable(..) ,
noPaintable ,
IsPaintable ,
toPaintable ,
#if defined(ENABLE_OVERLOADING)
ResolvePaintableMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
PaintableComputeConcreteSizeMethodInfo ,
#endif
paintableComputeConcreteSize ,
#if defined(ENABLE_OVERLOADING)
PaintableGetCurrentImageMethodInfo ,
#endif
paintableGetCurrentImage ,
#if defined(ENABLE_OVERLOADING)
PaintableGetFlagsMethodInfo ,
#endif
paintableGetFlags ,
#if defined(ENABLE_OVERLOADING)
PaintableGetIntrinsicAspectRatioMethodInfo,
#endif
paintableGetIntrinsicAspectRatio ,
#if defined(ENABLE_OVERLOADING)
PaintableGetIntrinsicHeightMethodInfo ,
#endif
paintableGetIntrinsicHeight ,
#if defined(ENABLE_OVERLOADING)
PaintableGetIntrinsicWidthMethodInfo ,
#endif
paintableGetIntrinsicWidth ,
#if defined(ENABLE_OVERLOADING)
PaintableInvalidateContentsMethodInfo ,
#endif
paintableInvalidateContents ,
#if defined(ENABLE_OVERLOADING)
PaintableInvalidateSizeMethodInfo ,
#endif
paintableInvalidateSize ,
paintableNewEmpty ,
#if defined(ENABLE_OVERLOADING)
PaintableSnapshotMethodInfo ,
#endif
paintableSnapshot ,
C_PaintableInvalidateContentsCallback ,
PaintableInvalidateContentsCallback ,
#if defined(ENABLE_OVERLOADING)
PaintableInvalidateContentsSignalInfo ,
#endif
afterPaintableInvalidateContents ,
genClosure_PaintableInvalidateContents ,
mk_PaintableInvalidateContentsCallback ,
noPaintableInvalidateContentsCallback ,
onPaintableInvalidateContents ,
wrap_PaintableInvalidateContentsCallback,
C_PaintableInvalidateSizeCallback ,
PaintableInvalidateSizeCallback ,
#if defined(ENABLE_OVERLOADING)
PaintableInvalidateSizeSignalInfo ,
#endif
afterPaintableInvalidateSize ,
genClosure_PaintableInvalidateSize ,
mk_PaintableInvalidateSizeCallback ,
noPaintableInvalidateSizeCallback ,
onPaintableInvalidateSize ,
wrap_PaintableInvalidateSizeCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gdk.Flags as Gdk.Flags
import {-# SOURCE #-} qualified GI.Gdk.Objects.Snapshot as Gdk.Snapshot
newtype Paintable = Paintable (ManagedPtr Paintable)
deriving (Paintable -> Paintable -> Bool
(Paintable -> Paintable -> Bool)
-> (Paintable -> Paintable -> Bool) -> Eq Paintable
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Paintable -> Paintable -> Bool
$c/= :: Paintable -> Paintable -> Bool
== :: Paintable -> Paintable -> Bool
$c== :: Paintable -> Paintable -> Bool
Eq)
noPaintable :: Maybe Paintable
noPaintable :: Maybe Paintable
noPaintable = Maybe Paintable
forall a. Maybe a
Nothing
type PaintableInvalidateContentsCallback =
IO ()
noPaintableInvalidateContentsCallback :: Maybe PaintableInvalidateContentsCallback
noPaintableInvalidateContentsCallback :: Maybe PaintableInvalidateContentsCallback
noPaintableInvalidateContentsCallback = Maybe PaintableInvalidateContentsCallback
forall a. Maybe a
Nothing
type C_PaintableInvalidateContentsCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_PaintableInvalidateContentsCallback :: C_PaintableInvalidateContentsCallback -> IO (FunPtr C_PaintableInvalidateContentsCallback)
genClosure_PaintableInvalidateContents :: MonadIO m => PaintableInvalidateContentsCallback -> m (GClosure C_PaintableInvalidateContentsCallback)
genClosure_PaintableInvalidateContents :: PaintableInvalidateContentsCallback
-> m (GClosure C_PaintableInvalidateContentsCallback)
genClosure_PaintableInvalidateContents cb :: PaintableInvalidateContentsCallback
cb = IO (GClosure C_PaintableInvalidateContentsCallback)
-> m (GClosure C_PaintableInvalidateContentsCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PaintableInvalidateContentsCallback)
-> m (GClosure C_PaintableInvalidateContentsCallback))
-> IO (GClosure C_PaintableInvalidateContentsCallback)
-> m (GClosure C_PaintableInvalidateContentsCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PaintableInvalidateContentsCallback
cb' = PaintableInvalidateContentsCallback
-> C_PaintableInvalidateContentsCallback
wrap_PaintableInvalidateContentsCallback PaintableInvalidateContentsCallback
cb
C_PaintableInvalidateContentsCallback
-> IO (FunPtr C_PaintableInvalidateContentsCallback)
mk_PaintableInvalidateContentsCallback C_PaintableInvalidateContentsCallback
cb' IO (FunPtr C_PaintableInvalidateContentsCallback)
-> (FunPtr C_PaintableInvalidateContentsCallback
-> IO (GClosure C_PaintableInvalidateContentsCallback))
-> IO (GClosure C_PaintableInvalidateContentsCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PaintableInvalidateContentsCallback
-> IO (GClosure C_PaintableInvalidateContentsCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PaintableInvalidateContentsCallback ::
PaintableInvalidateContentsCallback ->
C_PaintableInvalidateContentsCallback
wrap_PaintableInvalidateContentsCallback :: PaintableInvalidateContentsCallback
-> C_PaintableInvalidateContentsCallback
wrap_PaintableInvalidateContentsCallback _cb :: PaintableInvalidateContentsCallback
_cb _ _ = do
PaintableInvalidateContentsCallback
_cb
onPaintableInvalidateContents :: (IsPaintable a, MonadIO m) => a -> PaintableInvalidateContentsCallback -> m SignalHandlerId
onPaintableInvalidateContents :: a -> PaintableInvalidateContentsCallback -> m SignalHandlerId
onPaintableInvalidateContents obj :: a
obj cb :: PaintableInvalidateContentsCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PaintableInvalidateContentsCallback
cb' = PaintableInvalidateContentsCallback
-> C_PaintableInvalidateContentsCallback
wrap_PaintableInvalidateContentsCallback PaintableInvalidateContentsCallback
cb
FunPtr C_PaintableInvalidateContentsCallback
cb'' <- C_PaintableInvalidateContentsCallback
-> IO (FunPtr C_PaintableInvalidateContentsCallback)
mk_PaintableInvalidateContentsCallback C_PaintableInvalidateContentsCallback
cb'
a
-> Text
-> FunPtr C_PaintableInvalidateContentsCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "invalidate-contents" FunPtr C_PaintableInvalidateContentsCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPaintableInvalidateContents :: (IsPaintable a, MonadIO m) => a -> PaintableInvalidateContentsCallback -> m SignalHandlerId
afterPaintableInvalidateContents :: a -> PaintableInvalidateContentsCallback -> m SignalHandlerId
afterPaintableInvalidateContents obj :: a
obj cb :: PaintableInvalidateContentsCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PaintableInvalidateContentsCallback
cb' = PaintableInvalidateContentsCallback
-> C_PaintableInvalidateContentsCallback
wrap_PaintableInvalidateContentsCallback PaintableInvalidateContentsCallback
cb
FunPtr C_PaintableInvalidateContentsCallback
cb'' <- C_PaintableInvalidateContentsCallback
-> IO (FunPtr C_PaintableInvalidateContentsCallback)
mk_PaintableInvalidateContentsCallback C_PaintableInvalidateContentsCallback
cb'
a
-> Text
-> FunPtr C_PaintableInvalidateContentsCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "invalidate-contents" FunPtr C_PaintableInvalidateContentsCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PaintableInvalidateContentsSignalInfo
instance SignalInfo PaintableInvalidateContentsSignalInfo where
type HaskellCallbackType PaintableInvalidateContentsSignalInfo = PaintableInvalidateContentsCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PaintableInvalidateContentsCallback cb
cb'' <- mk_PaintableInvalidateContentsCallback cb'
connectSignalFunPtr obj "invalidate-contents" cb'' connectMode detail
#endif
type PaintableInvalidateSizeCallback =
IO ()
noPaintableInvalidateSizeCallback :: Maybe PaintableInvalidateSizeCallback
noPaintableInvalidateSizeCallback :: Maybe PaintableInvalidateContentsCallback
noPaintableInvalidateSizeCallback = Maybe PaintableInvalidateContentsCallback
forall a. Maybe a
Nothing
type C_PaintableInvalidateSizeCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_PaintableInvalidateSizeCallback :: C_PaintableInvalidateSizeCallback -> IO (FunPtr C_PaintableInvalidateSizeCallback)
genClosure_PaintableInvalidateSize :: MonadIO m => PaintableInvalidateSizeCallback -> m (GClosure C_PaintableInvalidateSizeCallback)
genClosure_PaintableInvalidateSize :: PaintableInvalidateContentsCallback
-> m (GClosure C_PaintableInvalidateContentsCallback)
genClosure_PaintableInvalidateSize cb :: PaintableInvalidateContentsCallback
cb = IO (GClosure C_PaintableInvalidateContentsCallback)
-> m (GClosure C_PaintableInvalidateContentsCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PaintableInvalidateContentsCallback)
-> m (GClosure C_PaintableInvalidateContentsCallback))
-> IO (GClosure C_PaintableInvalidateContentsCallback)
-> m (GClosure C_PaintableInvalidateContentsCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PaintableInvalidateContentsCallback
cb' = PaintableInvalidateContentsCallback
-> C_PaintableInvalidateContentsCallback
wrap_PaintableInvalidateSizeCallback PaintableInvalidateContentsCallback
cb
C_PaintableInvalidateContentsCallback
-> IO (FunPtr C_PaintableInvalidateContentsCallback)
mk_PaintableInvalidateSizeCallback C_PaintableInvalidateContentsCallback
cb' IO (FunPtr C_PaintableInvalidateContentsCallback)
-> (FunPtr C_PaintableInvalidateContentsCallback
-> IO (GClosure C_PaintableInvalidateContentsCallback))
-> IO (GClosure C_PaintableInvalidateContentsCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PaintableInvalidateContentsCallback
-> IO (GClosure C_PaintableInvalidateContentsCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PaintableInvalidateSizeCallback ::
PaintableInvalidateSizeCallback ->
C_PaintableInvalidateSizeCallback
wrap_PaintableInvalidateSizeCallback :: PaintableInvalidateContentsCallback
-> C_PaintableInvalidateContentsCallback
wrap_PaintableInvalidateSizeCallback _cb :: PaintableInvalidateContentsCallback
_cb _ _ = do
PaintableInvalidateContentsCallback
_cb
onPaintableInvalidateSize :: (IsPaintable a, MonadIO m) => a -> PaintableInvalidateSizeCallback -> m SignalHandlerId
onPaintableInvalidateSize :: a -> PaintableInvalidateContentsCallback -> m SignalHandlerId
onPaintableInvalidateSize obj :: a
obj cb :: PaintableInvalidateContentsCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PaintableInvalidateContentsCallback
cb' = PaintableInvalidateContentsCallback
-> C_PaintableInvalidateContentsCallback
wrap_PaintableInvalidateSizeCallback PaintableInvalidateContentsCallback
cb
FunPtr C_PaintableInvalidateContentsCallback
cb'' <- C_PaintableInvalidateContentsCallback
-> IO (FunPtr C_PaintableInvalidateContentsCallback)
mk_PaintableInvalidateSizeCallback C_PaintableInvalidateContentsCallback
cb'
a
-> Text
-> FunPtr C_PaintableInvalidateContentsCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "invalidate-size" FunPtr C_PaintableInvalidateContentsCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPaintableInvalidateSize :: (IsPaintable a, MonadIO m) => a -> PaintableInvalidateSizeCallback -> m SignalHandlerId
afterPaintableInvalidateSize :: a -> PaintableInvalidateContentsCallback -> m SignalHandlerId
afterPaintableInvalidateSize obj :: a
obj cb :: PaintableInvalidateContentsCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PaintableInvalidateContentsCallback
cb' = PaintableInvalidateContentsCallback
-> C_PaintableInvalidateContentsCallback
wrap_PaintableInvalidateSizeCallback PaintableInvalidateContentsCallback
cb
FunPtr C_PaintableInvalidateContentsCallback
cb'' <- C_PaintableInvalidateContentsCallback
-> IO (FunPtr C_PaintableInvalidateContentsCallback)
mk_PaintableInvalidateSizeCallback C_PaintableInvalidateContentsCallback
cb'
a
-> Text
-> FunPtr C_PaintableInvalidateContentsCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "invalidate-size" FunPtr C_PaintableInvalidateContentsCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PaintableInvalidateSizeSignalInfo
instance SignalInfo PaintableInvalidateSizeSignalInfo where
type HaskellCallbackType PaintableInvalidateSizeSignalInfo = PaintableInvalidateSizeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PaintableInvalidateSizeCallback cb
cb'' <- mk_PaintableInvalidateSizeCallback cb'
connectSignalFunPtr obj "invalidate-size" cb'' connectMode detail
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Paintable = PaintableSignalList
type PaintableSignalList = ('[ '("invalidateContents", PaintableInvalidateContentsSignalInfo), '("invalidateSize", PaintableInvalidateSizeSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gdk_paintable_get_type"
c_gdk_paintable_get_type :: IO GType
instance GObject Paintable where
gobjectType :: IO GType
gobjectType = IO GType
c_gdk_paintable_get_type
instance B.GValue.IsGValue Paintable where
toGValue :: Paintable -> IO GValue
toGValue o :: Paintable
o = do
GType
gtype <- IO GType
c_gdk_paintable_get_type
Paintable -> (Ptr Paintable -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Paintable
o (GType
-> (GValue -> Ptr Paintable -> PaintableInvalidateContentsCallback)
-> Ptr Paintable
-> IO GValue
forall a.
GType
-> (GValue -> a -> PaintableInvalidateContentsCallback)
-> a
-> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Paintable -> PaintableInvalidateContentsCallback
forall a.
GObject a =>
GValue -> Ptr a -> PaintableInvalidateContentsCallback
B.GValue.set_object)
fromGValue :: GValue -> IO Paintable
fromGValue gv :: GValue
gv = do
Ptr Paintable
ptr <- GValue -> IO (Ptr Paintable)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Paintable)
(ManagedPtr Paintable -> Paintable)
-> Ptr Paintable -> IO Paintable
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Paintable -> Paintable
Paintable Ptr Paintable
ptr
class (GObject o, O.IsDescendantOf Paintable o) => IsPaintable o
instance (GObject o, O.IsDescendantOf Paintable o) => IsPaintable o
instance O.HasParentTypes Paintable
type instance O.ParentTypes Paintable = '[GObject.Object.Object]
toPaintable :: (MonadIO m, IsPaintable o) => o -> m Paintable
toPaintable :: o -> m Paintable
toPaintable = IO Paintable -> m Paintable
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Paintable -> m Paintable)
-> (o -> IO Paintable) -> o -> m Paintable
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Paintable -> Paintable) -> o -> IO Paintable
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Paintable -> Paintable
Paintable
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Paintable
type instance O.AttributeList Paintable = PaintableAttributeList
type PaintableAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolvePaintableMethod (t :: Symbol) (o :: *) :: * where
ResolvePaintableMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolvePaintableMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolvePaintableMethod "computeConcreteSize" o = PaintableComputeConcreteSizeMethodInfo
ResolvePaintableMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolvePaintableMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolvePaintableMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolvePaintableMethod "invalidateContents" o = PaintableInvalidateContentsMethodInfo
ResolvePaintableMethod "invalidateSize" o = PaintableInvalidateSizeMethodInfo
ResolvePaintableMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolvePaintableMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolvePaintableMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolvePaintableMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolvePaintableMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolvePaintableMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolvePaintableMethod "snapshot" o = PaintableSnapshotMethodInfo
ResolvePaintableMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolvePaintableMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolvePaintableMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolvePaintableMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolvePaintableMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolvePaintableMethod "getCurrentImage" o = PaintableGetCurrentImageMethodInfo
ResolvePaintableMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolvePaintableMethod "getFlags" o = PaintableGetFlagsMethodInfo
ResolvePaintableMethod "getIntrinsicAspectRatio" o = PaintableGetIntrinsicAspectRatioMethodInfo
ResolvePaintableMethod "getIntrinsicHeight" o = PaintableGetIntrinsicHeightMethodInfo
ResolvePaintableMethod "getIntrinsicWidth" o = PaintableGetIntrinsicWidthMethodInfo
ResolvePaintableMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolvePaintableMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolvePaintableMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolvePaintableMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolvePaintableMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolvePaintableMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePaintableMethod t Paintable, O.MethodInfo info Paintable p) => OL.IsLabel t (Paintable -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
foreign import ccall "gdk_paintable_compute_concrete_size" gdk_paintable_compute_concrete_size ::
Ptr Paintable ->
CDouble ->
CDouble ->
CDouble ->
CDouble ->
Ptr CDouble ->
Ptr CDouble ->
IO ()
paintableComputeConcreteSize ::
(B.CallStack.HasCallStack, MonadIO m, IsPaintable a) =>
a
-> Double
-> Double
-> Double
-> Double
-> m ((Double, Double))
paintableComputeConcreteSize :: a -> Double -> Double -> Double -> Double -> m (Double, Double)
paintableComputeConcreteSize paintable :: a
paintable specifiedWidth :: Double
specifiedWidth specifiedHeight :: Double
specifiedHeight defaultWidth :: Double
defaultWidth defaultHeight :: Double
defaultHeight = IO (Double, Double) -> m (Double, Double)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Double, Double) -> m (Double, Double))
-> IO (Double, Double) -> m (Double, Double)
forall a b. (a -> b) -> a -> b
$ do
Ptr Paintable
paintable' <- a -> IO (Ptr Paintable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
paintable
let specifiedWidth' :: CDouble
specifiedWidth' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
specifiedWidth
let specifiedHeight' :: CDouble
specifiedHeight' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
specifiedHeight
let defaultWidth' :: CDouble
defaultWidth' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
defaultWidth
let defaultHeight' :: CDouble
defaultHeight' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
defaultHeight
Ptr CDouble
concreteWidth <- IO (Ptr CDouble)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
Ptr CDouble
concreteHeight <- IO (Ptr CDouble)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
Ptr Paintable
-> CDouble
-> CDouble
-> CDouble
-> CDouble
-> Ptr CDouble
-> Ptr CDouble
-> PaintableInvalidateContentsCallback
gdk_paintable_compute_concrete_size Ptr Paintable
paintable' CDouble
specifiedWidth' CDouble
specifiedHeight' CDouble
defaultWidth' CDouble
defaultHeight' Ptr CDouble
concreteWidth Ptr CDouble
concreteHeight
CDouble
concreteWidth' <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
concreteWidth
let concreteWidth'' :: Double
concreteWidth'' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
concreteWidth'
CDouble
concreteHeight' <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
concreteHeight
let concreteHeight'' :: Double
concreteHeight'' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
concreteHeight'
a -> PaintableInvalidateContentsCallback
forall a.
ManagedPtrNewtype a =>
a -> PaintableInvalidateContentsCallback
touchManagedPtr a
paintable
Ptr CDouble -> PaintableInvalidateContentsCallback
forall a. Ptr a -> PaintableInvalidateContentsCallback
freeMem Ptr CDouble
concreteWidth
Ptr CDouble -> PaintableInvalidateContentsCallback
forall a. Ptr a -> PaintableInvalidateContentsCallback
freeMem Ptr CDouble
concreteHeight
(Double, Double) -> IO (Double, Double)
forall (m :: * -> *) a. Monad m => a -> m a
return (Double
concreteWidth'', Double
concreteHeight'')
#if defined(ENABLE_OVERLOADING)
data PaintableComputeConcreteSizeMethodInfo
instance (signature ~ (Double -> Double -> Double -> Double -> m ((Double, Double))), MonadIO m, IsPaintable a) => O.MethodInfo PaintableComputeConcreteSizeMethodInfo a signature where
overloadedMethod = paintableComputeConcreteSize
#endif
foreign import ccall "gdk_paintable_get_current_image" gdk_paintable_get_current_image ::
Ptr Paintable ->
IO (Ptr Paintable)
paintableGetCurrentImage ::
(B.CallStack.HasCallStack, MonadIO m, IsPaintable a) =>
a
-> m Paintable
paintableGetCurrentImage :: a -> m Paintable
paintableGetCurrentImage paintable :: a
paintable = IO Paintable -> m Paintable
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Paintable -> m Paintable) -> IO Paintable -> m Paintable
forall a b. (a -> b) -> a -> b
$ do
Ptr Paintable
paintable' <- a -> IO (Ptr Paintable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
paintable
Ptr Paintable
result <- Ptr Paintable -> IO (Ptr Paintable)
gdk_paintable_get_current_image Ptr Paintable
paintable'
Text -> Ptr Paintable -> PaintableInvalidateContentsCallback
forall a.
HasCallStack =>
Text -> Ptr a -> PaintableInvalidateContentsCallback
checkUnexpectedReturnNULL "paintableGetCurrentImage" Ptr Paintable
result
Paintable
result' <- ((ManagedPtr Paintable -> Paintable)
-> Ptr Paintable -> IO Paintable
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Paintable -> Paintable
Paintable) Ptr Paintable
result
a -> PaintableInvalidateContentsCallback
forall a.
ManagedPtrNewtype a =>
a -> PaintableInvalidateContentsCallback
touchManagedPtr a
paintable
Paintable -> IO Paintable
forall (m :: * -> *) a. Monad m => a -> m a
return Paintable
result'
#if defined(ENABLE_OVERLOADING)
data PaintableGetCurrentImageMethodInfo
instance (signature ~ (m Paintable), MonadIO m, IsPaintable a) => O.MethodInfo PaintableGetCurrentImageMethodInfo a signature where
overloadedMethod = paintableGetCurrentImage
#endif
foreign import ccall "gdk_paintable_get_flags" gdk_paintable_get_flags ::
Ptr Paintable ->
IO CUInt
paintableGetFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsPaintable a) =>
a
-> m [Gdk.Flags.PaintableFlags]
paintableGetFlags :: a -> m [PaintableFlags]
paintableGetFlags paintable :: a
paintable = IO [PaintableFlags] -> m [PaintableFlags]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [PaintableFlags] -> m [PaintableFlags])
-> IO [PaintableFlags] -> m [PaintableFlags]
forall a b. (a -> b) -> a -> b
$ do
Ptr Paintable
paintable' <- a -> IO (Ptr Paintable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
paintable
CUInt
result <- Ptr Paintable -> IO CUInt
gdk_paintable_get_flags Ptr Paintable
paintable'
let result' :: [PaintableFlags]
result' = CUInt -> [PaintableFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
a -> PaintableInvalidateContentsCallback
forall a.
ManagedPtrNewtype a =>
a -> PaintableInvalidateContentsCallback
touchManagedPtr a
paintable
[PaintableFlags] -> IO [PaintableFlags]
forall (m :: * -> *) a. Monad m => a -> m a
return [PaintableFlags]
result'
#if defined(ENABLE_OVERLOADING)
data PaintableGetFlagsMethodInfo
instance (signature ~ (m [Gdk.Flags.PaintableFlags]), MonadIO m, IsPaintable a) => O.MethodInfo PaintableGetFlagsMethodInfo a signature where
overloadedMethod = paintableGetFlags
#endif
foreign import ccall "gdk_paintable_get_intrinsic_aspect_ratio" gdk_paintable_get_intrinsic_aspect_ratio ::
Ptr Paintable ->
IO CDouble
paintableGetIntrinsicAspectRatio ::
(B.CallStack.HasCallStack, MonadIO m, IsPaintable a) =>
a
-> m Double
paintableGetIntrinsicAspectRatio :: a -> m Double
paintableGetIntrinsicAspectRatio paintable :: a
paintable = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr Paintable
paintable' <- a -> IO (Ptr Paintable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
paintable
CDouble
result <- Ptr Paintable -> IO CDouble
gdk_paintable_get_intrinsic_aspect_ratio Ptr Paintable
paintable'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> PaintableInvalidateContentsCallback
forall a.
ManagedPtrNewtype a =>
a -> PaintableInvalidateContentsCallback
touchManagedPtr a
paintable
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data PaintableGetIntrinsicAspectRatioMethodInfo
instance (signature ~ (m Double), MonadIO m, IsPaintable a) => O.MethodInfo PaintableGetIntrinsicAspectRatioMethodInfo a signature where
overloadedMethod = paintableGetIntrinsicAspectRatio
#endif
foreign import ccall "gdk_paintable_get_intrinsic_height" gdk_paintable_get_intrinsic_height ::
Ptr Paintable ->
IO Int32
paintableGetIntrinsicHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsPaintable a) =>
a
-> m Int32
paintableGetIntrinsicHeight :: a -> m Int32
paintableGetIntrinsicHeight paintable :: a
paintable = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Paintable
paintable' <- a -> IO (Ptr Paintable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
paintable
Int32
result <- Ptr Paintable -> IO Int32
gdk_paintable_get_intrinsic_height Ptr Paintable
paintable'
a -> PaintableInvalidateContentsCallback
forall a.
ManagedPtrNewtype a =>
a -> PaintableInvalidateContentsCallback
touchManagedPtr a
paintable
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data PaintableGetIntrinsicHeightMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsPaintable a) => O.MethodInfo PaintableGetIntrinsicHeightMethodInfo a signature where
overloadedMethod = paintableGetIntrinsicHeight
#endif
foreign import ccall "gdk_paintable_get_intrinsic_width" gdk_paintable_get_intrinsic_width ::
Ptr Paintable ->
IO Int32
paintableGetIntrinsicWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsPaintable a) =>
a
-> m Int32
paintableGetIntrinsicWidth :: a -> m Int32
paintableGetIntrinsicWidth paintable :: a
paintable = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Paintable
paintable' <- a -> IO (Ptr Paintable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
paintable
Int32
result <- Ptr Paintable -> IO Int32
gdk_paintable_get_intrinsic_width Ptr Paintable
paintable'
a -> PaintableInvalidateContentsCallback
forall a.
ManagedPtrNewtype a =>
a -> PaintableInvalidateContentsCallback
touchManagedPtr a
paintable
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data PaintableGetIntrinsicWidthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsPaintable a) => O.MethodInfo PaintableGetIntrinsicWidthMethodInfo a signature where
overloadedMethod = paintableGetIntrinsicWidth
#endif
foreign import ccall "gdk_paintable_invalidate_contents" gdk_paintable_invalidate_contents ::
Ptr Paintable ->
IO ()
paintableInvalidateContents ::
(B.CallStack.HasCallStack, MonadIO m, IsPaintable a) =>
a
-> m ()
paintableInvalidateContents :: a -> m ()
paintableInvalidateContents paintable :: a
paintable = PaintableInvalidateContentsCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (PaintableInvalidateContentsCallback -> m ())
-> PaintableInvalidateContentsCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Paintable
paintable' <- a -> IO (Ptr Paintable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
paintable
Ptr Paintable -> PaintableInvalidateContentsCallback
gdk_paintable_invalidate_contents Ptr Paintable
paintable'
a -> PaintableInvalidateContentsCallback
forall a.
ManagedPtrNewtype a =>
a -> PaintableInvalidateContentsCallback
touchManagedPtr a
paintable
() -> PaintableInvalidateContentsCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PaintableInvalidateContentsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsPaintable a) => O.MethodInfo PaintableInvalidateContentsMethodInfo a signature where
overloadedMethod = paintableInvalidateContents
#endif
foreign import ccall "gdk_paintable_invalidate_size" gdk_paintable_invalidate_size ::
Ptr Paintable ->
IO ()
paintableInvalidateSize ::
(B.CallStack.HasCallStack, MonadIO m, IsPaintable a) =>
a
-> m ()
paintableInvalidateSize :: a -> m ()
paintableInvalidateSize paintable :: a
paintable = PaintableInvalidateContentsCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (PaintableInvalidateContentsCallback -> m ())
-> PaintableInvalidateContentsCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Paintable
paintable' <- a -> IO (Ptr Paintable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
paintable
Ptr Paintable -> PaintableInvalidateContentsCallback
gdk_paintable_invalidate_size Ptr Paintable
paintable'
a -> PaintableInvalidateContentsCallback
forall a.
ManagedPtrNewtype a =>
a -> PaintableInvalidateContentsCallback
touchManagedPtr a
paintable
() -> PaintableInvalidateContentsCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PaintableInvalidateSizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsPaintable a) => O.MethodInfo PaintableInvalidateSizeMethodInfo a signature where
overloadedMethod = paintableInvalidateSize
#endif
foreign import ccall "gdk_paintable_snapshot" gdk_paintable_snapshot ::
Ptr Paintable ->
Ptr Gdk.Snapshot.Snapshot ->
CDouble ->
CDouble ->
IO ()
paintableSnapshot ::
(B.CallStack.HasCallStack, MonadIO m, IsPaintable a, Gdk.Snapshot.IsSnapshot b) =>
a
-> b
-> Double
-> Double
-> m ()
paintableSnapshot :: a -> b -> Double -> Double -> m ()
paintableSnapshot paintable :: a
paintable snapshot :: b
snapshot width :: Double
width height :: Double
height = PaintableInvalidateContentsCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (PaintableInvalidateContentsCallback -> m ())
-> PaintableInvalidateContentsCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Paintable
paintable' <- a -> IO (Ptr Paintable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
paintable
Ptr Snapshot
snapshot' <- b -> IO (Ptr Snapshot)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
snapshot
let width' :: CDouble
width' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
width
let height' :: CDouble
height' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
height
Ptr Paintable
-> Ptr Snapshot
-> CDouble
-> CDouble
-> PaintableInvalidateContentsCallback
gdk_paintable_snapshot Ptr Paintable
paintable' Ptr Snapshot
snapshot' CDouble
width' CDouble
height'
a -> PaintableInvalidateContentsCallback
forall a.
ManagedPtrNewtype a =>
a -> PaintableInvalidateContentsCallback
touchManagedPtr a
paintable
b -> PaintableInvalidateContentsCallback
forall a.
ManagedPtrNewtype a =>
a -> PaintableInvalidateContentsCallback
touchManagedPtr b
snapshot
() -> PaintableInvalidateContentsCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PaintableSnapshotMethodInfo
instance (signature ~ (b -> Double -> Double -> m ()), MonadIO m, IsPaintable a, Gdk.Snapshot.IsSnapshot b) => O.MethodInfo PaintableSnapshotMethodInfo a signature where
overloadedMethod = paintableSnapshot
#endif
foreign import ccall "gdk_paintable_new_empty" gdk_paintable_new_empty ::
Int32 ->
Int32 ->
IO (Ptr Paintable)
paintableNewEmpty ::
(B.CallStack.HasCallStack, MonadIO m) =>
Int32
-> Int32
-> m Paintable
paintableNewEmpty :: Int32 -> Int32 -> m Paintable
paintableNewEmpty intrinsicWidth :: Int32
intrinsicWidth intrinsicHeight :: Int32
intrinsicHeight = IO Paintable -> m Paintable
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Paintable -> m Paintable) -> IO Paintable -> m Paintable
forall a b. (a -> b) -> a -> b
$ do
Ptr Paintable
result <- Int32 -> Int32 -> IO (Ptr Paintable)
gdk_paintable_new_empty Int32
intrinsicWidth Int32
intrinsicHeight
Text -> Ptr Paintable -> PaintableInvalidateContentsCallback
forall a.
HasCallStack =>
Text -> Ptr a -> PaintableInvalidateContentsCallback
checkUnexpectedReturnNULL "paintableNewEmpty" Ptr Paintable
result
Paintable
result' <- ((ManagedPtr Paintable -> Paintable)
-> Ptr Paintable -> IO Paintable
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Paintable -> Paintable
Paintable) Ptr Paintable
result
Paintable -> IO Paintable
forall (m :: * -> *) a. Monad m => a -> m a
return Paintable
result'
#if defined(ENABLE_OVERLOADING)
#endif