{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Clutter.Objects.Stage
(
#if defined(ENABLE_OVERLOADING)
StageReadPixelsMethodInfo ,
#endif
Stage(..) ,
IsStage ,
toStage ,
#if defined(ENABLE_OVERLOADING)
ResolveStageMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
StageEnsureCurrentMethodInfo ,
#endif
stageEnsureCurrent ,
#if defined(ENABLE_OVERLOADING)
StageEnsureRedrawMethodInfo ,
#endif
stageEnsureRedraw ,
#if defined(ENABLE_OVERLOADING)
StageEnsureViewportMethodInfo ,
#endif
stageEnsureViewport ,
#if defined(ENABLE_OVERLOADING)
StageEventMethodInfo ,
#endif
stageEvent ,
#if defined(ENABLE_OVERLOADING)
StageGetAcceptFocusMethodInfo ,
#endif
stageGetAcceptFocus ,
#if defined(ENABLE_OVERLOADING)
StageGetActorAtPosMethodInfo ,
#endif
stageGetActorAtPos ,
#if defined(ENABLE_OVERLOADING)
StageGetColorMethodInfo ,
#endif
stageGetColor ,
stageGetDefault ,
#if defined(ENABLE_OVERLOADING)
StageGetFogMethodInfo ,
#endif
stageGetFog ,
#if defined(ENABLE_OVERLOADING)
StageGetFullscreenMethodInfo ,
#endif
stageGetFullscreen ,
#if defined(ENABLE_OVERLOADING)
StageGetKeyFocusMethodInfo ,
#endif
stageGetKeyFocus ,
#if defined(ENABLE_OVERLOADING)
StageGetMinimumSizeMethodInfo ,
#endif
stageGetMinimumSize ,
#if defined(ENABLE_OVERLOADING)
StageGetMotionEventsEnabledMethodInfo ,
#endif
stageGetMotionEventsEnabled ,
#if defined(ENABLE_OVERLOADING)
StageGetNoClearHintMethodInfo ,
#endif
stageGetNoClearHint ,
#if defined(ENABLE_OVERLOADING)
StageGetPerspectiveMethodInfo ,
#endif
stageGetPerspective ,
#if defined(ENABLE_OVERLOADING)
StageGetRedrawClipBoundsMethodInfo ,
#endif
stageGetRedrawClipBounds ,
#if defined(ENABLE_OVERLOADING)
StageGetThrottleMotionEventsMethodInfo ,
#endif
stageGetThrottleMotionEvents ,
#if defined(ENABLE_OVERLOADING)
StageGetTitleMethodInfo ,
#endif
stageGetTitle ,
#if defined(ENABLE_OVERLOADING)
StageGetUseAlphaMethodInfo ,
#endif
stageGetUseAlpha ,
#if defined(ENABLE_OVERLOADING)
StageGetUseFogMethodInfo ,
#endif
stageGetUseFog ,
#if defined(ENABLE_OVERLOADING)
StageGetUserResizableMethodInfo ,
#endif
stageGetUserResizable ,
#if defined(ENABLE_OVERLOADING)
StageHideCursorMethodInfo ,
#endif
stageHideCursor ,
#if defined(ENABLE_OVERLOADING)
StageIsDefaultMethodInfo ,
#endif
stageIsDefault ,
stageNew ,
#if defined(ENABLE_OVERLOADING)
StageQueueRedrawMethodInfo ,
#endif
stageQueueRedraw ,
#if defined(ENABLE_OVERLOADING)
StageSetAcceptFocusMethodInfo ,
#endif
stageSetAcceptFocus ,
#if defined(ENABLE_OVERLOADING)
StageSetColorMethodInfo ,
#endif
stageSetColor ,
#if defined(ENABLE_OVERLOADING)
StageSetFogMethodInfo ,
#endif
stageSetFog ,
#if defined(ENABLE_OVERLOADING)
StageSetFullscreenMethodInfo ,
#endif
stageSetFullscreen ,
#if defined(ENABLE_OVERLOADING)
StageSetKeyFocusMethodInfo ,
#endif
stageSetKeyFocus ,
#if defined(ENABLE_OVERLOADING)
StageSetMinimumSizeMethodInfo ,
#endif
stageSetMinimumSize ,
#if defined(ENABLE_OVERLOADING)
StageSetMotionEventsEnabledMethodInfo ,
#endif
stageSetMotionEventsEnabled ,
#if defined(ENABLE_OVERLOADING)
StageSetNoClearHintMethodInfo ,
#endif
stageSetNoClearHint ,
#if defined(ENABLE_OVERLOADING)
StageSetPerspectiveMethodInfo ,
#endif
stageSetPerspective ,
#if defined(ENABLE_OVERLOADING)
StageSetThrottleMotionEventsMethodInfo ,
#endif
stageSetThrottleMotionEvents ,
#if defined(ENABLE_OVERLOADING)
StageSetTitleMethodInfo ,
#endif
stageSetTitle ,
#if defined(ENABLE_OVERLOADING)
StageSetUseAlphaMethodInfo ,
#endif
stageSetUseAlpha ,
#if defined(ENABLE_OVERLOADING)
StageSetUseFogMethodInfo ,
#endif
stageSetUseFog ,
#if defined(ENABLE_OVERLOADING)
StageSetUserResizableMethodInfo ,
#endif
stageSetUserResizable ,
#if defined(ENABLE_OVERLOADING)
StageShowCursorMethodInfo ,
#endif
stageShowCursor ,
#if defined(ENABLE_OVERLOADING)
StageAcceptFocusPropertyInfo ,
#endif
constructStageAcceptFocus ,
getStageAcceptFocus ,
setStageAcceptFocus ,
#if defined(ENABLE_OVERLOADING)
stageAcceptFocus ,
#endif
#if defined(ENABLE_OVERLOADING)
StageColorPropertyInfo ,
#endif
constructStageColor ,
getStageColor ,
setStageColor ,
#if defined(ENABLE_OVERLOADING)
stageColor ,
#endif
#if defined(ENABLE_OVERLOADING)
StageCursorVisiblePropertyInfo ,
#endif
constructStageCursorVisible ,
getStageCursorVisible ,
setStageCursorVisible ,
#if defined(ENABLE_OVERLOADING)
stageCursorVisible ,
#endif
#if defined(ENABLE_OVERLOADING)
StageFogPropertyInfo ,
#endif
constructStageFog ,
getStageFog ,
setStageFog ,
#if defined(ENABLE_OVERLOADING)
stageFog ,
#endif
#if defined(ENABLE_OVERLOADING)
StageFullscreenSetPropertyInfo ,
#endif
getStageFullscreenSet ,
#if defined(ENABLE_OVERLOADING)
stageFullscreenSet ,
#endif
#if defined(ENABLE_OVERLOADING)
StageKeyFocusPropertyInfo ,
#endif
clearStageKeyFocus ,
constructStageKeyFocus ,
getStageKeyFocus ,
setStageKeyFocus ,
#if defined(ENABLE_OVERLOADING)
stageKeyFocus ,
#endif
#if defined(ENABLE_OVERLOADING)
StageNoClearHintPropertyInfo ,
#endif
constructStageNoClearHint ,
getStageNoClearHint ,
setStageNoClearHint ,
#if defined(ENABLE_OVERLOADING)
stageNoClearHint ,
#endif
#if defined(ENABLE_OVERLOADING)
StageOffscreenPropertyInfo ,
#endif
constructStageOffscreen ,
getStageOffscreen ,
setStageOffscreen ,
#if defined(ENABLE_OVERLOADING)
stageOffscreen ,
#endif
#if defined(ENABLE_OVERLOADING)
StagePerspectivePropertyInfo ,
#endif
constructStagePerspective ,
getStagePerspective ,
setStagePerspective ,
#if defined(ENABLE_OVERLOADING)
stagePerspective ,
#endif
#if defined(ENABLE_OVERLOADING)
StageTitlePropertyInfo ,
#endif
constructStageTitle ,
getStageTitle ,
setStageTitle ,
#if defined(ENABLE_OVERLOADING)
stageTitle ,
#endif
#if defined(ENABLE_OVERLOADING)
StageUseAlphaPropertyInfo ,
#endif
constructStageUseAlpha ,
getStageUseAlpha ,
setStageUseAlpha ,
#if defined(ENABLE_OVERLOADING)
stageUseAlpha ,
#endif
#if defined(ENABLE_OVERLOADING)
StageUseFogPropertyInfo ,
#endif
constructStageUseFog ,
getStageUseFog ,
setStageUseFog ,
#if defined(ENABLE_OVERLOADING)
stageUseFog ,
#endif
#if defined(ENABLE_OVERLOADING)
StageUserResizablePropertyInfo ,
#endif
constructStageUserResizable ,
getStageUserResizable ,
setStageUserResizable ,
#if defined(ENABLE_OVERLOADING)
stageUserResizable ,
#endif
StageActivateCallback ,
#if defined(ENABLE_OVERLOADING)
StageActivateSignalInfo ,
#endif
afterStageActivate ,
onStageActivate ,
StageAfterPaintCallback ,
#if defined(ENABLE_OVERLOADING)
StageAfterPaintSignalInfo ,
#endif
afterStageAfterPaint ,
onStageAfterPaint ,
StageDeactivateCallback ,
#if defined(ENABLE_OVERLOADING)
StageDeactivateSignalInfo ,
#endif
afterStageDeactivate ,
onStageDeactivate ,
StageDeleteEventCallback ,
#if defined(ENABLE_OVERLOADING)
StageDeleteEventSignalInfo ,
#endif
afterStageDeleteEvent ,
onStageDeleteEvent ,
StageFullscreenCallback ,
#if defined(ENABLE_OVERLOADING)
StageFullscreenSignalInfo ,
#endif
afterStageFullscreen ,
onStageFullscreen ,
StageUnfullscreenCallback ,
#if defined(ENABLE_OVERLOADING)
StageUnfullscreenSignalInfo ,
#endif
afterStageUnfullscreen ,
onStageUnfullscreen ,
) 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.Kind as DK
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 qualified GI.Cairo.Structs.RectangleInt as Cairo.RectangleInt
import {-# SOURCE #-} qualified GI.Clutter.Enums as Clutter.Enums
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.Group as Clutter.Group
import {-# SOURCE #-} qualified GI.Clutter.Structs.Color as Clutter.Color
import {-# SOURCE #-} qualified GI.Clutter.Structs.Fog as Clutter.Fog
import {-# SOURCE #-} qualified GI.Clutter.Structs.Perspective as Clutter.Perspective
import {-# SOURCE #-} qualified GI.Clutter.Unions.Event as Clutter.Event
import qualified GI.GObject.Objects.Object as GObject.Object
newtype Stage = Stage (SP.ManagedPtr Stage)
deriving (Stage -> Stage -> Bool
(Stage -> Stage -> Bool) -> (Stage -> Stage -> Bool) -> Eq Stage
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Stage -> Stage -> Bool
== :: Stage -> Stage -> Bool
$c/= :: Stage -> Stage -> Bool
/= :: Stage -> Stage -> Bool
Eq)
instance SP.ManagedPtrNewtype Stage where
toManagedPtr :: Stage -> ManagedPtr Stage
toManagedPtr (Stage ManagedPtr Stage
p) = ManagedPtr Stage
p
foreign import ccall "clutter_stage_get_type"
c_clutter_stage_get_type :: IO B.Types.GType
instance B.Types.TypedObject Stage where
glibType :: IO GType
glibType = IO GType
c_clutter_stage_get_type
instance B.Types.GObject Stage
class (SP.GObject o, O.IsDescendantOf Stage o) => IsStage o
instance (SP.GObject o, O.IsDescendantOf Stage o) => IsStage o
instance O.HasParentTypes Stage
type instance O.ParentTypes Stage = '[Clutter.Group.Group, Clutter.Actor.Actor, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Clutter.Animatable.Animatable, Clutter.Container.Container, Clutter.Scriptable.Scriptable]
toStage :: (MIO.MonadIO m, IsStage o) => o -> m Stage
toStage :: forall (m :: * -> *) o. (MonadIO m, IsStage o) => o -> m Stage
toStage = IO Stage -> m Stage
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Stage -> m Stage) -> (o -> IO Stage) -> o -> m Stage
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Stage -> Stage) -> o -> IO Stage
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Stage -> Stage
Stage
instance B.GValue.IsGValue (Maybe Stage) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_clutter_stage_get_type
gvalueSet_ :: Ptr GValue -> Maybe Stage -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Stage
P.Nothing = Ptr GValue -> Ptr Stage -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Stage
forall a. Ptr a
FP.nullPtr :: FP.Ptr Stage)
gvalueSet_ Ptr GValue
gv (P.Just Stage
obj) = Stage -> (Ptr Stage -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Stage
obj (Ptr GValue -> Ptr Stage -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Stage)
gvalueGet_ Ptr GValue
gv = do
Ptr Stage
ptr <- Ptr GValue -> IO (Ptr Stage)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Stage)
if Ptr Stage
ptr Ptr Stage -> Ptr Stage -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Stage
forall a. Ptr a
FP.nullPtr
then Stage -> Maybe Stage
forall a. a -> Maybe a
P.Just (Stage -> Maybe Stage) -> IO Stage -> IO (Maybe Stage)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Stage -> Stage) -> Ptr Stage -> IO Stage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Stage -> Stage
Stage Ptr Stage
ptr
else Maybe Stage -> IO (Maybe Stage)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Stage
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveStageMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveStageMethod "addAction" o = Clutter.Actor.ActorAddActionMethodInfo
ResolveStageMethod "addActionWithName" o = Clutter.Actor.ActorAddActionWithNameMethodInfo
ResolveStageMethod "addActor" o = Clutter.Container.ContainerAddActorMethodInfo
ResolveStageMethod "addChild" o = Clutter.Actor.ActorAddChildMethodInfo
ResolveStageMethod "addConstraint" o = Clutter.Actor.ActorAddConstraintMethodInfo
ResolveStageMethod "addConstraintWithName" o = Clutter.Actor.ActorAddConstraintWithNameMethodInfo
ResolveStageMethod "addEffect" o = Clutter.Actor.ActorAddEffectMethodInfo
ResolveStageMethod "addEffectWithName" o = Clutter.Actor.ActorAddEffectWithNameMethodInfo
ResolveStageMethod "addTransition" o = Clutter.Actor.ActorAddTransitionMethodInfo
ResolveStageMethod "allocate" o = Clutter.Actor.ActorAllocateMethodInfo
ResolveStageMethod "allocateAlignFill" o = Clutter.Actor.ActorAllocateAlignFillMethodInfo
ResolveStageMethod "allocateAvailableSize" o = Clutter.Actor.ActorAllocateAvailableSizeMethodInfo
ResolveStageMethod "allocatePreferredSize" o = Clutter.Actor.ActorAllocatePreferredSizeMethodInfo
ResolveStageMethod "animateProperty" o = Clutter.Animatable.AnimatableAnimatePropertyMethodInfo
ResolveStageMethod "animateWithAlphav" o = Clutter.Actor.ActorAnimateWithAlphavMethodInfo
ResolveStageMethod "animateWithTimelinev" o = Clutter.Actor.ActorAnimateWithTimelinevMethodInfo
ResolveStageMethod "animatev" o = Clutter.Actor.ActorAnimatevMethodInfo
ResolveStageMethod "applyRelativeTransformToPoint" o = Clutter.Actor.ActorApplyRelativeTransformToPointMethodInfo
ResolveStageMethod "applyTransformToPoint" o = Clutter.Actor.ActorApplyTransformToPointMethodInfo
ResolveStageMethod "bindModel" o = Clutter.Actor.ActorBindModelMethodInfo
ResolveStageMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveStageMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveStageMethod "childGetProperty" o = Clutter.Container.ContainerChildGetPropertyMethodInfo
ResolveStageMethod "childNotify" o = Clutter.Container.ContainerChildNotifyMethodInfo
ResolveStageMethod "childSetProperty" o = Clutter.Container.ContainerChildSetPropertyMethodInfo
ResolveStageMethod "clearActions" o = Clutter.Actor.ActorClearActionsMethodInfo
ResolveStageMethod "clearConstraints" o = Clutter.Actor.ActorClearConstraintsMethodInfo
ResolveStageMethod "clearEffects" o = Clutter.Actor.ActorClearEffectsMethodInfo
ResolveStageMethod "contains" o = Clutter.Actor.ActorContainsMethodInfo
ResolveStageMethod "continuePaint" o = Clutter.Actor.ActorContinuePaintMethodInfo
ResolveStageMethod "createChildMeta" o = Clutter.Container.ContainerCreateChildMetaMethodInfo
ResolveStageMethod "createPangoContext" o = Clutter.Actor.ActorCreatePangoContextMethodInfo
ResolveStageMethod "createPangoLayout" o = Clutter.Actor.ActorCreatePangoLayoutMethodInfo
ResolveStageMethod "destroy" o = Clutter.Actor.ActorDestroyMethodInfo
ResolveStageMethod "destroyAllChildren" o = Clutter.Actor.ActorDestroyAllChildrenMethodInfo
ResolveStageMethod "destroyChildMeta" o = Clutter.Container.ContainerDestroyChildMetaMethodInfo
ResolveStageMethod "detachAnimation" o = Clutter.Actor.ActorDetachAnimationMethodInfo
ResolveStageMethod "ensureCurrent" o = StageEnsureCurrentMethodInfo
ResolveStageMethod "ensureRedraw" o = StageEnsureRedrawMethodInfo
ResolveStageMethod "ensureViewport" o = StageEnsureViewportMethodInfo
ResolveStageMethod "event" o = StageEventMethodInfo
ResolveStageMethod "findChildByName" o = Clutter.Container.ContainerFindChildByNameMethodInfo
ResolveStageMethod "findProperty" o = Clutter.Animatable.AnimatableFindPropertyMethodInfo
ResolveStageMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveStageMethod "foreach" o = Clutter.Container.ContainerForeachMethodInfo
ResolveStageMethod "foreachWithInternals" o = Clutter.Container.ContainerForeachWithInternalsMethodInfo
ResolveStageMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveStageMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveStageMethod "grabKeyFocus" o = Clutter.Actor.ActorGrabKeyFocusMethodInfo
ResolveStageMethod "hasActions" o = Clutter.Actor.ActorHasActionsMethodInfo
ResolveStageMethod "hasAllocation" o = Clutter.Actor.ActorHasAllocationMethodInfo
ResolveStageMethod "hasClip" o = Clutter.Actor.ActorHasClipMethodInfo
ResolveStageMethod "hasConstraints" o = Clutter.Actor.ActorHasConstraintsMethodInfo
ResolveStageMethod "hasEffects" o = Clutter.Actor.ActorHasEffectsMethodInfo
ResolveStageMethod "hasKeyFocus" o = Clutter.Actor.ActorHasKeyFocusMethodInfo
ResolveStageMethod "hasOverlaps" o = Clutter.Actor.ActorHasOverlapsMethodInfo
ResolveStageMethod "hasPointer" o = Clutter.Actor.ActorHasPointerMethodInfo
ResolveStageMethod "hide" o = Clutter.Actor.ActorHideMethodInfo
ResolveStageMethod "hideAll" o = Clutter.Actor.ActorHideAllMethodInfo
ResolveStageMethod "hideCursor" o = StageHideCursorMethodInfo
ResolveStageMethod "insertChildAbove" o = Clutter.Actor.ActorInsertChildAboveMethodInfo
ResolveStageMethod "insertChildAtIndex" o = Clutter.Actor.ActorInsertChildAtIndexMethodInfo
ResolveStageMethod "insertChildBelow" o = Clutter.Actor.ActorInsertChildBelowMethodInfo
ResolveStageMethod "interpolateValue" o = Clutter.Animatable.AnimatableInterpolateValueMethodInfo
ResolveStageMethod "isDefault" o = StageIsDefaultMethodInfo
ResolveStageMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveStageMethod "isInClonePaint" o = Clutter.Actor.ActorIsInClonePaintMethodInfo
ResolveStageMethod "isMapped" o = Clutter.Actor.ActorIsMappedMethodInfo
ResolveStageMethod "isRealized" o = Clutter.Actor.ActorIsRealizedMethodInfo
ResolveStageMethod "isRotated" o = Clutter.Actor.ActorIsRotatedMethodInfo
ResolveStageMethod "isScaled" o = Clutter.Actor.ActorIsScaledMethodInfo
ResolveStageMethod "isVisible" o = Clutter.Actor.ActorIsVisibleMethodInfo
ResolveStageMethod "lower" o = Clutter.Actor.ActorLowerMethodInfo
ResolveStageMethod "lowerBottom" o = Clutter.Actor.ActorLowerBottomMethodInfo
ResolveStageMethod "lowerChild" o = Clutter.Container.ContainerLowerChildMethodInfo
ResolveStageMethod "map" o = Clutter.Actor.ActorMapMethodInfo
ResolveStageMethod "moveAnchorPoint" o = Clutter.Actor.ActorMoveAnchorPointMethodInfo
ResolveStageMethod "moveAnchorPointFromGravity" o = Clutter.Actor.ActorMoveAnchorPointFromGravityMethodInfo
ResolveStageMethod "moveBy" o = Clutter.Actor.ActorMoveByMethodInfo
ResolveStageMethod "needsExpand" o = Clutter.Actor.ActorNeedsExpandMethodInfo
ResolveStageMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveStageMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveStageMethod "paint" o = Clutter.Actor.ActorPaintMethodInfo
ResolveStageMethod "parseCustomNode" o = Clutter.Scriptable.ScriptableParseCustomNodeMethodInfo
ResolveStageMethod "popInternal" o = Clutter.Actor.ActorPopInternalMethodInfo
ResolveStageMethod "pushInternal" o = Clutter.Actor.ActorPushInternalMethodInfo
ResolveStageMethod "queueRedraw" o = StageQueueRedrawMethodInfo
ResolveStageMethod "queueRedrawWithClip" o = Clutter.Actor.ActorQueueRedrawWithClipMethodInfo
ResolveStageMethod "queueRelayout" o = Clutter.Actor.ActorQueueRelayoutMethodInfo
ResolveStageMethod "raise" o = Clutter.Actor.ActorRaiseMethodInfo
ResolveStageMethod "raiseChild" o = Clutter.Container.ContainerRaiseChildMethodInfo
ResolveStageMethod "raiseTop" o = Clutter.Actor.ActorRaiseTopMethodInfo
ResolveStageMethod "readPixels" o = StageReadPixelsMethodInfo
ResolveStageMethod "realize" o = Clutter.Actor.ActorRealizeMethodInfo
ResolveStageMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveStageMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveStageMethod "removeAction" o = Clutter.Actor.ActorRemoveActionMethodInfo
ResolveStageMethod "removeActionByName" o = Clutter.Actor.ActorRemoveActionByNameMethodInfo
ResolveStageMethod "removeActor" o = Clutter.Container.ContainerRemoveActorMethodInfo
ResolveStageMethod "removeAll" o = Clutter.Group.GroupRemoveAllMethodInfo
ResolveStageMethod "removeAllChildren" o = Clutter.Actor.ActorRemoveAllChildrenMethodInfo
ResolveStageMethod "removeAllTransitions" o = Clutter.Actor.ActorRemoveAllTransitionsMethodInfo
ResolveStageMethod "removeChild" o = Clutter.Actor.ActorRemoveChildMethodInfo
ResolveStageMethod "removeClip" o = Clutter.Actor.ActorRemoveClipMethodInfo
ResolveStageMethod "removeConstraint" o = Clutter.Actor.ActorRemoveConstraintMethodInfo
ResolveStageMethod "removeConstraintByName" o = Clutter.Actor.ActorRemoveConstraintByNameMethodInfo
ResolveStageMethod "removeEffect" o = Clutter.Actor.ActorRemoveEffectMethodInfo
ResolveStageMethod "removeEffectByName" o = Clutter.Actor.ActorRemoveEffectByNameMethodInfo
ResolveStageMethod "removeTransition" o = Clutter.Actor.ActorRemoveTransitionMethodInfo
ResolveStageMethod "reparent" o = Clutter.Actor.ActorReparentMethodInfo
ResolveStageMethod "replaceChild" o = Clutter.Actor.ActorReplaceChildMethodInfo
ResolveStageMethod "restoreEasingState" o = Clutter.Actor.ActorRestoreEasingStateMethodInfo
ResolveStageMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveStageMethod "saveEasingState" o = Clutter.Actor.ActorSaveEasingStateMethodInfo
ResolveStageMethod "shouldPickPaint" o = Clutter.Actor.ActorShouldPickPaintMethodInfo
ResolveStageMethod "show" o = Clutter.Actor.ActorShowMethodInfo
ResolveStageMethod "showAll" o = Clutter.Actor.ActorShowAllMethodInfo
ResolveStageMethod "showCursor" o = StageShowCursorMethodInfo
ResolveStageMethod "sortDepthOrder" o = Clutter.Container.ContainerSortDepthOrderMethodInfo
ResolveStageMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveStageMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveStageMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveStageMethod "transformStagePoint" o = Clutter.Actor.ActorTransformStagePointMethodInfo
ResolveStageMethod "unmap" o = Clutter.Actor.ActorUnmapMethodInfo
ResolveStageMethod "unparent" o = Clutter.Actor.ActorUnparentMethodInfo
ResolveStageMethod "unrealize" o = Clutter.Actor.ActorUnrealizeMethodInfo
ResolveStageMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveStageMethod "unsetFlags" o = Clutter.Actor.ActorUnsetFlagsMethodInfo
ResolveStageMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveStageMethod "getAbsAllocationVertices" o = Clutter.Actor.ActorGetAbsAllocationVerticesMethodInfo
ResolveStageMethod "getAcceptFocus" o = StageGetAcceptFocusMethodInfo
ResolveStageMethod "getAccessible" o = Clutter.Actor.ActorGetAccessibleMethodInfo
ResolveStageMethod "getAction" o = Clutter.Actor.ActorGetActionMethodInfo
ResolveStageMethod "getActions" o = Clutter.Actor.ActorGetActionsMethodInfo
ResolveStageMethod "getActorAtPos" o = StageGetActorAtPosMethodInfo
ResolveStageMethod "getAllocationBox" o = Clutter.Actor.ActorGetAllocationBoxMethodInfo
ResolveStageMethod "getAllocationGeometry" o = Clutter.Actor.ActorGetAllocationGeometryMethodInfo
ResolveStageMethod "getAllocationVertices" o = Clutter.Actor.ActorGetAllocationVerticesMethodInfo
ResolveStageMethod "getAnchorPoint" o = Clutter.Actor.ActorGetAnchorPointMethodInfo
ResolveStageMethod "getAnchorPointGravity" o = Clutter.Actor.ActorGetAnchorPointGravityMethodInfo
ResolveStageMethod "getAnimation" o = Clutter.Actor.ActorGetAnimationMethodInfo
ResolveStageMethod "getBackgroundColor" o = Clutter.Actor.ActorGetBackgroundColorMethodInfo
ResolveStageMethod "getChildAtIndex" o = Clutter.Actor.ActorGetChildAtIndexMethodInfo
ResolveStageMethod "getChildMeta" o = Clutter.Container.ContainerGetChildMetaMethodInfo
ResolveStageMethod "getChildTransform" o = Clutter.Actor.ActorGetChildTransformMethodInfo
ResolveStageMethod "getChildren" o = Clutter.Actor.ActorGetChildrenMethodInfo
ResolveStageMethod "getClip" o = Clutter.Actor.ActorGetClipMethodInfo
ResolveStageMethod "getClipToAllocation" o = Clutter.Actor.ActorGetClipToAllocationMethodInfo
ResolveStageMethod "getColor" o = StageGetColorMethodInfo
ResolveStageMethod "getConstraint" o = Clutter.Actor.ActorGetConstraintMethodInfo
ResolveStageMethod "getConstraints" o = Clutter.Actor.ActorGetConstraintsMethodInfo
ResolveStageMethod "getContent" o = Clutter.Actor.ActorGetContentMethodInfo
ResolveStageMethod "getContentBox" o = Clutter.Actor.ActorGetContentBoxMethodInfo
ResolveStageMethod "getContentGravity" o = Clutter.Actor.ActorGetContentGravityMethodInfo
ResolveStageMethod "getContentRepeat" o = Clutter.Actor.ActorGetContentRepeatMethodInfo
ResolveStageMethod "getContentScalingFilters" o = Clutter.Actor.ActorGetContentScalingFiltersMethodInfo
ResolveStageMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveStageMethod "getDefaultPaintVolume" o = Clutter.Actor.ActorGetDefaultPaintVolumeMethodInfo
ResolveStageMethod "getDepth" o = Clutter.Actor.ActorGetDepthMethodInfo
ResolveStageMethod "getEasingDelay" o = Clutter.Actor.ActorGetEasingDelayMethodInfo
ResolveStageMethod "getEasingDuration" o = Clutter.Actor.ActorGetEasingDurationMethodInfo
ResolveStageMethod "getEasingMode" o = Clutter.Actor.ActorGetEasingModeMethodInfo
ResolveStageMethod "getEffect" o = Clutter.Actor.ActorGetEffectMethodInfo
ResolveStageMethod "getEffects" o = Clutter.Actor.ActorGetEffectsMethodInfo
ResolveStageMethod "getFirstChild" o = Clutter.Actor.ActorGetFirstChildMethodInfo
ResolveStageMethod "getFixedPositionSet" o = Clutter.Actor.ActorGetFixedPositionSetMethodInfo
ResolveStageMethod "getFlags" o = Clutter.Actor.ActorGetFlagsMethodInfo
ResolveStageMethod "getFog" o = StageGetFogMethodInfo
ResolveStageMethod "getFullscreen" o = StageGetFullscreenMethodInfo
ResolveStageMethod "getGeometry" o = Clutter.Actor.ActorGetGeometryMethodInfo
ResolveStageMethod "getGid" o = Clutter.Actor.ActorGetGidMethodInfo
ResolveStageMethod "getHeight" o = Clutter.Actor.ActorGetHeightMethodInfo
ResolveStageMethod "getId" o = Clutter.Scriptable.ScriptableGetIdMethodInfo
ResolveStageMethod "getInitialState" o = Clutter.Animatable.AnimatableGetInitialStateMethodInfo
ResolveStageMethod "getKeyFocus" o = StageGetKeyFocusMethodInfo
ResolveStageMethod "getLastChild" o = Clutter.Actor.ActorGetLastChildMethodInfo
ResolveStageMethod "getLayoutManager" o = Clutter.Actor.ActorGetLayoutManagerMethodInfo
ResolveStageMethod "getMargin" o = Clutter.Actor.ActorGetMarginMethodInfo
ResolveStageMethod "getMarginBottom" o = Clutter.Actor.ActorGetMarginBottomMethodInfo
ResolveStageMethod "getMarginLeft" o = Clutter.Actor.ActorGetMarginLeftMethodInfo
ResolveStageMethod "getMarginRight" o = Clutter.Actor.ActorGetMarginRightMethodInfo
ResolveStageMethod "getMarginTop" o = Clutter.Actor.ActorGetMarginTopMethodInfo
ResolveStageMethod "getMinimumSize" o = StageGetMinimumSizeMethodInfo
ResolveStageMethod "getMotionEventsEnabled" o = StageGetMotionEventsEnabledMethodInfo
ResolveStageMethod "getNChildren" o = Clutter.Group.GroupGetNChildrenMethodInfo
ResolveStageMethod "getName" o = Clutter.Actor.ActorGetNameMethodInfo
ResolveStageMethod "getNextSibling" o = Clutter.Actor.ActorGetNextSiblingMethodInfo
ResolveStageMethod "getNoClearHint" o = StageGetNoClearHintMethodInfo
ResolveStageMethod "getNthChild" o = Clutter.Group.GroupGetNthChildMethodInfo
ResolveStageMethod "getOffscreenRedirect" o = Clutter.Actor.ActorGetOffscreenRedirectMethodInfo
ResolveStageMethod "getOpacity" o = Clutter.Actor.ActorGetOpacityMethodInfo
ResolveStageMethod "getPaintBox" o = Clutter.Actor.ActorGetPaintBoxMethodInfo
ResolveStageMethod "getPaintOpacity" o = Clutter.Actor.ActorGetPaintOpacityMethodInfo
ResolveStageMethod "getPaintVisibility" o = Clutter.Actor.ActorGetPaintVisibilityMethodInfo
ResolveStageMethod "getPaintVolume" o = Clutter.Actor.ActorGetPaintVolumeMethodInfo
ResolveStageMethod "getPangoContext" o = Clutter.Actor.ActorGetPangoContextMethodInfo
ResolveStageMethod "getParent" o = Clutter.Actor.ActorGetParentMethodInfo
ResolveStageMethod "getPerspective" o = StageGetPerspectiveMethodInfo
ResolveStageMethod "getPivotPoint" o = Clutter.Actor.ActorGetPivotPointMethodInfo
ResolveStageMethod "getPivotPointZ" o = Clutter.Actor.ActorGetPivotPointZMethodInfo
ResolveStageMethod "getPosition" o = Clutter.Actor.ActorGetPositionMethodInfo
ResolveStageMethod "getPreferredHeight" o = Clutter.Actor.ActorGetPreferredHeightMethodInfo
ResolveStageMethod "getPreferredSize" o = Clutter.Actor.ActorGetPreferredSizeMethodInfo
ResolveStageMethod "getPreferredWidth" o = Clutter.Actor.ActorGetPreferredWidthMethodInfo
ResolveStageMethod "getPreviousSibling" o = Clutter.Actor.ActorGetPreviousSiblingMethodInfo
ResolveStageMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveStageMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveStageMethod "getReactive" o = Clutter.Actor.ActorGetReactiveMethodInfo
ResolveStageMethod "getRedrawClipBounds" o = StageGetRedrawClipBoundsMethodInfo
ResolveStageMethod "getRequestMode" o = Clutter.Actor.ActorGetRequestModeMethodInfo
ResolveStageMethod "getRotation" o = Clutter.Actor.ActorGetRotationMethodInfo
ResolveStageMethod "getRotationAngle" o = Clutter.Actor.ActorGetRotationAngleMethodInfo
ResolveStageMethod "getScale" o = Clutter.Actor.ActorGetScaleMethodInfo
ResolveStageMethod "getScaleCenter" o = Clutter.Actor.ActorGetScaleCenterMethodInfo
ResolveStageMethod "getScaleGravity" o = Clutter.Actor.ActorGetScaleGravityMethodInfo
ResolveStageMethod "getScaleZ" o = Clutter.Actor.ActorGetScaleZMethodInfo
ResolveStageMethod "getShader" o = Clutter.Actor.ActorGetShaderMethodInfo
ResolveStageMethod "getSize" o = Clutter.Actor.ActorGetSizeMethodInfo
ResolveStageMethod "getStage" o = Clutter.Actor.ActorGetStageMethodInfo
ResolveStageMethod "getTextDirection" o = Clutter.Actor.ActorGetTextDirectionMethodInfo
ResolveStageMethod "getThrottleMotionEvents" o = StageGetThrottleMotionEventsMethodInfo
ResolveStageMethod "getTitle" o = StageGetTitleMethodInfo
ResolveStageMethod "getTransform" o = Clutter.Actor.ActorGetTransformMethodInfo
ResolveStageMethod "getTransformationMatrix" o = Clutter.Actor.ActorGetTransformationMatrixMethodInfo
ResolveStageMethod "getTransformedPaintVolume" o = Clutter.Actor.ActorGetTransformedPaintVolumeMethodInfo
ResolveStageMethod "getTransformedPosition" o = Clutter.Actor.ActorGetTransformedPositionMethodInfo
ResolveStageMethod "getTransformedSize" o = Clutter.Actor.ActorGetTransformedSizeMethodInfo
ResolveStageMethod "getTransition" o = Clutter.Actor.ActorGetTransitionMethodInfo
ResolveStageMethod "getTranslation" o = Clutter.Actor.ActorGetTranslationMethodInfo
ResolveStageMethod "getUseAlpha" o = StageGetUseAlphaMethodInfo
ResolveStageMethod "getUseFog" o = StageGetUseFogMethodInfo
ResolveStageMethod "getUserResizable" o = StageGetUserResizableMethodInfo
ResolveStageMethod "getWidth" o = Clutter.Actor.ActorGetWidthMethodInfo
ResolveStageMethod "getX" o = Clutter.Actor.ActorGetXMethodInfo
ResolveStageMethod "getXAlign" o = Clutter.Actor.ActorGetXAlignMethodInfo
ResolveStageMethod "getXExpand" o = Clutter.Actor.ActorGetXExpandMethodInfo
ResolveStageMethod "getY" o = Clutter.Actor.ActorGetYMethodInfo
ResolveStageMethod "getYAlign" o = Clutter.Actor.ActorGetYAlignMethodInfo
ResolveStageMethod "getYExpand" o = Clutter.Actor.ActorGetYExpandMethodInfo
ResolveStageMethod "getZPosition" o = Clutter.Actor.ActorGetZPositionMethodInfo
ResolveStageMethod "getZRotationGravity" o = Clutter.Actor.ActorGetZRotationGravityMethodInfo
ResolveStageMethod "setAcceptFocus" o = StageSetAcceptFocusMethodInfo
ResolveStageMethod "setAllocation" o = Clutter.Actor.ActorSetAllocationMethodInfo
ResolveStageMethod "setAnchorPoint" o = Clutter.Actor.ActorSetAnchorPointMethodInfo
ResolveStageMethod "setAnchorPointFromGravity" o = Clutter.Actor.ActorSetAnchorPointFromGravityMethodInfo
ResolveStageMethod "setBackgroundColor" o = Clutter.Actor.ActorSetBackgroundColorMethodInfo
ResolveStageMethod "setChildAboveSibling" o = Clutter.Actor.ActorSetChildAboveSiblingMethodInfo
ResolveStageMethod "setChildAtIndex" o = Clutter.Actor.ActorSetChildAtIndexMethodInfo
ResolveStageMethod "setChildBelowSibling" o = Clutter.Actor.ActorSetChildBelowSiblingMethodInfo
ResolveStageMethod "setChildTransform" o = Clutter.Actor.ActorSetChildTransformMethodInfo
ResolveStageMethod "setClip" o = Clutter.Actor.ActorSetClipMethodInfo
ResolveStageMethod "setClipToAllocation" o = Clutter.Actor.ActorSetClipToAllocationMethodInfo
ResolveStageMethod "setColor" o = StageSetColorMethodInfo
ResolveStageMethod "setContent" o = Clutter.Actor.ActorSetContentMethodInfo
ResolveStageMethod "setContentGravity" o = Clutter.Actor.ActorSetContentGravityMethodInfo
ResolveStageMethod "setContentRepeat" o = Clutter.Actor.ActorSetContentRepeatMethodInfo
ResolveStageMethod "setContentScalingFilters" o = Clutter.Actor.ActorSetContentScalingFiltersMethodInfo
ResolveStageMethod "setCustomProperty" o = Clutter.Scriptable.ScriptableSetCustomPropertyMethodInfo
ResolveStageMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveStageMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveStageMethod "setDepth" o = Clutter.Actor.ActorSetDepthMethodInfo
ResolveStageMethod "setEasingDelay" o = Clutter.Actor.ActorSetEasingDelayMethodInfo
ResolveStageMethod "setEasingDuration" o = Clutter.Actor.ActorSetEasingDurationMethodInfo
ResolveStageMethod "setEasingMode" o = Clutter.Actor.ActorSetEasingModeMethodInfo
ResolveStageMethod "setFinalState" o = Clutter.Animatable.AnimatableSetFinalStateMethodInfo
ResolveStageMethod "setFixedPositionSet" o = Clutter.Actor.ActorSetFixedPositionSetMethodInfo
ResolveStageMethod "setFlags" o = Clutter.Actor.ActorSetFlagsMethodInfo
ResolveStageMethod "setFog" o = StageSetFogMethodInfo
ResolveStageMethod "setFullscreen" o = StageSetFullscreenMethodInfo
ResolveStageMethod "setGeometry" o = Clutter.Actor.ActorSetGeometryMethodInfo
ResolveStageMethod "setHeight" o = Clutter.Actor.ActorSetHeightMethodInfo
ResolveStageMethod "setId" o = Clutter.Scriptable.ScriptableSetIdMethodInfo
ResolveStageMethod "setKeyFocus" o = StageSetKeyFocusMethodInfo
ResolveStageMethod "setLayoutManager" o = Clutter.Actor.ActorSetLayoutManagerMethodInfo
ResolveStageMethod "setMargin" o = Clutter.Actor.ActorSetMarginMethodInfo
ResolveStageMethod "setMarginBottom" o = Clutter.Actor.ActorSetMarginBottomMethodInfo
ResolveStageMethod "setMarginLeft" o = Clutter.Actor.ActorSetMarginLeftMethodInfo
ResolveStageMethod "setMarginRight" o = Clutter.Actor.ActorSetMarginRightMethodInfo
ResolveStageMethod "setMarginTop" o = Clutter.Actor.ActorSetMarginTopMethodInfo
ResolveStageMethod "setMinimumSize" o = StageSetMinimumSizeMethodInfo
ResolveStageMethod "setMotionEventsEnabled" o = StageSetMotionEventsEnabledMethodInfo
ResolveStageMethod "setName" o = Clutter.Actor.ActorSetNameMethodInfo
ResolveStageMethod "setNoClearHint" o = StageSetNoClearHintMethodInfo
ResolveStageMethod "setOffscreenRedirect" o = Clutter.Actor.ActorSetOffscreenRedirectMethodInfo
ResolveStageMethod "setOpacity" o = Clutter.Actor.ActorSetOpacityMethodInfo
ResolveStageMethod "setParent" o = Clutter.Actor.ActorSetParentMethodInfo
ResolveStageMethod "setPerspective" o = StageSetPerspectiveMethodInfo
ResolveStageMethod "setPivotPoint" o = Clutter.Actor.ActorSetPivotPointMethodInfo
ResolveStageMethod "setPivotPointZ" o = Clutter.Actor.ActorSetPivotPointZMethodInfo
ResolveStageMethod "setPosition" o = Clutter.Actor.ActorSetPositionMethodInfo
ResolveStageMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveStageMethod "setReactive" o = Clutter.Actor.ActorSetReactiveMethodInfo
ResolveStageMethod "setRequestMode" o = Clutter.Actor.ActorSetRequestModeMethodInfo
ResolveStageMethod "setRotation" o = Clutter.Actor.ActorSetRotationMethodInfo
ResolveStageMethod "setRotationAngle" o = Clutter.Actor.ActorSetRotationAngleMethodInfo
ResolveStageMethod "setScale" o = Clutter.Actor.ActorSetScaleMethodInfo
ResolveStageMethod "setScaleFull" o = Clutter.Actor.ActorSetScaleFullMethodInfo
ResolveStageMethod "setScaleWithGravity" o = Clutter.Actor.ActorSetScaleWithGravityMethodInfo
ResolveStageMethod "setScaleZ" o = Clutter.Actor.ActorSetScaleZMethodInfo
ResolveStageMethod "setShader" o = Clutter.Actor.ActorSetShaderMethodInfo
ResolveStageMethod "setShaderParam" o = Clutter.Actor.ActorSetShaderParamMethodInfo
ResolveStageMethod "setShaderParamFloat" o = Clutter.Actor.ActorSetShaderParamFloatMethodInfo
ResolveStageMethod "setShaderParamInt" o = Clutter.Actor.ActorSetShaderParamIntMethodInfo
ResolveStageMethod "setSize" o = Clutter.Actor.ActorSetSizeMethodInfo
ResolveStageMethod "setTextDirection" o = Clutter.Actor.ActorSetTextDirectionMethodInfo
ResolveStageMethod "setThrottleMotionEvents" o = StageSetThrottleMotionEventsMethodInfo
ResolveStageMethod "setTitle" o = StageSetTitleMethodInfo
ResolveStageMethod "setTransform" o = Clutter.Actor.ActorSetTransformMethodInfo
ResolveStageMethod "setTranslation" o = Clutter.Actor.ActorSetTranslationMethodInfo
ResolveStageMethod "setUseAlpha" o = StageSetUseAlphaMethodInfo
ResolveStageMethod "setUseFog" o = StageSetUseFogMethodInfo
ResolveStageMethod "setUserResizable" o = StageSetUserResizableMethodInfo
ResolveStageMethod "setWidth" o = Clutter.Actor.ActorSetWidthMethodInfo
ResolveStageMethod "setX" o = Clutter.Actor.ActorSetXMethodInfo
ResolveStageMethod "setXAlign" o = Clutter.Actor.ActorSetXAlignMethodInfo
ResolveStageMethod "setXExpand" o = Clutter.Actor.ActorSetXExpandMethodInfo
ResolveStageMethod "setY" o = Clutter.Actor.ActorSetYMethodInfo
ResolveStageMethod "setYAlign" o = Clutter.Actor.ActorSetYAlignMethodInfo
ResolveStageMethod "setYExpand" o = Clutter.Actor.ActorSetYExpandMethodInfo
ResolveStageMethod "setZPosition" o = Clutter.Actor.ActorSetZPositionMethodInfo
ResolveStageMethod "setZRotationFromGravity" o = Clutter.Actor.ActorSetZRotationFromGravityMethodInfo
ResolveStageMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveStageMethod t Stage, O.OverloadedMethod info Stage p) => OL.IsLabel t (Stage -> 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 ~ ResolveStageMethod t Stage, O.OverloadedMethod info Stage p, R.HasField t Stage p) => R.HasField t Stage p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveStageMethod t Stage, O.OverloadedMethodInfo info Stage) => OL.IsLabel t (O.MethodProxy info Stage) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type StageActivateCallback =
IO ()
type C_StageActivateCallback =
Ptr Stage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_StageActivateCallback :: C_StageActivateCallback -> IO (FunPtr C_StageActivateCallback)
wrap_StageActivateCallback ::
GObject a => (a -> StageActivateCallback) ->
C_StageActivateCallback
wrap_StageActivateCallback :: forall a. GObject a => (a -> IO ()) -> C_StageActivateCallback
wrap_StageActivateCallback a -> IO ()
gi'cb Ptr Stage
gi'selfPtr Ptr ()
_ = do
Ptr Stage -> (Stage -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Stage
gi'selfPtr ((Stage -> IO ()) -> IO ()) -> (Stage -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Stage
gi'self -> a -> IO ()
gi'cb (Stage -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Stage
gi'self)
onStageActivate :: (IsStage a, MonadIO m) => a -> ((?self :: a) => StageActivateCallback) -> m SignalHandlerId
onStageActivate :: forall a (m :: * -> *).
(IsStage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onStageActivate 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_StageActivateCallback
wrapped' = (a -> IO ()) -> C_StageActivateCallback
forall a. GObject a => (a -> IO ()) -> C_StageActivateCallback
wrap_StageActivateCallback a -> IO ()
wrapped
FunPtr C_StageActivateCallback
wrapped'' <- C_StageActivateCallback -> IO (FunPtr C_StageActivateCallback)
mk_StageActivateCallback C_StageActivateCallback
wrapped'
a
-> Text
-> FunPtr C_StageActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate" FunPtr C_StageActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterStageActivate :: (IsStage a, MonadIO m) => a -> ((?self :: a) => StageActivateCallback) -> m SignalHandlerId
afterStageActivate :: forall a (m :: * -> *).
(IsStage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterStageActivate 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_StageActivateCallback
wrapped' = (a -> IO ()) -> C_StageActivateCallback
forall a. GObject a => (a -> IO ()) -> C_StageActivateCallback
wrap_StageActivateCallback a -> IO ()
wrapped
FunPtr C_StageActivateCallback
wrapped'' <- C_StageActivateCallback -> IO (FunPtr C_StageActivateCallback)
mk_StageActivateCallback C_StageActivateCallback
wrapped'
a
-> Text
-> FunPtr C_StageActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate" FunPtr C_StageActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data StageActivateSignalInfo
instance SignalInfo StageActivateSignalInfo where
type HaskellCallbackType StageActivateSignalInfo = StageActivateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_StageActivateCallback cb
cb'' <- mk_StageActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage::activate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#g:signal:activate"})
#endif
type StageAfterPaintCallback =
IO ()
type C_StageAfterPaintCallback =
Ptr Stage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_StageAfterPaintCallback :: C_StageAfterPaintCallback -> IO (FunPtr C_StageAfterPaintCallback)
wrap_StageAfterPaintCallback ::
GObject a => (a -> StageAfterPaintCallback) ->
C_StageAfterPaintCallback
wrap_StageAfterPaintCallback :: forall a. GObject a => (a -> IO ()) -> C_StageActivateCallback
wrap_StageAfterPaintCallback a -> IO ()
gi'cb Ptr Stage
gi'selfPtr Ptr ()
_ = do
Ptr Stage -> (Stage -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Stage
gi'selfPtr ((Stage -> IO ()) -> IO ()) -> (Stage -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Stage
gi'self -> a -> IO ()
gi'cb (Stage -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Stage
gi'self)
onStageAfterPaint :: (IsStage a, MonadIO m) => a -> ((?self :: a) => StageAfterPaintCallback) -> m SignalHandlerId
onStageAfterPaint :: forall a (m :: * -> *).
(IsStage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onStageAfterPaint 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_StageActivateCallback
wrapped' = (a -> IO ()) -> C_StageActivateCallback
forall a. GObject a => (a -> IO ()) -> C_StageActivateCallback
wrap_StageAfterPaintCallback a -> IO ()
wrapped
FunPtr C_StageActivateCallback
wrapped'' <- C_StageActivateCallback -> IO (FunPtr C_StageActivateCallback)
mk_StageAfterPaintCallback C_StageActivateCallback
wrapped'
a
-> Text
-> FunPtr C_StageActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"after-paint" FunPtr C_StageActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterStageAfterPaint :: (IsStage a, MonadIO m) => a -> ((?self :: a) => StageAfterPaintCallback) -> m SignalHandlerId
afterStageAfterPaint :: forall a (m :: * -> *).
(IsStage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterStageAfterPaint 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_StageActivateCallback
wrapped' = (a -> IO ()) -> C_StageActivateCallback
forall a. GObject a => (a -> IO ()) -> C_StageActivateCallback
wrap_StageAfterPaintCallback a -> IO ()
wrapped
FunPtr C_StageActivateCallback
wrapped'' <- C_StageActivateCallback -> IO (FunPtr C_StageActivateCallback)
mk_StageAfterPaintCallback C_StageActivateCallback
wrapped'
a
-> Text
-> FunPtr C_StageActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"after-paint" FunPtr C_StageActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data StageAfterPaintSignalInfo
instance SignalInfo StageAfterPaintSignalInfo where
type HaskellCallbackType StageAfterPaintSignalInfo = StageAfterPaintCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_StageAfterPaintCallback cb
cb'' <- mk_StageAfterPaintCallback cb'
connectSignalFunPtr obj "after-paint" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage::after-paint"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#g:signal:afterPaint"})
#endif
type StageDeactivateCallback =
IO ()
type C_StageDeactivateCallback =
Ptr Stage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_StageDeactivateCallback :: C_StageDeactivateCallback -> IO (FunPtr C_StageDeactivateCallback)
wrap_StageDeactivateCallback ::
GObject a => (a -> StageDeactivateCallback) ->
C_StageDeactivateCallback
wrap_StageDeactivateCallback :: forall a. GObject a => (a -> IO ()) -> C_StageActivateCallback
wrap_StageDeactivateCallback a -> IO ()
gi'cb Ptr Stage
gi'selfPtr Ptr ()
_ = do
Ptr Stage -> (Stage -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Stage
gi'selfPtr ((Stage -> IO ()) -> IO ()) -> (Stage -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Stage
gi'self -> a -> IO ()
gi'cb (Stage -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Stage
gi'self)
onStageDeactivate :: (IsStage a, MonadIO m) => a -> ((?self :: a) => StageDeactivateCallback) -> m SignalHandlerId
onStageDeactivate :: forall a (m :: * -> *).
(IsStage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onStageDeactivate 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_StageActivateCallback
wrapped' = (a -> IO ()) -> C_StageActivateCallback
forall a. GObject a => (a -> IO ()) -> C_StageActivateCallback
wrap_StageDeactivateCallback a -> IO ()
wrapped
FunPtr C_StageActivateCallback
wrapped'' <- C_StageActivateCallback -> IO (FunPtr C_StageActivateCallback)
mk_StageDeactivateCallback C_StageActivateCallback
wrapped'
a
-> Text
-> FunPtr C_StageActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"deactivate" FunPtr C_StageActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterStageDeactivate :: (IsStage a, MonadIO m) => a -> ((?self :: a) => StageDeactivateCallback) -> m SignalHandlerId
afterStageDeactivate :: forall a (m :: * -> *).
(IsStage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterStageDeactivate 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_StageActivateCallback
wrapped' = (a -> IO ()) -> C_StageActivateCallback
forall a. GObject a => (a -> IO ()) -> C_StageActivateCallback
wrap_StageDeactivateCallback a -> IO ()
wrapped
FunPtr C_StageActivateCallback
wrapped'' <- C_StageActivateCallback -> IO (FunPtr C_StageActivateCallback)
mk_StageDeactivateCallback C_StageActivateCallback
wrapped'
a
-> Text
-> FunPtr C_StageActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"deactivate" FunPtr C_StageActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data StageDeactivateSignalInfo
instance SignalInfo StageDeactivateSignalInfo where
type HaskellCallbackType StageDeactivateSignalInfo = StageDeactivateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_StageDeactivateCallback cb
cb'' <- mk_StageDeactivateCallback cb'
connectSignalFunPtr obj "deactivate" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage::deactivate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#g:signal:deactivate"})
#endif
type StageDeleteEventCallback =
Clutter.Event.Event
-> IO Bool
type C_StageDeleteEventCallback =
Ptr Stage ->
Ptr Clutter.Event.Event ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_StageDeleteEventCallback :: C_StageDeleteEventCallback -> IO (FunPtr C_StageDeleteEventCallback)
wrap_StageDeleteEventCallback ::
GObject a => (a -> StageDeleteEventCallback) ->
C_StageDeleteEventCallback
wrap_StageDeleteEventCallback :: forall a.
GObject a =>
(a -> StageDeleteEventCallback) -> C_StageDeleteEventCallback
wrap_StageDeleteEventCallback a -> StageDeleteEventCallback
gi'cb Ptr Stage
gi'selfPtr Ptr Event
event Ptr ()
_ = do
Ptr Event -> (Event -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Event
event ((Event -> IO CInt) -> IO CInt) -> (Event -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Event
event' -> do
Bool
result <- Ptr Stage -> (Stage -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Stage
gi'selfPtr ((Stage -> IO Bool) -> IO Bool) -> (Stage -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \Stage
gi'self -> a -> StageDeleteEventCallback
gi'cb (Stage -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Stage
gi'self) Event
event'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onStageDeleteEvent :: (IsStage a, MonadIO m) => a -> ((?self :: a) => StageDeleteEventCallback) -> m SignalHandlerId
onStageDeleteEvent :: forall a (m :: * -> *).
(IsStage a, MonadIO m) =>
a -> ((?self::a) => StageDeleteEventCallback) -> m SignalHandlerId
onStageDeleteEvent a
obj (?self::a) => StageDeleteEventCallback
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 -> StageDeleteEventCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => StageDeleteEventCallback
StageDeleteEventCallback
cb
let wrapped' :: C_StageDeleteEventCallback
wrapped' = (a -> StageDeleteEventCallback) -> C_StageDeleteEventCallback
forall a.
GObject a =>
(a -> StageDeleteEventCallback) -> C_StageDeleteEventCallback
wrap_StageDeleteEventCallback a -> StageDeleteEventCallback
wrapped
FunPtr C_StageDeleteEventCallback
wrapped'' <- C_StageDeleteEventCallback
-> IO (FunPtr C_StageDeleteEventCallback)
mk_StageDeleteEventCallback C_StageDeleteEventCallback
wrapped'
a
-> Text
-> FunPtr C_StageDeleteEventCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"delete-event" FunPtr C_StageDeleteEventCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterStageDeleteEvent :: (IsStage a, MonadIO m) => a -> ((?self :: a) => StageDeleteEventCallback) -> m SignalHandlerId
afterStageDeleteEvent :: forall a (m :: * -> *).
(IsStage a, MonadIO m) =>
a -> ((?self::a) => StageDeleteEventCallback) -> m SignalHandlerId
afterStageDeleteEvent a
obj (?self::a) => StageDeleteEventCallback
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 -> StageDeleteEventCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => StageDeleteEventCallback
StageDeleteEventCallback
cb
let wrapped' :: C_StageDeleteEventCallback
wrapped' = (a -> StageDeleteEventCallback) -> C_StageDeleteEventCallback
forall a.
GObject a =>
(a -> StageDeleteEventCallback) -> C_StageDeleteEventCallback
wrap_StageDeleteEventCallback a -> StageDeleteEventCallback
wrapped
FunPtr C_StageDeleteEventCallback
wrapped'' <- C_StageDeleteEventCallback
-> IO (FunPtr C_StageDeleteEventCallback)
mk_StageDeleteEventCallback C_StageDeleteEventCallback
wrapped'
a
-> Text
-> FunPtr C_StageDeleteEventCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"delete-event" FunPtr C_StageDeleteEventCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data StageDeleteEventSignalInfo
instance SignalInfo StageDeleteEventSignalInfo where
type HaskellCallbackType StageDeleteEventSignalInfo = StageDeleteEventCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_StageDeleteEventCallback cb
cb'' <- mk_StageDeleteEventCallback cb'
connectSignalFunPtr obj "delete-event" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage::delete-event"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#g:signal:deleteEvent"})
#endif
type StageFullscreenCallback =
IO ()
type C_StageFullscreenCallback =
Ptr Stage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_StageFullscreenCallback :: C_StageFullscreenCallback -> IO (FunPtr C_StageFullscreenCallback)
wrap_StageFullscreenCallback ::
GObject a => (a -> StageFullscreenCallback) ->
C_StageFullscreenCallback
wrap_StageFullscreenCallback :: forall a. GObject a => (a -> IO ()) -> C_StageActivateCallback
wrap_StageFullscreenCallback a -> IO ()
gi'cb Ptr Stage
gi'selfPtr Ptr ()
_ = do
Ptr Stage -> (Stage -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Stage
gi'selfPtr ((Stage -> IO ()) -> IO ()) -> (Stage -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Stage
gi'self -> a -> IO ()
gi'cb (Stage -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Stage
gi'self)
onStageFullscreen :: (IsStage a, MonadIO m) => a -> ((?self :: a) => StageFullscreenCallback) -> m SignalHandlerId
onStageFullscreen :: forall a (m :: * -> *).
(IsStage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onStageFullscreen 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_StageActivateCallback
wrapped' = (a -> IO ()) -> C_StageActivateCallback
forall a. GObject a => (a -> IO ()) -> C_StageActivateCallback
wrap_StageFullscreenCallback a -> IO ()
wrapped
FunPtr C_StageActivateCallback
wrapped'' <- C_StageActivateCallback -> IO (FunPtr C_StageActivateCallback)
mk_StageFullscreenCallback C_StageActivateCallback
wrapped'
a
-> Text
-> FunPtr C_StageActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"fullscreen" FunPtr C_StageActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterStageFullscreen :: (IsStage a, MonadIO m) => a -> ((?self :: a) => StageFullscreenCallback) -> m SignalHandlerId
afterStageFullscreen :: forall a (m :: * -> *).
(IsStage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterStageFullscreen 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_StageActivateCallback
wrapped' = (a -> IO ()) -> C_StageActivateCallback
forall a. GObject a => (a -> IO ()) -> C_StageActivateCallback
wrap_StageFullscreenCallback a -> IO ()
wrapped
FunPtr C_StageActivateCallback
wrapped'' <- C_StageActivateCallback -> IO (FunPtr C_StageActivateCallback)
mk_StageFullscreenCallback C_StageActivateCallback
wrapped'
a
-> Text
-> FunPtr C_StageActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"fullscreen" FunPtr C_StageActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data StageFullscreenSignalInfo
instance SignalInfo StageFullscreenSignalInfo where
type HaskellCallbackType StageFullscreenSignalInfo = StageFullscreenCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_StageFullscreenCallback cb
cb'' <- mk_StageFullscreenCallback cb'
connectSignalFunPtr obj "fullscreen" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage::fullscreen"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#g:signal:fullscreen"})
#endif
type StageUnfullscreenCallback =
IO ()
type C_StageUnfullscreenCallback =
Ptr Stage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_StageUnfullscreenCallback :: C_StageUnfullscreenCallback -> IO (FunPtr C_StageUnfullscreenCallback)
wrap_StageUnfullscreenCallback ::
GObject a => (a -> StageUnfullscreenCallback) ->
C_StageUnfullscreenCallback
wrap_StageUnfullscreenCallback :: forall a. GObject a => (a -> IO ()) -> C_StageActivateCallback
wrap_StageUnfullscreenCallback a -> IO ()
gi'cb Ptr Stage
gi'selfPtr Ptr ()
_ = do
Ptr Stage -> (Stage -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Stage
gi'selfPtr ((Stage -> IO ()) -> IO ()) -> (Stage -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Stage
gi'self -> a -> IO ()
gi'cb (Stage -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Stage
gi'self)
onStageUnfullscreen :: (IsStage a, MonadIO m) => a -> ((?self :: a) => StageUnfullscreenCallback) -> m SignalHandlerId
onStageUnfullscreen :: forall a (m :: * -> *).
(IsStage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onStageUnfullscreen 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_StageActivateCallback
wrapped' = (a -> IO ()) -> C_StageActivateCallback
forall a. GObject a => (a -> IO ()) -> C_StageActivateCallback
wrap_StageUnfullscreenCallback a -> IO ()
wrapped
FunPtr C_StageActivateCallback
wrapped'' <- C_StageActivateCallback -> IO (FunPtr C_StageActivateCallback)
mk_StageUnfullscreenCallback C_StageActivateCallback
wrapped'
a
-> Text
-> FunPtr C_StageActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"unfullscreen" FunPtr C_StageActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterStageUnfullscreen :: (IsStage a, MonadIO m) => a -> ((?self :: a) => StageUnfullscreenCallback) -> m SignalHandlerId
afterStageUnfullscreen :: forall a (m :: * -> *).
(IsStage a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterStageUnfullscreen 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_StageActivateCallback
wrapped' = (a -> IO ()) -> C_StageActivateCallback
forall a. GObject a => (a -> IO ()) -> C_StageActivateCallback
wrap_StageUnfullscreenCallback a -> IO ()
wrapped
FunPtr C_StageActivateCallback
wrapped'' <- C_StageActivateCallback -> IO (FunPtr C_StageActivateCallback)
mk_StageUnfullscreenCallback C_StageActivateCallback
wrapped'
a
-> Text
-> FunPtr C_StageActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"unfullscreen" FunPtr C_StageActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data StageUnfullscreenSignalInfo
instance SignalInfo StageUnfullscreenSignalInfo where
type HaskellCallbackType StageUnfullscreenSignalInfo = StageUnfullscreenCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_StageUnfullscreenCallback cb
cb'' <- mk_StageUnfullscreenCallback cb'
connectSignalFunPtr obj "unfullscreen" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage::unfullscreen"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#g:signal:unfullscreen"})
#endif
getStageAcceptFocus :: (MonadIO m, IsStage o) => o -> m Bool
getStageAcceptFocus :: forall (m :: * -> *) o. (MonadIO m, IsStage o) => o -> m Bool
getStageAcceptFocus 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
"accept-focus"
setStageAcceptFocus :: (MonadIO m, IsStage o) => o -> Bool -> m ()
setStageAcceptFocus :: forall (m :: * -> *) o. (MonadIO m, IsStage o) => o -> Bool -> m ()
setStageAcceptFocus 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
"accept-focus" Bool
val
constructStageAcceptFocus :: (IsStage o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStageAcceptFocus :: forall o (m :: * -> *).
(IsStage o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructStageAcceptFocus 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
"accept-focus" Bool
val
#if defined(ENABLE_OVERLOADING)
data StageAcceptFocusPropertyInfo
instance AttrInfo StageAcceptFocusPropertyInfo where
type AttrAllowedOps StageAcceptFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StageAcceptFocusPropertyInfo = IsStage
type AttrSetTypeConstraint StageAcceptFocusPropertyInfo = (~) Bool
type AttrTransferTypeConstraint StageAcceptFocusPropertyInfo = (~) Bool
type AttrTransferType StageAcceptFocusPropertyInfo = Bool
type AttrGetType StageAcceptFocusPropertyInfo = Bool
type AttrLabel StageAcceptFocusPropertyInfo = "accept-focus"
type AttrOrigin StageAcceptFocusPropertyInfo = Stage
attrGet = getStageAcceptFocus
attrSet = setStageAcceptFocus
attrTransfer _ v = do
return v
attrConstruct = constructStageAcceptFocus
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.acceptFocus"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#g:attr:acceptFocus"
})
#endif
getStageColor :: (MonadIO m, IsStage o) => o -> m (Maybe Clutter.Color.Color)
getStageColor :: forall (m :: * -> *) o.
(MonadIO m, IsStage o) =>
o -> m (Maybe Color)
getStageColor 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
setStageColor :: (MonadIO m, IsStage o) => o -> Clutter.Color.Color -> m ()
setStageColor :: forall (m :: * -> *) o.
(MonadIO m, IsStage o) =>
o -> Color -> m ()
setStageColor 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)
constructStageColor :: (IsStage o, MIO.MonadIO m) => Clutter.Color.Color -> m (GValueConstruct o)
constructStageColor :: forall o (m :: * -> *).
(IsStage o, MonadIO m) =>
Color -> m (GValueConstruct o)
constructStageColor 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)
#if defined(ENABLE_OVERLOADING)
data StageColorPropertyInfo
instance AttrInfo StageColorPropertyInfo where
type AttrAllowedOps StageColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StageColorPropertyInfo = IsStage
type AttrSetTypeConstraint StageColorPropertyInfo = (~) Clutter.Color.Color
type AttrTransferTypeConstraint StageColorPropertyInfo = (~) Clutter.Color.Color
type AttrTransferType StageColorPropertyInfo = Clutter.Color.Color
type AttrGetType StageColorPropertyInfo = (Maybe Clutter.Color.Color)
type AttrLabel StageColorPropertyInfo = "color"
type AttrOrigin StageColorPropertyInfo = Stage
attrGet = getStageColor
attrSet = setStageColor
attrTransfer _ v = do
return v
attrConstruct = constructStageColor
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.color"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#g:attr:color"
})
#endif
getStageCursorVisible :: (MonadIO m, IsStage o) => o -> m Bool
getStageCursorVisible :: forall (m :: * -> *) o. (MonadIO m, IsStage o) => o -> m Bool
getStageCursorVisible 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
"cursor-visible"
setStageCursorVisible :: (MonadIO m, IsStage o) => o -> Bool -> m ()
setStageCursorVisible :: forall (m :: * -> *) o. (MonadIO m, IsStage o) => o -> Bool -> m ()
setStageCursorVisible 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
"cursor-visible" Bool
val
constructStageCursorVisible :: (IsStage o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStageCursorVisible :: forall o (m :: * -> *).
(IsStage o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructStageCursorVisible 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
"cursor-visible" Bool
val
#if defined(ENABLE_OVERLOADING)
data StageCursorVisiblePropertyInfo
instance AttrInfo StageCursorVisiblePropertyInfo where
type AttrAllowedOps StageCursorVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StageCursorVisiblePropertyInfo = IsStage
type AttrSetTypeConstraint StageCursorVisiblePropertyInfo = (~) Bool
type AttrTransferTypeConstraint StageCursorVisiblePropertyInfo = (~) Bool
type AttrTransferType StageCursorVisiblePropertyInfo = Bool
type AttrGetType StageCursorVisiblePropertyInfo = Bool
type AttrLabel StageCursorVisiblePropertyInfo = "cursor-visible"
type AttrOrigin StageCursorVisiblePropertyInfo = Stage
attrGet = getStageCursorVisible
attrSet = setStageCursorVisible
attrTransfer _ v = do
return v
attrConstruct = constructStageCursorVisible
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.cursorVisible"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#g:attr:cursorVisible"
})
#endif
getStageFog :: (MonadIO m, IsStage o) => o -> m (Maybe Clutter.Fog.Fog)
getStageFog :: forall (m :: * -> *) o.
(MonadIO m, IsStage o) =>
o -> m (Maybe Fog)
getStageFog o
obj = IO (Maybe Fog) -> m (Maybe Fog)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Fog) -> m (Maybe Fog))
-> IO (Maybe Fog) -> m (Maybe Fog)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Fog -> Fog) -> IO (Maybe Fog)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"fog" ManagedPtr Fog -> Fog
Clutter.Fog.Fog
setStageFog :: (MonadIO m, IsStage o) => o -> Clutter.Fog.Fog -> m ()
setStageFog :: forall (m :: * -> *) o. (MonadIO m, IsStage o) => o -> Fog -> m ()
setStageFog o
obj Fog
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 Fog -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"fog" (Fog -> Maybe Fog
forall a. a -> Maybe a
Just Fog
val)
constructStageFog :: (IsStage o, MIO.MonadIO m) => Clutter.Fog.Fog -> m (GValueConstruct o)
constructStageFog :: forall o (m :: * -> *).
(IsStage o, MonadIO m) =>
Fog -> m (GValueConstruct o)
constructStageFog Fog
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 Fog -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"fog" (Fog -> Maybe Fog
forall a. a -> Maybe a
P.Just Fog
val)
#if defined(ENABLE_OVERLOADING)
data StageFogPropertyInfo
instance AttrInfo StageFogPropertyInfo where
type AttrAllowedOps StageFogPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StageFogPropertyInfo = IsStage
type AttrSetTypeConstraint StageFogPropertyInfo = (~) Clutter.Fog.Fog
type AttrTransferTypeConstraint StageFogPropertyInfo = (~) Clutter.Fog.Fog
type AttrTransferType StageFogPropertyInfo = Clutter.Fog.Fog
type AttrGetType StageFogPropertyInfo = (Maybe Clutter.Fog.Fog)
type AttrLabel StageFogPropertyInfo = "fog"
type AttrOrigin StageFogPropertyInfo = Stage
attrGet = getStageFog
attrSet = setStageFog
attrTransfer _ v = do
return v
attrConstruct = constructStageFog
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.fog"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#g:attr:fog"
})
#endif
getStageFullscreenSet :: (MonadIO m, IsStage o) => o -> m Bool
getStageFullscreenSet :: forall (m :: * -> *) o. (MonadIO m, IsStage o) => o -> m Bool
getStageFullscreenSet 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
"fullscreen-set"
#if defined(ENABLE_OVERLOADING)
data StageFullscreenSetPropertyInfo
instance AttrInfo StageFullscreenSetPropertyInfo where
type AttrAllowedOps StageFullscreenSetPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint StageFullscreenSetPropertyInfo = IsStage
type AttrSetTypeConstraint StageFullscreenSetPropertyInfo = (~) ()
type AttrTransferTypeConstraint StageFullscreenSetPropertyInfo = (~) ()
type AttrTransferType StageFullscreenSetPropertyInfo = ()
type AttrGetType StageFullscreenSetPropertyInfo = Bool
type AttrLabel StageFullscreenSetPropertyInfo = "fullscreen-set"
type AttrOrigin StageFullscreenSetPropertyInfo = Stage
attrGet = getStageFullscreenSet
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.fullscreenSet"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#g:attr:fullscreenSet"
})
#endif
getStageKeyFocus :: (MonadIO m, IsStage o) => o -> m Clutter.Actor.Actor
getStageKeyFocus :: forall (m :: * -> *) o. (MonadIO m, IsStage o) => o -> m Actor
getStageKeyFocus o
obj = IO Actor -> m Actor
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Actor -> m Actor) -> IO Actor -> m Actor
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Actor) -> IO Actor
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getStageKeyFocus" (IO (Maybe Actor) -> IO Actor) -> IO (Maybe Actor) -> IO Actor
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Actor -> Actor) -> IO (Maybe Actor)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"key-focus" ManagedPtr Actor -> Actor
Clutter.Actor.Actor
setStageKeyFocus :: (MonadIO m, IsStage o, Clutter.Actor.IsActor a) => o -> a -> m ()
setStageKeyFocus :: forall (m :: * -> *) o a.
(MonadIO m, IsStage o, IsActor a) =>
o -> a -> m ()
setStageKeyFocus o
obj a
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 a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"key-focus" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructStageKeyFocus :: (IsStage o, MIO.MonadIO m, Clutter.Actor.IsActor a) => a -> m (GValueConstruct o)
constructStageKeyFocus :: forall o (m :: * -> *) a.
(IsStage o, MonadIO m, IsActor a) =>
a -> m (GValueConstruct o)
constructStageKeyFocus a
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 a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"key-focus" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearStageKeyFocus :: (MonadIO m, IsStage o) => o -> m ()
clearStageKeyFocus :: forall (m :: * -> *) o. (MonadIO m, IsStage o) => o -> m ()
clearStageKeyFocus 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 Actor -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"key-focus" (Maybe Actor
forall a. Maybe a
Nothing :: Maybe Clutter.Actor.Actor)
#if defined(ENABLE_OVERLOADING)
data StageKeyFocusPropertyInfo
instance AttrInfo StageKeyFocusPropertyInfo where
type AttrAllowedOps StageKeyFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StageKeyFocusPropertyInfo = IsStage
type AttrSetTypeConstraint StageKeyFocusPropertyInfo = Clutter.Actor.IsActor
type AttrTransferTypeConstraint StageKeyFocusPropertyInfo = Clutter.Actor.IsActor
type AttrTransferType StageKeyFocusPropertyInfo = Clutter.Actor.Actor
type AttrGetType StageKeyFocusPropertyInfo = Clutter.Actor.Actor
type AttrLabel StageKeyFocusPropertyInfo = "key-focus"
type AttrOrigin StageKeyFocusPropertyInfo = Stage
attrGet = getStageKeyFocus
attrSet = setStageKeyFocus
attrTransfer _ v = do
unsafeCastTo Clutter.Actor.Actor v
attrConstruct = constructStageKeyFocus
attrClear = clearStageKeyFocus
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.keyFocus"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#g:attr:keyFocus"
})
#endif
getStageNoClearHint :: (MonadIO m, IsStage o) => o -> m Bool
getStageNoClearHint :: forall (m :: * -> *) o. (MonadIO m, IsStage o) => o -> m Bool
getStageNoClearHint 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
"no-clear-hint"
setStageNoClearHint :: (MonadIO m, IsStage o) => o -> Bool -> m ()
setStageNoClearHint :: forall (m :: * -> *) o. (MonadIO m, IsStage o) => o -> Bool -> m ()
setStageNoClearHint 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
"no-clear-hint" Bool
val
constructStageNoClearHint :: (IsStage o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStageNoClearHint :: forall o (m :: * -> *).
(IsStage o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructStageNoClearHint 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
"no-clear-hint" Bool
val
#if defined(ENABLE_OVERLOADING)
data StageNoClearHintPropertyInfo
instance AttrInfo StageNoClearHintPropertyInfo where
type AttrAllowedOps StageNoClearHintPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StageNoClearHintPropertyInfo = IsStage
type AttrSetTypeConstraint StageNoClearHintPropertyInfo = (~) Bool
type AttrTransferTypeConstraint StageNoClearHintPropertyInfo = (~) Bool
type AttrTransferType StageNoClearHintPropertyInfo = Bool
type AttrGetType StageNoClearHintPropertyInfo = Bool
type AttrLabel StageNoClearHintPropertyInfo = "no-clear-hint"
type AttrOrigin StageNoClearHintPropertyInfo = Stage
attrGet = getStageNoClearHint
attrSet = setStageNoClearHint
attrTransfer _ v = do
return v
attrConstruct = constructStageNoClearHint
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.noClearHint"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#g:attr:noClearHint"
})
#endif
getStageOffscreen :: (MonadIO m, IsStage o) => o -> m Bool
getStageOffscreen :: forall (m :: * -> *) o. (MonadIO m, IsStage o) => o -> m Bool
getStageOffscreen 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
"offscreen"
setStageOffscreen :: (MonadIO m, IsStage o) => o -> Bool -> m ()
setStageOffscreen :: forall (m :: * -> *) o. (MonadIO m, IsStage o) => o -> Bool -> m ()
setStageOffscreen 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
"offscreen" Bool
val
constructStageOffscreen :: (IsStage o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStageOffscreen :: forall o (m :: * -> *).
(IsStage o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructStageOffscreen 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
"offscreen" Bool
val
#if defined(ENABLE_OVERLOADING)
data StageOffscreenPropertyInfo
instance AttrInfo StageOffscreenPropertyInfo where
type AttrAllowedOps StageOffscreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StageOffscreenPropertyInfo = IsStage
type AttrSetTypeConstraint StageOffscreenPropertyInfo = (~) Bool
type AttrTransferTypeConstraint StageOffscreenPropertyInfo = (~) Bool
type AttrTransferType StageOffscreenPropertyInfo = Bool
type AttrGetType StageOffscreenPropertyInfo = Bool
type AttrLabel StageOffscreenPropertyInfo = "offscreen"
type AttrOrigin StageOffscreenPropertyInfo = Stage
attrGet = getStageOffscreen
attrSet = setStageOffscreen
attrTransfer _ v = do
return v
attrConstruct = constructStageOffscreen
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.offscreen"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#g:attr:offscreen"
})
#endif
getStagePerspective :: (MonadIO m, IsStage o) => o -> m (Maybe Clutter.Perspective.Perspective)
getStagePerspective :: forall (m :: * -> *) o.
(MonadIO m, IsStage o) =>
o -> m (Maybe Perspective)
getStagePerspective o
obj = IO (Maybe Perspective) -> m (Maybe Perspective)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Perspective) -> m (Maybe Perspective))
-> IO (Maybe Perspective) -> m (Maybe Perspective)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr Perspective -> Perspective)
-> IO (Maybe Perspective)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"perspective" ManagedPtr Perspective -> Perspective
Clutter.Perspective.Perspective
setStagePerspective :: (MonadIO m, IsStage o) => o -> Clutter.Perspective.Perspective -> m ()
setStagePerspective :: forall (m :: * -> *) o.
(MonadIO m, IsStage o) =>
o -> Perspective -> m ()
setStagePerspective o
obj Perspective
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 Perspective -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"perspective" (Perspective -> Maybe Perspective
forall a. a -> Maybe a
Just Perspective
val)
constructStagePerspective :: (IsStage o, MIO.MonadIO m) => Clutter.Perspective.Perspective -> m (GValueConstruct o)
constructStagePerspective :: forall o (m :: * -> *).
(IsStage o, MonadIO m) =>
Perspective -> m (GValueConstruct o)
constructStagePerspective Perspective
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 Perspective -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"perspective" (Perspective -> Maybe Perspective
forall a. a -> Maybe a
P.Just Perspective
val)
#if defined(ENABLE_OVERLOADING)
data StagePerspectivePropertyInfo
instance AttrInfo StagePerspectivePropertyInfo where
type AttrAllowedOps StagePerspectivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StagePerspectivePropertyInfo = IsStage
type AttrSetTypeConstraint StagePerspectivePropertyInfo = (~) Clutter.Perspective.Perspective
type AttrTransferTypeConstraint StagePerspectivePropertyInfo = (~) Clutter.Perspective.Perspective
type AttrTransferType StagePerspectivePropertyInfo = Clutter.Perspective.Perspective
type AttrGetType StagePerspectivePropertyInfo = (Maybe Clutter.Perspective.Perspective)
type AttrLabel StagePerspectivePropertyInfo = "perspective"
type AttrOrigin StagePerspectivePropertyInfo = Stage
attrGet = getStagePerspective
attrSet = setStagePerspective
attrTransfer _ v = do
return v
attrConstruct = constructStagePerspective
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.perspective"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#g:attr:perspective"
})
#endif
getStageTitle :: (MonadIO m, IsStage o) => o -> m T.Text
getStageTitle :: forall (m :: * -> *) o. (MonadIO m, IsStage o) => o -> m Text
getStageTitle o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getStageTitle" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO 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
"title"
setStageTitle :: (MonadIO m, IsStage o) => o -> T.Text -> m ()
setStageTitle :: forall (m :: * -> *) o. (MonadIO m, IsStage o) => o -> Text -> m ()
setStageTitle 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
"title" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructStageTitle :: (IsStage o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructStageTitle :: forall o (m :: * -> *).
(IsStage o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructStageTitle 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
"title" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data StageTitlePropertyInfo
instance AttrInfo StageTitlePropertyInfo where
type AttrAllowedOps StageTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StageTitlePropertyInfo = IsStage
type AttrSetTypeConstraint StageTitlePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint StageTitlePropertyInfo = (~) T.Text
type AttrTransferType StageTitlePropertyInfo = T.Text
type AttrGetType StageTitlePropertyInfo = T.Text
type AttrLabel StageTitlePropertyInfo = "title"
type AttrOrigin StageTitlePropertyInfo = Stage
attrGet = getStageTitle
attrSet = setStageTitle
attrTransfer _ v = do
return v
attrConstruct = constructStageTitle
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.title"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#g:attr:title"
})
#endif
getStageUseAlpha :: (MonadIO m, IsStage o) => o -> m Bool
getStageUseAlpha :: forall (m :: * -> *) o. (MonadIO m, IsStage o) => o -> m Bool
getStageUseAlpha 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
"use-alpha"
setStageUseAlpha :: (MonadIO m, IsStage o) => o -> Bool -> m ()
setStageUseAlpha :: forall (m :: * -> *) o. (MonadIO m, IsStage o) => o -> Bool -> m ()
setStageUseAlpha 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
"use-alpha" Bool
val
constructStageUseAlpha :: (IsStage o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStageUseAlpha :: forall o (m :: * -> *).
(IsStage o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructStageUseAlpha 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
"use-alpha" Bool
val
#if defined(ENABLE_OVERLOADING)
data StageUseAlphaPropertyInfo
instance AttrInfo StageUseAlphaPropertyInfo where
type AttrAllowedOps StageUseAlphaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StageUseAlphaPropertyInfo = IsStage
type AttrSetTypeConstraint StageUseAlphaPropertyInfo = (~) Bool
type AttrTransferTypeConstraint StageUseAlphaPropertyInfo = (~) Bool
type AttrTransferType StageUseAlphaPropertyInfo = Bool
type AttrGetType StageUseAlphaPropertyInfo = Bool
type AttrLabel StageUseAlphaPropertyInfo = "use-alpha"
type AttrOrigin StageUseAlphaPropertyInfo = Stage
attrGet = getStageUseAlpha
attrSet = setStageUseAlpha
attrTransfer _ v = do
return v
attrConstruct = constructStageUseAlpha
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.useAlpha"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#g:attr:useAlpha"
})
#endif
getStageUseFog :: (MonadIO m, IsStage o) => o -> m Bool
getStageUseFog :: forall (m :: * -> *) o. (MonadIO m, IsStage o) => o -> m Bool
getStageUseFog 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
"use-fog"
setStageUseFog :: (MonadIO m, IsStage o) => o -> Bool -> m ()
setStageUseFog :: forall (m :: * -> *) o. (MonadIO m, IsStage o) => o -> Bool -> m ()
setStageUseFog 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
"use-fog" Bool
val
constructStageUseFog :: (IsStage o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStageUseFog :: forall o (m :: * -> *).
(IsStage o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructStageUseFog 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
"use-fog" Bool
val
#if defined(ENABLE_OVERLOADING)
data StageUseFogPropertyInfo
instance AttrInfo StageUseFogPropertyInfo where
type AttrAllowedOps StageUseFogPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StageUseFogPropertyInfo = IsStage
type AttrSetTypeConstraint StageUseFogPropertyInfo = (~) Bool
type AttrTransferTypeConstraint StageUseFogPropertyInfo = (~) Bool
type AttrTransferType StageUseFogPropertyInfo = Bool
type AttrGetType StageUseFogPropertyInfo = Bool
type AttrLabel StageUseFogPropertyInfo = "use-fog"
type AttrOrigin StageUseFogPropertyInfo = Stage
attrGet = getStageUseFog
attrSet = setStageUseFog
attrTransfer _ v = do
return v
attrConstruct = constructStageUseFog
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.useFog"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#g:attr:useFog"
})
#endif
getStageUserResizable :: (MonadIO m, IsStage o) => o -> m Bool
getStageUserResizable :: forall (m :: * -> *) o. (MonadIO m, IsStage o) => o -> m Bool
getStageUserResizable 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
"user-resizable"
setStageUserResizable :: (MonadIO m, IsStage o) => o -> Bool -> m ()
setStageUserResizable :: forall (m :: * -> *) o. (MonadIO m, IsStage o) => o -> Bool -> m ()
setStageUserResizable 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
"user-resizable" Bool
val
constructStageUserResizable :: (IsStage o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStageUserResizable :: forall o (m :: * -> *).
(IsStage o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructStageUserResizable 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
"user-resizable" Bool
val
#if defined(ENABLE_OVERLOADING)
data StageUserResizablePropertyInfo
instance AttrInfo StageUserResizablePropertyInfo where
type AttrAllowedOps StageUserResizablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StageUserResizablePropertyInfo = IsStage
type AttrSetTypeConstraint StageUserResizablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint StageUserResizablePropertyInfo = (~) Bool
type AttrTransferType StageUserResizablePropertyInfo = Bool
type AttrGetType StageUserResizablePropertyInfo = Bool
type AttrLabel StageUserResizablePropertyInfo = "user-resizable"
type AttrOrigin StageUserResizablePropertyInfo = Stage
attrGet = getStageUserResizable
attrSet = setStageUserResizable
attrTransfer _ v = do
return v
attrConstruct = constructStageUserResizable
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.userResizable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#g:attr:userResizable"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Stage
type instance O.AttributeList Stage = StageAttributeList
type StageAttributeList = ('[ '("acceptFocus", StageAcceptFocusPropertyInfo), '("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", StageColorPropertyInfo), '("constraints", Clutter.Actor.ActorConstraintsPropertyInfo), '("content", Clutter.Actor.ActorContentPropertyInfo), '("contentBox", Clutter.Actor.ActorContentBoxPropertyInfo), '("contentGravity", Clutter.Actor.ActorContentGravityPropertyInfo), '("contentRepeat", Clutter.Actor.ActorContentRepeatPropertyInfo), '("cursorVisible", StageCursorVisiblePropertyInfo), '("depth", Clutter.Actor.ActorDepthPropertyInfo), '("effect", Clutter.Actor.ActorEffectPropertyInfo), '("firstChild", Clutter.Actor.ActorFirstChildPropertyInfo), '("fixedPositionSet", Clutter.Actor.ActorFixedPositionSetPropertyInfo), '("fixedX", Clutter.Actor.ActorFixedXPropertyInfo), '("fixedY", Clutter.Actor.ActorFixedYPropertyInfo), '("fog", StageFogPropertyInfo), '("fullscreenSet", StageFullscreenSetPropertyInfo), '("hasClip", Clutter.Actor.ActorHasClipPropertyInfo), '("hasPointer", Clutter.Actor.ActorHasPointerPropertyInfo), '("height", Clutter.Actor.ActorHeightPropertyInfo), '("keyFocus", StageKeyFocusPropertyInfo), '("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), '("noClearHint", StageNoClearHintPropertyInfo), '("offscreen", StageOffscreenPropertyInfo), '("offscreenRedirect", Clutter.Actor.ActorOffscreenRedirectPropertyInfo), '("opacity", Clutter.Actor.ActorOpacityPropertyInfo), '("perspective", StagePerspectivePropertyInfo), '("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), '("title", StageTitlePropertyInfo), '("transform", Clutter.Actor.ActorTransformPropertyInfo), '("transformSet", Clutter.Actor.ActorTransformSetPropertyInfo), '("translationX", Clutter.Actor.ActorTranslationXPropertyInfo), '("translationY", Clutter.Actor.ActorTranslationYPropertyInfo), '("translationZ", Clutter.Actor.ActorTranslationZPropertyInfo), '("useAlpha", StageUseAlphaPropertyInfo), '("useFog", StageUseFogPropertyInfo), '("userResizable", StageUserResizablePropertyInfo), '("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, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
stageAcceptFocus :: AttrLabelProxy "acceptFocus"
stageAcceptFocus = AttrLabelProxy
stageColor :: AttrLabelProxy "color"
stageColor = AttrLabelProxy
stageCursorVisible :: AttrLabelProxy "cursorVisible"
stageCursorVisible = AttrLabelProxy
stageFog :: AttrLabelProxy "fog"
stageFog = AttrLabelProxy
stageFullscreenSet :: AttrLabelProxy "fullscreenSet"
stageFullscreenSet = AttrLabelProxy
stageKeyFocus :: AttrLabelProxy "keyFocus"
stageKeyFocus = AttrLabelProxy
stageNoClearHint :: AttrLabelProxy "noClearHint"
stageNoClearHint = AttrLabelProxy
stageOffscreen :: AttrLabelProxy "offscreen"
stageOffscreen = AttrLabelProxy
stagePerspective :: AttrLabelProxy "perspective"
stagePerspective = AttrLabelProxy
stageTitle :: AttrLabelProxy "title"
stageTitle = AttrLabelProxy
stageUseAlpha :: AttrLabelProxy "useAlpha"
stageUseAlpha = AttrLabelProxy
stageUseFog :: AttrLabelProxy "useFog"
stageUseFog = AttrLabelProxy
stageUserResizable :: AttrLabelProxy "userResizable"
stageUserResizable = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Stage = StageSignalList
type StageSignalList = ('[ '("activate", StageActivateSignalInfo), '("actorAdded", Clutter.Container.ContainerActorAddedSignalInfo), '("actorRemoved", Clutter.Container.ContainerActorRemovedSignalInfo), '("afterPaint", StageAfterPaintSignalInfo), '("allocationChanged", Clutter.Actor.ActorAllocationChangedSignalInfo), '("buttonPressEvent", Clutter.Actor.ActorButtonPressEventSignalInfo), '("buttonReleaseEvent", Clutter.Actor.ActorButtonReleaseEventSignalInfo), '("capturedEvent", Clutter.Actor.ActorCapturedEventSignalInfo), '("childNotify", Clutter.Container.ContainerChildNotifySignalInfo), '("deactivate", StageDeactivateSignalInfo), '("deleteEvent", StageDeleteEventSignalInfo), '("destroy", Clutter.Actor.ActorDestroySignalInfo), '("enterEvent", Clutter.Actor.ActorEnterEventSignalInfo), '("event", Clutter.Actor.ActorEventSignalInfo), '("fullscreen", StageFullscreenSignalInfo), '("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), '("unfullscreen", StageUnfullscreenSignalInfo), '("unrealize", Clutter.Actor.ActorUnrealizeSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "clutter_stage_new" clutter_stage_new ::
IO (Ptr Stage)
stageNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Stage
stageNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Stage
stageNew = IO Stage -> m Stage
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Stage -> m Stage) -> IO Stage -> m Stage
forall a b. (a -> b) -> a -> b
$ do
Ptr Stage
result <- IO (Ptr Stage)
clutter_stage_new
Text -> Ptr Stage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"stageNew" Ptr Stage
result
Stage
result' <- ((ManagedPtr Stage -> Stage) -> Ptr Stage -> IO Stage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Stage -> Stage
Stage) Ptr Stage
result
Stage -> IO Stage
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Stage
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "clutter_stage_ensure_current" clutter_stage_ensure_current ::
Ptr Stage ->
IO ()
stageEnsureCurrent ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> m ()
stageEnsureCurrent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> m ()
stageEnsureCurrent a
stage = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
Ptr Stage -> IO ()
clutter_stage_ensure_current Ptr Stage
stage'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StageEnsureCurrentMethodInfo
instance (signature ~ (m ()), MonadIO m, IsStage a) => O.OverloadedMethod StageEnsureCurrentMethodInfo a signature where
overloadedMethod = stageEnsureCurrent
instance O.OverloadedMethodInfo StageEnsureCurrentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageEnsureCurrent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageEnsureCurrent"
})
#endif
foreign import ccall "clutter_stage_ensure_redraw" clutter_stage_ensure_redraw ::
Ptr Stage ->
IO ()
stageEnsureRedraw ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> m ()
stageEnsureRedraw :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> m ()
stageEnsureRedraw a
stage = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
Ptr Stage -> IO ()
clutter_stage_ensure_redraw Ptr Stage
stage'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StageEnsureRedrawMethodInfo
instance (signature ~ (m ()), MonadIO m, IsStage a) => O.OverloadedMethod StageEnsureRedrawMethodInfo a signature where
overloadedMethod = stageEnsureRedraw
instance O.OverloadedMethodInfo StageEnsureRedrawMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageEnsureRedraw",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageEnsureRedraw"
})
#endif
foreign import ccall "clutter_stage_ensure_viewport" clutter_stage_ensure_viewport ::
Ptr Stage ->
IO ()
stageEnsureViewport ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> m ()
stageEnsureViewport :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> m ()
stageEnsureViewport a
stage = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
Ptr Stage -> IO ()
clutter_stage_ensure_viewport Ptr Stage
stage'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StageEnsureViewportMethodInfo
instance (signature ~ (m ()), MonadIO m, IsStage a) => O.OverloadedMethod StageEnsureViewportMethodInfo a signature where
overloadedMethod = stageEnsureViewport
instance O.OverloadedMethodInfo StageEnsureViewportMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageEnsureViewport",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageEnsureViewport"
})
#endif
foreign import ccall "clutter_stage_event" clutter_stage_event ::
Ptr Stage ->
Ptr Clutter.Event.Event ->
IO CInt
stageEvent ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> Clutter.Event.Event
-> m Bool
stageEvent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> Event -> m Bool
stageEvent a
stage Event
event = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
Ptr Event
event' <- Event -> IO (Ptr Event)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
CInt
result <- Ptr Stage -> Ptr Event -> IO CInt
clutter_stage_event Ptr Stage
stage' Ptr Event
event'
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
stage
Event -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data StageEventMethodInfo
instance (signature ~ (Clutter.Event.Event -> m Bool), MonadIO m, IsStage a) => O.OverloadedMethod StageEventMethodInfo a signature where
overloadedMethod = stageEvent
instance O.OverloadedMethodInfo StageEventMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageEvent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageEvent"
})
#endif
foreign import ccall "clutter_stage_get_accept_focus" clutter_stage_get_accept_focus ::
Ptr Stage ->
IO CInt
stageGetAcceptFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> m Bool
stageGetAcceptFocus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> m Bool
stageGetAcceptFocus a
stage = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
CInt
result <- Ptr Stage -> IO CInt
clutter_stage_get_accept_focus Ptr Stage
stage'
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
stage
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data StageGetAcceptFocusMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStage a) => O.OverloadedMethod StageGetAcceptFocusMethodInfo a signature where
overloadedMethod = stageGetAcceptFocus
instance O.OverloadedMethodInfo StageGetAcceptFocusMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageGetAcceptFocus",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageGetAcceptFocus"
})
#endif
foreign import ccall "clutter_stage_get_actor_at_pos" clutter_stage_get_actor_at_pos ::
Ptr Stage ->
CUInt ->
Int32 ->
Int32 ->
IO (Ptr Clutter.Actor.Actor)
stageGetActorAtPos ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> Clutter.Enums.PickMode
-> Int32
-> Int32
-> m Clutter.Actor.Actor
stageGetActorAtPos :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> PickMode -> Int32 -> Int32 -> m Actor
stageGetActorAtPos a
stage PickMode
pickMode Int32
x Int32
y = IO Actor -> m Actor
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Actor -> m Actor) -> IO Actor -> m Actor
forall a b. (a -> b) -> a -> b
$ do
Ptr Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
let pickMode' :: CUInt
pickMode' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (PickMode -> Int) -> PickMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PickMode -> Int
forall a. Enum a => a -> Int
fromEnum) PickMode
pickMode
Ptr Actor
result <- Ptr Stage -> CUInt -> Int32 -> Int32 -> IO (Ptr Actor)
clutter_stage_get_actor_at_pos Ptr Stage
stage' CUInt
pickMode' Int32
x Int32
y
Text -> Ptr Actor -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"stageGetActorAtPos" Ptr Actor
result
Actor
result' <- ((ManagedPtr Actor -> Actor) -> Ptr Actor -> IO Actor
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Actor -> Actor
Clutter.Actor.Actor) Ptr Actor
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
Actor -> IO Actor
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Actor
result'
#if defined(ENABLE_OVERLOADING)
data StageGetActorAtPosMethodInfo
instance (signature ~ (Clutter.Enums.PickMode -> Int32 -> Int32 -> m Clutter.Actor.Actor), MonadIO m, IsStage a) => O.OverloadedMethod StageGetActorAtPosMethodInfo a signature where
overloadedMethod = stageGetActorAtPos
instance O.OverloadedMethodInfo StageGetActorAtPosMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageGetActorAtPos",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageGetActorAtPos"
})
#endif
foreign import ccall "clutter_stage_get_color" clutter_stage_get_color ::
Ptr Stage ->
Ptr Clutter.Color.Color ->
IO ()
{-# DEPRECATED stageGetColor ["(Since version 1.10)","Use 'GI.Clutter.Objects.Actor.actorGetBackgroundColor' instead."] #-}
stageGetColor ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> m (Clutter.Color.Color)
stageGetColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> m Color
stageGetColor a
stage = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
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 Stage -> Ptr Color -> IO ()
clutter_stage_get_color Ptr Stage
stage' 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
stage
Color -> IO Color
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Color
color'
#if defined(ENABLE_OVERLOADING)
data StageGetColorMethodInfo
instance (signature ~ (m (Clutter.Color.Color)), MonadIO m, IsStage a) => O.OverloadedMethod StageGetColorMethodInfo a signature where
overloadedMethod = stageGetColor
instance O.OverloadedMethodInfo StageGetColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageGetColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageGetColor"
})
#endif
foreign import ccall "clutter_stage_get_fog" clutter_stage_get_fog ::
Ptr Stage ->
Ptr Clutter.Fog.Fog ->
IO ()
{-# DEPRECATED stageGetFog ["(Since version 1.10)","This function will always return the default"," values of t'GI.Clutter.Structs.Fog.Fog'"] #-}
stageGetFog ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> m (Clutter.Fog.Fog)
stageGetFog :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> m Fog
stageGetFog a
stage = IO Fog -> m Fog
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Fog -> m Fog) -> IO Fog -> m Fog
forall a b. (a -> b) -> a -> b
$ do
Ptr Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
Ptr Fog
fog <- Int -> IO (Ptr Fog)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
8 :: IO (Ptr Clutter.Fog.Fog)
Ptr Stage -> Ptr Fog -> IO ()
clutter_stage_get_fog Ptr Stage
stage' Ptr Fog
fog
Fog
fog' <- ((ManagedPtr Fog -> Fog) -> Ptr Fog -> IO Fog
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Fog -> Fog
Clutter.Fog.Fog) Ptr Fog
fog
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
Fog -> IO Fog
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Fog
fog'
#if defined(ENABLE_OVERLOADING)
data StageGetFogMethodInfo
instance (signature ~ (m (Clutter.Fog.Fog)), MonadIO m, IsStage a) => O.OverloadedMethod StageGetFogMethodInfo a signature where
overloadedMethod = stageGetFog
instance O.OverloadedMethodInfo StageGetFogMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageGetFog",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageGetFog"
})
#endif
foreign import ccall "clutter_stage_get_fullscreen" clutter_stage_get_fullscreen ::
Ptr Stage ->
IO CInt
stageGetFullscreen ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> m Bool
stageGetFullscreen :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> m Bool
stageGetFullscreen a
stage = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
CInt
result <- Ptr Stage -> IO CInt
clutter_stage_get_fullscreen Ptr Stage
stage'
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
stage
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data StageGetFullscreenMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStage a) => O.OverloadedMethod StageGetFullscreenMethodInfo a signature where
overloadedMethod = stageGetFullscreen
instance O.OverloadedMethodInfo StageGetFullscreenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageGetFullscreen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageGetFullscreen"
})
#endif
foreign import ccall "clutter_stage_get_key_focus" clutter_stage_get_key_focus ::
Ptr Stage ->
IO (Ptr Clutter.Actor.Actor)
stageGetKeyFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> m Clutter.Actor.Actor
stageGetKeyFocus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> m Actor
stageGetKeyFocus a
stage = IO Actor -> m Actor
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Actor -> m Actor) -> IO Actor -> m Actor
forall a b. (a -> b) -> a -> b
$ do
Ptr Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
Ptr Actor
result <- Ptr Stage -> IO (Ptr Actor)
clutter_stage_get_key_focus Ptr Stage
stage'
Text -> Ptr Actor -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"stageGetKeyFocus" Ptr Actor
result
Actor
result' <- ((ManagedPtr Actor -> Actor) -> Ptr Actor -> IO Actor
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Actor -> Actor
Clutter.Actor.Actor) Ptr Actor
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
Actor -> IO Actor
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Actor
result'
#if defined(ENABLE_OVERLOADING)
data StageGetKeyFocusMethodInfo
instance (signature ~ (m Clutter.Actor.Actor), MonadIO m, IsStage a) => O.OverloadedMethod StageGetKeyFocusMethodInfo a signature where
overloadedMethod = stageGetKeyFocus
instance O.OverloadedMethodInfo StageGetKeyFocusMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageGetKeyFocus",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageGetKeyFocus"
})
#endif
foreign import ccall "clutter_stage_get_minimum_size" clutter_stage_get_minimum_size ::
Ptr Stage ->
Ptr Word32 ->
Ptr Word32 ->
IO ()
stageGetMinimumSize ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> m ((Word32, Word32))
stageGetMinimumSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> m (Word32, Word32)
stageGetMinimumSize a
stage = IO (Word32, Word32) -> m (Word32, Word32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Word32, Word32) -> m (Word32, Word32))
-> IO (Word32, Word32) -> m (Word32, Word32)
forall a b. (a -> b) -> a -> b
$ do
Ptr Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
Ptr Word32
width <- IO (Ptr Word32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word32)
Ptr Word32
height <- IO (Ptr Word32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word32)
Ptr Stage -> Ptr Word32 -> Ptr Word32 -> IO ()
clutter_stage_get_minimum_size Ptr Stage
stage' Ptr Word32
width Ptr Word32
height
Word32
width' <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek Ptr Word32
width
Word32
height' <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek Ptr Word32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
Ptr Word32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word32
width
Ptr Word32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word32
height
(Word32, Word32) -> IO (Word32, Word32)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Word32
width', Word32
height')
#if defined(ENABLE_OVERLOADING)
data StageGetMinimumSizeMethodInfo
instance (signature ~ (m ((Word32, Word32))), MonadIO m, IsStage a) => O.OverloadedMethod StageGetMinimumSizeMethodInfo a signature where
overloadedMethod = stageGetMinimumSize
instance O.OverloadedMethodInfo StageGetMinimumSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageGetMinimumSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageGetMinimumSize"
})
#endif
foreign import ccall "clutter_stage_get_motion_events_enabled" clutter_stage_get_motion_events_enabled ::
Ptr Stage ->
IO CInt
stageGetMotionEventsEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> m Bool
stageGetMotionEventsEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> m Bool
stageGetMotionEventsEnabled a
stage = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
CInt
result <- Ptr Stage -> IO CInt
clutter_stage_get_motion_events_enabled Ptr Stage
stage'
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
stage
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data StageGetMotionEventsEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStage a) => O.OverloadedMethod StageGetMotionEventsEnabledMethodInfo a signature where
overloadedMethod = stageGetMotionEventsEnabled
instance O.OverloadedMethodInfo StageGetMotionEventsEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageGetMotionEventsEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageGetMotionEventsEnabled"
})
#endif
foreign import ccall "clutter_stage_get_no_clear_hint" clutter_stage_get_no_clear_hint ::
Ptr Stage ->
IO CInt
stageGetNoClearHint ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> m Bool
stageGetNoClearHint :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> m Bool
stageGetNoClearHint a
stage = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
CInt
result <- Ptr Stage -> IO CInt
clutter_stage_get_no_clear_hint Ptr Stage
stage'
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
stage
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data StageGetNoClearHintMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStage a) => O.OverloadedMethod StageGetNoClearHintMethodInfo a signature where
overloadedMethod = stageGetNoClearHint
instance O.OverloadedMethodInfo StageGetNoClearHintMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageGetNoClearHint",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageGetNoClearHint"
})
#endif
foreign import ccall "clutter_stage_get_perspective" clutter_stage_get_perspective ::
Ptr Stage ->
Ptr Clutter.Perspective.Perspective ->
IO ()
stageGetPerspective ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> m (Clutter.Perspective.Perspective)
stageGetPerspective :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> m Perspective
stageGetPerspective a
stage = IO Perspective -> m Perspective
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Perspective -> m Perspective)
-> IO Perspective -> m Perspective
forall a b. (a -> b) -> a -> b
$ do
Ptr Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
Ptr Perspective
perspective <- Int -> IO (Ptr Perspective)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
16 :: IO (Ptr Clutter.Perspective.Perspective)
Ptr Stage -> Ptr Perspective -> IO ()
clutter_stage_get_perspective Ptr Stage
stage' Ptr Perspective
perspective
Perspective
perspective' <- ((ManagedPtr Perspective -> Perspective)
-> Ptr Perspective -> IO Perspective
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Perspective -> Perspective
Clutter.Perspective.Perspective) Ptr Perspective
perspective
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
Perspective -> IO Perspective
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Perspective
perspective'
#if defined(ENABLE_OVERLOADING)
data StageGetPerspectiveMethodInfo
instance (signature ~ (m (Clutter.Perspective.Perspective)), MonadIO m, IsStage a) => O.OverloadedMethod StageGetPerspectiveMethodInfo a signature where
overloadedMethod = stageGetPerspective
instance O.OverloadedMethodInfo StageGetPerspectiveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageGetPerspective",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageGetPerspective"
})
#endif
foreign import ccall "clutter_stage_get_redraw_clip_bounds" clutter_stage_get_redraw_clip_bounds ::
Ptr Stage ->
Ptr Cairo.RectangleInt.RectangleInt ->
IO ()
stageGetRedrawClipBounds ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> m (Cairo.RectangleInt.RectangleInt)
stageGetRedrawClipBounds :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> m RectangleInt
stageGetRedrawClipBounds a
stage = IO RectangleInt -> m RectangleInt
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RectangleInt -> m RectangleInt)
-> IO RectangleInt -> m RectangleInt
forall a b. (a -> b) -> a -> b
$ do
Ptr Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
Ptr RectangleInt
clip <- Int -> IO (Ptr RectangleInt)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
16 :: IO (Ptr Cairo.RectangleInt.RectangleInt)
Ptr Stage -> Ptr RectangleInt -> IO ()
clutter_stage_get_redraw_clip_bounds Ptr Stage
stage' Ptr RectangleInt
clip
RectangleInt
clip' <- ((ManagedPtr RectangleInt -> RectangleInt)
-> Ptr RectangleInt -> IO RectangleInt
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr RectangleInt -> RectangleInt
Cairo.RectangleInt.RectangleInt) Ptr RectangleInt
clip
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
RectangleInt -> IO RectangleInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return RectangleInt
clip'
#if defined(ENABLE_OVERLOADING)
data StageGetRedrawClipBoundsMethodInfo
instance (signature ~ (m (Cairo.RectangleInt.RectangleInt)), MonadIO m, IsStage a) => O.OverloadedMethod StageGetRedrawClipBoundsMethodInfo a signature where
overloadedMethod = stageGetRedrawClipBounds
instance O.OverloadedMethodInfo StageGetRedrawClipBoundsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageGetRedrawClipBounds",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageGetRedrawClipBounds"
})
#endif
foreign import ccall "clutter_stage_get_throttle_motion_events" clutter_stage_get_throttle_motion_events ::
Ptr Stage ->
IO CInt
stageGetThrottleMotionEvents ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> m Bool
stageGetThrottleMotionEvents :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> m Bool
stageGetThrottleMotionEvents a
stage = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
CInt
result <- Ptr Stage -> IO CInt
clutter_stage_get_throttle_motion_events Ptr Stage
stage'
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
stage
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data StageGetThrottleMotionEventsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStage a) => O.OverloadedMethod StageGetThrottleMotionEventsMethodInfo a signature where
overloadedMethod = stageGetThrottleMotionEvents
instance O.OverloadedMethodInfo StageGetThrottleMotionEventsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageGetThrottleMotionEvents",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageGetThrottleMotionEvents"
})
#endif
foreign import ccall "clutter_stage_get_title" clutter_stage_get_title ::
Ptr Stage ->
IO CString
stageGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> m T.Text
stageGetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> m Text
stageGetTitle a
stage = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
CString
result <- Ptr Stage -> IO CString
clutter_stage_get_title Ptr Stage
stage'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"stageGetTitle" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data StageGetTitleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsStage a) => O.OverloadedMethod StageGetTitleMethodInfo a signature where
overloadedMethod = stageGetTitle
instance O.OverloadedMethodInfo StageGetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageGetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageGetTitle"
})
#endif
foreign import ccall "clutter_stage_get_use_alpha" clutter_stage_get_use_alpha ::
Ptr Stage ->
IO CInt
stageGetUseAlpha ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> m Bool
stageGetUseAlpha :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> m Bool
stageGetUseAlpha a
stage = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
CInt
result <- Ptr Stage -> IO CInt
clutter_stage_get_use_alpha Ptr Stage
stage'
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
stage
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data StageGetUseAlphaMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStage a) => O.OverloadedMethod StageGetUseAlphaMethodInfo a signature where
overloadedMethod = stageGetUseAlpha
instance O.OverloadedMethodInfo StageGetUseAlphaMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageGetUseAlpha",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageGetUseAlpha"
})
#endif
foreign import ccall "clutter_stage_get_use_fog" clutter_stage_get_use_fog ::
Ptr Stage ->
IO CInt
{-# DEPRECATED stageGetUseFog ["(Since version 1.10)","This function will always return 'P.False'"] #-}
stageGetUseFog ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> m Bool
stageGetUseFog :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> m Bool
stageGetUseFog a
stage = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
CInt
result <- Ptr Stage -> IO CInt
clutter_stage_get_use_fog Ptr Stage
stage'
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
stage
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data StageGetUseFogMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStage a) => O.OverloadedMethod StageGetUseFogMethodInfo a signature where
overloadedMethod = stageGetUseFog
instance O.OverloadedMethodInfo StageGetUseFogMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageGetUseFog",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageGetUseFog"
})
#endif
foreign import ccall "clutter_stage_get_user_resizable" clutter_stage_get_user_resizable ::
Ptr Stage ->
IO CInt
stageGetUserResizable ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> m Bool
stageGetUserResizable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> m Bool
stageGetUserResizable a
stage = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
CInt
result <- Ptr Stage -> IO CInt
clutter_stage_get_user_resizable Ptr Stage
stage'
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
stage
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data StageGetUserResizableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStage a) => O.OverloadedMethod StageGetUserResizableMethodInfo a signature where
overloadedMethod = stageGetUserResizable
instance O.OverloadedMethodInfo StageGetUserResizableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageGetUserResizable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageGetUserResizable"
})
#endif
foreign import ccall "clutter_stage_hide_cursor" clutter_stage_hide_cursor ::
Ptr Stage ->
IO ()
stageHideCursor ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> m ()
stageHideCursor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> m ()
stageHideCursor a
stage = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
Ptr Stage -> IO ()
clutter_stage_hide_cursor Ptr Stage
stage'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StageHideCursorMethodInfo
instance (signature ~ (m ()), MonadIO m, IsStage a) => O.OverloadedMethod StageHideCursorMethodInfo a signature where
overloadedMethod = stageHideCursor
instance O.OverloadedMethodInfo StageHideCursorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageHideCursor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageHideCursor"
})
#endif
foreign import ccall "clutter_stage_is_default" clutter_stage_is_default ::
Ptr Stage ->
IO CInt
{-# DEPRECATED stageIsDefault ["(Since version 1.10)","Track the stage pointer inside your application"," code, or use 'GI.Clutter.Objects.Actor.actorGetStage' to retrieve the stage for"," a given actor."] #-}
stageIsDefault ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> m Bool
stageIsDefault :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> m Bool
stageIsDefault a
stage = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
CInt
result <- Ptr Stage -> IO CInt
clutter_stage_is_default Ptr Stage
stage'
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
stage
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data StageIsDefaultMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStage a) => O.OverloadedMethod StageIsDefaultMethodInfo a signature where
overloadedMethod = stageIsDefault
instance O.OverloadedMethodInfo StageIsDefaultMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageIsDefault",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageIsDefault"
})
#endif
foreign import ccall "clutter_stage_queue_redraw" clutter_stage_queue_redraw ::
Ptr Stage ->
IO ()
{-# DEPRECATED stageQueueRedraw ["(Since version 1.10)","Use 'GI.Clutter.Objects.Actor.actorQueueRedraw' instead."] #-}
stageQueueRedraw ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> m ()
stageQueueRedraw :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> m ()
stageQueueRedraw a
stage = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
Ptr Stage -> IO ()
clutter_stage_queue_redraw Ptr Stage
stage'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StageQueueRedrawMethodInfo
instance (signature ~ (m ()), MonadIO m, IsStage a) => O.OverloadedMethod StageQueueRedrawMethodInfo a signature where
overloadedMethod = stageQueueRedraw
instance O.OverloadedMethodInfo StageQueueRedrawMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageQueueRedraw",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageQueueRedraw"
})
#endif
#if defined(ENABLE_OVERLOADING)
data StageReadPixelsMethodInfo
instance (p ~ (), o ~ O.UnsupportedMethodError "readPixels" Stage) => O.OverloadedMethod StageReadPixelsMethodInfo o p where
overloadedMethod = undefined
instance (o ~ O.UnsupportedMethodError "readPixels" Stage) => O.OverloadedMethodInfo StageReadPixelsMethodInfo o where
overloadedMethodInfo = undefined
#endif
foreign import ccall "clutter_stage_set_accept_focus" clutter_stage_set_accept_focus ::
Ptr Stage ->
CInt ->
IO ()
stageSetAcceptFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> Bool
-> m ()
stageSetAcceptFocus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> Bool -> m ()
stageSetAcceptFocus a
stage Bool
acceptFocus = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
let acceptFocus' :: CInt
acceptFocus' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
acceptFocus
Ptr Stage -> CInt -> IO ()
clutter_stage_set_accept_focus Ptr Stage
stage' CInt
acceptFocus'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StageSetAcceptFocusMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsStage a) => O.OverloadedMethod StageSetAcceptFocusMethodInfo a signature where
overloadedMethod = stageSetAcceptFocus
instance O.OverloadedMethodInfo StageSetAcceptFocusMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageSetAcceptFocus",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageSetAcceptFocus"
})
#endif
foreign import ccall "clutter_stage_set_color" clutter_stage_set_color ::
Ptr Stage ->
Ptr Clutter.Color.Color ->
IO ()
{-# DEPRECATED stageSetColor ["(Since version 1.10)","Use 'GI.Clutter.Objects.Actor.actorSetBackgroundColor' instead."] #-}
stageSetColor ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> Clutter.Color.Color
-> m ()
stageSetColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> Color -> m ()
stageSetColor a
stage 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
Ptr Color
color' <- Color -> IO (Ptr Color)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Color
color
Ptr Stage -> Ptr Color -> IO ()
clutter_stage_set_color Ptr Stage
stage' Ptr Color
color'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
Color -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Color
color
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StageSetColorMethodInfo
instance (signature ~ (Clutter.Color.Color -> m ()), MonadIO m, IsStage a) => O.OverloadedMethod StageSetColorMethodInfo a signature where
overloadedMethod = stageSetColor
instance O.OverloadedMethodInfo StageSetColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageSetColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageSetColor"
})
#endif
foreign import ccall "clutter_stage_set_fog" clutter_stage_set_fog ::
Ptr Stage ->
Ptr Clutter.Fog.Fog ->
IO ()
{-# DEPRECATED stageSetFog ["(Since version 1.10)","Fog settings are ignored."] #-}
stageSetFog ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> Clutter.Fog.Fog
-> m ()
stageSetFog :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> Fog -> m ()
stageSetFog a
stage Fog
fog = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
Ptr Fog
fog' <- Fog -> IO (Ptr Fog)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Fog
fog
Ptr Stage -> Ptr Fog -> IO ()
clutter_stage_set_fog Ptr Stage
stage' Ptr Fog
fog'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
Fog -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Fog
fog
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StageSetFogMethodInfo
instance (signature ~ (Clutter.Fog.Fog -> m ()), MonadIO m, IsStage a) => O.OverloadedMethod StageSetFogMethodInfo a signature where
overloadedMethod = stageSetFog
instance O.OverloadedMethodInfo StageSetFogMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageSetFog",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageSetFog"
})
#endif
foreign import ccall "clutter_stage_set_fullscreen" clutter_stage_set_fullscreen ::
Ptr Stage ->
CInt ->
IO ()
stageSetFullscreen ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> Bool
-> m ()
stageSetFullscreen :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> Bool -> m ()
stageSetFullscreen a
stage Bool
fullscreen = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
let fullscreen' :: CInt
fullscreen' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
fullscreen
Ptr Stage -> CInt -> IO ()
clutter_stage_set_fullscreen Ptr Stage
stage' CInt
fullscreen'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StageSetFullscreenMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsStage a) => O.OverloadedMethod StageSetFullscreenMethodInfo a signature where
overloadedMethod = stageSetFullscreen
instance O.OverloadedMethodInfo StageSetFullscreenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageSetFullscreen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageSetFullscreen"
})
#endif
foreign import ccall "clutter_stage_set_key_focus" clutter_stage_set_key_focus ::
Ptr Stage ->
Ptr Clutter.Actor.Actor ->
IO ()
stageSetKeyFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a, Clutter.Actor.IsActor b) =>
a
-> Maybe (b)
-> m ()
stageSetKeyFocus :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsStage a, IsActor b) =>
a -> Maybe b -> m ()
stageSetKeyFocus a
stage Maybe b
actor = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
Ptr Actor
maybeActor <- case Maybe b
actor of
Maybe b
Nothing -> Ptr Actor -> IO (Ptr Actor)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Actor
forall a. Ptr a
nullPtr
Just b
jActor -> do
Ptr Actor
jActor' <- b -> IO (Ptr Actor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jActor
Ptr Actor -> IO (Ptr Actor)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Actor
jActor'
Ptr Stage -> Ptr Actor -> IO ()
clutter_stage_set_key_focus Ptr Stage
stage' Ptr Actor
maybeActor
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
actor b -> 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 StageSetKeyFocusMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsStage a, Clutter.Actor.IsActor b) => O.OverloadedMethod StageSetKeyFocusMethodInfo a signature where
overloadedMethod = stageSetKeyFocus
instance O.OverloadedMethodInfo StageSetKeyFocusMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageSetKeyFocus",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageSetKeyFocus"
})
#endif
foreign import ccall "clutter_stage_set_minimum_size" clutter_stage_set_minimum_size ::
Ptr Stage ->
Word32 ->
Word32 ->
IO ()
stageSetMinimumSize ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> Word32
-> Word32
-> m ()
stageSetMinimumSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> Word32 -> Word32 -> m ()
stageSetMinimumSize a
stage Word32
width Word32
height = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
Ptr Stage -> Word32 -> Word32 -> IO ()
clutter_stage_set_minimum_size Ptr Stage
stage' Word32
width Word32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StageSetMinimumSizeMethodInfo
instance (signature ~ (Word32 -> Word32 -> m ()), MonadIO m, IsStage a) => O.OverloadedMethod StageSetMinimumSizeMethodInfo a signature where
overloadedMethod = stageSetMinimumSize
instance O.OverloadedMethodInfo StageSetMinimumSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageSetMinimumSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageSetMinimumSize"
})
#endif
foreign import ccall "clutter_stage_set_motion_events_enabled" clutter_stage_set_motion_events_enabled ::
Ptr Stage ->
CInt ->
IO ()
stageSetMotionEventsEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> Bool
-> m ()
stageSetMotionEventsEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> Bool -> m ()
stageSetMotionEventsEnabled a
stage Bool
enabled = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
enabled
Ptr Stage -> CInt -> IO ()
clutter_stage_set_motion_events_enabled Ptr Stage
stage' CInt
enabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StageSetMotionEventsEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsStage a) => O.OverloadedMethod StageSetMotionEventsEnabledMethodInfo a signature where
overloadedMethod = stageSetMotionEventsEnabled
instance O.OverloadedMethodInfo StageSetMotionEventsEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageSetMotionEventsEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageSetMotionEventsEnabled"
})
#endif
foreign import ccall "clutter_stage_set_no_clear_hint" clutter_stage_set_no_clear_hint ::
Ptr Stage ->
CInt ->
IO ()
stageSetNoClearHint ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> Bool
-> m ()
stageSetNoClearHint :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> Bool -> m ()
stageSetNoClearHint a
stage Bool
noClear = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
let noClear' :: CInt
noClear' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
noClear
Ptr Stage -> CInt -> IO ()
clutter_stage_set_no_clear_hint Ptr Stage
stage' CInt
noClear'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StageSetNoClearHintMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsStage a) => O.OverloadedMethod StageSetNoClearHintMethodInfo a signature where
overloadedMethod = stageSetNoClearHint
instance O.OverloadedMethodInfo StageSetNoClearHintMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageSetNoClearHint",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageSetNoClearHint"
})
#endif
foreign import ccall "clutter_stage_set_perspective" clutter_stage_set_perspective ::
Ptr Stage ->
Ptr Clutter.Perspective.Perspective ->
IO ()
stageSetPerspective ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> Clutter.Perspective.Perspective
-> m ()
stageSetPerspective :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> Perspective -> m ()
stageSetPerspective a
stage Perspective
perspective = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
Ptr Perspective
perspective' <- Perspective -> IO (Ptr Perspective)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Perspective
perspective
Ptr Stage -> Ptr Perspective -> IO ()
clutter_stage_set_perspective Ptr Stage
stage' Ptr Perspective
perspective'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
Perspective -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Perspective
perspective
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StageSetPerspectiveMethodInfo
instance (signature ~ (Clutter.Perspective.Perspective -> m ()), MonadIO m, IsStage a) => O.OverloadedMethod StageSetPerspectiveMethodInfo a signature where
overloadedMethod = stageSetPerspective
instance O.OverloadedMethodInfo StageSetPerspectiveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageSetPerspective",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageSetPerspective"
})
#endif
foreign import ccall "clutter_stage_set_throttle_motion_events" clutter_stage_set_throttle_motion_events ::
Ptr Stage ->
CInt ->
IO ()
stageSetThrottleMotionEvents ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> Bool
-> m ()
stageSetThrottleMotionEvents :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> Bool -> m ()
stageSetThrottleMotionEvents a
stage Bool
throttle = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
let throttle' :: CInt
throttle' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
throttle
Ptr Stage -> CInt -> IO ()
clutter_stage_set_throttle_motion_events Ptr Stage
stage' CInt
throttle'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StageSetThrottleMotionEventsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsStage a) => O.OverloadedMethod StageSetThrottleMotionEventsMethodInfo a signature where
overloadedMethod = stageSetThrottleMotionEvents
instance O.OverloadedMethodInfo StageSetThrottleMotionEventsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageSetThrottleMotionEvents",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageSetThrottleMotionEvents"
})
#endif
foreign import ccall "clutter_stage_set_title" clutter_stage_set_title ::
Ptr Stage ->
CString ->
IO ()
stageSetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> T.Text
-> m ()
stageSetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> Text -> m ()
stageSetTitle a
stage Text
title = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
CString
title' <- Text -> IO CString
textToCString Text
title
Ptr Stage -> CString -> IO ()
clutter_stage_set_title Ptr Stage
stage' CString
title'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
title'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StageSetTitleMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStage a) => O.OverloadedMethod StageSetTitleMethodInfo a signature where
overloadedMethod = stageSetTitle
instance O.OverloadedMethodInfo StageSetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageSetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageSetTitle"
})
#endif
foreign import ccall "clutter_stage_set_use_alpha" clutter_stage_set_use_alpha ::
Ptr Stage ->
CInt ->
IO ()
stageSetUseAlpha ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> Bool
-> m ()
stageSetUseAlpha :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> Bool -> m ()
stageSetUseAlpha a
stage Bool
useAlpha = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
let useAlpha' :: CInt
useAlpha' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
useAlpha
Ptr Stage -> CInt -> IO ()
clutter_stage_set_use_alpha Ptr Stage
stage' CInt
useAlpha'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StageSetUseAlphaMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsStage a) => O.OverloadedMethod StageSetUseAlphaMethodInfo a signature where
overloadedMethod = stageSetUseAlpha
instance O.OverloadedMethodInfo StageSetUseAlphaMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageSetUseAlpha",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageSetUseAlpha"
})
#endif
foreign import ccall "clutter_stage_set_use_fog" clutter_stage_set_use_fog ::
Ptr Stage ->
CInt ->
IO ()
{-# DEPRECATED stageSetUseFog ["(Since version 1.10)","Calling this function produces no visible effect"] #-}
stageSetUseFog ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> Bool
-> m ()
stageSetUseFog :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> Bool -> m ()
stageSetUseFog a
stage Bool
fog = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
let fog' :: CInt
fog' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
fog
Ptr Stage -> CInt -> IO ()
clutter_stage_set_use_fog Ptr Stage
stage' CInt
fog'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StageSetUseFogMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsStage a) => O.OverloadedMethod StageSetUseFogMethodInfo a signature where
overloadedMethod = stageSetUseFog
instance O.OverloadedMethodInfo StageSetUseFogMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageSetUseFog",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageSetUseFog"
})
#endif
foreign import ccall "clutter_stage_set_user_resizable" clutter_stage_set_user_resizable ::
Ptr Stage ->
CInt ->
IO ()
stageSetUserResizable ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> Bool
-> m ()
stageSetUserResizable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> Bool -> m ()
stageSetUserResizable a
stage Bool
resizable = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
let resizable' :: CInt
resizable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
resizable
Ptr Stage -> CInt -> IO ()
clutter_stage_set_user_resizable Ptr Stage
stage' CInt
resizable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StageSetUserResizableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsStage a) => O.OverloadedMethod StageSetUserResizableMethodInfo a signature where
overloadedMethod = stageSetUserResizable
instance O.OverloadedMethodInfo StageSetUserResizableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageSetUserResizable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageSetUserResizable"
})
#endif
foreign import ccall "clutter_stage_show_cursor" clutter_stage_show_cursor ::
Ptr Stage ->
IO ()
stageShowCursor ::
(B.CallStack.HasCallStack, MonadIO m, IsStage a) =>
a
-> m ()
stageShowCursor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStage a) =>
a -> m ()
stageShowCursor a
stage = 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 Stage
stage' <- a -> IO (Ptr Stage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stage
Ptr Stage -> IO ()
clutter_stage_show_cursor Ptr Stage
stage'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stage
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StageShowCursorMethodInfo
instance (signature ~ (m ()), MonadIO m, IsStage a) => O.OverloadedMethod StageShowCursorMethodInfo a signature where
overloadedMethod = stageShowCursor
instance O.OverloadedMethodInfo StageShowCursorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Stage.stageShowCursor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-Stage.html#v:stageShowCursor"
})
#endif
foreign import ccall "clutter_stage_get_default" clutter_stage_get_default ::
IO (Ptr Stage)
{-# DEPRECATED stageGetDefault ["(Since version 1.10)","Use 'GI.Clutter.Objects.Stage.stageNew' instead."] #-}
stageGetDefault ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Stage
stageGetDefault :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Stage
stageGetDefault = IO Stage -> m Stage
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Stage -> m Stage) -> IO Stage -> m Stage
forall a b. (a -> b) -> a -> b
$ do
Ptr Stage
result <- IO (Ptr Stage)
clutter_stage_get_default
Text -> Ptr Stage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"stageGetDefault" Ptr Stage
result
Stage
result' <- ((ManagedPtr Stage -> Stage) -> Ptr Stage -> IO Stage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Stage -> Stage
Stage) Ptr Stage
result
Stage -> IO Stage
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Stage
result'
#if defined(ENABLE_OVERLOADING)
#endif