{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Clutter.Objects.Texture
(
Texture(..) ,
IsTexture ,
toTexture ,
#if defined(ENABLE_OVERLOADING)
ResolveTextureMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
TextureGetBaseSizeMethodInfo ,
#endif
textureGetBaseSize ,
#if defined(ENABLE_OVERLOADING)
TextureGetCoglMaterialMethodInfo ,
#endif
textureGetCoglMaterial ,
#if defined(ENABLE_OVERLOADING)
TextureGetCoglTextureMethodInfo ,
#endif
textureGetCoglTexture ,
#if defined(ENABLE_OVERLOADING)
TextureGetFilterQualityMethodInfo ,
#endif
textureGetFilterQuality ,
#if defined(ENABLE_OVERLOADING)
TextureGetKeepAspectRatioMethodInfo ,
#endif
textureGetKeepAspectRatio ,
#if defined(ENABLE_OVERLOADING)
TextureGetLoadAsyncMethodInfo ,
#endif
textureGetLoadAsync ,
#if defined(ENABLE_OVERLOADING)
TextureGetLoadDataAsyncMethodInfo ,
#endif
textureGetLoadDataAsync ,
#if defined(ENABLE_OVERLOADING)
TextureGetMaxTileWasteMethodInfo ,
#endif
textureGetMaxTileWaste ,
#if defined(ENABLE_OVERLOADING)
TextureGetPickWithAlphaMethodInfo ,
#endif
textureGetPickWithAlpha ,
#if defined(ENABLE_OVERLOADING)
TextureGetPixelFormatMethodInfo ,
#endif
textureGetPixelFormat ,
#if defined(ENABLE_OVERLOADING)
TextureGetRepeatMethodInfo ,
#endif
textureGetRepeat ,
#if defined(ENABLE_OVERLOADING)
TextureGetSyncSizeMethodInfo ,
#endif
textureGetSyncSize ,
textureNew ,
textureNewFromActor ,
textureNewFromFile ,
#if defined(ENABLE_OVERLOADING)
TextureSetAreaFromRgbDataMethodInfo ,
#endif
textureSetAreaFromRgbData ,
#if defined(ENABLE_OVERLOADING)
TextureSetCoglMaterialMethodInfo ,
#endif
textureSetCoglMaterial ,
#if defined(ENABLE_OVERLOADING)
TextureSetCoglTextureMethodInfo ,
#endif
textureSetCoglTexture ,
#if defined(ENABLE_OVERLOADING)
TextureSetFilterQualityMethodInfo ,
#endif
textureSetFilterQuality ,
#if defined(ENABLE_OVERLOADING)
TextureSetFromFileMethodInfo ,
#endif
textureSetFromFile ,
#if defined(ENABLE_OVERLOADING)
TextureSetFromRgbDataMethodInfo ,
#endif
textureSetFromRgbData ,
#if defined(ENABLE_OVERLOADING)
TextureSetFromYuvDataMethodInfo ,
#endif
textureSetFromYuvData ,
#if defined(ENABLE_OVERLOADING)
TextureSetKeepAspectRatioMethodInfo ,
#endif
textureSetKeepAspectRatio ,
#if defined(ENABLE_OVERLOADING)
TextureSetLoadAsyncMethodInfo ,
#endif
textureSetLoadAsync ,
#if defined(ENABLE_OVERLOADING)
TextureSetLoadDataAsyncMethodInfo ,
#endif
textureSetLoadDataAsync ,
#if defined(ENABLE_OVERLOADING)
TextureSetPickWithAlphaMethodInfo ,
#endif
textureSetPickWithAlpha ,
#if defined(ENABLE_OVERLOADING)
TextureSetRepeatMethodInfo ,
#endif
textureSetRepeat ,
#if defined(ENABLE_OVERLOADING)
TextureSetSyncSizeMethodInfo ,
#endif
textureSetSyncSize ,
#if defined(ENABLE_OVERLOADING)
TextureDisableSlicingPropertyInfo ,
#endif
constructTextureDisableSlicing ,
getTextureDisableSlicing ,
#if defined(ENABLE_OVERLOADING)
textureDisableSlicing ,
#endif
#if defined(ENABLE_OVERLOADING)
TextureFilenamePropertyInfo ,
#endif
clearTextureFilename ,
constructTextureFilename ,
getTextureFilename ,
setTextureFilename ,
#if defined(ENABLE_OVERLOADING)
textureFilename ,
#endif
#if defined(ENABLE_OVERLOADING)
TextureFilterQualityPropertyInfo ,
#endif
constructTextureFilterQuality ,
getTextureFilterQuality ,
setTextureFilterQuality ,
#if defined(ENABLE_OVERLOADING)
textureFilterQuality ,
#endif
#if defined(ENABLE_OVERLOADING)
TextureKeepAspectRatioPropertyInfo ,
#endif
constructTextureKeepAspectRatio ,
getTextureKeepAspectRatio ,
setTextureKeepAspectRatio ,
#if defined(ENABLE_OVERLOADING)
textureKeepAspectRatio ,
#endif
#if defined(ENABLE_OVERLOADING)
TextureLoadAsyncPropertyInfo ,
#endif
constructTextureLoadAsync ,
setTextureLoadAsync ,
#if defined(ENABLE_OVERLOADING)
textureLoadAsync ,
#endif
#if defined(ENABLE_OVERLOADING)
TextureLoadDataAsyncPropertyInfo ,
#endif
constructTextureLoadDataAsync ,
setTextureLoadDataAsync ,
#if defined(ENABLE_OVERLOADING)
textureLoadDataAsync ,
#endif
#if defined(ENABLE_OVERLOADING)
TexturePickWithAlphaPropertyInfo ,
#endif
constructTexturePickWithAlpha ,
getTexturePickWithAlpha ,
setTexturePickWithAlpha ,
#if defined(ENABLE_OVERLOADING)
texturePickWithAlpha ,
#endif
#if defined(ENABLE_OVERLOADING)
TexturePixelFormatPropertyInfo ,
#endif
getTexturePixelFormat ,
#if defined(ENABLE_OVERLOADING)
texturePixelFormat ,
#endif
#if defined(ENABLE_OVERLOADING)
TextureRepeatXPropertyInfo ,
#endif
constructTextureRepeatX ,
getTextureRepeatX ,
setTextureRepeatX ,
#if defined(ENABLE_OVERLOADING)
textureRepeatX ,
#endif
#if defined(ENABLE_OVERLOADING)
TextureRepeatYPropertyInfo ,
#endif
constructTextureRepeatY ,
getTextureRepeatY ,
setTextureRepeatY ,
#if defined(ENABLE_OVERLOADING)
textureRepeatY ,
#endif
#if defined(ENABLE_OVERLOADING)
TextureSyncSizePropertyInfo ,
#endif
constructTextureSyncSize ,
getTextureSyncSize ,
setTextureSyncSize ,
#if defined(ENABLE_OVERLOADING)
textureSyncSize ,
#endif
#if defined(ENABLE_OVERLOADING)
TextureTileWastePropertyInfo ,
#endif
getTextureTileWaste ,
#if defined(ENABLE_OVERLOADING)
textureTileWaste ,
#endif
TextureLoadFinishedCallback ,
#if defined(ENABLE_OVERLOADING)
TextureLoadFinishedSignalInfo ,
#endif
afterTextureLoadFinished ,
onTextureLoadFinished ,
TexturePixbufChangeCallback ,
#if defined(ENABLE_OVERLOADING)
TexturePixbufChangeSignalInfo ,
#endif
afterTexturePixbufChange ,
onTexturePixbufChange ,
TextureSizeChangeCallback ,
#if defined(ENABLE_OVERLOADING)
TextureSizeChangeSignalInfo ,
#endif
afterTextureSizeChange ,
onTextureSizeChange ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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 Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
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 GHC.Records as R
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import {-# SOURCE #-} qualified GI.Clutter.Enums as Clutter.Enums
import {-# SOURCE #-} qualified GI.Clutter.Flags as Clutter.Flags
import {-# SOURCE #-} qualified GI.Clutter.Interfaces.Animatable as Clutter.Animatable
import {-# SOURCE #-} qualified GI.Clutter.Interfaces.Container as Clutter.Container
import {-# SOURCE #-} qualified GI.Clutter.Interfaces.Scriptable as Clutter.Scriptable
import {-# SOURCE #-} qualified GI.Clutter.Objects.Actor as Clutter.Actor
import qualified GI.Cogl.Enums as Cogl.Enums
import qualified GI.GObject.Objects.Object as GObject.Object
newtype Texture = Texture (SP.ManagedPtr Texture)
deriving (Texture -> Texture -> Bool
(Texture -> Texture -> Bool)
-> (Texture -> Texture -> Bool) -> Eq Texture
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Texture -> Texture -> Bool
== :: Texture -> Texture -> Bool
$c/= :: Texture -> Texture -> Bool
/= :: Texture -> Texture -> Bool
Eq)
instance SP.ManagedPtrNewtype Texture where
toManagedPtr :: Texture -> ManagedPtr Texture
toManagedPtr (Texture ManagedPtr Texture
p) = ManagedPtr Texture
p
foreign import ccall "clutter_texture_get_type"
c_clutter_texture_get_type :: IO B.Types.GType
instance B.Types.TypedObject Texture where
glibType :: IO GType
glibType = IO GType
c_clutter_texture_get_type
instance B.Types.GObject Texture
class (SP.GObject o, O.IsDescendantOf Texture o) => IsTexture o
instance (SP.GObject o, O.IsDescendantOf Texture o) => IsTexture o
instance O.HasParentTypes Texture
type instance O.ParentTypes Texture = '[Clutter.Actor.Actor, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Clutter.Animatable.Animatable, Clutter.Container.Container, Clutter.Scriptable.Scriptable]
toTexture :: (MIO.MonadIO m, IsTexture o) => o -> m Texture
toTexture :: forall (m :: * -> *) o. (MonadIO m, IsTexture o) => o -> m Texture
toTexture = IO Texture -> m Texture
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Texture -> m Texture) -> (o -> IO Texture) -> o -> m Texture
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Texture -> Texture) -> o -> IO Texture
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Texture -> Texture
Texture
instance B.GValue.IsGValue (Maybe Texture) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_clutter_texture_get_type
gvalueSet_ :: Ptr GValue -> Maybe Texture -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Texture
P.Nothing = Ptr GValue -> Ptr Texture -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Texture
forall a. Ptr a
FP.nullPtr :: FP.Ptr Texture)
gvalueSet_ Ptr GValue
gv (P.Just Texture
obj) = Texture -> (Ptr Texture -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Texture
obj (Ptr GValue -> Ptr Texture -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Texture)
gvalueGet_ Ptr GValue
gv = do
Ptr Texture
ptr <- Ptr GValue -> IO (Ptr Texture)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Texture)
if Ptr Texture
ptr Ptr Texture -> Ptr Texture -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Texture
forall a. Ptr a
FP.nullPtr
then Texture -> Maybe Texture
forall a. a -> Maybe a
P.Just (Texture -> Maybe Texture) -> IO Texture -> IO (Maybe Texture)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Texture -> Texture) -> Ptr Texture -> IO Texture
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Texture -> Texture
Texture Ptr Texture
ptr
else Maybe Texture -> IO (Maybe Texture)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Texture
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveTextureMethod (t :: Symbol) (o :: *) :: * where
ResolveTextureMethod "addAction" o = Clutter.Actor.ActorAddActionMethodInfo
ResolveTextureMethod "addActionWithName" o = Clutter.Actor.ActorAddActionWithNameMethodInfo
ResolveTextureMethod "addActor" o = Clutter.Container.ContainerAddActorMethodInfo
ResolveTextureMethod "addChild" o = Clutter.Actor.ActorAddChildMethodInfo
ResolveTextureMethod "addConstraint" o = Clutter.Actor.ActorAddConstraintMethodInfo
ResolveTextureMethod "addConstraintWithName" o = Clutter.Actor.ActorAddConstraintWithNameMethodInfo
ResolveTextureMethod "addEffect" o = Clutter.Actor.ActorAddEffectMethodInfo
ResolveTextureMethod "addEffectWithName" o = Clutter.Actor.ActorAddEffectWithNameMethodInfo
ResolveTextureMethod "addTransition" o = Clutter.Actor.ActorAddTransitionMethodInfo
ResolveTextureMethod "allocate" o = Clutter.Actor.ActorAllocateMethodInfo
ResolveTextureMethod "allocateAlignFill" o = Clutter.Actor.ActorAllocateAlignFillMethodInfo
ResolveTextureMethod "allocateAvailableSize" o = Clutter.Actor.ActorAllocateAvailableSizeMethodInfo
ResolveTextureMethod "allocatePreferredSize" o = Clutter.Actor.ActorAllocatePreferredSizeMethodInfo
ResolveTextureMethod "animateProperty" o = Clutter.Animatable.AnimatableAnimatePropertyMethodInfo
ResolveTextureMethod "animateWithAlphav" o = Clutter.Actor.ActorAnimateWithAlphavMethodInfo
ResolveTextureMethod "animateWithTimelinev" o = Clutter.Actor.ActorAnimateWithTimelinevMethodInfo
ResolveTextureMethod "animatev" o = Clutter.Actor.ActorAnimatevMethodInfo
ResolveTextureMethod "applyRelativeTransformToPoint" o = Clutter.Actor.ActorApplyRelativeTransformToPointMethodInfo
ResolveTextureMethod "applyTransformToPoint" o = Clutter.Actor.ActorApplyTransformToPointMethodInfo
ResolveTextureMethod "bindModel" o = Clutter.Actor.ActorBindModelMethodInfo
ResolveTextureMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTextureMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTextureMethod "childGetProperty" o = Clutter.Container.ContainerChildGetPropertyMethodInfo
ResolveTextureMethod "childNotify" o = Clutter.Container.ContainerChildNotifyMethodInfo
ResolveTextureMethod "childSetProperty" o = Clutter.Container.ContainerChildSetPropertyMethodInfo
ResolveTextureMethod "clearActions" o = Clutter.Actor.ActorClearActionsMethodInfo
ResolveTextureMethod "clearConstraints" o = Clutter.Actor.ActorClearConstraintsMethodInfo
ResolveTextureMethod "clearEffects" o = Clutter.Actor.ActorClearEffectsMethodInfo
ResolveTextureMethod "contains" o = Clutter.Actor.ActorContainsMethodInfo
ResolveTextureMethod "continuePaint" o = Clutter.Actor.ActorContinuePaintMethodInfo
ResolveTextureMethod "createChildMeta" o = Clutter.Container.ContainerCreateChildMetaMethodInfo
ResolveTextureMethod "createPangoContext" o = Clutter.Actor.ActorCreatePangoContextMethodInfo
ResolveTextureMethod "createPangoLayout" o = Clutter.Actor.ActorCreatePangoLayoutMethodInfo
ResolveTextureMethod "destroy" o = Clutter.Actor.ActorDestroyMethodInfo
ResolveTextureMethod "destroyAllChildren" o = Clutter.Actor.ActorDestroyAllChildrenMethodInfo
ResolveTextureMethod "destroyChildMeta" o = Clutter.Container.ContainerDestroyChildMetaMethodInfo
ResolveTextureMethod "detachAnimation" o = Clutter.Actor.ActorDetachAnimationMethodInfo
ResolveTextureMethod "event" o = Clutter.Actor.ActorEventMethodInfo
ResolveTextureMethod "findChildByName" o = Clutter.Container.ContainerFindChildByNameMethodInfo
ResolveTextureMethod "findProperty" o = Clutter.Animatable.AnimatableFindPropertyMethodInfo
ResolveTextureMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTextureMethod "foreach" o = Clutter.Container.ContainerForeachMethodInfo
ResolveTextureMethod "foreachWithInternals" o = Clutter.Container.ContainerForeachWithInternalsMethodInfo
ResolveTextureMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTextureMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTextureMethod "grabKeyFocus" o = Clutter.Actor.ActorGrabKeyFocusMethodInfo
ResolveTextureMethod "hasActions" o = Clutter.Actor.ActorHasActionsMethodInfo
ResolveTextureMethod "hasAllocation" o = Clutter.Actor.ActorHasAllocationMethodInfo
ResolveTextureMethod "hasClip" o = Clutter.Actor.ActorHasClipMethodInfo
ResolveTextureMethod "hasConstraints" o = Clutter.Actor.ActorHasConstraintsMethodInfo
ResolveTextureMethod "hasEffects" o = Clutter.Actor.ActorHasEffectsMethodInfo
ResolveTextureMethod "hasKeyFocus" o = Clutter.Actor.ActorHasKeyFocusMethodInfo
ResolveTextureMethod "hasOverlaps" o = Clutter.Actor.ActorHasOverlapsMethodInfo
ResolveTextureMethod "hasPointer" o = Clutter.Actor.ActorHasPointerMethodInfo
ResolveTextureMethod "hide" o = Clutter.Actor.ActorHideMethodInfo
ResolveTextureMethod "hideAll" o = Clutter.Actor.ActorHideAllMethodInfo
ResolveTextureMethod "insertChildAbove" o = Clutter.Actor.ActorInsertChildAboveMethodInfo
ResolveTextureMethod "insertChildAtIndex" o = Clutter.Actor.ActorInsertChildAtIndexMethodInfo
ResolveTextureMethod "insertChildBelow" o = Clutter.Actor.ActorInsertChildBelowMethodInfo
ResolveTextureMethod "interpolateValue" o = Clutter.Animatable.AnimatableInterpolateValueMethodInfo
ResolveTextureMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTextureMethod "isInClonePaint" o = Clutter.Actor.ActorIsInClonePaintMethodInfo
ResolveTextureMethod "isMapped" o = Clutter.Actor.ActorIsMappedMethodInfo
ResolveTextureMethod "isRealized" o = Clutter.Actor.ActorIsRealizedMethodInfo
ResolveTextureMethod "isRotated" o = Clutter.Actor.ActorIsRotatedMethodInfo
ResolveTextureMethod "isScaled" o = Clutter.Actor.ActorIsScaledMethodInfo
ResolveTextureMethod "isVisible" o = Clutter.Actor.ActorIsVisibleMethodInfo
ResolveTextureMethod "lower" o = Clutter.Actor.ActorLowerMethodInfo
ResolveTextureMethod "lowerBottom" o = Clutter.Actor.ActorLowerBottomMethodInfo
ResolveTextureMethod "lowerChild" o = Clutter.Container.ContainerLowerChildMethodInfo
ResolveTextureMethod "map" o = Clutter.Actor.ActorMapMethodInfo
ResolveTextureMethod "moveAnchorPoint" o = Clutter.Actor.ActorMoveAnchorPointMethodInfo
ResolveTextureMethod "moveAnchorPointFromGravity" o = Clutter.Actor.ActorMoveAnchorPointFromGravityMethodInfo
ResolveTextureMethod "moveBy" o = Clutter.Actor.ActorMoveByMethodInfo
ResolveTextureMethod "needsExpand" o = Clutter.Actor.ActorNeedsExpandMethodInfo
ResolveTextureMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTextureMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTextureMethod "paint" o = Clutter.Actor.ActorPaintMethodInfo
ResolveTextureMethod "parseCustomNode" o = Clutter.Scriptable.ScriptableParseCustomNodeMethodInfo
ResolveTextureMethod "popInternal" o = Clutter.Actor.ActorPopInternalMethodInfo
ResolveTextureMethod "pushInternal" o = Clutter.Actor.ActorPushInternalMethodInfo
ResolveTextureMethod "queueRedraw" o = Clutter.Actor.ActorQueueRedrawMethodInfo
ResolveTextureMethod "queueRedrawWithClip" o = Clutter.Actor.ActorQueueRedrawWithClipMethodInfo
ResolveTextureMethod "queueRelayout" o = Clutter.Actor.ActorQueueRelayoutMethodInfo
ResolveTextureMethod "raise" o = Clutter.Actor.ActorRaiseMethodInfo
ResolveTextureMethod "raiseChild" o = Clutter.Container.ContainerRaiseChildMethodInfo
ResolveTextureMethod "raiseTop" o = Clutter.Actor.ActorRaiseTopMethodInfo
ResolveTextureMethod "realize" o = Clutter.Actor.ActorRealizeMethodInfo
ResolveTextureMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTextureMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTextureMethod "removeAction" o = Clutter.Actor.ActorRemoveActionMethodInfo
ResolveTextureMethod "removeActionByName" o = Clutter.Actor.ActorRemoveActionByNameMethodInfo
ResolveTextureMethod "removeActor" o = Clutter.Container.ContainerRemoveActorMethodInfo
ResolveTextureMethod "removeAllChildren" o = Clutter.Actor.ActorRemoveAllChildrenMethodInfo
ResolveTextureMethod "removeAllTransitions" o = Clutter.Actor.ActorRemoveAllTransitionsMethodInfo
ResolveTextureMethod "removeChild" o = Clutter.Actor.ActorRemoveChildMethodInfo
ResolveTextureMethod "removeClip" o = Clutter.Actor.ActorRemoveClipMethodInfo
ResolveTextureMethod "removeConstraint" o = Clutter.Actor.ActorRemoveConstraintMethodInfo
ResolveTextureMethod "removeConstraintByName" o = Clutter.Actor.ActorRemoveConstraintByNameMethodInfo
ResolveTextureMethod "removeEffect" o = Clutter.Actor.ActorRemoveEffectMethodInfo
ResolveTextureMethod "removeEffectByName" o = Clutter.Actor.ActorRemoveEffectByNameMethodInfo
ResolveTextureMethod "removeTransition" o = Clutter.Actor.ActorRemoveTransitionMethodInfo
ResolveTextureMethod "reparent" o = Clutter.Actor.ActorReparentMethodInfo
ResolveTextureMethod "replaceChild" o = Clutter.Actor.ActorReplaceChildMethodInfo
ResolveTextureMethod "restoreEasingState" o = Clutter.Actor.ActorRestoreEasingStateMethodInfo
ResolveTextureMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTextureMethod "saveEasingState" o = Clutter.Actor.ActorSaveEasingStateMethodInfo
ResolveTextureMethod "shouldPickPaint" o = Clutter.Actor.ActorShouldPickPaintMethodInfo
ResolveTextureMethod "show" o = Clutter.Actor.ActorShowMethodInfo
ResolveTextureMethod "showAll" o = Clutter.Actor.ActorShowAllMethodInfo
ResolveTextureMethod "sortDepthOrder" o = Clutter.Container.ContainerSortDepthOrderMethodInfo
ResolveTextureMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTextureMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTextureMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTextureMethod "transformStagePoint" o = Clutter.Actor.ActorTransformStagePointMethodInfo
ResolveTextureMethod "unmap" o = Clutter.Actor.ActorUnmapMethodInfo
ResolveTextureMethod "unparent" o = Clutter.Actor.ActorUnparentMethodInfo
ResolveTextureMethod "unrealize" o = Clutter.Actor.ActorUnrealizeMethodInfo
ResolveTextureMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTextureMethod "unsetFlags" o = Clutter.Actor.ActorUnsetFlagsMethodInfo
ResolveTextureMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTextureMethod "getAbsAllocationVertices" o = Clutter.Actor.ActorGetAbsAllocationVerticesMethodInfo
ResolveTextureMethod "getAccessible" o = Clutter.Actor.ActorGetAccessibleMethodInfo
ResolveTextureMethod "getAction" o = Clutter.Actor.ActorGetActionMethodInfo
ResolveTextureMethod "getActions" o = Clutter.Actor.ActorGetActionsMethodInfo
ResolveTextureMethod "getAllocationBox" o = Clutter.Actor.ActorGetAllocationBoxMethodInfo
ResolveTextureMethod "getAllocationGeometry" o = Clutter.Actor.ActorGetAllocationGeometryMethodInfo
ResolveTextureMethod "getAllocationVertices" o = Clutter.Actor.ActorGetAllocationVerticesMethodInfo
ResolveTextureMethod "getAnchorPoint" o = Clutter.Actor.ActorGetAnchorPointMethodInfo
ResolveTextureMethod "getAnchorPointGravity" o = Clutter.Actor.ActorGetAnchorPointGravityMethodInfo
ResolveTextureMethod "getAnimation" o = Clutter.Actor.ActorGetAnimationMethodInfo
ResolveTextureMethod "getBackgroundColor" o = Clutter.Actor.ActorGetBackgroundColorMethodInfo
ResolveTextureMethod "getBaseSize" o = TextureGetBaseSizeMethodInfo
ResolveTextureMethod "getChildAtIndex" o = Clutter.Actor.ActorGetChildAtIndexMethodInfo
ResolveTextureMethod "getChildMeta" o = Clutter.Container.ContainerGetChildMetaMethodInfo
ResolveTextureMethod "getChildTransform" o = Clutter.Actor.ActorGetChildTransformMethodInfo
ResolveTextureMethod "getChildren" o = Clutter.Actor.ActorGetChildrenMethodInfo
ResolveTextureMethod "getClip" o = Clutter.Actor.ActorGetClipMethodInfo
ResolveTextureMethod "getClipToAllocation" o = Clutter.Actor.ActorGetClipToAllocationMethodInfo
ResolveTextureMethod "getCoglMaterial" o = TextureGetCoglMaterialMethodInfo
ResolveTextureMethod "getCoglTexture" o = TextureGetCoglTextureMethodInfo
ResolveTextureMethod "getConstraint" o = Clutter.Actor.ActorGetConstraintMethodInfo
ResolveTextureMethod "getConstraints" o = Clutter.Actor.ActorGetConstraintsMethodInfo
ResolveTextureMethod "getContent" o = Clutter.Actor.ActorGetContentMethodInfo
ResolveTextureMethod "getContentBox" o = Clutter.Actor.ActorGetContentBoxMethodInfo
ResolveTextureMethod "getContentGravity" o = Clutter.Actor.ActorGetContentGravityMethodInfo
ResolveTextureMethod "getContentRepeat" o = Clutter.Actor.ActorGetContentRepeatMethodInfo
ResolveTextureMethod "getContentScalingFilters" o = Clutter.Actor.ActorGetContentScalingFiltersMethodInfo
ResolveTextureMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTextureMethod "getDefaultPaintVolume" o = Clutter.Actor.ActorGetDefaultPaintVolumeMethodInfo
ResolveTextureMethod "getDepth" o = Clutter.Actor.ActorGetDepthMethodInfo
ResolveTextureMethod "getEasingDelay" o = Clutter.Actor.ActorGetEasingDelayMethodInfo
ResolveTextureMethod "getEasingDuration" o = Clutter.Actor.ActorGetEasingDurationMethodInfo
ResolveTextureMethod "getEasingMode" o = Clutter.Actor.ActorGetEasingModeMethodInfo
ResolveTextureMethod "getEffect" o = Clutter.Actor.ActorGetEffectMethodInfo
ResolveTextureMethod "getEffects" o = Clutter.Actor.ActorGetEffectsMethodInfo
ResolveTextureMethod "getFilterQuality" o = TextureGetFilterQualityMethodInfo
ResolveTextureMethod "getFirstChild" o = Clutter.Actor.ActorGetFirstChildMethodInfo
ResolveTextureMethod "getFixedPositionSet" o = Clutter.Actor.ActorGetFixedPositionSetMethodInfo
ResolveTextureMethod "getFlags" o = Clutter.Actor.ActorGetFlagsMethodInfo
ResolveTextureMethod "getGeometry" o = Clutter.Actor.ActorGetGeometryMethodInfo
ResolveTextureMethod "getGid" o = Clutter.Actor.ActorGetGidMethodInfo
ResolveTextureMethod "getHeight" o = Clutter.Actor.ActorGetHeightMethodInfo
ResolveTextureMethod "getId" o = Clutter.Scriptable.ScriptableGetIdMethodInfo
ResolveTextureMethod "getInitialState" o = Clutter.Animatable.AnimatableGetInitialStateMethodInfo
ResolveTextureMethod "getKeepAspectRatio" o = TextureGetKeepAspectRatioMethodInfo
ResolveTextureMethod "getLastChild" o = Clutter.Actor.ActorGetLastChildMethodInfo
ResolveTextureMethod "getLayoutManager" o = Clutter.Actor.ActorGetLayoutManagerMethodInfo
ResolveTextureMethod "getLoadAsync" o = TextureGetLoadAsyncMethodInfo
ResolveTextureMethod "getLoadDataAsync" o = TextureGetLoadDataAsyncMethodInfo
ResolveTextureMethod "getMargin" o = Clutter.Actor.ActorGetMarginMethodInfo
ResolveTextureMethod "getMarginBottom" o = Clutter.Actor.ActorGetMarginBottomMethodInfo
ResolveTextureMethod "getMarginLeft" o = Clutter.Actor.ActorGetMarginLeftMethodInfo
ResolveTextureMethod "getMarginRight" o = Clutter.Actor.ActorGetMarginRightMethodInfo
ResolveTextureMethod "getMarginTop" o = Clutter.Actor.ActorGetMarginTopMethodInfo
ResolveTextureMethod "getMaxTileWaste" o = TextureGetMaxTileWasteMethodInfo
ResolveTextureMethod "getNChildren" o = Clutter.Actor.ActorGetNChildrenMethodInfo
ResolveTextureMethod "getName" o = Clutter.Actor.ActorGetNameMethodInfo
ResolveTextureMethod "getNextSibling" o = Clutter.Actor.ActorGetNextSiblingMethodInfo
ResolveTextureMethod "getOffscreenRedirect" o = Clutter.Actor.ActorGetOffscreenRedirectMethodInfo
ResolveTextureMethod "getOpacity" o = Clutter.Actor.ActorGetOpacityMethodInfo
ResolveTextureMethod "getPaintBox" o = Clutter.Actor.ActorGetPaintBoxMethodInfo
ResolveTextureMethod "getPaintOpacity" o = Clutter.Actor.ActorGetPaintOpacityMethodInfo
ResolveTextureMethod "getPaintVisibility" o = Clutter.Actor.ActorGetPaintVisibilityMethodInfo
ResolveTextureMethod "getPaintVolume" o = Clutter.Actor.ActorGetPaintVolumeMethodInfo
ResolveTextureMethod "getPangoContext" o = Clutter.Actor.ActorGetPangoContextMethodInfo
ResolveTextureMethod "getParent" o = Clutter.Actor.ActorGetParentMethodInfo
ResolveTextureMethod "getPickWithAlpha" o = TextureGetPickWithAlphaMethodInfo
ResolveTextureMethod "getPivotPoint" o = Clutter.Actor.ActorGetPivotPointMethodInfo
ResolveTextureMethod "getPivotPointZ" o = Clutter.Actor.ActorGetPivotPointZMethodInfo
ResolveTextureMethod "getPixelFormat" o = TextureGetPixelFormatMethodInfo
ResolveTextureMethod "getPosition" o = Clutter.Actor.ActorGetPositionMethodInfo
ResolveTextureMethod "getPreferredHeight" o = Clutter.Actor.ActorGetPreferredHeightMethodInfo
ResolveTextureMethod "getPreferredSize" o = Clutter.Actor.ActorGetPreferredSizeMethodInfo
ResolveTextureMethod "getPreferredWidth" o = Clutter.Actor.ActorGetPreferredWidthMethodInfo
ResolveTextureMethod "getPreviousSibling" o = Clutter.Actor.ActorGetPreviousSiblingMethodInfo
ResolveTextureMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTextureMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTextureMethod "getReactive" o = Clutter.Actor.ActorGetReactiveMethodInfo
ResolveTextureMethod "getRepeat" o = TextureGetRepeatMethodInfo
ResolveTextureMethod "getRequestMode" o = Clutter.Actor.ActorGetRequestModeMethodInfo
ResolveTextureMethod "getRotation" o = Clutter.Actor.ActorGetRotationMethodInfo
ResolveTextureMethod "getRotationAngle" o = Clutter.Actor.ActorGetRotationAngleMethodInfo
ResolveTextureMethod "getScale" o = Clutter.Actor.ActorGetScaleMethodInfo
ResolveTextureMethod "getScaleCenter" o = Clutter.Actor.ActorGetScaleCenterMethodInfo
ResolveTextureMethod "getScaleGravity" o = Clutter.Actor.ActorGetScaleGravityMethodInfo
ResolveTextureMethod "getScaleZ" o = Clutter.Actor.ActorGetScaleZMethodInfo
ResolveTextureMethod "getShader" o = Clutter.Actor.ActorGetShaderMethodInfo
ResolveTextureMethod "getSize" o = Clutter.Actor.ActorGetSizeMethodInfo
ResolveTextureMethod "getStage" o = Clutter.Actor.ActorGetStageMethodInfo
ResolveTextureMethod "getSyncSize" o = TextureGetSyncSizeMethodInfo
ResolveTextureMethod "getTextDirection" o = Clutter.Actor.ActorGetTextDirectionMethodInfo
ResolveTextureMethod "getTransform" o = Clutter.Actor.ActorGetTransformMethodInfo
ResolveTextureMethod "getTransformationMatrix" o = Clutter.Actor.ActorGetTransformationMatrixMethodInfo
ResolveTextureMethod "getTransformedPaintVolume" o = Clutter.Actor.ActorGetTransformedPaintVolumeMethodInfo
ResolveTextureMethod "getTransformedPosition" o = Clutter.Actor.ActorGetTransformedPositionMethodInfo
ResolveTextureMethod "getTransformedSize" o = Clutter.Actor.ActorGetTransformedSizeMethodInfo
ResolveTextureMethod "getTransition" o = Clutter.Actor.ActorGetTransitionMethodInfo
ResolveTextureMethod "getTranslation" o = Clutter.Actor.ActorGetTranslationMethodInfo
ResolveTextureMethod "getWidth" o = Clutter.Actor.ActorGetWidthMethodInfo
ResolveTextureMethod "getX" o = Clutter.Actor.ActorGetXMethodInfo
ResolveTextureMethod "getXAlign" o = Clutter.Actor.ActorGetXAlignMethodInfo
ResolveTextureMethod "getXExpand" o = Clutter.Actor.ActorGetXExpandMethodInfo
ResolveTextureMethod "getY" o = Clutter.Actor.ActorGetYMethodInfo
ResolveTextureMethod "getYAlign" o = Clutter.Actor.ActorGetYAlignMethodInfo
ResolveTextureMethod "getYExpand" o = Clutter.Actor.ActorGetYExpandMethodInfo
ResolveTextureMethod "getZPosition" o = Clutter.Actor.ActorGetZPositionMethodInfo
ResolveTextureMethod "getZRotationGravity" o = Clutter.Actor.ActorGetZRotationGravityMethodInfo
ResolveTextureMethod "setAllocation" o = Clutter.Actor.ActorSetAllocationMethodInfo
ResolveTextureMethod "setAnchorPoint" o = Clutter.Actor.ActorSetAnchorPointMethodInfo
ResolveTextureMethod "setAnchorPointFromGravity" o = Clutter.Actor.ActorSetAnchorPointFromGravityMethodInfo
ResolveTextureMethod "setAreaFromRgbData" o = TextureSetAreaFromRgbDataMethodInfo
ResolveTextureMethod "setBackgroundColor" o = Clutter.Actor.ActorSetBackgroundColorMethodInfo
ResolveTextureMethod "setChildAboveSibling" o = Clutter.Actor.ActorSetChildAboveSiblingMethodInfo
ResolveTextureMethod "setChildAtIndex" o = Clutter.Actor.ActorSetChildAtIndexMethodInfo
ResolveTextureMethod "setChildBelowSibling" o = Clutter.Actor.ActorSetChildBelowSiblingMethodInfo
ResolveTextureMethod "setChildTransform" o = Clutter.Actor.ActorSetChildTransformMethodInfo
ResolveTextureMethod "setClip" o = Clutter.Actor.ActorSetClipMethodInfo
ResolveTextureMethod "setClipToAllocation" o = Clutter.Actor.ActorSetClipToAllocationMethodInfo
ResolveTextureMethod "setCoglMaterial" o = TextureSetCoglMaterialMethodInfo
ResolveTextureMethod "setCoglTexture" o = TextureSetCoglTextureMethodInfo
ResolveTextureMethod "setContent" o = Clutter.Actor.ActorSetContentMethodInfo
ResolveTextureMethod "setContentGravity" o = Clutter.Actor.ActorSetContentGravityMethodInfo
ResolveTextureMethod "setContentRepeat" o = Clutter.Actor.ActorSetContentRepeatMethodInfo
ResolveTextureMethod "setContentScalingFilters" o = Clutter.Actor.ActorSetContentScalingFiltersMethodInfo
ResolveTextureMethod "setCustomProperty" o = Clutter.Scriptable.ScriptableSetCustomPropertyMethodInfo
ResolveTextureMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTextureMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveTextureMethod "setDepth" o = Clutter.Actor.ActorSetDepthMethodInfo
ResolveTextureMethod "setEasingDelay" o = Clutter.Actor.ActorSetEasingDelayMethodInfo
ResolveTextureMethod "setEasingDuration" o = Clutter.Actor.ActorSetEasingDurationMethodInfo
ResolveTextureMethod "setEasingMode" o = Clutter.Actor.ActorSetEasingModeMethodInfo
ResolveTextureMethod "setFilterQuality" o = TextureSetFilterQualityMethodInfo
ResolveTextureMethod "setFinalState" o = Clutter.Animatable.AnimatableSetFinalStateMethodInfo
ResolveTextureMethod "setFixedPositionSet" o = Clutter.Actor.ActorSetFixedPositionSetMethodInfo
ResolveTextureMethod "setFlags" o = Clutter.Actor.ActorSetFlagsMethodInfo
ResolveTextureMethod "setFromFile" o = TextureSetFromFileMethodInfo
ResolveTextureMethod "setFromRgbData" o = TextureSetFromRgbDataMethodInfo
ResolveTextureMethod "setFromYuvData" o = TextureSetFromYuvDataMethodInfo
ResolveTextureMethod "setGeometry" o = Clutter.Actor.ActorSetGeometryMethodInfo
ResolveTextureMethod "setHeight" o = Clutter.Actor.ActorSetHeightMethodInfo
ResolveTextureMethod "setId" o = Clutter.Scriptable.ScriptableSetIdMethodInfo
ResolveTextureMethod "setKeepAspectRatio" o = TextureSetKeepAspectRatioMethodInfo
ResolveTextureMethod "setLayoutManager" o = Clutter.Actor.ActorSetLayoutManagerMethodInfo
ResolveTextureMethod "setLoadAsync" o = TextureSetLoadAsyncMethodInfo
ResolveTextureMethod "setLoadDataAsync" o = TextureSetLoadDataAsyncMethodInfo
ResolveTextureMethod "setMargin" o = Clutter.Actor.ActorSetMarginMethodInfo
ResolveTextureMethod "setMarginBottom" o = Clutter.Actor.ActorSetMarginBottomMethodInfo
ResolveTextureMethod "setMarginLeft" o = Clutter.Actor.ActorSetMarginLeftMethodInfo
ResolveTextureMethod "setMarginRight" o = Clutter.Actor.ActorSetMarginRightMethodInfo
ResolveTextureMethod "setMarginTop" o = Clutter.Actor.ActorSetMarginTopMethodInfo
ResolveTextureMethod "setName" o = Clutter.Actor.ActorSetNameMethodInfo
ResolveTextureMethod "setOffscreenRedirect" o = Clutter.Actor.ActorSetOffscreenRedirectMethodInfo
ResolveTextureMethod "setOpacity" o = Clutter.Actor.ActorSetOpacityMethodInfo
ResolveTextureMethod "setParent" o = Clutter.Actor.ActorSetParentMethodInfo
ResolveTextureMethod "setPickWithAlpha" o = TextureSetPickWithAlphaMethodInfo
ResolveTextureMethod "setPivotPoint" o = Clutter.Actor.ActorSetPivotPointMethodInfo
ResolveTextureMethod "setPivotPointZ" o = Clutter.Actor.ActorSetPivotPointZMethodInfo
ResolveTextureMethod "setPosition" o = Clutter.Actor.ActorSetPositionMethodInfo
ResolveTextureMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTextureMethod "setReactive" o = Clutter.Actor.ActorSetReactiveMethodInfo
ResolveTextureMethod "setRepeat" o = TextureSetRepeatMethodInfo
ResolveTextureMethod "setRequestMode" o = Clutter.Actor.ActorSetRequestModeMethodInfo
ResolveTextureMethod "setRotation" o = Clutter.Actor.ActorSetRotationMethodInfo
ResolveTextureMethod "setRotationAngle" o = Clutter.Actor.ActorSetRotationAngleMethodInfo
ResolveTextureMethod "setScale" o = Clutter.Actor.ActorSetScaleMethodInfo
ResolveTextureMethod "setScaleFull" o = Clutter.Actor.ActorSetScaleFullMethodInfo
ResolveTextureMethod "setScaleWithGravity" o = Clutter.Actor.ActorSetScaleWithGravityMethodInfo
ResolveTextureMethod "setScaleZ" o = Clutter.Actor.ActorSetScaleZMethodInfo
ResolveTextureMethod "setShader" o = Clutter.Actor.ActorSetShaderMethodInfo
ResolveTextureMethod "setShaderParam" o = Clutter.Actor.ActorSetShaderParamMethodInfo
ResolveTextureMethod "setShaderParamFloat" o = Clutter.Actor.ActorSetShaderParamFloatMethodInfo
ResolveTextureMethod "setShaderParamInt" o = Clutter.Actor.ActorSetShaderParamIntMethodInfo
ResolveTextureMethod "setSize" o = Clutter.Actor.ActorSetSizeMethodInfo
ResolveTextureMethod "setSyncSize" o = TextureSetSyncSizeMethodInfo
ResolveTextureMethod "setTextDirection" o = Clutter.Actor.ActorSetTextDirectionMethodInfo
ResolveTextureMethod "setTransform" o = Clutter.Actor.ActorSetTransformMethodInfo
ResolveTextureMethod "setTranslation" o = Clutter.Actor.ActorSetTranslationMethodInfo
ResolveTextureMethod "setWidth" o = Clutter.Actor.ActorSetWidthMethodInfo
ResolveTextureMethod "setX" o = Clutter.Actor.ActorSetXMethodInfo
ResolveTextureMethod "setXAlign" o = Clutter.Actor.ActorSetXAlignMethodInfo
ResolveTextureMethod "setXExpand" o = Clutter.Actor.ActorSetXExpandMethodInfo
ResolveTextureMethod "setY" o = Clutter.Actor.ActorSetYMethodInfo
ResolveTextureMethod "setYAlign" o = Clutter.Actor.ActorSetYAlignMethodInfo
ResolveTextureMethod "setYExpand" o = Clutter.Actor.ActorSetYExpandMethodInfo
ResolveTextureMethod "setZPosition" o = Clutter.Actor.ActorSetZPositionMethodInfo
ResolveTextureMethod "setZRotationFromGravity" o = Clutter.Actor.ActorSetZRotationFromGravityMethodInfo
ResolveTextureMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTextureMethod t Texture, O.OverloadedMethod info Texture p) => OL.IsLabel t (Texture -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveTextureMethod t Texture, O.OverloadedMethod info Texture p, R.HasField t Texture p) => R.HasField t Texture p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveTextureMethod t Texture, O.OverloadedMethodInfo info Texture) => OL.IsLabel t (O.MethodProxy info Texture) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
{-# DEPRECATED TextureLoadFinishedCallback ["(Since version 1.12)","No replacement is available"] #-}
type TextureLoadFinishedCallback =
GError
-> IO ()
type C_TextureLoadFinishedCallback =
Ptr Texture ->
Ptr GError ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextureLoadFinishedCallback :: C_TextureLoadFinishedCallback -> IO (FunPtr C_TextureLoadFinishedCallback)
wrap_TextureLoadFinishedCallback ::
GObject a => (a -> TextureLoadFinishedCallback) ->
C_TextureLoadFinishedCallback
wrap_TextureLoadFinishedCallback :: forall a.
GObject a =>
(a -> TextureLoadFinishedCallback) -> C_TextureLoadFinishedCallback
wrap_TextureLoadFinishedCallback a -> TextureLoadFinishedCallback
gi'cb Ptr Texture
gi'selfPtr Ptr GError
error_ Ptr ()
_ = do
GError
error_' <- ((ManagedPtr GError -> GError) -> Ptr GError -> IO GError
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr GError -> GError
GError) Ptr GError
error_
Ptr Texture -> (Texture -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Texture
gi'selfPtr ((Texture -> IO ()) -> IO ()) -> (Texture -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Texture
gi'self -> a -> TextureLoadFinishedCallback
gi'cb (Texture -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Texture
gi'self) GError
error_'
onTextureLoadFinished :: (IsTexture a, MonadIO m) => a -> ((?self :: a) => TextureLoadFinishedCallback) -> m SignalHandlerId
onTextureLoadFinished :: forall a (m :: * -> *).
(IsTexture a, MonadIO m) =>
a
-> ((?self::a) => TextureLoadFinishedCallback) -> m SignalHandlerId
onTextureLoadFinished a
obj (?self::a) => TextureLoadFinishedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TextureLoadFinishedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TextureLoadFinishedCallback
TextureLoadFinishedCallback
cb
let wrapped' :: C_TextureLoadFinishedCallback
wrapped' = (a -> TextureLoadFinishedCallback) -> C_TextureLoadFinishedCallback
forall a.
GObject a =>
(a -> TextureLoadFinishedCallback) -> C_TextureLoadFinishedCallback
wrap_TextureLoadFinishedCallback a -> TextureLoadFinishedCallback
wrapped
FunPtr C_TextureLoadFinishedCallback
wrapped'' <- C_TextureLoadFinishedCallback
-> IO (FunPtr C_TextureLoadFinishedCallback)
mk_TextureLoadFinishedCallback C_TextureLoadFinishedCallback
wrapped'
a
-> Text
-> FunPtr C_TextureLoadFinishedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"load-finished" FunPtr C_TextureLoadFinishedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTextureLoadFinished :: (IsTexture a, MonadIO m) => a -> ((?self :: a) => TextureLoadFinishedCallback) -> m SignalHandlerId
afterTextureLoadFinished :: forall a (m :: * -> *).
(IsTexture a, MonadIO m) =>
a
-> ((?self::a) => TextureLoadFinishedCallback) -> m SignalHandlerId
afterTextureLoadFinished a
obj (?self::a) => TextureLoadFinishedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TextureLoadFinishedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TextureLoadFinishedCallback
TextureLoadFinishedCallback
cb
let wrapped' :: C_TextureLoadFinishedCallback
wrapped' = (a -> TextureLoadFinishedCallback) -> C_TextureLoadFinishedCallback
forall a.
GObject a =>
(a -> TextureLoadFinishedCallback) -> C_TextureLoadFinishedCallback
wrap_TextureLoadFinishedCallback a -> TextureLoadFinishedCallback
wrapped
FunPtr C_TextureLoadFinishedCallback
wrapped'' <- C_TextureLoadFinishedCallback
-> IO (FunPtr C_TextureLoadFinishedCallback)
mk_TextureLoadFinishedCallback C_TextureLoadFinishedCallback
wrapped'
a
-> Text
-> FunPtr C_TextureLoadFinishedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"load-finished" FunPtr C_TextureLoadFinishedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextureLoadFinishedSignalInfo
instance SignalInfo TextureLoadFinishedSignalInfo where
type HaskellCallbackType TextureLoadFinishedSignalInfo = TextureLoadFinishedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextureLoadFinishedCallback cb
cb'' <- mk_TextureLoadFinishedCallback cb'
connectSignalFunPtr obj "load-finished" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture::load-finished"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#g:signal:loadFinished"})
#endif
{-# DEPRECATED TexturePixbufChangeCallback ["(Since version 1.12)","No replacement is available"] #-}
type TexturePixbufChangeCallback =
IO ()
type C_TexturePixbufChangeCallback =
Ptr Texture ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TexturePixbufChangeCallback :: C_TexturePixbufChangeCallback -> IO (FunPtr C_TexturePixbufChangeCallback)
wrap_TexturePixbufChangeCallback ::
GObject a => (a -> TexturePixbufChangeCallback) ->
C_TexturePixbufChangeCallback
wrap_TexturePixbufChangeCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_TexturePixbufChangeCallback
wrap_TexturePixbufChangeCallback a -> IO ()
gi'cb Ptr Texture
gi'selfPtr Ptr ()
_ = do
Ptr Texture -> (Texture -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Texture
gi'selfPtr ((Texture -> IO ()) -> IO ()) -> (Texture -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Texture
gi'self -> a -> IO ()
gi'cb (Texture -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Texture
gi'self)
onTexturePixbufChange :: (IsTexture a, MonadIO m) => a -> ((?self :: a) => TexturePixbufChangeCallback) -> m SignalHandlerId
onTexturePixbufChange :: forall a (m :: * -> *).
(IsTexture a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTexturePixbufChange a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TexturePixbufChangeCallback
wrapped' = (a -> IO ()) -> C_TexturePixbufChangeCallback
forall a.
GObject a =>
(a -> IO ()) -> C_TexturePixbufChangeCallback
wrap_TexturePixbufChangeCallback a -> IO ()
wrapped
FunPtr C_TexturePixbufChangeCallback
wrapped'' <- C_TexturePixbufChangeCallback
-> IO (FunPtr C_TexturePixbufChangeCallback)
mk_TexturePixbufChangeCallback C_TexturePixbufChangeCallback
wrapped'
a
-> Text
-> FunPtr C_TexturePixbufChangeCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"pixbuf-change" FunPtr C_TexturePixbufChangeCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTexturePixbufChange :: (IsTexture a, MonadIO m) => a -> ((?self :: a) => TexturePixbufChangeCallback) -> m SignalHandlerId
afterTexturePixbufChange :: forall a (m :: * -> *).
(IsTexture a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTexturePixbufChange a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TexturePixbufChangeCallback
wrapped' = (a -> IO ()) -> C_TexturePixbufChangeCallback
forall a.
GObject a =>
(a -> IO ()) -> C_TexturePixbufChangeCallback
wrap_TexturePixbufChangeCallback a -> IO ()
wrapped
FunPtr C_TexturePixbufChangeCallback
wrapped'' <- C_TexturePixbufChangeCallback
-> IO (FunPtr C_TexturePixbufChangeCallback)
mk_TexturePixbufChangeCallback C_TexturePixbufChangeCallback
wrapped'
a
-> Text
-> FunPtr C_TexturePixbufChangeCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"pixbuf-change" FunPtr C_TexturePixbufChangeCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TexturePixbufChangeSignalInfo
instance SignalInfo TexturePixbufChangeSignalInfo where
type HaskellCallbackType TexturePixbufChangeSignalInfo = TexturePixbufChangeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TexturePixbufChangeCallback cb
cb'' <- mk_TexturePixbufChangeCallback cb'
connectSignalFunPtr obj "pixbuf-change" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture::pixbuf-change"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#g:signal:pixbufChange"})
#endif
{-# DEPRECATED TextureSizeChangeCallback ["(Since version 1.12)","No replacement is available"] #-}
type TextureSizeChangeCallback =
Int32
-> Int32
-> IO ()
type C_TextureSizeChangeCallback =
Ptr Texture ->
Int32 ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextureSizeChangeCallback :: C_TextureSizeChangeCallback -> IO (FunPtr C_TextureSizeChangeCallback)
wrap_TextureSizeChangeCallback ::
GObject a => (a -> TextureSizeChangeCallback) ->
C_TextureSizeChangeCallback
wrap_TextureSizeChangeCallback :: forall a.
GObject a =>
(a -> TextureSizeChangeCallback) -> C_TextureSizeChangeCallback
wrap_TextureSizeChangeCallback a -> TextureSizeChangeCallback
gi'cb Ptr Texture
gi'selfPtr Int32
width Int32
height Ptr ()
_ = do
Ptr Texture -> (Texture -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Texture
gi'selfPtr ((Texture -> IO ()) -> IO ()) -> (Texture -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Texture
gi'self -> a -> TextureSizeChangeCallback
gi'cb (Texture -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Texture
gi'self) Int32
width Int32
height
onTextureSizeChange :: (IsTexture a, MonadIO m) => a -> ((?self :: a) => TextureSizeChangeCallback) -> m SignalHandlerId
onTextureSizeChange :: forall a (m :: * -> *).
(IsTexture a, MonadIO m) =>
a -> ((?self::a) => TextureSizeChangeCallback) -> m SignalHandlerId
onTextureSizeChange a
obj (?self::a) => TextureSizeChangeCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TextureSizeChangeCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TextureSizeChangeCallback
TextureSizeChangeCallback
cb
let wrapped' :: C_TextureSizeChangeCallback
wrapped' = (a -> TextureSizeChangeCallback) -> C_TextureSizeChangeCallback
forall a.
GObject a =>
(a -> TextureSizeChangeCallback) -> C_TextureSizeChangeCallback
wrap_TextureSizeChangeCallback a -> TextureSizeChangeCallback
wrapped
FunPtr C_TextureSizeChangeCallback
wrapped'' <- C_TextureSizeChangeCallback
-> IO (FunPtr C_TextureSizeChangeCallback)
mk_TextureSizeChangeCallback C_TextureSizeChangeCallback
wrapped'
a
-> Text
-> FunPtr C_TextureSizeChangeCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"size-change" FunPtr C_TextureSizeChangeCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTextureSizeChange :: (IsTexture a, MonadIO m) => a -> ((?self :: a) => TextureSizeChangeCallback) -> m SignalHandlerId
afterTextureSizeChange :: forall a (m :: * -> *).
(IsTexture a, MonadIO m) =>
a -> ((?self::a) => TextureSizeChangeCallback) -> m SignalHandlerId
afterTextureSizeChange a
obj (?self::a) => TextureSizeChangeCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TextureSizeChangeCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TextureSizeChangeCallback
TextureSizeChangeCallback
cb
let wrapped' :: C_TextureSizeChangeCallback
wrapped' = (a -> TextureSizeChangeCallback) -> C_TextureSizeChangeCallback
forall a.
GObject a =>
(a -> TextureSizeChangeCallback) -> C_TextureSizeChangeCallback
wrap_TextureSizeChangeCallback a -> TextureSizeChangeCallback
wrapped
FunPtr C_TextureSizeChangeCallback
wrapped'' <- C_TextureSizeChangeCallback
-> IO (FunPtr C_TextureSizeChangeCallback)
mk_TextureSizeChangeCallback C_TextureSizeChangeCallback
wrapped'
a
-> Text
-> FunPtr C_TextureSizeChangeCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"size-change" FunPtr C_TextureSizeChangeCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextureSizeChangeSignalInfo
instance SignalInfo TextureSizeChangeSignalInfo where
type HaskellCallbackType TextureSizeChangeSignalInfo = TextureSizeChangeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextureSizeChangeCallback cb
cb'' <- mk_TextureSizeChangeCallback cb'
connectSignalFunPtr obj "size-change" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture::size-change"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#g:signal:sizeChange"})
#endif
getTextureDisableSlicing :: (MonadIO m, IsTexture o) => o -> m Bool
getTextureDisableSlicing :: forall (m :: * -> *) o. (MonadIO m, IsTexture o) => o -> m Bool
getTextureDisableSlicing o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"disable-slicing"
constructTextureDisableSlicing :: (IsTexture o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTextureDisableSlicing :: forall o (m :: * -> *).
(IsTexture o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTextureDisableSlicing Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"disable-slicing" Bool
val
#if defined(ENABLE_OVERLOADING)
data TextureDisableSlicingPropertyInfo
instance AttrInfo TextureDisableSlicingPropertyInfo where
type AttrAllowedOps TextureDisableSlicingPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextureDisableSlicingPropertyInfo = IsTexture
type AttrSetTypeConstraint TextureDisableSlicingPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TextureDisableSlicingPropertyInfo = (~) Bool
type AttrTransferType TextureDisableSlicingPropertyInfo = Bool
type AttrGetType TextureDisableSlicingPropertyInfo = Bool
type AttrLabel TextureDisableSlicingPropertyInfo = "disable-slicing"
type AttrOrigin TextureDisableSlicingPropertyInfo = Texture
attrGet = getTextureDisableSlicing
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructTextureDisableSlicing
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.disableSlicing"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#g:attr:disableSlicing"
})
#endif
getTextureFilename :: (MonadIO m, IsTexture o) => o -> m (Maybe T.Text)
getTextureFilename :: forall (m :: * -> *) o.
(MonadIO m, IsTexture o) =>
o -> m (Maybe Text)
getTextureFilename o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"filename"
setTextureFilename :: (MonadIO m, IsTexture o) => o -> T.Text -> m ()
setTextureFilename :: forall (m :: * -> *) o.
(MonadIO m, IsTexture o) =>
o -> Text -> m ()
setTextureFilename o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"filename" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructTextureFilename :: (IsTexture o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructTextureFilename :: forall o (m :: * -> *).
(IsTexture o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructTextureFilename Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"filename" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearTextureFilename :: (MonadIO m, IsTexture o) => o -> m ()
clearTextureFilename :: forall (m :: * -> *) o. (MonadIO m, IsTexture o) => o -> m ()
clearTextureFilename o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"filename" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data TextureFilenamePropertyInfo
instance AttrInfo TextureFilenamePropertyInfo where
type AttrAllowedOps TextureFilenamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TextureFilenamePropertyInfo = IsTexture
type AttrSetTypeConstraint TextureFilenamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint TextureFilenamePropertyInfo = (~) T.Text
type AttrTransferType TextureFilenamePropertyInfo = T.Text
type AttrGetType TextureFilenamePropertyInfo = (Maybe T.Text)
type AttrLabel TextureFilenamePropertyInfo = "filename"
type AttrOrigin TextureFilenamePropertyInfo = Texture
attrGet = getTextureFilename
attrSet = setTextureFilename
attrTransfer _ v = do
return v
attrConstruct = constructTextureFilename
attrClear = clearTextureFilename
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.filename"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#g:attr:filename"
})
#endif
getTextureFilterQuality :: (MonadIO m, IsTexture o) => o -> m Clutter.Enums.TextureQuality
getTextureFilterQuality :: forall (m :: * -> *) o.
(MonadIO m, IsTexture o) =>
o -> m TextureQuality
getTextureFilterQuality o
obj = IO TextureQuality -> m TextureQuality
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO TextureQuality -> m TextureQuality)
-> IO TextureQuality -> m TextureQuality
forall a b. (a -> b) -> a -> b
$ o -> String -> IO TextureQuality
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"filter-quality"
setTextureFilterQuality :: (MonadIO m, IsTexture o) => o -> Clutter.Enums.TextureQuality -> m ()
setTextureFilterQuality :: forall (m :: * -> *) o.
(MonadIO m, IsTexture o) =>
o -> TextureQuality -> m ()
setTextureFilterQuality o
obj TextureQuality
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> TextureQuality -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"filter-quality" TextureQuality
val
constructTextureFilterQuality :: (IsTexture o, MIO.MonadIO m) => Clutter.Enums.TextureQuality -> m (GValueConstruct o)
constructTextureFilterQuality :: forall o (m :: * -> *).
(IsTexture o, MonadIO m) =>
TextureQuality -> m (GValueConstruct o)
constructTextureFilterQuality TextureQuality
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> TextureQuality -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"filter-quality" TextureQuality
val
#if defined(ENABLE_OVERLOADING)
data TextureFilterQualityPropertyInfo
instance AttrInfo TextureFilterQualityPropertyInfo where
type AttrAllowedOps TextureFilterQualityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextureFilterQualityPropertyInfo = IsTexture
type AttrSetTypeConstraint TextureFilterQualityPropertyInfo = (~) Clutter.Enums.TextureQuality
type AttrTransferTypeConstraint TextureFilterQualityPropertyInfo = (~) Clutter.Enums.TextureQuality
type AttrTransferType TextureFilterQualityPropertyInfo = Clutter.Enums.TextureQuality
type AttrGetType TextureFilterQualityPropertyInfo = Clutter.Enums.TextureQuality
type AttrLabel TextureFilterQualityPropertyInfo = "filter-quality"
type AttrOrigin TextureFilterQualityPropertyInfo = Texture
attrGet = getTextureFilterQuality
attrSet = setTextureFilterQuality
attrTransfer _ v = do
return v
attrConstruct = constructTextureFilterQuality
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.filterQuality"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#g:attr:filterQuality"
})
#endif
getTextureKeepAspectRatio :: (MonadIO m, IsTexture o) => o -> m Bool
getTextureKeepAspectRatio :: forall (m :: * -> *) o. (MonadIO m, IsTexture o) => o -> m Bool
getTextureKeepAspectRatio o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"keep-aspect-ratio"
setTextureKeepAspectRatio :: (MonadIO m, IsTexture o) => o -> Bool -> m ()
setTextureKeepAspectRatio :: forall (m :: * -> *) o.
(MonadIO m, IsTexture o) =>
o -> Bool -> m ()
setTextureKeepAspectRatio o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"keep-aspect-ratio" Bool
val
constructTextureKeepAspectRatio :: (IsTexture o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTextureKeepAspectRatio :: forall o (m :: * -> *).
(IsTexture o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTextureKeepAspectRatio Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"keep-aspect-ratio" Bool
val
#if defined(ENABLE_OVERLOADING)
data TextureKeepAspectRatioPropertyInfo
instance AttrInfo TextureKeepAspectRatioPropertyInfo where
type AttrAllowedOps TextureKeepAspectRatioPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextureKeepAspectRatioPropertyInfo = IsTexture
type AttrSetTypeConstraint TextureKeepAspectRatioPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TextureKeepAspectRatioPropertyInfo = (~) Bool
type AttrTransferType TextureKeepAspectRatioPropertyInfo = Bool
type AttrGetType TextureKeepAspectRatioPropertyInfo = Bool
type AttrLabel TextureKeepAspectRatioPropertyInfo = "keep-aspect-ratio"
type AttrOrigin TextureKeepAspectRatioPropertyInfo = Texture
attrGet = getTextureKeepAspectRatio
attrSet = setTextureKeepAspectRatio
attrTransfer _ v = do
return v
attrConstruct = constructTextureKeepAspectRatio
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.keepAspectRatio"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#g:attr:keepAspectRatio"
})
#endif
setTextureLoadAsync :: (MonadIO m, IsTexture o) => o -> Bool -> m ()
setTextureLoadAsync :: forall (m :: * -> *) o.
(MonadIO m, IsTexture o) =>
o -> Bool -> m ()
setTextureLoadAsync o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"load-async" Bool
val
constructTextureLoadAsync :: (IsTexture o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTextureLoadAsync :: forall o (m :: * -> *).
(IsTexture o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTextureLoadAsync Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"load-async" Bool
val
#if defined(ENABLE_OVERLOADING)
data TextureLoadAsyncPropertyInfo
instance AttrInfo TextureLoadAsyncPropertyInfo where
type AttrAllowedOps TextureLoadAsyncPropertyInfo = '[ 'AttrSet, 'AttrConstruct]
type AttrBaseTypeConstraint TextureLoadAsyncPropertyInfo = IsTexture
type AttrSetTypeConstraint TextureLoadAsyncPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TextureLoadAsyncPropertyInfo = (~) Bool
type AttrTransferType TextureLoadAsyncPropertyInfo = Bool
type AttrGetType TextureLoadAsyncPropertyInfo = ()
type AttrLabel TextureLoadAsyncPropertyInfo = "load-async"
type AttrOrigin TextureLoadAsyncPropertyInfo = Texture
attrGet = undefined
attrSet = setTextureLoadAsync
attrTransfer _ v = do
return v
attrConstruct = constructTextureLoadAsync
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.loadAsync"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#g:attr:loadAsync"
})
#endif
setTextureLoadDataAsync :: (MonadIO m, IsTexture o) => o -> Bool -> m ()
setTextureLoadDataAsync :: forall (m :: * -> *) o.
(MonadIO m, IsTexture o) =>
o -> Bool -> m ()
setTextureLoadDataAsync o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"load-data-async" Bool
val
constructTextureLoadDataAsync :: (IsTexture o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTextureLoadDataAsync :: forall o (m :: * -> *).
(IsTexture o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTextureLoadDataAsync Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"load-data-async" Bool
val
#if defined(ENABLE_OVERLOADING)
data TextureLoadDataAsyncPropertyInfo
instance AttrInfo TextureLoadDataAsyncPropertyInfo where
type AttrAllowedOps TextureLoadDataAsyncPropertyInfo = '[ 'AttrSet, 'AttrConstruct]
type AttrBaseTypeConstraint TextureLoadDataAsyncPropertyInfo = IsTexture
type AttrSetTypeConstraint TextureLoadDataAsyncPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TextureLoadDataAsyncPropertyInfo = (~) Bool
type AttrTransferType TextureLoadDataAsyncPropertyInfo = Bool
type AttrGetType TextureLoadDataAsyncPropertyInfo = ()
type AttrLabel TextureLoadDataAsyncPropertyInfo = "load-data-async"
type AttrOrigin TextureLoadDataAsyncPropertyInfo = Texture
attrGet = undefined
attrSet = setTextureLoadDataAsync
attrTransfer _ v = do
return v
attrConstruct = constructTextureLoadDataAsync
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.loadDataAsync"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#g:attr:loadDataAsync"
})
#endif
getTexturePickWithAlpha :: (MonadIO m, IsTexture o) => o -> m Bool
getTexturePickWithAlpha :: forall (m :: * -> *) o. (MonadIO m, IsTexture o) => o -> m Bool
getTexturePickWithAlpha o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"pick-with-alpha"
setTexturePickWithAlpha :: (MonadIO m, IsTexture o) => o -> Bool -> m ()
setTexturePickWithAlpha :: forall (m :: * -> *) o.
(MonadIO m, IsTexture o) =>
o -> Bool -> m ()
setTexturePickWithAlpha o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"pick-with-alpha" Bool
val
constructTexturePickWithAlpha :: (IsTexture o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTexturePickWithAlpha :: forall o (m :: * -> *).
(IsTexture o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTexturePickWithAlpha Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"pick-with-alpha" Bool
val
#if defined(ENABLE_OVERLOADING)
data TexturePickWithAlphaPropertyInfo
instance AttrInfo TexturePickWithAlphaPropertyInfo where
type AttrAllowedOps TexturePickWithAlphaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TexturePickWithAlphaPropertyInfo = IsTexture
type AttrSetTypeConstraint TexturePickWithAlphaPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TexturePickWithAlphaPropertyInfo = (~) Bool
type AttrTransferType TexturePickWithAlphaPropertyInfo = Bool
type AttrGetType TexturePickWithAlphaPropertyInfo = Bool
type AttrLabel TexturePickWithAlphaPropertyInfo = "pick-with-alpha"
type AttrOrigin TexturePickWithAlphaPropertyInfo = Texture
attrGet = getTexturePickWithAlpha
attrSet = setTexturePickWithAlpha
attrTransfer _ v = do
return v
attrConstruct = constructTexturePickWithAlpha
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.pickWithAlpha"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#g:attr:pickWithAlpha"
})
#endif
getTexturePixelFormat :: (MonadIO m, IsTexture o) => o -> m Cogl.Enums.PixelFormat
getTexturePixelFormat :: forall (m :: * -> *) o.
(MonadIO m, IsTexture o) =>
o -> m PixelFormat
getTexturePixelFormat o
obj = IO PixelFormat -> m PixelFormat
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO PixelFormat -> m PixelFormat)
-> IO PixelFormat -> m PixelFormat
forall a b. (a -> b) -> a -> b
$ o -> String -> IO PixelFormat
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"pixel-format"
#if defined(ENABLE_OVERLOADING)
data TexturePixelFormatPropertyInfo
instance AttrInfo TexturePixelFormatPropertyInfo where
type AttrAllowedOps TexturePixelFormatPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint TexturePixelFormatPropertyInfo = IsTexture
type AttrSetTypeConstraint TexturePixelFormatPropertyInfo = (~) ()
type AttrTransferTypeConstraint TexturePixelFormatPropertyInfo = (~) ()
type AttrTransferType TexturePixelFormatPropertyInfo = ()
type AttrGetType TexturePixelFormatPropertyInfo = Cogl.Enums.PixelFormat
type AttrLabel TexturePixelFormatPropertyInfo = "pixel-format"
type AttrOrigin TexturePixelFormatPropertyInfo = Texture
attrGet = getTexturePixelFormat
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.pixelFormat"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#g:attr:pixelFormat"
})
#endif
getTextureRepeatX :: (MonadIO m, IsTexture o) => o -> m Bool
getTextureRepeatX :: forall (m :: * -> *) o. (MonadIO m, IsTexture o) => o -> m Bool
getTextureRepeatX o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"repeat-x"
setTextureRepeatX :: (MonadIO m, IsTexture o) => o -> Bool -> m ()
setTextureRepeatX :: forall (m :: * -> *) o.
(MonadIO m, IsTexture o) =>
o -> Bool -> m ()
setTextureRepeatX o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"repeat-x" Bool
val
constructTextureRepeatX :: (IsTexture o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTextureRepeatX :: forall o (m :: * -> *).
(IsTexture o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTextureRepeatX Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"repeat-x" Bool
val
#if defined(ENABLE_OVERLOADING)
data TextureRepeatXPropertyInfo
instance AttrInfo TextureRepeatXPropertyInfo where
type AttrAllowedOps TextureRepeatXPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextureRepeatXPropertyInfo = IsTexture
type AttrSetTypeConstraint TextureRepeatXPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TextureRepeatXPropertyInfo = (~) Bool
type AttrTransferType TextureRepeatXPropertyInfo = Bool
type AttrGetType TextureRepeatXPropertyInfo = Bool
type AttrLabel TextureRepeatXPropertyInfo = "repeat-x"
type AttrOrigin TextureRepeatXPropertyInfo = Texture
attrGet = getTextureRepeatX
attrSet = setTextureRepeatX
attrTransfer _ v = do
return v
attrConstruct = constructTextureRepeatX
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.repeatX"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#g:attr:repeatX"
})
#endif
getTextureRepeatY :: (MonadIO m, IsTexture o) => o -> m Bool
getTextureRepeatY :: forall (m :: * -> *) o. (MonadIO m, IsTexture o) => o -> m Bool
getTextureRepeatY o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"repeat-y"
setTextureRepeatY :: (MonadIO m, IsTexture o) => o -> Bool -> m ()
setTextureRepeatY :: forall (m :: * -> *) o.
(MonadIO m, IsTexture o) =>
o -> Bool -> m ()
setTextureRepeatY o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"repeat-y" Bool
val
constructTextureRepeatY :: (IsTexture o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTextureRepeatY :: forall o (m :: * -> *).
(IsTexture o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTextureRepeatY Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"repeat-y" Bool
val
#if defined(ENABLE_OVERLOADING)
data TextureRepeatYPropertyInfo
instance AttrInfo TextureRepeatYPropertyInfo where
type AttrAllowedOps TextureRepeatYPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextureRepeatYPropertyInfo = IsTexture
type AttrSetTypeConstraint TextureRepeatYPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TextureRepeatYPropertyInfo = (~) Bool
type AttrTransferType TextureRepeatYPropertyInfo = Bool
type AttrGetType TextureRepeatYPropertyInfo = Bool
type AttrLabel TextureRepeatYPropertyInfo = "repeat-y"
type AttrOrigin TextureRepeatYPropertyInfo = Texture
attrGet = getTextureRepeatY
attrSet = setTextureRepeatY
attrTransfer _ v = do
return v
attrConstruct = constructTextureRepeatY
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.repeatY"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#g:attr:repeatY"
})
#endif
getTextureSyncSize :: (MonadIO m, IsTexture o) => o -> m Bool
getTextureSyncSize :: forall (m :: * -> *) o. (MonadIO m, IsTexture o) => o -> m Bool
getTextureSyncSize o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"sync-size"
setTextureSyncSize :: (MonadIO m, IsTexture o) => o -> Bool -> m ()
setTextureSyncSize :: forall (m :: * -> *) o.
(MonadIO m, IsTexture o) =>
o -> Bool -> m ()
setTextureSyncSize o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"sync-size" Bool
val
constructTextureSyncSize :: (IsTexture o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTextureSyncSize :: forall o (m :: * -> *).
(IsTexture o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTextureSyncSize Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"sync-size" Bool
val
#if defined(ENABLE_OVERLOADING)
data TextureSyncSizePropertyInfo
instance AttrInfo TextureSyncSizePropertyInfo where
type AttrAllowedOps TextureSyncSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextureSyncSizePropertyInfo = IsTexture
type AttrSetTypeConstraint TextureSyncSizePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TextureSyncSizePropertyInfo = (~) Bool
type AttrTransferType TextureSyncSizePropertyInfo = Bool
type AttrGetType TextureSyncSizePropertyInfo = Bool
type AttrLabel TextureSyncSizePropertyInfo = "sync-size"
type AttrOrigin TextureSyncSizePropertyInfo = Texture
attrGet = getTextureSyncSize
attrSet = setTextureSyncSize
attrTransfer _ v = do
return v
attrConstruct = constructTextureSyncSize
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.syncSize"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#g:attr:syncSize"
})
#endif
getTextureTileWaste :: (MonadIO m, IsTexture o) => o -> m Int32
getTextureTileWaste :: forall (m :: * -> *) o. (MonadIO m, IsTexture o) => o -> m Int32
getTextureTileWaste o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"tile-waste"
#if defined(ENABLE_OVERLOADING)
data TextureTileWastePropertyInfo
instance AttrInfo TextureTileWastePropertyInfo where
type AttrAllowedOps TextureTileWastePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint TextureTileWastePropertyInfo = IsTexture
type AttrSetTypeConstraint TextureTileWastePropertyInfo = (~) ()
type AttrTransferTypeConstraint TextureTileWastePropertyInfo = (~) ()
type AttrTransferType TextureTileWastePropertyInfo = ()
type AttrGetType TextureTileWastePropertyInfo = Int32
type AttrLabel TextureTileWastePropertyInfo = "tile-waste"
type AttrOrigin TextureTileWastePropertyInfo = Texture
attrGet = getTextureTileWaste
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.tileWaste"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#g:attr:tileWaste"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Texture
type instance O.AttributeList Texture = TextureAttributeList
type TextureAttributeList = ('[ '("actions", Clutter.Actor.ActorActionsPropertyInfo), '("allocation", Clutter.Actor.ActorAllocationPropertyInfo), '("anchorGravity", Clutter.Actor.ActorAnchorGravityPropertyInfo), '("anchorX", Clutter.Actor.ActorAnchorXPropertyInfo), '("anchorY", Clutter.Actor.ActorAnchorYPropertyInfo), '("backgroundColor", Clutter.Actor.ActorBackgroundColorPropertyInfo), '("backgroundColorSet", Clutter.Actor.ActorBackgroundColorSetPropertyInfo), '("childTransform", Clutter.Actor.ActorChildTransformPropertyInfo), '("childTransformSet", Clutter.Actor.ActorChildTransformSetPropertyInfo), '("clip", Clutter.Actor.ActorClipPropertyInfo), '("clipRect", Clutter.Actor.ActorClipRectPropertyInfo), '("clipToAllocation", Clutter.Actor.ActorClipToAllocationPropertyInfo), '("constraints", Clutter.Actor.ActorConstraintsPropertyInfo), '("content", Clutter.Actor.ActorContentPropertyInfo), '("contentBox", Clutter.Actor.ActorContentBoxPropertyInfo), '("contentGravity", Clutter.Actor.ActorContentGravityPropertyInfo), '("contentRepeat", Clutter.Actor.ActorContentRepeatPropertyInfo), '("depth", Clutter.Actor.ActorDepthPropertyInfo), '("disableSlicing", TextureDisableSlicingPropertyInfo), '("effect", Clutter.Actor.ActorEffectPropertyInfo), '("filename", TextureFilenamePropertyInfo), '("filterQuality", TextureFilterQualityPropertyInfo), '("firstChild", Clutter.Actor.ActorFirstChildPropertyInfo), '("fixedPositionSet", Clutter.Actor.ActorFixedPositionSetPropertyInfo), '("fixedX", Clutter.Actor.ActorFixedXPropertyInfo), '("fixedY", Clutter.Actor.ActorFixedYPropertyInfo), '("hasClip", Clutter.Actor.ActorHasClipPropertyInfo), '("hasPointer", Clutter.Actor.ActorHasPointerPropertyInfo), '("height", Clutter.Actor.ActorHeightPropertyInfo), '("keepAspectRatio", TextureKeepAspectRatioPropertyInfo), '("lastChild", Clutter.Actor.ActorLastChildPropertyInfo), '("layoutManager", Clutter.Actor.ActorLayoutManagerPropertyInfo), '("loadAsync", TextureLoadAsyncPropertyInfo), '("loadDataAsync", TextureLoadDataAsyncPropertyInfo), '("magnificationFilter", Clutter.Actor.ActorMagnificationFilterPropertyInfo), '("mapped", Clutter.Actor.ActorMappedPropertyInfo), '("marginBottom", Clutter.Actor.ActorMarginBottomPropertyInfo), '("marginLeft", Clutter.Actor.ActorMarginLeftPropertyInfo), '("marginRight", Clutter.Actor.ActorMarginRightPropertyInfo), '("marginTop", Clutter.Actor.ActorMarginTopPropertyInfo), '("minHeight", Clutter.Actor.ActorMinHeightPropertyInfo), '("minHeightSet", Clutter.Actor.ActorMinHeightSetPropertyInfo), '("minWidth", Clutter.Actor.ActorMinWidthPropertyInfo), '("minWidthSet", Clutter.Actor.ActorMinWidthSetPropertyInfo), '("minificationFilter", Clutter.Actor.ActorMinificationFilterPropertyInfo), '("name", Clutter.Actor.ActorNamePropertyInfo), '("naturalHeight", Clutter.Actor.ActorNaturalHeightPropertyInfo), '("naturalHeightSet", Clutter.Actor.ActorNaturalHeightSetPropertyInfo), '("naturalWidth", Clutter.Actor.ActorNaturalWidthPropertyInfo), '("naturalWidthSet", Clutter.Actor.ActorNaturalWidthSetPropertyInfo), '("offscreenRedirect", Clutter.Actor.ActorOffscreenRedirectPropertyInfo), '("opacity", Clutter.Actor.ActorOpacityPropertyInfo), '("pickWithAlpha", TexturePickWithAlphaPropertyInfo), '("pivotPoint", Clutter.Actor.ActorPivotPointPropertyInfo), '("pivotPointZ", Clutter.Actor.ActorPivotPointZPropertyInfo), '("pixelFormat", TexturePixelFormatPropertyInfo), '("position", Clutter.Actor.ActorPositionPropertyInfo), '("reactive", Clutter.Actor.ActorReactivePropertyInfo), '("realized", Clutter.Actor.ActorRealizedPropertyInfo), '("repeatX", TextureRepeatXPropertyInfo), '("repeatY", TextureRepeatYPropertyInfo), '("requestMode", Clutter.Actor.ActorRequestModePropertyInfo), '("rotationAngleX", Clutter.Actor.ActorRotationAngleXPropertyInfo), '("rotationAngleY", Clutter.Actor.ActorRotationAngleYPropertyInfo), '("rotationAngleZ", Clutter.Actor.ActorRotationAngleZPropertyInfo), '("rotationCenterX", Clutter.Actor.ActorRotationCenterXPropertyInfo), '("rotationCenterY", Clutter.Actor.ActorRotationCenterYPropertyInfo), '("rotationCenterZ", Clutter.Actor.ActorRotationCenterZPropertyInfo), '("rotationCenterZGravity", Clutter.Actor.ActorRotationCenterZGravityPropertyInfo), '("scaleCenterX", Clutter.Actor.ActorScaleCenterXPropertyInfo), '("scaleCenterY", Clutter.Actor.ActorScaleCenterYPropertyInfo), '("scaleGravity", Clutter.Actor.ActorScaleGravityPropertyInfo), '("scaleX", Clutter.Actor.ActorScaleXPropertyInfo), '("scaleY", Clutter.Actor.ActorScaleYPropertyInfo), '("scaleZ", Clutter.Actor.ActorScaleZPropertyInfo), '("showOnSetParent", Clutter.Actor.ActorShowOnSetParentPropertyInfo), '("size", Clutter.Actor.ActorSizePropertyInfo), '("syncSize", TextureSyncSizePropertyInfo), '("textDirection", Clutter.Actor.ActorTextDirectionPropertyInfo), '("tileWaste", TextureTileWastePropertyInfo), '("transform", Clutter.Actor.ActorTransformPropertyInfo), '("transformSet", Clutter.Actor.ActorTransformSetPropertyInfo), '("translationX", Clutter.Actor.ActorTranslationXPropertyInfo), '("translationY", Clutter.Actor.ActorTranslationYPropertyInfo), '("translationZ", Clutter.Actor.ActorTranslationZPropertyInfo), '("visible", Clutter.Actor.ActorVisiblePropertyInfo), '("width", Clutter.Actor.ActorWidthPropertyInfo), '("x", Clutter.Actor.ActorXPropertyInfo), '("xAlign", Clutter.Actor.ActorXAlignPropertyInfo), '("xExpand", Clutter.Actor.ActorXExpandPropertyInfo), '("y", Clutter.Actor.ActorYPropertyInfo), '("yAlign", Clutter.Actor.ActorYAlignPropertyInfo), '("yExpand", Clutter.Actor.ActorYExpandPropertyInfo), '("zPosition", Clutter.Actor.ActorZPositionPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
textureDisableSlicing :: AttrLabelProxy "disableSlicing"
textureDisableSlicing = AttrLabelProxy
textureFilename :: AttrLabelProxy "filename"
textureFilename = AttrLabelProxy
textureFilterQuality :: AttrLabelProxy "filterQuality"
textureFilterQuality = AttrLabelProxy
textureKeepAspectRatio :: AttrLabelProxy "keepAspectRatio"
textureKeepAspectRatio = AttrLabelProxy
textureLoadAsync :: AttrLabelProxy "loadAsync"
textureLoadAsync = AttrLabelProxy
textureLoadDataAsync :: AttrLabelProxy "loadDataAsync"
textureLoadDataAsync = AttrLabelProxy
texturePickWithAlpha :: AttrLabelProxy "pickWithAlpha"
texturePickWithAlpha = AttrLabelProxy
texturePixelFormat :: AttrLabelProxy "pixelFormat"
texturePixelFormat = AttrLabelProxy
textureRepeatX :: AttrLabelProxy "repeatX"
textureRepeatX = AttrLabelProxy
textureRepeatY :: AttrLabelProxy "repeatY"
textureRepeatY = AttrLabelProxy
textureSyncSize :: AttrLabelProxy "syncSize"
textureSyncSize = AttrLabelProxy
textureTileWaste :: AttrLabelProxy "tileWaste"
textureTileWaste = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Texture = TextureSignalList
type TextureSignalList = ('[ '("actorAdded", Clutter.Container.ContainerActorAddedSignalInfo), '("actorRemoved", Clutter.Container.ContainerActorRemovedSignalInfo), '("allocationChanged", Clutter.Actor.ActorAllocationChangedSignalInfo), '("buttonPressEvent", Clutter.Actor.ActorButtonPressEventSignalInfo), '("buttonReleaseEvent", Clutter.Actor.ActorButtonReleaseEventSignalInfo), '("capturedEvent", Clutter.Actor.ActorCapturedEventSignalInfo), '("childNotify", Clutter.Container.ContainerChildNotifySignalInfo), '("destroy", Clutter.Actor.ActorDestroySignalInfo), '("enterEvent", Clutter.Actor.ActorEnterEventSignalInfo), '("event", Clutter.Actor.ActorEventSignalInfo), '("hide", Clutter.Actor.ActorHideSignalInfo), '("keyFocusIn", Clutter.Actor.ActorKeyFocusInSignalInfo), '("keyFocusOut", Clutter.Actor.ActorKeyFocusOutSignalInfo), '("keyPressEvent", Clutter.Actor.ActorKeyPressEventSignalInfo), '("keyReleaseEvent", Clutter.Actor.ActorKeyReleaseEventSignalInfo), '("leaveEvent", Clutter.Actor.ActorLeaveEventSignalInfo), '("loadFinished", TextureLoadFinishedSignalInfo), '("motionEvent", Clutter.Actor.ActorMotionEventSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("paint", Clutter.Actor.ActorPaintSignalInfo), '("parentSet", Clutter.Actor.ActorParentSetSignalInfo), '("pick", Clutter.Actor.ActorPickSignalInfo), '("pixbufChange", TexturePixbufChangeSignalInfo), '("queueRedraw", Clutter.Actor.ActorQueueRedrawSignalInfo), '("queueRelayout", Clutter.Actor.ActorQueueRelayoutSignalInfo), '("realize", Clutter.Actor.ActorRealizeSignalInfo), '("scrollEvent", Clutter.Actor.ActorScrollEventSignalInfo), '("show", Clutter.Actor.ActorShowSignalInfo), '("sizeChange", TextureSizeChangeSignalInfo), '("touchEvent", Clutter.Actor.ActorTouchEventSignalInfo), '("transitionStopped", Clutter.Actor.ActorTransitionStoppedSignalInfo), '("transitionsCompleted", Clutter.Actor.ActorTransitionsCompletedSignalInfo), '("unrealize", Clutter.Actor.ActorUnrealizeSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "clutter_texture_new" clutter_texture_new ::
IO (Ptr Texture)
{-# DEPRECATED textureNew ["(Since version 1.12)","Use t'GI.Clutter.Objects.Image.Image' instead"] #-}
textureNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Texture
textureNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Texture
textureNew = IO Texture -> m Texture
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Texture -> m Texture) -> IO Texture -> m Texture
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
result <- IO (Ptr Texture)
clutter_texture_new
Text -> Ptr Texture -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textureNew" Ptr Texture
result
Texture
result' <- ((ManagedPtr Texture -> Texture) -> Ptr Texture -> IO Texture
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Texture -> Texture
Texture) Ptr Texture
result
Texture -> IO Texture
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Texture
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "clutter_texture_new_from_actor" clutter_texture_new_from_actor ::
Ptr Clutter.Actor.Actor ->
IO (Ptr Texture)
{-# DEPRECATED textureNewFromActor ["(Since version 1.8)","Use the t'GI.Clutter.Objects.OffscreenEffect.OffscreenEffect' and t'GI.Clutter.Objects.ShaderEffect.ShaderEffect'"," directly on the intended t'GI.Clutter.Objects.Actor.Actor' to replace the functionality of"," this function."] #-}
textureNewFromActor ::
(B.CallStack.HasCallStack, MonadIO m, Clutter.Actor.IsActor a) =>
a
-> m Texture
textureNewFromActor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsActor a) =>
a -> m Texture
textureNewFromActor a
actor = IO Texture -> m Texture
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Texture -> m Texture) -> IO Texture -> m Texture
forall a b. (a -> b) -> a -> b
$ do
Ptr Actor
actor' <- a -> IO (Ptr Actor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
actor
Ptr Texture
result <- Ptr Actor -> IO (Ptr Texture)
clutter_texture_new_from_actor Ptr Actor
actor'
Text -> Ptr Texture -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textureNewFromActor" Ptr Texture
result
Texture
result' <- ((ManagedPtr Texture -> Texture) -> Ptr Texture -> IO Texture
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Texture -> Texture
Texture) Ptr Texture
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
actor
Texture -> IO Texture
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Texture
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "clutter_texture_new_from_file" clutter_texture_new_from_file ::
CString ->
Ptr (Ptr GError) ->
IO (Ptr Texture)
{-# DEPRECATED textureNewFromFile ["(Since version 1.12)","No direct replacement is available. Use t'GI.Clutter.Objects.Image.Image'"," and platform-specific image loading API, like GdkPixbuf, instead"] #-}
textureNewFromFile ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m Texture
textureNewFromFile :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text -> m Texture
textureNewFromFile Text
filename = IO Texture -> m Texture
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Texture -> m Texture) -> IO Texture -> m Texture
forall a b. (a -> b) -> a -> b
$ do
CString
filename' <- Text -> IO CString
textToCString Text
filename
IO Texture -> IO () -> IO Texture
forall a b. IO a -> IO b -> IO a
onException (do
Ptr Texture
result <- (Ptr (Ptr GError) -> IO (Ptr Texture)) -> IO (Ptr Texture)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr Texture)) -> IO (Ptr Texture))
-> (Ptr (Ptr GError) -> IO (Ptr Texture)) -> IO (Ptr Texture)
forall a b. (a -> b) -> a -> b
$ CString -> Ptr (Ptr GError) -> IO (Ptr Texture)
clutter_texture_new_from_file CString
filename'
Text -> Ptr Texture -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textureNewFromFile" Ptr Texture
result
Texture
result' <- ((ManagedPtr Texture -> Texture) -> Ptr Texture -> IO Texture
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Texture -> Texture
Texture) Ptr Texture
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
filename'
Texture -> IO Texture
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Texture
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
filename'
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "clutter_texture_get_base_size" clutter_texture_get_base_size ::
Ptr Texture ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
{-# DEPRECATED textureGetBaseSize ["(Since version 1.12)","Use t'GI.Clutter.Objects.Image.Image' and 'GI.Clutter.Interfaces.Content.contentGetPreferredSize'"," instead"] #-}
textureGetBaseSize ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> m ((Int32, Int32))
textureGetBaseSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> m (Int32, Int32)
textureGetBaseSize a
texture = IO (Int32, Int32) -> m (Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
Ptr Int32
width <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
height <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Texture -> Ptr Int32 -> Ptr Int32 -> IO ()
clutter_texture_get_base_size Ptr Texture
texture' Ptr Int32
width Ptr Int32
height
Int32
width' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
width
Int32
height' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
width
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
height
(Int32, Int32) -> IO (Int32, Int32)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
width', Int32
height')
#if defined(ENABLE_OVERLOADING)
data TextureGetBaseSizeMethodInfo
instance (signature ~ (m ((Int32, Int32))), MonadIO m, IsTexture a) => O.OverloadedMethod TextureGetBaseSizeMethodInfo a signature where
overloadedMethod = textureGetBaseSize
instance O.OverloadedMethodInfo TextureGetBaseSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureGetBaseSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureGetBaseSize"
})
#endif
foreign import ccall "clutter_texture_get_cogl_material" clutter_texture_get_cogl_material ::
Ptr Texture ->
IO (Ptr ())
{-# DEPRECATED textureGetCoglMaterial ["(Since version 1.12)","No replacement is available; it\\'s not advisable"," to modify the Cogl pipeline of an actor. Use a t'GI.Clutter.Interfaces.Content.Content'"," implementation and modify the pipeline during the paint sequence"] #-}
textureGetCoglMaterial ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> m (Ptr ())
textureGetCoglMaterial :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> m (Ptr ())
textureGetCoglMaterial a
texture = IO (Ptr ()) -> m (Ptr ())
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
Ptr ()
result <- Ptr Texture -> IO (Ptr ())
clutter_texture_get_cogl_material Ptr Texture
texture'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
Ptr () -> IO (Ptr ())
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ()
result
#if defined(ENABLE_OVERLOADING)
data TextureGetCoglMaterialMethodInfo
instance (signature ~ (m (Ptr ())), MonadIO m, IsTexture a) => O.OverloadedMethod TextureGetCoglMaterialMethodInfo a signature where
overloadedMethod = textureGetCoglMaterial
instance O.OverloadedMethodInfo TextureGetCoglMaterialMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureGetCoglMaterial",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureGetCoglMaterial"
})
#endif
foreign import ccall "clutter_texture_get_cogl_texture" clutter_texture_get_cogl_texture ::
Ptr Texture ->
IO (Ptr ())
{-# DEPRECATED textureGetCoglTexture ["(Since version 1.12)","No replacement available; it\\'s not advisable to"," modify the Cogl pipeline of an actor. Use a t'GI.Clutter.Interfaces.Content.Content'"," implementation and set up the pipeline during the paint sequence"," instead."] #-}
textureGetCoglTexture ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> m (Ptr ())
textureGetCoglTexture :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> m (Ptr ())
textureGetCoglTexture a
texture = IO (Ptr ()) -> m (Ptr ())
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
Ptr ()
result <- Ptr Texture -> IO (Ptr ())
clutter_texture_get_cogl_texture Ptr Texture
texture'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
Ptr () -> IO (Ptr ())
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ()
result
#if defined(ENABLE_OVERLOADING)
data TextureGetCoglTextureMethodInfo
instance (signature ~ (m (Ptr ())), MonadIO m, IsTexture a) => O.OverloadedMethod TextureGetCoglTextureMethodInfo a signature where
overloadedMethod = textureGetCoglTexture
instance O.OverloadedMethodInfo TextureGetCoglTextureMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureGetCoglTexture",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureGetCoglTexture"
})
#endif
foreign import ccall "clutter_texture_get_filter_quality" clutter_texture_get_filter_quality ::
Ptr Texture ->
IO CUInt
{-# DEPRECATED textureGetFilterQuality ["(Since version 1.12)","Use t'GI.Clutter.Objects.Image.Image' and 'GI.Clutter.Objects.Actor.actorGetContentScalingFilters'"," instead"] #-}
textureGetFilterQuality ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> m Clutter.Enums.TextureQuality
textureGetFilterQuality :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> m TextureQuality
textureGetFilterQuality a
texture = IO TextureQuality -> m TextureQuality
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TextureQuality -> m TextureQuality)
-> IO TextureQuality -> m TextureQuality
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
CUInt
result <- Ptr Texture -> IO CUInt
clutter_texture_get_filter_quality Ptr Texture
texture'
let result' :: TextureQuality
result' = (Int -> TextureQuality
forall a. Enum a => Int -> a
toEnum (Int -> TextureQuality)
-> (CUInt -> Int) -> CUInt -> TextureQuality
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
TextureQuality -> IO TextureQuality
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TextureQuality
result'
#if defined(ENABLE_OVERLOADING)
data TextureGetFilterQualityMethodInfo
instance (signature ~ (m Clutter.Enums.TextureQuality), MonadIO m, IsTexture a) => O.OverloadedMethod TextureGetFilterQualityMethodInfo a signature where
overloadedMethod = textureGetFilterQuality
instance O.OverloadedMethodInfo TextureGetFilterQualityMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureGetFilterQuality",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureGetFilterQuality"
})
#endif
foreign import ccall "clutter_texture_get_keep_aspect_ratio" clutter_texture_get_keep_aspect_ratio ::
Ptr Texture ->
IO CInt
{-# DEPRECATED textureGetKeepAspectRatio ["(Since version 1.12)","Use t'GI.Clutter.Objects.Image.Image' and 'GI.Clutter.Objects.Actor.actorGetContentGravity'"," instead"] #-}
textureGetKeepAspectRatio ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> m Bool
textureGetKeepAspectRatio :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> m Bool
textureGetKeepAspectRatio a
texture = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
CInt
result <- Ptr Texture -> IO CInt
clutter_texture_get_keep_aspect_ratio Ptr Texture
texture'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextureGetKeepAspectRatioMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTexture a) => O.OverloadedMethod TextureGetKeepAspectRatioMethodInfo a signature where
overloadedMethod = textureGetKeepAspectRatio
instance O.OverloadedMethodInfo TextureGetKeepAspectRatioMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureGetKeepAspectRatio",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureGetKeepAspectRatio"
})
#endif
foreign import ccall "clutter_texture_get_load_async" clutter_texture_get_load_async ::
Ptr Texture ->
IO CInt
{-# DEPRECATED textureGetLoadAsync ["(Since version 1.12)","There is no direct replacement for this function"] #-}
textureGetLoadAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> m Bool
textureGetLoadAsync :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> m Bool
textureGetLoadAsync a
texture = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
CInt
result <- Ptr Texture -> IO CInt
clutter_texture_get_load_async Ptr Texture
texture'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextureGetLoadAsyncMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTexture a) => O.OverloadedMethod TextureGetLoadAsyncMethodInfo a signature where
overloadedMethod = textureGetLoadAsync
instance O.OverloadedMethodInfo TextureGetLoadAsyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureGetLoadAsync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureGetLoadAsync"
})
#endif
foreign import ccall "clutter_texture_get_load_data_async" clutter_texture_get_load_data_async ::
Ptr Texture ->
IO CInt
{-# DEPRECATED textureGetLoadDataAsync ["(Since version 1.12)","There is no direct replacement for this function"] #-}
textureGetLoadDataAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> m Bool
textureGetLoadDataAsync :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> m Bool
textureGetLoadDataAsync a
texture = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
CInt
result <- Ptr Texture -> IO CInt
clutter_texture_get_load_data_async Ptr Texture
texture'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextureGetLoadDataAsyncMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTexture a) => O.OverloadedMethod TextureGetLoadDataAsyncMethodInfo a signature where
overloadedMethod = textureGetLoadDataAsync
instance O.OverloadedMethodInfo TextureGetLoadDataAsyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureGetLoadDataAsync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureGetLoadDataAsync"
})
#endif
foreign import ccall "clutter_texture_get_max_tile_waste" clutter_texture_get_max_tile_waste ::
Ptr Texture ->
IO Int32
{-# DEPRECATED textureGetMaxTileWaste ["(Since version 1.12)","No replacement is available"] #-}
textureGetMaxTileWaste ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> m Int32
textureGetMaxTileWaste :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> m Int32
textureGetMaxTileWaste a
texture = IO Int32 -> m Int32
forall a. IO a -> m a
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 Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
Int32
result <- Ptr Texture -> IO Int32
clutter_texture_get_max_tile_waste Ptr Texture
texture'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TextureGetMaxTileWasteMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTexture a) => O.OverloadedMethod TextureGetMaxTileWasteMethodInfo a signature where
overloadedMethod = textureGetMaxTileWaste
instance O.OverloadedMethodInfo TextureGetMaxTileWasteMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureGetMaxTileWaste",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureGetMaxTileWaste"
})
#endif
foreign import ccall "clutter_texture_get_pick_with_alpha" clutter_texture_get_pick_with_alpha ::
Ptr Texture ->
IO CInt
{-# DEPRECATED textureGetPickWithAlpha ["(Since version 1.12)","There is no direct replacement for this function"] #-}
textureGetPickWithAlpha ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> m Bool
textureGetPickWithAlpha :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> m Bool
textureGetPickWithAlpha a
texture = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
CInt
result <- Ptr Texture -> IO CInt
clutter_texture_get_pick_with_alpha Ptr Texture
texture'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextureGetPickWithAlphaMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTexture a) => O.OverloadedMethod TextureGetPickWithAlphaMethodInfo a signature where
overloadedMethod = textureGetPickWithAlpha
instance O.OverloadedMethodInfo TextureGetPickWithAlphaMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureGetPickWithAlpha",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureGetPickWithAlpha"
})
#endif
foreign import ccall "clutter_texture_get_pixel_format" clutter_texture_get_pixel_format ::
Ptr Texture ->
IO CUInt
{-# DEPRECATED textureGetPixelFormat ["(Since version 1.12)","There is no direct replacement for this function"] #-}
textureGetPixelFormat ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> m Cogl.Enums.PixelFormat
textureGetPixelFormat :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> m PixelFormat
textureGetPixelFormat a
texture = IO PixelFormat -> m PixelFormat
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PixelFormat -> m PixelFormat)
-> IO PixelFormat -> m PixelFormat
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
CUInt
result <- Ptr Texture -> IO CUInt
clutter_texture_get_pixel_format Ptr Texture
texture'
let result' :: PixelFormat
result' = (Int -> PixelFormat
forall a. Enum a => Int -> a
toEnum (Int -> PixelFormat) -> (CUInt -> Int) -> CUInt -> PixelFormat
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
PixelFormat -> IO PixelFormat
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return PixelFormat
result'
#if defined(ENABLE_OVERLOADING)
data TextureGetPixelFormatMethodInfo
instance (signature ~ (m Cogl.Enums.PixelFormat), MonadIO m, IsTexture a) => O.OverloadedMethod TextureGetPixelFormatMethodInfo a signature where
overloadedMethod = textureGetPixelFormat
instance O.OverloadedMethodInfo TextureGetPixelFormatMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureGetPixelFormat",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureGetPixelFormat"
})
#endif
foreign import ccall "clutter_texture_get_repeat" clutter_texture_get_repeat ::
Ptr Texture ->
Ptr CInt ->
Ptr CInt ->
IO ()
{-# DEPRECATED textureGetRepeat ["(Since version 1.12)","Use t'GI.Clutter.Objects.Image.Image' and 'GI.Clutter.Objects.Actor.actorGetContentRepeat'"," instead"] #-}
textureGetRepeat ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> m ((Bool, Bool))
textureGetRepeat :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> m (Bool, Bool)
textureGetRepeat a
texture = IO (Bool, Bool) -> m (Bool, Bool)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Bool) -> m (Bool, Bool))
-> IO (Bool, Bool) -> m (Bool, Bool)
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
Ptr CInt
repeatX <- IO (Ptr CInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CInt)
Ptr CInt
repeatY <- IO (Ptr CInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CInt)
Ptr Texture -> Ptr CInt -> Ptr CInt -> IO ()
clutter_texture_get_repeat Ptr Texture
texture' Ptr CInt
repeatX Ptr CInt
repeatY
CInt
repeatX' <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
repeatX
let repeatX'' :: Bool
repeatX'' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
repeatX'
CInt
repeatY' <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
repeatY
let repeatY'' :: Bool
repeatY'' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
repeatY'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
Ptr CInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CInt
repeatX
Ptr CInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CInt
repeatY
(Bool, Bool) -> IO (Bool, Bool)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
repeatX'', Bool
repeatY'')
#if defined(ENABLE_OVERLOADING)
data TextureGetRepeatMethodInfo
instance (signature ~ (m ((Bool, Bool))), MonadIO m, IsTexture a) => O.OverloadedMethod TextureGetRepeatMethodInfo a signature where
overloadedMethod = textureGetRepeat
instance O.OverloadedMethodInfo TextureGetRepeatMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureGetRepeat",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureGetRepeat"
})
#endif
foreign import ccall "clutter_texture_get_sync_size" clutter_texture_get_sync_size ::
Ptr Texture ->
IO CInt
{-# DEPRECATED textureGetSyncSize ["(Since version 1.12)","There is no direct replacement"] #-}
textureGetSyncSize ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> m Bool
textureGetSyncSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> m Bool
textureGetSyncSize a
texture = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
CInt
result <- Ptr Texture -> IO CInt
clutter_texture_get_sync_size Ptr Texture
texture'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextureGetSyncSizeMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTexture a) => O.OverloadedMethod TextureGetSyncSizeMethodInfo a signature where
overloadedMethod = textureGetSyncSize
instance O.OverloadedMethodInfo TextureGetSyncSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureGetSyncSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureGetSyncSize"
})
#endif
foreign import ccall "clutter_texture_set_area_from_rgb_data" clutter_texture_set_area_from_rgb_data ::
Ptr Texture ->
Ptr Word8 ->
CInt ->
Int32 ->
Int32 ->
Int32 ->
Int32 ->
Int32 ->
Int32 ->
CUInt ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED textureSetAreaFromRgbData ["(Since version 1.12)","Use t'GI.Clutter.Objects.Image.Image' and 'GI.Clutter.Objects.Image.imageSetArea' instead"] #-}
textureSetAreaFromRgbData ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> Ptr Word8
-> Bool
-> Int32
-> Int32
-> Int32
-> Int32
-> Int32
-> Int32
-> [Clutter.Flags.TextureFlags]
-> m ()
textureSetAreaFromRgbData :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a
-> Ptr Word8
-> Bool
-> Int32
-> Int32
-> Int32
-> Int32
-> Int32
-> Int32
-> [TextureFlags]
-> m ()
textureSetAreaFromRgbData a
texture Ptr Word8
data_ Bool
hasAlpha Int32
x Int32
y Int32
width Int32
height Int32
rowstride Int32
bpp [TextureFlags]
flags = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
let hasAlpha' :: CInt
hasAlpha' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
hasAlpha
let flags' :: CUInt
flags' = [TextureFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [TextureFlags]
flags
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Texture
-> Ptr Word8
-> CInt
-> Int32
-> Int32
-> Int32
-> Int32
-> Int32
-> Int32
-> CUInt
-> Ptr (Ptr GError)
-> IO CInt
clutter_texture_set_area_from_rgb_data Ptr Texture
texture' Ptr Word8
data_ CInt
hasAlpha' Int32
x Int32
y Int32
width Int32
height Int32
rowstride Int32
bpp CUInt
flags'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data TextureSetAreaFromRgbDataMethodInfo
instance (signature ~ (Ptr Word8 -> Bool -> Int32 -> Int32 -> Int32 -> Int32 -> Int32 -> Int32 -> [Clutter.Flags.TextureFlags] -> m ()), MonadIO m, IsTexture a) => O.OverloadedMethod TextureSetAreaFromRgbDataMethodInfo a signature where
overloadedMethod = textureSetAreaFromRgbData
instance O.OverloadedMethodInfo TextureSetAreaFromRgbDataMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureSetAreaFromRgbData",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureSetAreaFromRgbData"
})
#endif
foreign import ccall "clutter_texture_set_cogl_material" clutter_texture_set_cogl_material ::
Ptr Texture ->
Ptr () ->
IO ()
{-# DEPRECATED textureSetCoglMaterial ["(Since version 1.12)","No replacement is available; it\\'s not advisable"," to modify the Cogl pipeline of an actor. Use a t'GI.Clutter.Interfaces.Content.Content'"," implementation and modify the pipeline during the paint sequence"] #-}
textureSetCoglMaterial ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> Ptr ()
-> m ()
textureSetCoglMaterial :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> Ptr () -> m ()
textureSetCoglMaterial a
texture Ptr ()
coglMaterial = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
C_TexturePixbufChangeCallback
clutter_texture_set_cogl_material Ptr Texture
texture' Ptr ()
coglMaterial
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextureSetCoglMaterialMethodInfo
instance (signature ~ (Ptr () -> m ()), MonadIO m, IsTexture a) => O.OverloadedMethod TextureSetCoglMaterialMethodInfo a signature where
overloadedMethod = textureSetCoglMaterial
instance O.OverloadedMethodInfo TextureSetCoglMaterialMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureSetCoglMaterial",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureSetCoglMaterial"
})
#endif
foreign import ccall "clutter_texture_set_cogl_texture" clutter_texture_set_cogl_texture ::
Ptr Texture ->
Ptr () ->
IO ()
{-# DEPRECATED textureSetCoglTexture ["(Since version 1.12)","No replacement available; it\\'s not advisable to"," modify the Cogl pipeline of an actor. Use a t'GI.Clutter.Interfaces.Content.Content'"," implementation and set up the pipeline during the paint sequence"," instead."] #-}
textureSetCoglTexture ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> Ptr ()
-> m ()
textureSetCoglTexture :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> Ptr () -> m ()
textureSetCoglTexture a
texture Ptr ()
coglTex = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
C_TexturePixbufChangeCallback
clutter_texture_set_cogl_texture Ptr Texture
texture' Ptr ()
coglTex
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextureSetCoglTextureMethodInfo
instance (signature ~ (Ptr () -> m ()), MonadIO m, IsTexture a) => O.OverloadedMethod TextureSetCoglTextureMethodInfo a signature where
overloadedMethod = textureSetCoglTexture
instance O.OverloadedMethodInfo TextureSetCoglTextureMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureSetCoglTexture",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureSetCoglTexture"
})
#endif
foreign import ccall "clutter_texture_set_filter_quality" clutter_texture_set_filter_quality ::
Ptr Texture ->
CUInt ->
IO ()
{-# DEPRECATED textureSetFilterQuality ["(Since version 1.12)","Use t'GI.Clutter.Objects.Image.Image' and 'GI.Clutter.Objects.Actor.actorSetContentScalingFilters'"," instead"] #-}
textureSetFilterQuality ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> Clutter.Enums.TextureQuality
-> m ()
textureSetFilterQuality :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> TextureQuality -> m ()
textureSetFilterQuality a
texture TextureQuality
filterQuality = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
let filterQuality' :: CUInt
filterQuality' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (TextureQuality -> Int) -> TextureQuality -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextureQuality -> Int
forall a. Enum a => a -> Int
fromEnum) TextureQuality
filterQuality
Ptr Texture -> CUInt -> IO ()
clutter_texture_set_filter_quality Ptr Texture
texture' CUInt
filterQuality'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextureSetFilterQualityMethodInfo
instance (signature ~ (Clutter.Enums.TextureQuality -> m ()), MonadIO m, IsTexture a) => O.OverloadedMethod TextureSetFilterQualityMethodInfo a signature where
overloadedMethod = textureSetFilterQuality
instance O.OverloadedMethodInfo TextureSetFilterQualityMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureSetFilterQuality",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureSetFilterQuality"
})
#endif
foreign import ccall "clutter_texture_set_from_file" clutter_texture_set_from_file ::
Ptr Texture ->
CString ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED textureSetFromFile ["(Since version 1.12)","Use t'GI.Clutter.Objects.Image.Image' and platform-specific image"," loading API, like GdkPixbuf, instead"] #-}
textureSetFromFile ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> T.Text
-> m ()
textureSetFromFile :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> Text -> m ()
textureSetFromFile a
texture Text
filename = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
CString
filename' <- Text -> IO CString
textToCString Text
filename
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Texture -> CString -> Ptr (Ptr GError) -> IO CInt
clutter_texture_set_from_file Ptr Texture
texture' CString
filename'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
filename'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
filename'
)
#if defined(ENABLE_OVERLOADING)
data TextureSetFromFileMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsTexture a) => O.OverloadedMethod TextureSetFromFileMethodInfo a signature where
overloadedMethod = textureSetFromFile
instance O.OverloadedMethodInfo TextureSetFromFileMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureSetFromFile",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureSetFromFile"
})
#endif
foreign import ccall "clutter_texture_set_from_rgb_data" clutter_texture_set_from_rgb_data ::
Ptr Texture ->
Ptr Word8 ->
CInt ->
Int32 ->
Int32 ->
Int32 ->
Int32 ->
CUInt ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED textureSetFromRgbData ["(Since version 1.12)","Use t'GI.Clutter.Objects.Image.Image' and 'GI.Clutter.Objects.Image.imageSetData' instead"] #-}
textureSetFromRgbData ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> Ptr Word8
-> Bool
-> Int32
-> Int32
-> Int32
-> Int32
-> [Clutter.Flags.TextureFlags]
-> m ()
textureSetFromRgbData :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a
-> Ptr Word8
-> Bool
-> Int32
-> Int32
-> Int32
-> Int32
-> [TextureFlags]
-> m ()
textureSetFromRgbData a
texture Ptr Word8
data_ Bool
hasAlpha Int32
width Int32
height Int32
rowstride Int32
bpp [TextureFlags]
flags = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
let hasAlpha' :: CInt
hasAlpha' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
hasAlpha
let flags' :: CUInt
flags' = [TextureFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [TextureFlags]
flags
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Texture
-> Ptr Word8
-> CInt
-> Int32
-> Int32
-> Int32
-> Int32
-> CUInt
-> Ptr (Ptr GError)
-> IO CInt
clutter_texture_set_from_rgb_data Ptr Texture
texture' Ptr Word8
data_ CInt
hasAlpha' Int32
width Int32
height Int32
rowstride Int32
bpp CUInt
flags'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data TextureSetFromRgbDataMethodInfo
instance (signature ~ (Ptr Word8 -> Bool -> Int32 -> Int32 -> Int32 -> Int32 -> [Clutter.Flags.TextureFlags] -> m ()), MonadIO m, IsTexture a) => O.OverloadedMethod TextureSetFromRgbDataMethodInfo a signature where
overloadedMethod = textureSetFromRgbData
instance O.OverloadedMethodInfo TextureSetFromRgbDataMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureSetFromRgbData",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureSetFromRgbData"
})
#endif
foreign import ccall "clutter_texture_set_from_yuv_data" clutter_texture_set_from_yuv_data ::
Ptr Texture ->
Ptr Word8 ->
Int32 ->
Int32 ->
CUInt ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED textureSetFromYuvData ["(Since version 1.10)","Use a custom t'GI.Clutter.Interfaces.Content.Content' implementation and"," set up the Cogl pipeline using a t'GI.Clutter.Objects.PipelineNode.PipelineNode' with a"," fragment shader instead."] #-}
textureSetFromYuvData ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> Ptr Word8
-> Int32
-> Int32
-> [Clutter.Flags.TextureFlags]
-> m ()
textureSetFromYuvData :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> Ptr Word8 -> Int32 -> Int32 -> [TextureFlags] -> m ()
textureSetFromYuvData a
texture Ptr Word8
data_ Int32
width Int32
height [TextureFlags]
flags = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
let flags' :: CUInt
flags' = [TextureFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [TextureFlags]
flags
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Texture
-> Ptr Word8
-> Int32
-> Int32
-> CUInt
-> Ptr (Ptr GError)
-> IO CInt
clutter_texture_set_from_yuv_data Ptr Texture
texture' Ptr Word8
data_ Int32
width Int32
height CUInt
flags'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data TextureSetFromYuvDataMethodInfo
instance (signature ~ (Ptr Word8 -> Int32 -> Int32 -> [Clutter.Flags.TextureFlags] -> m ()), MonadIO m, IsTexture a) => O.OverloadedMethod TextureSetFromYuvDataMethodInfo a signature where
overloadedMethod = textureSetFromYuvData
instance O.OverloadedMethodInfo TextureSetFromYuvDataMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureSetFromYuvData",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureSetFromYuvData"
})
#endif
foreign import ccall "clutter_texture_set_keep_aspect_ratio" clutter_texture_set_keep_aspect_ratio ::
Ptr Texture ->
CInt ->
IO ()
{-# DEPRECATED textureSetKeepAspectRatio ["(Since version 1.12)","Use t'GI.Clutter.Objects.Image.Image' and 'GI.Clutter.Objects.Actor.actorSetContentGravity'"," with 'GI.Clutter.Enums.ContentGravityResizeAspect' instead"] #-}
textureSetKeepAspectRatio ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> Bool
-> m ()
textureSetKeepAspectRatio :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> Bool -> m ()
textureSetKeepAspectRatio a
texture Bool
keepAspect = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
let keepAspect' :: CInt
keepAspect' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
keepAspect
Ptr Texture -> CInt -> IO ()
clutter_texture_set_keep_aspect_ratio Ptr Texture
texture' CInt
keepAspect'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextureSetKeepAspectRatioMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTexture a) => O.OverloadedMethod TextureSetKeepAspectRatioMethodInfo a signature where
overloadedMethod = textureSetKeepAspectRatio
instance O.OverloadedMethodInfo TextureSetKeepAspectRatioMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureSetKeepAspectRatio",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureSetKeepAspectRatio"
})
#endif
foreign import ccall "clutter_texture_set_load_async" clutter_texture_set_load_async ::
Ptr Texture ->
CInt ->
IO ()
{-# DEPRECATED textureSetLoadAsync ["(Since version 1.12)","There is no direct replacement for this function."," Use t'GI.Clutter.Objects.Image.Image' and platform-specific API for loading image data"," asynchronously, like GdkPixbuf"] #-}
textureSetLoadAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> Bool
-> m ()
textureSetLoadAsync :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> Bool -> m ()
textureSetLoadAsync a
texture Bool
loadAsync = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
let loadAsync' :: CInt
loadAsync' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
loadAsync
Ptr Texture -> CInt -> IO ()
clutter_texture_set_load_async Ptr Texture
texture' CInt
loadAsync'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextureSetLoadAsyncMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTexture a) => O.OverloadedMethod TextureSetLoadAsyncMethodInfo a signature where
overloadedMethod = textureSetLoadAsync
instance O.OverloadedMethodInfo TextureSetLoadAsyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureSetLoadAsync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureSetLoadAsync"
})
#endif
foreign import ccall "clutter_texture_set_load_data_async" clutter_texture_set_load_data_async ::
Ptr Texture ->
CInt ->
IO ()
{-# DEPRECATED textureSetLoadDataAsync ["(Since version 1.12)","There is no direct replacement for this function."," Use t'GI.Clutter.Objects.Image.Image' and platform-specific API for loading image data"," asynchronously, like GdkPixbuf"] #-}
textureSetLoadDataAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> Bool
-> m ()
textureSetLoadDataAsync :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> Bool -> m ()
textureSetLoadDataAsync a
texture Bool
loadAsync = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
let loadAsync' :: CInt
loadAsync' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
loadAsync
Ptr Texture -> CInt -> IO ()
clutter_texture_set_load_data_async Ptr Texture
texture' CInt
loadAsync'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextureSetLoadDataAsyncMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTexture a) => O.OverloadedMethod TextureSetLoadDataAsyncMethodInfo a signature where
overloadedMethod = textureSetLoadDataAsync
instance O.OverloadedMethodInfo TextureSetLoadDataAsyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureSetLoadDataAsync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureSetLoadDataAsync"
})
#endif
foreign import ccall "clutter_texture_set_pick_with_alpha" clutter_texture_set_pick_with_alpha ::
Ptr Texture ->
CInt ->
IO ()
{-# DEPRECATED textureSetPickWithAlpha ["(Since version 1.12)","There is no direct replacement for this function"] #-}
textureSetPickWithAlpha ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> Bool
-> m ()
textureSetPickWithAlpha :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> Bool -> m ()
textureSetPickWithAlpha a
texture Bool
pickWithAlpha = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
let pickWithAlpha' :: CInt
pickWithAlpha' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
pickWithAlpha
Ptr Texture -> CInt -> IO ()
clutter_texture_set_pick_with_alpha Ptr Texture
texture' CInt
pickWithAlpha'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextureSetPickWithAlphaMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTexture a) => O.OverloadedMethod TextureSetPickWithAlphaMethodInfo a signature where
overloadedMethod = textureSetPickWithAlpha
instance O.OverloadedMethodInfo TextureSetPickWithAlphaMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureSetPickWithAlpha",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureSetPickWithAlpha"
})
#endif
foreign import ccall "clutter_texture_set_repeat" clutter_texture_set_repeat ::
Ptr Texture ->
CInt ->
CInt ->
IO ()
{-# DEPRECATED textureSetRepeat ["(Since version 1.12)","Use t'GI.Clutter.Objects.Image.Image' and 'GI.Clutter.Objects.Actor.actorSetContentRepeat'"," instead"] #-}
textureSetRepeat ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> Bool
-> Bool
-> m ()
textureSetRepeat :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> Bool -> Bool -> m ()
textureSetRepeat a
texture Bool
repeatX Bool
repeatY = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
let repeatX' :: CInt
repeatX' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
repeatX
let repeatY' :: CInt
repeatY' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
repeatY
Ptr Texture -> CInt -> CInt -> IO ()
clutter_texture_set_repeat Ptr Texture
texture' CInt
repeatX' CInt
repeatY'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextureSetRepeatMethodInfo
instance (signature ~ (Bool -> Bool -> m ()), MonadIO m, IsTexture a) => O.OverloadedMethod TextureSetRepeatMethodInfo a signature where
overloadedMethod = textureSetRepeat
instance O.OverloadedMethodInfo TextureSetRepeatMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureSetRepeat",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureSetRepeat"
})
#endif
foreign import ccall "clutter_texture_set_sync_size" clutter_texture_set_sync_size ::
Ptr Texture ->
CInt ->
IO ()
{-# DEPRECATED textureSetSyncSize ["(Since version 1.12)","No replacement is available. A t'GI.Clutter.Objects.Actor.Actor' using"," t'GI.Clutter.Objects.Image.Image' with a 'GI.Clutter.Enums.RequestModeContentSize' request mode"," will automatically bind the preferred size of the content to the"," preferred size of the actor"] #-}
textureSetSyncSize ::
(B.CallStack.HasCallStack, MonadIO m, IsTexture a) =>
a
-> Bool
-> m ()
textureSetSyncSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTexture a) =>
a -> Bool -> m ()
textureSetSyncSize a
texture Bool
syncSize = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Texture
texture' <- a -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
texture
let syncSize' :: CInt
syncSize' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
syncSize
Ptr Texture -> CInt -> IO ()
clutter_texture_set_sync_size Ptr Texture
texture' CInt
syncSize'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
texture
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextureSetSyncSizeMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTexture a) => O.OverloadedMethod TextureSetSyncSizeMethodInfo a signature where
overloadedMethod = textureSetSyncSize
instance O.OverloadedMethodInfo TextureSetSyncSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Texture.textureSetSyncSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Texture.html#v:textureSetSyncSize"
})
#endif