{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Clutter.Objects.Box
(
Box(..) ,
IsBox ,
toBox ,
#if defined(ENABLE_OVERLOADING)
ResolveBoxMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
BoxGetColorMethodInfo ,
#endif
boxGetColor ,
#if defined(ENABLE_OVERLOADING)
BoxGetLayoutManagerMethodInfo ,
#endif
boxGetLayoutManager ,
boxNew ,
#if defined(ENABLE_OVERLOADING)
BoxPackvMethodInfo ,
#endif
boxPackv ,
#if defined(ENABLE_OVERLOADING)
BoxSetColorMethodInfo ,
#endif
boxSetColor ,
#if defined(ENABLE_OVERLOADING)
BoxSetLayoutManagerMethodInfo ,
#endif
boxSetLayoutManager ,
#if defined(ENABLE_OVERLOADING)
BoxColorPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
boxColor ,
#endif
clearBoxColor ,
constructBoxColor ,
getBoxColor ,
setBoxColor ,
#if defined(ENABLE_OVERLOADING)
BoxColorSetPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
boxColorSet ,
#endif
constructBoxColorSet ,
getBoxColorSet ,
setBoxColorSet ,
) 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.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 {-# SOURCE #-} qualified GI.Clutter.Objects.LayoutManager as Clutter.LayoutManager
import {-# SOURCE #-} qualified GI.Clutter.Structs.Color as Clutter.Color
import qualified GI.GObject.Objects.Object as GObject.Object
newtype Box = Box (SP.ManagedPtr Box)
deriving (Box -> Box -> Bool
(Box -> Box -> Bool) -> (Box -> Box -> Bool) -> Eq Box
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Box -> Box -> Bool
== :: Box -> Box -> Bool
$c/= :: Box -> Box -> Bool
/= :: Box -> Box -> Bool
Eq)
instance SP.ManagedPtrNewtype Box where
toManagedPtr :: Box -> ManagedPtr Box
toManagedPtr (Box ManagedPtr Box
p) = ManagedPtr Box
p
foreign import ccall "clutter_box_get_type"
c_clutter_box_get_type :: IO B.Types.GType
instance B.Types.TypedObject Box where
glibType :: IO GType
glibType = IO GType
c_clutter_box_get_type
instance B.Types.GObject Box
class (SP.GObject o, O.IsDescendantOf Box o) => IsBox o
instance (SP.GObject o, O.IsDescendantOf Box o) => IsBox o
instance O.HasParentTypes Box
type instance O.ParentTypes Box = '[Clutter.Actor.Actor, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Clutter.Animatable.Animatable, Clutter.Container.Container, Clutter.Scriptable.Scriptable]
toBox :: (MIO.MonadIO m, IsBox o) => o -> m Box
toBox :: forall (m :: * -> *) o. (MonadIO m, IsBox o) => o -> m Box
toBox = IO Box -> m Box
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Box -> m Box) -> (o -> IO Box) -> o -> m Box
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Box -> Box) -> o -> IO Box
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Box -> Box
Box
instance B.GValue.IsGValue (Maybe Box) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_clutter_box_get_type
gvalueSet_ :: Ptr GValue -> Maybe Box -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Box
P.Nothing = Ptr GValue -> Ptr Box -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Box
forall a. Ptr a
FP.nullPtr :: FP.Ptr Box)
gvalueSet_ Ptr GValue
gv (P.Just Box
obj) = Box -> (Ptr Box -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Box
obj (Ptr GValue -> Ptr Box -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Box)
gvalueGet_ Ptr GValue
gv = do
Ptr Box
ptr <- Ptr GValue -> IO (Ptr Box)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Box)
if Ptr Box
ptr Ptr Box -> Ptr Box -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Box
forall a. Ptr a
FP.nullPtr
then Box -> Maybe Box
forall a. a -> Maybe a
P.Just (Box -> Maybe Box) -> IO Box -> IO (Maybe Box)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Box -> Box) -> Ptr Box -> IO Box
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Box -> Box
Box Ptr Box
ptr
else Maybe Box -> IO (Maybe Box)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Box
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveBoxMethod (t :: Symbol) (o :: *) :: * where
ResolveBoxMethod "addAction" o = Clutter.Actor.ActorAddActionMethodInfo
ResolveBoxMethod "addActionWithName" o = Clutter.Actor.ActorAddActionWithNameMethodInfo
ResolveBoxMethod "addActor" o = Clutter.Container.ContainerAddActorMethodInfo
ResolveBoxMethod "addChild" o = Clutter.Actor.ActorAddChildMethodInfo
ResolveBoxMethod "addConstraint" o = Clutter.Actor.ActorAddConstraintMethodInfo
ResolveBoxMethod "addConstraintWithName" o = Clutter.Actor.ActorAddConstraintWithNameMethodInfo
ResolveBoxMethod "addEffect" o = Clutter.Actor.ActorAddEffectMethodInfo
ResolveBoxMethod "addEffectWithName" o = Clutter.Actor.ActorAddEffectWithNameMethodInfo
ResolveBoxMethod "addTransition" o = Clutter.Actor.ActorAddTransitionMethodInfo
ResolveBoxMethod "allocate" o = Clutter.Actor.ActorAllocateMethodInfo
ResolveBoxMethod "allocateAlignFill" o = Clutter.Actor.ActorAllocateAlignFillMethodInfo
ResolveBoxMethod "allocateAvailableSize" o = Clutter.Actor.ActorAllocateAvailableSizeMethodInfo
ResolveBoxMethod "allocatePreferredSize" o = Clutter.Actor.ActorAllocatePreferredSizeMethodInfo
ResolveBoxMethod "animateProperty" o = Clutter.Animatable.AnimatableAnimatePropertyMethodInfo
ResolveBoxMethod "animateWithAlphav" o = Clutter.Actor.ActorAnimateWithAlphavMethodInfo
ResolveBoxMethod "animateWithTimelinev" o = Clutter.Actor.ActorAnimateWithTimelinevMethodInfo
ResolveBoxMethod "animatev" o = Clutter.Actor.ActorAnimatevMethodInfo
ResolveBoxMethod "applyRelativeTransformToPoint" o = Clutter.Actor.ActorApplyRelativeTransformToPointMethodInfo
ResolveBoxMethod "applyTransformToPoint" o = Clutter.Actor.ActorApplyTransformToPointMethodInfo
ResolveBoxMethod "bindModel" o = Clutter.Actor.ActorBindModelMethodInfo
ResolveBoxMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveBoxMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveBoxMethod "childGetProperty" o = Clutter.Container.ContainerChildGetPropertyMethodInfo
ResolveBoxMethod "childNotify" o = Clutter.Container.ContainerChildNotifyMethodInfo
ResolveBoxMethod "childSetProperty" o = Clutter.Container.ContainerChildSetPropertyMethodInfo
ResolveBoxMethod "clearActions" o = Clutter.Actor.ActorClearActionsMethodInfo
ResolveBoxMethod "clearConstraints" o = Clutter.Actor.ActorClearConstraintsMethodInfo
ResolveBoxMethod "clearEffects" o = Clutter.Actor.ActorClearEffectsMethodInfo
ResolveBoxMethod "contains" o = Clutter.Actor.ActorContainsMethodInfo
ResolveBoxMethod "continuePaint" o = Clutter.Actor.ActorContinuePaintMethodInfo
ResolveBoxMethod "createChildMeta" o = Clutter.Container.ContainerCreateChildMetaMethodInfo
ResolveBoxMethod "createPangoContext" o = Clutter.Actor.ActorCreatePangoContextMethodInfo
ResolveBoxMethod "createPangoLayout" o = Clutter.Actor.ActorCreatePangoLayoutMethodInfo
ResolveBoxMethod "destroy" o = Clutter.Actor.ActorDestroyMethodInfo
ResolveBoxMethod "destroyAllChildren" o = Clutter.Actor.ActorDestroyAllChildrenMethodInfo
ResolveBoxMethod "destroyChildMeta" o = Clutter.Container.ContainerDestroyChildMetaMethodInfo
ResolveBoxMethod "detachAnimation" o = Clutter.Actor.ActorDetachAnimationMethodInfo
ResolveBoxMethod "event" o = Clutter.Actor.ActorEventMethodInfo
ResolveBoxMethod "findChildByName" o = Clutter.Container.ContainerFindChildByNameMethodInfo
ResolveBoxMethod "findProperty" o = Clutter.Animatable.AnimatableFindPropertyMethodInfo
ResolveBoxMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveBoxMethod "foreach" o = Clutter.Container.ContainerForeachMethodInfo
ResolveBoxMethod "foreachWithInternals" o = Clutter.Container.ContainerForeachWithInternalsMethodInfo
ResolveBoxMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveBoxMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveBoxMethod "grabKeyFocus" o = Clutter.Actor.ActorGrabKeyFocusMethodInfo
ResolveBoxMethod "hasActions" o = Clutter.Actor.ActorHasActionsMethodInfo
ResolveBoxMethod "hasAllocation" o = Clutter.Actor.ActorHasAllocationMethodInfo
ResolveBoxMethod "hasClip" o = Clutter.Actor.ActorHasClipMethodInfo
ResolveBoxMethod "hasConstraints" o = Clutter.Actor.ActorHasConstraintsMethodInfo
ResolveBoxMethod "hasEffects" o = Clutter.Actor.ActorHasEffectsMethodInfo
ResolveBoxMethod "hasKeyFocus" o = Clutter.Actor.ActorHasKeyFocusMethodInfo
ResolveBoxMethod "hasOverlaps" o = Clutter.Actor.ActorHasOverlapsMethodInfo
ResolveBoxMethod "hasPointer" o = Clutter.Actor.ActorHasPointerMethodInfo
ResolveBoxMethod "hide" o = Clutter.Actor.ActorHideMethodInfo
ResolveBoxMethod "hideAll" o = Clutter.Actor.ActorHideAllMethodInfo
ResolveBoxMethod "insertChildAbove" o = Clutter.Actor.ActorInsertChildAboveMethodInfo
ResolveBoxMethod "insertChildAtIndex" o = Clutter.Actor.ActorInsertChildAtIndexMethodInfo
ResolveBoxMethod "insertChildBelow" o = Clutter.Actor.ActorInsertChildBelowMethodInfo
ResolveBoxMethod "interpolateValue" o = Clutter.Animatable.AnimatableInterpolateValueMethodInfo
ResolveBoxMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveBoxMethod "isInClonePaint" o = Clutter.Actor.ActorIsInClonePaintMethodInfo
ResolveBoxMethod "isMapped" o = Clutter.Actor.ActorIsMappedMethodInfo
ResolveBoxMethod "isRealized" o = Clutter.Actor.ActorIsRealizedMethodInfo
ResolveBoxMethod "isRotated" o = Clutter.Actor.ActorIsRotatedMethodInfo
ResolveBoxMethod "isScaled" o = Clutter.Actor.ActorIsScaledMethodInfo
ResolveBoxMethod "isVisible" o = Clutter.Actor.ActorIsVisibleMethodInfo
ResolveBoxMethod "lower" o = Clutter.Actor.ActorLowerMethodInfo
ResolveBoxMethod "lowerBottom" o = Clutter.Actor.ActorLowerBottomMethodInfo
ResolveBoxMethod "lowerChild" o = Clutter.Container.ContainerLowerChildMethodInfo
ResolveBoxMethod "map" o = Clutter.Actor.ActorMapMethodInfo
ResolveBoxMethod "moveAnchorPoint" o = Clutter.Actor.ActorMoveAnchorPointMethodInfo
ResolveBoxMethod "moveAnchorPointFromGravity" o = Clutter.Actor.ActorMoveAnchorPointFromGravityMethodInfo
ResolveBoxMethod "moveBy" o = Clutter.Actor.ActorMoveByMethodInfo
ResolveBoxMethod "needsExpand" o = Clutter.Actor.ActorNeedsExpandMethodInfo
ResolveBoxMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveBoxMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveBoxMethod "packv" o = BoxPackvMethodInfo
ResolveBoxMethod "paint" o = Clutter.Actor.ActorPaintMethodInfo
ResolveBoxMethod "parseCustomNode" o = Clutter.Scriptable.ScriptableParseCustomNodeMethodInfo
ResolveBoxMethod "popInternal" o = Clutter.Actor.ActorPopInternalMethodInfo
ResolveBoxMethod "pushInternal" o = Clutter.Actor.ActorPushInternalMethodInfo
ResolveBoxMethod "queueRedraw" o = Clutter.Actor.ActorQueueRedrawMethodInfo
ResolveBoxMethod "queueRedrawWithClip" o = Clutter.Actor.ActorQueueRedrawWithClipMethodInfo
ResolveBoxMethod "queueRelayout" o = Clutter.Actor.ActorQueueRelayoutMethodInfo
ResolveBoxMethod "raise" o = Clutter.Actor.ActorRaiseMethodInfo
ResolveBoxMethod "raiseChild" o = Clutter.Container.ContainerRaiseChildMethodInfo
ResolveBoxMethod "raiseTop" o = Clutter.Actor.ActorRaiseTopMethodInfo
ResolveBoxMethod "realize" o = Clutter.Actor.ActorRealizeMethodInfo
ResolveBoxMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveBoxMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveBoxMethod "removeAction" o = Clutter.Actor.ActorRemoveActionMethodInfo
ResolveBoxMethod "removeActionByName" o = Clutter.Actor.ActorRemoveActionByNameMethodInfo
ResolveBoxMethod "removeActor" o = Clutter.Container.ContainerRemoveActorMethodInfo
ResolveBoxMethod "removeAllChildren" o = Clutter.Actor.ActorRemoveAllChildrenMethodInfo
ResolveBoxMethod "removeAllTransitions" o = Clutter.Actor.ActorRemoveAllTransitionsMethodInfo
ResolveBoxMethod "removeChild" o = Clutter.Actor.ActorRemoveChildMethodInfo
ResolveBoxMethod "removeClip" o = Clutter.Actor.ActorRemoveClipMethodInfo
ResolveBoxMethod "removeConstraint" o = Clutter.Actor.ActorRemoveConstraintMethodInfo
ResolveBoxMethod "removeConstraintByName" o = Clutter.Actor.ActorRemoveConstraintByNameMethodInfo
ResolveBoxMethod "removeEffect" o = Clutter.Actor.ActorRemoveEffectMethodInfo
ResolveBoxMethod "removeEffectByName" o = Clutter.Actor.ActorRemoveEffectByNameMethodInfo
ResolveBoxMethod "removeTransition" o = Clutter.Actor.ActorRemoveTransitionMethodInfo
ResolveBoxMethod "reparent" o = Clutter.Actor.ActorReparentMethodInfo
ResolveBoxMethod "replaceChild" o = Clutter.Actor.ActorReplaceChildMethodInfo
ResolveBoxMethod "restoreEasingState" o = Clutter.Actor.ActorRestoreEasingStateMethodInfo
ResolveBoxMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveBoxMethod "saveEasingState" o = Clutter.Actor.ActorSaveEasingStateMethodInfo
ResolveBoxMethod "shouldPickPaint" o = Clutter.Actor.ActorShouldPickPaintMethodInfo
ResolveBoxMethod "show" o = Clutter.Actor.ActorShowMethodInfo
ResolveBoxMethod "showAll" o = Clutter.Actor.ActorShowAllMethodInfo
ResolveBoxMethod "sortDepthOrder" o = Clutter.Container.ContainerSortDepthOrderMethodInfo
ResolveBoxMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveBoxMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveBoxMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveBoxMethod "transformStagePoint" o = Clutter.Actor.ActorTransformStagePointMethodInfo
ResolveBoxMethod "unmap" o = Clutter.Actor.ActorUnmapMethodInfo
ResolveBoxMethod "unparent" o = Clutter.Actor.ActorUnparentMethodInfo
ResolveBoxMethod "unrealize" o = Clutter.Actor.ActorUnrealizeMethodInfo
ResolveBoxMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveBoxMethod "unsetFlags" o = Clutter.Actor.ActorUnsetFlagsMethodInfo
ResolveBoxMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveBoxMethod "getAbsAllocationVertices" o = Clutter.Actor.ActorGetAbsAllocationVerticesMethodInfo
ResolveBoxMethod "getAccessible" o = Clutter.Actor.ActorGetAccessibleMethodInfo
ResolveBoxMethod "getAction" o = Clutter.Actor.ActorGetActionMethodInfo
ResolveBoxMethod "getActions" o = Clutter.Actor.ActorGetActionsMethodInfo
ResolveBoxMethod "getAllocationBox" o = Clutter.Actor.ActorGetAllocationBoxMethodInfo
ResolveBoxMethod "getAllocationGeometry" o = Clutter.Actor.ActorGetAllocationGeometryMethodInfo
ResolveBoxMethod "getAllocationVertices" o = Clutter.Actor.ActorGetAllocationVerticesMethodInfo
ResolveBoxMethod "getAnchorPoint" o = Clutter.Actor.ActorGetAnchorPointMethodInfo
ResolveBoxMethod "getAnchorPointGravity" o = Clutter.Actor.ActorGetAnchorPointGravityMethodInfo
ResolveBoxMethod "getAnimation" o = Clutter.Actor.ActorGetAnimationMethodInfo
ResolveBoxMethod "getBackgroundColor" o = Clutter.Actor.ActorGetBackgroundColorMethodInfo
ResolveBoxMethod "getChildAtIndex" o = Clutter.Actor.ActorGetChildAtIndexMethodInfo
ResolveBoxMethod "getChildMeta" o = Clutter.Container.ContainerGetChildMetaMethodInfo
ResolveBoxMethod "getChildTransform" o = Clutter.Actor.ActorGetChildTransformMethodInfo
ResolveBoxMethod "getChildren" o = Clutter.Actor.ActorGetChildrenMethodInfo
ResolveBoxMethod "getClip" o = Clutter.Actor.ActorGetClipMethodInfo
ResolveBoxMethod "getClipToAllocation" o = Clutter.Actor.ActorGetClipToAllocationMethodInfo
ResolveBoxMethod "getColor" o = BoxGetColorMethodInfo
ResolveBoxMethod "getConstraint" o = Clutter.Actor.ActorGetConstraintMethodInfo
ResolveBoxMethod "getConstraints" o = Clutter.Actor.ActorGetConstraintsMethodInfo
ResolveBoxMethod "getContent" o = Clutter.Actor.ActorGetContentMethodInfo
ResolveBoxMethod "getContentBox" o = Clutter.Actor.ActorGetContentBoxMethodInfo
ResolveBoxMethod "getContentGravity" o = Clutter.Actor.ActorGetContentGravityMethodInfo
ResolveBoxMethod "getContentRepeat" o = Clutter.Actor.ActorGetContentRepeatMethodInfo
ResolveBoxMethod "getContentScalingFilters" o = Clutter.Actor.ActorGetContentScalingFiltersMethodInfo
ResolveBoxMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveBoxMethod "getDefaultPaintVolume" o = Clutter.Actor.ActorGetDefaultPaintVolumeMethodInfo
ResolveBoxMethod "getDepth" o = Clutter.Actor.ActorGetDepthMethodInfo
ResolveBoxMethod "getEasingDelay" o = Clutter.Actor.ActorGetEasingDelayMethodInfo
ResolveBoxMethod "getEasingDuration" o = Clutter.Actor.ActorGetEasingDurationMethodInfo
ResolveBoxMethod "getEasingMode" o = Clutter.Actor.ActorGetEasingModeMethodInfo
ResolveBoxMethod "getEffect" o = Clutter.Actor.ActorGetEffectMethodInfo
ResolveBoxMethod "getEffects" o = Clutter.Actor.ActorGetEffectsMethodInfo
ResolveBoxMethod "getFirstChild" o = Clutter.Actor.ActorGetFirstChildMethodInfo
ResolveBoxMethod "getFixedPositionSet" o = Clutter.Actor.ActorGetFixedPositionSetMethodInfo
ResolveBoxMethod "getFlags" o = Clutter.Actor.ActorGetFlagsMethodInfo
ResolveBoxMethod "getGeometry" o = Clutter.Actor.ActorGetGeometryMethodInfo
ResolveBoxMethod "getGid" o = Clutter.Actor.ActorGetGidMethodInfo
ResolveBoxMethod "getHeight" o = Clutter.Actor.ActorGetHeightMethodInfo
ResolveBoxMethod "getId" o = Clutter.Scriptable.ScriptableGetIdMethodInfo
ResolveBoxMethod "getInitialState" o = Clutter.Animatable.AnimatableGetInitialStateMethodInfo
ResolveBoxMethod "getLastChild" o = Clutter.Actor.ActorGetLastChildMethodInfo
ResolveBoxMethod "getLayoutManager" o = BoxGetLayoutManagerMethodInfo
ResolveBoxMethod "getMargin" o = Clutter.Actor.ActorGetMarginMethodInfo
ResolveBoxMethod "getMarginBottom" o = Clutter.Actor.ActorGetMarginBottomMethodInfo
ResolveBoxMethod "getMarginLeft" o = Clutter.Actor.ActorGetMarginLeftMethodInfo
ResolveBoxMethod "getMarginRight" o = Clutter.Actor.ActorGetMarginRightMethodInfo
ResolveBoxMethod "getMarginTop" o = Clutter.Actor.ActorGetMarginTopMethodInfo
ResolveBoxMethod "getNChildren" o = Clutter.Actor.ActorGetNChildrenMethodInfo
ResolveBoxMethod "getName" o = Clutter.Actor.ActorGetNameMethodInfo
ResolveBoxMethod "getNextSibling" o = Clutter.Actor.ActorGetNextSiblingMethodInfo
ResolveBoxMethod "getOffscreenRedirect" o = Clutter.Actor.ActorGetOffscreenRedirectMethodInfo
ResolveBoxMethod "getOpacity" o = Clutter.Actor.ActorGetOpacityMethodInfo
ResolveBoxMethod "getPaintBox" o = Clutter.Actor.ActorGetPaintBoxMethodInfo
ResolveBoxMethod "getPaintOpacity" o = Clutter.Actor.ActorGetPaintOpacityMethodInfo
ResolveBoxMethod "getPaintVisibility" o = Clutter.Actor.ActorGetPaintVisibilityMethodInfo
ResolveBoxMethod "getPaintVolume" o = Clutter.Actor.ActorGetPaintVolumeMethodInfo
ResolveBoxMethod "getPangoContext" o = Clutter.Actor.ActorGetPangoContextMethodInfo
ResolveBoxMethod "getParent" o = Clutter.Actor.ActorGetParentMethodInfo
ResolveBoxMethod "getPivotPoint" o = Clutter.Actor.ActorGetPivotPointMethodInfo
ResolveBoxMethod "getPivotPointZ" o = Clutter.Actor.ActorGetPivotPointZMethodInfo
ResolveBoxMethod "getPosition" o = Clutter.Actor.ActorGetPositionMethodInfo
ResolveBoxMethod "getPreferredHeight" o = Clutter.Actor.ActorGetPreferredHeightMethodInfo
ResolveBoxMethod "getPreferredSize" o = Clutter.Actor.ActorGetPreferredSizeMethodInfo
ResolveBoxMethod "getPreferredWidth" o = Clutter.Actor.ActorGetPreferredWidthMethodInfo
ResolveBoxMethod "getPreviousSibling" o = Clutter.Actor.ActorGetPreviousSiblingMethodInfo
ResolveBoxMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveBoxMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveBoxMethod "getReactive" o = Clutter.Actor.ActorGetReactiveMethodInfo
ResolveBoxMethod "getRequestMode" o = Clutter.Actor.ActorGetRequestModeMethodInfo
ResolveBoxMethod "getRotation" o = Clutter.Actor.ActorGetRotationMethodInfo
ResolveBoxMethod "getRotationAngle" o = Clutter.Actor.ActorGetRotationAngleMethodInfo
ResolveBoxMethod "getScale" o = Clutter.Actor.ActorGetScaleMethodInfo
ResolveBoxMethod "getScaleCenter" o = Clutter.Actor.ActorGetScaleCenterMethodInfo
ResolveBoxMethod "getScaleGravity" o = Clutter.Actor.ActorGetScaleGravityMethodInfo
ResolveBoxMethod "getScaleZ" o = Clutter.Actor.ActorGetScaleZMethodInfo
ResolveBoxMethod "getShader" o = Clutter.Actor.ActorGetShaderMethodInfo
ResolveBoxMethod "getSize" o = Clutter.Actor.ActorGetSizeMethodInfo
ResolveBoxMethod "getStage" o = Clutter.Actor.ActorGetStageMethodInfo
ResolveBoxMethod "getTextDirection" o = Clutter.Actor.ActorGetTextDirectionMethodInfo
ResolveBoxMethod "getTransform" o = Clutter.Actor.ActorGetTransformMethodInfo
ResolveBoxMethod "getTransformationMatrix" o = Clutter.Actor.ActorGetTransformationMatrixMethodInfo
ResolveBoxMethod "getTransformedPaintVolume" o = Clutter.Actor.ActorGetTransformedPaintVolumeMethodInfo
ResolveBoxMethod "getTransformedPosition" o = Clutter.Actor.ActorGetTransformedPositionMethodInfo
ResolveBoxMethod "getTransformedSize" o = Clutter.Actor.ActorGetTransformedSizeMethodInfo
ResolveBoxMethod "getTransition" o = Clutter.Actor.ActorGetTransitionMethodInfo
ResolveBoxMethod "getTranslation" o = Clutter.Actor.ActorGetTranslationMethodInfo
ResolveBoxMethod "getWidth" o = Clutter.Actor.ActorGetWidthMethodInfo
ResolveBoxMethod "getX" o = Clutter.Actor.ActorGetXMethodInfo
ResolveBoxMethod "getXAlign" o = Clutter.Actor.ActorGetXAlignMethodInfo
ResolveBoxMethod "getXExpand" o = Clutter.Actor.ActorGetXExpandMethodInfo
ResolveBoxMethod "getY" o = Clutter.Actor.ActorGetYMethodInfo
ResolveBoxMethod "getYAlign" o = Clutter.Actor.ActorGetYAlignMethodInfo
ResolveBoxMethod "getYExpand" o = Clutter.Actor.ActorGetYExpandMethodInfo
ResolveBoxMethod "getZPosition" o = Clutter.Actor.ActorGetZPositionMethodInfo
ResolveBoxMethod "getZRotationGravity" o = Clutter.Actor.ActorGetZRotationGravityMethodInfo
ResolveBoxMethod "setAllocation" o = Clutter.Actor.ActorSetAllocationMethodInfo
ResolveBoxMethod "setAnchorPoint" o = Clutter.Actor.ActorSetAnchorPointMethodInfo
ResolveBoxMethod "setAnchorPointFromGravity" o = Clutter.Actor.ActorSetAnchorPointFromGravityMethodInfo
ResolveBoxMethod "setBackgroundColor" o = Clutter.Actor.ActorSetBackgroundColorMethodInfo
ResolveBoxMethod "setChildAboveSibling" o = Clutter.Actor.ActorSetChildAboveSiblingMethodInfo
ResolveBoxMethod "setChildAtIndex" o = Clutter.Actor.ActorSetChildAtIndexMethodInfo
ResolveBoxMethod "setChildBelowSibling" o = Clutter.Actor.ActorSetChildBelowSiblingMethodInfo
ResolveBoxMethod "setChildTransform" o = Clutter.Actor.ActorSetChildTransformMethodInfo
ResolveBoxMethod "setClip" o = Clutter.Actor.ActorSetClipMethodInfo
ResolveBoxMethod "setClipToAllocation" o = Clutter.Actor.ActorSetClipToAllocationMethodInfo
ResolveBoxMethod "setColor" o = BoxSetColorMethodInfo
ResolveBoxMethod "setContent" o = Clutter.Actor.ActorSetContentMethodInfo
ResolveBoxMethod "setContentGravity" o = Clutter.Actor.ActorSetContentGravityMethodInfo
ResolveBoxMethod "setContentRepeat" o = Clutter.Actor.ActorSetContentRepeatMethodInfo
ResolveBoxMethod "setContentScalingFilters" o = Clutter.Actor.ActorSetContentScalingFiltersMethodInfo
ResolveBoxMethod "setCustomProperty" o = Clutter.Scriptable.ScriptableSetCustomPropertyMethodInfo
ResolveBoxMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveBoxMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveBoxMethod "setDepth" o = Clutter.Actor.ActorSetDepthMethodInfo
ResolveBoxMethod "setEasingDelay" o = Clutter.Actor.ActorSetEasingDelayMethodInfo
ResolveBoxMethod "setEasingDuration" o = Clutter.Actor.ActorSetEasingDurationMethodInfo
ResolveBoxMethod "setEasingMode" o = Clutter.Actor.ActorSetEasingModeMethodInfo
ResolveBoxMethod "setFinalState" o = Clutter.Animatable.AnimatableSetFinalStateMethodInfo
ResolveBoxMethod "setFixedPositionSet" o = Clutter.Actor.ActorSetFixedPositionSetMethodInfo
ResolveBoxMethod "setFlags" o = Clutter.Actor.ActorSetFlagsMethodInfo
ResolveBoxMethod "setGeometry" o = Clutter.Actor.ActorSetGeometryMethodInfo
ResolveBoxMethod "setHeight" o = Clutter.Actor.ActorSetHeightMethodInfo
ResolveBoxMethod "setId" o = Clutter.Scriptable.ScriptableSetIdMethodInfo
ResolveBoxMethod "setLayoutManager" o = BoxSetLayoutManagerMethodInfo
ResolveBoxMethod "setMargin" o = Clutter.Actor.ActorSetMarginMethodInfo
ResolveBoxMethod "setMarginBottom" o = Clutter.Actor.ActorSetMarginBottomMethodInfo
ResolveBoxMethod "setMarginLeft" o = Clutter.Actor.ActorSetMarginLeftMethodInfo
ResolveBoxMethod "setMarginRight" o = Clutter.Actor.ActorSetMarginRightMethodInfo
ResolveBoxMethod "setMarginTop" o = Clutter.Actor.ActorSetMarginTopMethodInfo
ResolveBoxMethod "setName" o = Clutter.Actor.ActorSetNameMethodInfo
ResolveBoxMethod "setOffscreenRedirect" o = Clutter.Actor.ActorSetOffscreenRedirectMethodInfo
ResolveBoxMethod "setOpacity" o = Clutter.Actor.ActorSetOpacityMethodInfo
ResolveBoxMethod "setParent" o = Clutter.Actor.ActorSetParentMethodInfo
ResolveBoxMethod "setPivotPoint" o = Clutter.Actor.ActorSetPivotPointMethodInfo
ResolveBoxMethod "setPivotPointZ" o = Clutter.Actor.ActorSetPivotPointZMethodInfo
ResolveBoxMethod "setPosition" o = Clutter.Actor.ActorSetPositionMethodInfo
ResolveBoxMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveBoxMethod "setReactive" o = Clutter.Actor.ActorSetReactiveMethodInfo
ResolveBoxMethod "setRequestMode" o = Clutter.Actor.ActorSetRequestModeMethodInfo
ResolveBoxMethod "setRotation" o = Clutter.Actor.ActorSetRotationMethodInfo
ResolveBoxMethod "setRotationAngle" o = Clutter.Actor.ActorSetRotationAngleMethodInfo
ResolveBoxMethod "setScale" o = Clutter.Actor.ActorSetScaleMethodInfo
ResolveBoxMethod "setScaleFull" o = Clutter.Actor.ActorSetScaleFullMethodInfo
ResolveBoxMethod "setScaleWithGravity" o = Clutter.Actor.ActorSetScaleWithGravityMethodInfo
ResolveBoxMethod "setScaleZ" o = Clutter.Actor.ActorSetScaleZMethodInfo
ResolveBoxMethod "setShader" o = Clutter.Actor.ActorSetShaderMethodInfo
ResolveBoxMethod "setShaderParam" o = Clutter.Actor.ActorSetShaderParamMethodInfo
ResolveBoxMethod "setShaderParamFloat" o = Clutter.Actor.ActorSetShaderParamFloatMethodInfo
ResolveBoxMethod "setShaderParamInt" o = Clutter.Actor.ActorSetShaderParamIntMethodInfo
ResolveBoxMethod "setSize" o = Clutter.Actor.ActorSetSizeMethodInfo
ResolveBoxMethod "setTextDirection" o = Clutter.Actor.ActorSetTextDirectionMethodInfo
ResolveBoxMethod "setTransform" o = Clutter.Actor.ActorSetTransformMethodInfo
ResolveBoxMethod "setTranslation" o = Clutter.Actor.ActorSetTranslationMethodInfo
ResolveBoxMethod "setWidth" o = Clutter.Actor.ActorSetWidthMethodInfo
ResolveBoxMethod "setX" o = Clutter.Actor.ActorSetXMethodInfo
ResolveBoxMethod "setXAlign" o = Clutter.Actor.ActorSetXAlignMethodInfo
ResolveBoxMethod "setXExpand" o = Clutter.Actor.ActorSetXExpandMethodInfo
ResolveBoxMethod "setY" o = Clutter.Actor.ActorSetYMethodInfo
ResolveBoxMethod "setYAlign" o = Clutter.Actor.ActorSetYAlignMethodInfo
ResolveBoxMethod "setYExpand" o = Clutter.Actor.ActorSetYExpandMethodInfo
ResolveBoxMethod "setZPosition" o = Clutter.Actor.ActorSetZPositionMethodInfo
ResolveBoxMethod "setZRotationFromGravity" o = Clutter.Actor.ActorSetZRotationFromGravityMethodInfo
ResolveBoxMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveBoxMethod t Box, O.OverloadedMethod info Box p) => OL.IsLabel t (Box -> 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 ~ ResolveBoxMethod t Box, O.OverloadedMethod info Box p, R.HasField t Box p) => R.HasField t Box p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveBoxMethod t Box, O.OverloadedMethodInfo info Box) => OL.IsLabel t (O.MethodProxy info Box) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getBoxColor :: (MonadIO m, IsBox o) => o -> m (Maybe Clutter.Color.Color)
getBoxColor :: forall (m :: * -> *) o.
(MonadIO m, IsBox o) =>
o -> m (Maybe Color)
getBoxColor o
obj = IO (Maybe Color) -> m (Maybe Color)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Color) -> m (Maybe Color))
-> IO (Maybe Color) -> m (Maybe Color)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Color -> Color) -> IO (Maybe Color)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"color" ManagedPtr Color -> Color
Clutter.Color.Color
setBoxColor :: (MonadIO m, IsBox o) => o -> Clutter.Color.Color -> m ()
setBoxColor :: forall (m :: * -> *) o. (MonadIO m, IsBox o) => o -> Color -> m ()
setBoxColor o
obj Color
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 Color -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"color" (Color -> Maybe Color
forall a. a -> Maybe a
Just Color
val)
constructBoxColor :: (IsBox o, MIO.MonadIO m) => Clutter.Color.Color -> m (GValueConstruct o)
constructBoxColor :: forall o (m :: * -> *).
(IsBox o, MonadIO m) =>
Color -> m (GValueConstruct o)
constructBoxColor Color
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 Color -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"color" (Color -> Maybe Color
forall a. a -> Maybe a
P.Just Color
val)
clearBoxColor :: (MonadIO m, IsBox o) => o -> m ()
clearBoxColor :: forall (m :: * -> *) o. (MonadIO m, IsBox o) => o -> m ()
clearBoxColor 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 Color -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"color" (Maybe Color
forall a. Maybe a
Nothing :: Maybe Clutter.Color.Color)
#if defined(ENABLE_OVERLOADING)
data BoxColorPropertyInfo
instance AttrInfo BoxColorPropertyInfo where
type AttrAllowedOps BoxColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint BoxColorPropertyInfo = IsBox
type AttrSetTypeConstraint BoxColorPropertyInfo = (~) Clutter.Color.Color
type AttrTransferTypeConstraint BoxColorPropertyInfo = (~) Clutter.Color.Color
type AttrTransferType BoxColorPropertyInfo = Clutter.Color.Color
type AttrGetType BoxColorPropertyInfo = (Maybe Clutter.Color.Color)
type AttrLabel BoxColorPropertyInfo = "color"
type AttrOrigin BoxColorPropertyInfo = Box
attrGet = getBoxColor
attrSet = setBoxColor
attrTransfer _ v = do
return v
attrConstruct = constructBoxColor
attrClear = clearBoxColor
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Box.color"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Box.html#g:attr:color"
})
#endif
getBoxColorSet :: (MonadIO m, IsBox o) => o -> m Bool
getBoxColorSet :: forall (m :: * -> *) o. (MonadIO m, IsBox o) => o -> m Bool
getBoxColorSet 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
"color-set"
setBoxColorSet :: (MonadIO m, IsBox o) => o -> Bool -> m ()
setBoxColorSet :: forall (m :: * -> *) o. (MonadIO m, IsBox o) => o -> Bool -> m ()
setBoxColorSet 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
"color-set" Bool
val
constructBoxColorSet :: (IsBox o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructBoxColorSet :: forall o (m :: * -> *).
(IsBox o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructBoxColorSet 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
"color-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data BoxColorSetPropertyInfo
instance AttrInfo BoxColorSetPropertyInfo where
type AttrAllowedOps BoxColorSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint BoxColorSetPropertyInfo = IsBox
type AttrSetTypeConstraint BoxColorSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint BoxColorSetPropertyInfo = (~) Bool
type AttrTransferType BoxColorSetPropertyInfo = Bool
type AttrGetType BoxColorSetPropertyInfo = Bool
type AttrLabel BoxColorSetPropertyInfo = "color-set"
type AttrOrigin BoxColorSetPropertyInfo = Box
attrGet = getBoxColorSet
attrSet = setBoxColorSet
attrTransfer _ v = do
return v
attrConstruct = constructBoxColorSet
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Box.colorSet"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Box.html#g:attr:colorSet"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Box
type instance O.AttributeList Box = BoxAttributeList
type BoxAttributeList = ('[ '("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), '("color", BoxColorPropertyInfo), '("colorSet", BoxColorSetPropertyInfo), '("constraints", Clutter.Actor.ActorConstraintsPropertyInfo), '("content", Clutter.Actor.ActorContentPropertyInfo), '("contentBox", Clutter.Actor.ActorContentBoxPropertyInfo), '("contentGravity", Clutter.Actor.ActorContentGravityPropertyInfo), '("contentRepeat", Clutter.Actor.ActorContentRepeatPropertyInfo), '("depth", Clutter.Actor.ActorDepthPropertyInfo), '("effect", Clutter.Actor.ActorEffectPropertyInfo), '("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), '("lastChild", Clutter.Actor.ActorLastChildPropertyInfo), '("layoutManager", Clutter.Actor.ActorLayoutManagerPropertyInfo), '("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), '("pivotPoint", Clutter.Actor.ActorPivotPointPropertyInfo), '("pivotPointZ", Clutter.Actor.ActorPivotPointZPropertyInfo), '("position", Clutter.Actor.ActorPositionPropertyInfo), '("reactive", Clutter.Actor.ActorReactivePropertyInfo), '("realized", Clutter.Actor.ActorRealizedPropertyInfo), '("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), '("textDirection", Clutter.Actor.ActorTextDirectionPropertyInfo), '("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)
boxColor :: AttrLabelProxy "color"
boxColor = AttrLabelProxy
boxColorSet :: AttrLabelProxy "colorSet"
boxColorSet = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Box = BoxSignalList
type BoxSignalList = ('[ '("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), '("motionEvent", Clutter.Actor.ActorMotionEventSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("paint", Clutter.Actor.ActorPaintSignalInfo), '("parentSet", Clutter.Actor.ActorParentSetSignalInfo), '("pick", Clutter.Actor.ActorPickSignalInfo), '("queueRedraw", Clutter.Actor.ActorQueueRedrawSignalInfo), '("queueRelayout", Clutter.Actor.ActorQueueRelayoutSignalInfo), '("realize", Clutter.Actor.ActorRealizeSignalInfo), '("scrollEvent", Clutter.Actor.ActorScrollEventSignalInfo), '("show", Clutter.Actor.ActorShowSignalInfo), '("touchEvent", Clutter.Actor.ActorTouchEventSignalInfo), '("transitionStopped", Clutter.Actor.ActorTransitionStoppedSignalInfo), '("transitionsCompleted", Clutter.Actor.ActorTransitionsCompletedSignalInfo), '("unrealize", Clutter.Actor.ActorUnrealizeSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "clutter_box_new" clutter_box_new ::
Ptr Clutter.LayoutManager.LayoutManager ->
IO (Ptr Box)
{-# DEPRECATED boxNew ["(Since version 1.10)","Use 'GI.Clutter.Objects.Actor.actorNew' instead."] #-}
boxNew ::
(B.CallStack.HasCallStack, MonadIO m, Clutter.LayoutManager.IsLayoutManager a) =>
a
-> m Box
boxNew :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLayoutManager a) =>
a -> m Box
boxNew a
manager = IO Box -> m Box
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Box -> m Box) -> IO Box -> m Box
forall a b. (a -> b) -> a -> b
$ do
Ptr LayoutManager
manager' <- a -> IO (Ptr LayoutManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
Ptr Box
result <- Ptr LayoutManager -> IO (Ptr Box)
clutter_box_new Ptr LayoutManager
manager'
Text -> Ptr Box -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"boxNew" Ptr Box
result
Box
result' <- ((ManagedPtr Box -> Box) -> Ptr Box -> IO Box
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Box -> Box
Box) Ptr Box
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
Box -> IO Box
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Box
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "clutter_box_get_color" clutter_box_get_color ::
Ptr Box ->
Ptr Clutter.Color.Color ->
IO ()
{-# DEPRECATED boxGetColor ["(Since version 1.10)","Use 'GI.Clutter.Objects.Actor.actorGetBackgroundColor' instead."] #-}
boxGetColor ::
(B.CallStack.HasCallStack, MonadIO m, IsBox a) =>
a
-> m (Clutter.Color.Color)
boxGetColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBox a) =>
a -> m Color
boxGetColor a
box = IO Color -> m Color
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Color -> m Color) -> IO Color -> m Color
forall a b. (a -> b) -> a -> b
$ do
Ptr Box
box' <- a -> IO (Ptr Box)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr Color
color <- Int -> IO (Ptr Color)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
4 :: IO (Ptr Clutter.Color.Color)
Ptr Box -> Ptr Color -> IO ()
clutter_box_get_color Ptr Box
box' Ptr Color
color
Color
color' <- ((ManagedPtr Color -> Color) -> Ptr Color -> IO Color
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Color -> Color
Clutter.Color.Color) Ptr Color
color
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
Color -> IO Color
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Color
color'
#if defined(ENABLE_OVERLOADING)
data BoxGetColorMethodInfo
instance (signature ~ (m (Clutter.Color.Color)), MonadIO m, IsBox a) => O.OverloadedMethod BoxGetColorMethodInfo a signature where
overloadedMethod = boxGetColor
instance O.OverloadedMethodInfo BoxGetColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Box.boxGetColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Box.html#v:boxGetColor"
})
#endif
foreign import ccall "clutter_box_get_layout_manager" clutter_box_get_layout_manager ::
Ptr Box ->
IO (Ptr Clutter.LayoutManager.LayoutManager)
{-# DEPRECATED boxGetLayoutManager ["(Since version 1.10)","Use 'GI.Clutter.Objects.Actor.actorGetLayoutManager' instead."] #-}
boxGetLayoutManager ::
(B.CallStack.HasCallStack, MonadIO m, IsBox a) =>
a
-> m Clutter.LayoutManager.LayoutManager
boxGetLayoutManager :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBox a) =>
a -> m LayoutManager
boxGetLayoutManager a
box = IO LayoutManager -> m LayoutManager
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO LayoutManager -> m LayoutManager)
-> IO LayoutManager -> m LayoutManager
forall a b. (a -> b) -> a -> b
$ do
Ptr Box
box' <- a -> IO (Ptr Box)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr LayoutManager
result <- Ptr Box -> IO (Ptr LayoutManager)
clutter_box_get_layout_manager Ptr Box
box'
Text -> Ptr LayoutManager -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"boxGetLayoutManager" Ptr LayoutManager
result
LayoutManager
result' <- ((ManagedPtr LayoutManager -> LayoutManager)
-> Ptr LayoutManager -> IO LayoutManager
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr LayoutManager -> LayoutManager
Clutter.LayoutManager.LayoutManager) Ptr LayoutManager
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
LayoutManager -> IO LayoutManager
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return LayoutManager
result'
#if defined(ENABLE_OVERLOADING)
data BoxGetLayoutManagerMethodInfo
instance (signature ~ (m Clutter.LayoutManager.LayoutManager), MonadIO m, IsBox a) => O.OverloadedMethod BoxGetLayoutManagerMethodInfo a signature where
overloadedMethod = boxGetLayoutManager
instance O.OverloadedMethodInfo BoxGetLayoutManagerMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Box.boxGetLayoutManager",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Box.html#v:boxGetLayoutManager"
})
#endif
foreign import ccall "clutter_box_packv" clutter_box_packv ::
Ptr Box ->
Ptr Clutter.Actor.Actor ->
Word32 ->
Ptr CString ->
Ptr B.GValue.GValue ->
IO ()
{-# DEPRECATED boxPackv ["(Since version 1.10)","Use 'GI.Clutter.Objects.Actor.actorAddChild' instead. To set"," specific layout properties, use @/clutter_layout_manager_child_set()/@"] #-}
boxPackv ::
(B.CallStack.HasCallStack, MonadIO m, IsBox a, Clutter.Actor.IsActor b) =>
a
-> b
-> [T.Text]
-> [GValue]
-> m ()
boxPackv :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBox a, IsActor b) =>
a -> b -> [Text] -> [GValue] -> m ()
boxPackv a
box b
actor [Text]
properties [GValue]
values = 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
let nProperties :: Word32
nProperties = Int -> Word32
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Word32) -> Int -> Word32
forall a b. (a -> b) -> a -> b
$ [GValue] -> Int
forall a. [a] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
P.length [GValue]
values
let properties_expected_length_ :: Word32
properties_expected_length_ = Int -> Word32
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Word32) -> Int -> Word32
forall a b. (a -> b) -> a -> b
$ [Text] -> Int
forall a. [a] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
P.length [Text]
properties
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
when (Word32
properties_expected_length_ Word32 -> Word32 -> Bool
forall a. Eq a => a -> a -> Bool
/= Word32
nProperties) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
String -> IO ()
forall a. HasCallStack => String -> a
error String
"Clutter.boxPackv : length of 'properties' does not agree with that of 'values'."
Ptr Box
box' <- a -> IO (Ptr Box)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr Actor
actor' <- b -> IO (Ptr Actor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
actor
Ptr (Ptr CChar)
properties' <- [Text] -> IO (Ptr (Ptr CChar))
packUTF8CArray [Text]
properties
Ptr GValue
values' <- [GValue] -> IO (Ptr GValue)
B.GValue.packGValueArray [GValue]
values
Ptr Box
-> Ptr Actor -> Word32 -> Ptr (Ptr CChar) -> Ptr GValue -> IO ()
clutter_box_packv Ptr Box
box' Ptr Actor
actor' Word32
nProperties Ptr (Ptr CChar)
properties' Ptr GValue
values'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
actor
(GValue -> IO ()) -> [GValue] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [GValue]
values
(Word32 -> (Ptr CChar -> IO ()) -> Ptr (Ptr CChar) -> IO ()
forall a b c.
(Storable a, Integral b) =>
b -> (a -> IO c) -> Ptr a -> IO ()
mapCArrayWithLength Word32
nProperties) Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
properties'
Ptr (Ptr CChar) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
properties'
Ptr GValue -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr GValue
values'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BoxPackvMethodInfo
instance (signature ~ (b -> [T.Text] -> [GValue] -> m ()), MonadIO m, IsBox a, Clutter.Actor.IsActor b) => O.OverloadedMethod BoxPackvMethodInfo a signature where
overloadedMethod = boxPackv
instance O.OverloadedMethodInfo BoxPackvMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Box.boxPackv",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Box.html#v:boxPackv"
})
#endif
foreign import ccall "clutter_box_set_color" clutter_box_set_color ::
Ptr Box ->
Ptr Clutter.Color.Color ->
IO ()
{-# DEPRECATED boxSetColor ["(Since version 1.10)","Use 'GI.Clutter.Objects.Actor.actorSetBackgroundColor' instead."] #-}
boxSetColor ::
(B.CallStack.HasCallStack, MonadIO m, IsBox a) =>
a
-> Maybe (Clutter.Color.Color)
-> m ()
boxSetColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBox a) =>
a -> Maybe Color -> m ()
boxSetColor a
box Maybe Color
color = 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 Box
box' <- a -> IO (Ptr Box)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr Color
maybeColor <- case Maybe Color
color of
Maybe Color
Nothing -> Ptr Color -> IO (Ptr Color)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Color
forall a. Ptr a
nullPtr
Just Color
jColor -> do
Ptr Color
jColor' <- Color -> IO (Ptr Color)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Color
jColor
Ptr Color -> IO (Ptr Color)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Color
jColor'
Ptr Box -> Ptr Color -> IO ()
clutter_box_set_color Ptr Box
box' Ptr Color
maybeColor
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
Maybe Color -> (Color -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Color
color Color -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BoxSetColorMethodInfo
instance (signature ~ (Maybe (Clutter.Color.Color) -> m ()), MonadIO m, IsBox a) => O.OverloadedMethod BoxSetColorMethodInfo a signature where
overloadedMethod = boxSetColor
instance O.OverloadedMethodInfo BoxSetColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Box.boxSetColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Box.html#v:boxSetColor"
})
#endif
foreign import ccall "clutter_box_set_layout_manager" clutter_box_set_layout_manager ::
Ptr Box ->
Ptr Clutter.LayoutManager.LayoutManager ->
IO ()
{-# DEPRECATED boxSetLayoutManager ["(Since version 1.10)","Use 'GI.Clutter.Objects.Actor.actorSetLayoutManager' instead."] #-}
boxSetLayoutManager ::
(B.CallStack.HasCallStack, MonadIO m, IsBox a, Clutter.LayoutManager.IsLayoutManager b) =>
a
-> b
-> m ()
boxSetLayoutManager :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBox a, IsLayoutManager b) =>
a -> b -> m ()
boxSetLayoutManager a
box b
manager = 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 Box
box' <- a -> IO (Ptr Box)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr LayoutManager
manager' <- b -> IO (Ptr LayoutManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
manager
Ptr Box -> Ptr LayoutManager -> IO ()
clutter_box_set_layout_manager Ptr Box
box' Ptr LayoutManager
manager'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
manager
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BoxSetLayoutManagerMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsBox a, Clutter.LayoutManager.IsLayoutManager b) => O.OverloadedMethod BoxSetLayoutManagerMethodInfo a signature where
overloadedMethod = boxSetLayoutManager
instance O.OverloadedMethodInfo BoxSetLayoutManagerMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Box.boxSetLayoutManager",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Box.html#v:boxSetLayoutManager"
})
#endif