{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Clutter.Objects.Text
(
Text(..) ,
IsText ,
toText ,
#if defined(ENABLE_OVERLOADING)
ResolveTextMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
TextActivateMethodInfo ,
#endif
textActivate ,
#if defined(ENABLE_OVERLOADING)
TextCoordsToPositionMethodInfo ,
#endif
textCoordsToPosition ,
#if defined(ENABLE_OVERLOADING)
TextDeleteCharsMethodInfo ,
#endif
textDeleteChars ,
#if defined(ENABLE_OVERLOADING)
TextDeleteSelectionMethodInfo ,
#endif
textDeleteSelection ,
#if defined(ENABLE_OVERLOADING)
TextDeleteTextMethodInfo ,
#endif
textDeleteText ,
#if defined(ENABLE_OVERLOADING)
TextGetActivatableMethodInfo ,
#endif
textGetActivatable ,
#if defined(ENABLE_OVERLOADING)
TextGetAttributesMethodInfo ,
#endif
textGetAttributes ,
#if defined(ENABLE_OVERLOADING)
TextGetBufferMethodInfo ,
#endif
textGetBuffer ,
#if defined(ENABLE_OVERLOADING)
TextGetCharsMethodInfo ,
#endif
textGetChars ,
#if defined(ENABLE_OVERLOADING)
TextGetColorMethodInfo ,
#endif
textGetColor ,
#if defined(ENABLE_OVERLOADING)
TextGetCursorColorMethodInfo ,
#endif
textGetCursorColor ,
#if defined(ENABLE_OVERLOADING)
TextGetCursorPositionMethodInfo ,
#endif
textGetCursorPosition ,
#if defined(ENABLE_OVERLOADING)
TextGetCursorRectMethodInfo ,
#endif
textGetCursorRect ,
#if defined(ENABLE_OVERLOADING)
TextGetCursorSizeMethodInfo ,
#endif
textGetCursorSize ,
#if defined(ENABLE_OVERLOADING)
TextGetCursorVisibleMethodInfo ,
#endif
textGetCursorVisible ,
#if defined(ENABLE_OVERLOADING)
TextGetEditableMethodInfo ,
#endif
textGetEditable ,
#if defined(ENABLE_OVERLOADING)
TextGetEllipsizeMethodInfo ,
#endif
textGetEllipsize ,
#if defined(ENABLE_OVERLOADING)
TextGetFontDescriptionMethodInfo ,
#endif
textGetFontDescription ,
#if defined(ENABLE_OVERLOADING)
TextGetFontNameMethodInfo ,
#endif
textGetFontName ,
#if defined(ENABLE_OVERLOADING)
TextGetJustifyMethodInfo ,
#endif
textGetJustify ,
#if defined(ENABLE_OVERLOADING)
TextGetLayoutMethodInfo ,
#endif
textGetLayout ,
#if defined(ENABLE_OVERLOADING)
TextGetLayoutOffsetsMethodInfo ,
#endif
textGetLayoutOffsets ,
#if defined(ENABLE_OVERLOADING)
TextGetLineAlignmentMethodInfo ,
#endif
textGetLineAlignment ,
#if defined(ENABLE_OVERLOADING)
TextGetLineWrapMethodInfo ,
#endif
textGetLineWrap ,
#if defined(ENABLE_OVERLOADING)
TextGetLineWrapModeMethodInfo ,
#endif
textGetLineWrapMode ,
#if defined(ENABLE_OVERLOADING)
TextGetMaxLengthMethodInfo ,
#endif
textGetMaxLength ,
#if defined(ENABLE_OVERLOADING)
TextGetPasswordCharMethodInfo ,
#endif
textGetPasswordChar ,
#if defined(ENABLE_OVERLOADING)
TextGetSelectableMethodInfo ,
#endif
textGetSelectable ,
#if defined(ENABLE_OVERLOADING)
TextGetSelectedTextColorMethodInfo ,
#endif
textGetSelectedTextColor ,
#if defined(ENABLE_OVERLOADING)
TextGetSelectionMethodInfo ,
#endif
textGetSelection ,
#if defined(ENABLE_OVERLOADING)
TextGetSelectionBoundMethodInfo ,
#endif
textGetSelectionBound ,
#if defined(ENABLE_OVERLOADING)
TextGetSelectionColorMethodInfo ,
#endif
textGetSelectionColor ,
#if defined(ENABLE_OVERLOADING)
TextGetSingleLineModeMethodInfo ,
#endif
textGetSingleLineMode ,
#if defined(ENABLE_OVERLOADING)
TextGetTextMethodInfo ,
#endif
textGetText ,
#if defined(ENABLE_OVERLOADING)
TextGetUseMarkupMethodInfo ,
#endif
textGetUseMarkup ,
#if defined(ENABLE_OVERLOADING)
TextInsertTextMethodInfo ,
#endif
textInsertText ,
#if defined(ENABLE_OVERLOADING)
TextInsertUnicharMethodInfo ,
#endif
textInsertUnichar ,
textNew ,
textNewFull ,
textNewWithBuffer ,
textNewWithText ,
#if defined(ENABLE_OVERLOADING)
TextPositionToCoordsMethodInfo ,
#endif
textPositionToCoords ,
#if defined(ENABLE_OVERLOADING)
TextSetActivatableMethodInfo ,
#endif
textSetActivatable ,
#if defined(ENABLE_OVERLOADING)
TextSetAttributesMethodInfo ,
#endif
textSetAttributes ,
#if defined(ENABLE_OVERLOADING)
TextSetBufferMethodInfo ,
#endif
textSetBuffer ,
#if defined(ENABLE_OVERLOADING)
TextSetColorMethodInfo ,
#endif
textSetColor ,
#if defined(ENABLE_OVERLOADING)
TextSetCursorColorMethodInfo ,
#endif
textSetCursorColor ,
#if defined(ENABLE_OVERLOADING)
TextSetCursorPositionMethodInfo ,
#endif
textSetCursorPosition ,
#if defined(ENABLE_OVERLOADING)
TextSetCursorSizeMethodInfo ,
#endif
textSetCursorSize ,
#if defined(ENABLE_OVERLOADING)
TextSetCursorVisibleMethodInfo ,
#endif
textSetCursorVisible ,
#if defined(ENABLE_OVERLOADING)
TextSetEditableMethodInfo ,
#endif
textSetEditable ,
#if defined(ENABLE_OVERLOADING)
TextSetEllipsizeMethodInfo ,
#endif
textSetEllipsize ,
#if defined(ENABLE_OVERLOADING)
TextSetFontDescriptionMethodInfo ,
#endif
textSetFontDescription ,
#if defined(ENABLE_OVERLOADING)
TextSetFontNameMethodInfo ,
#endif
textSetFontName ,
#if defined(ENABLE_OVERLOADING)
TextSetJustifyMethodInfo ,
#endif
textSetJustify ,
#if defined(ENABLE_OVERLOADING)
TextSetLineAlignmentMethodInfo ,
#endif
textSetLineAlignment ,
#if defined(ENABLE_OVERLOADING)
TextSetLineWrapMethodInfo ,
#endif
textSetLineWrap ,
#if defined(ENABLE_OVERLOADING)
TextSetLineWrapModeMethodInfo ,
#endif
textSetLineWrapMode ,
#if defined(ENABLE_OVERLOADING)
TextSetMarkupMethodInfo ,
#endif
textSetMarkup ,
#if defined(ENABLE_OVERLOADING)
TextSetMaxLengthMethodInfo ,
#endif
textSetMaxLength ,
#if defined(ENABLE_OVERLOADING)
TextSetPasswordCharMethodInfo ,
#endif
textSetPasswordChar ,
#if defined(ENABLE_OVERLOADING)
TextSetPreeditStringMethodInfo ,
#endif
textSetPreeditString ,
#if defined(ENABLE_OVERLOADING)
TextSetSelectableMethodInfo ,
#endif
textSetSelectable ,
#if defined(ENABLE_OVERLOADING)
TextSetSelectedTextColorMethodInfo ,
#endif
textSetSelectedTextColor ,
#if defined(ENABLE_OVERLOADING)
TextSetSelectionMethodInfo ,
#endif
textSetSelection ,
#if defined(ENABLE_OVERLOADING)
TextSetSelectionBoundMethodInfo ,
#endif
textSetSelectionBound ,
#if defined(ENABLE_OVERLOADING)
TextSetSelectionColorMethodInfo ,
#endif
textSetSelectionColor ,
#if defined(ENABLE_OVERLOADING)
TextSetSingleLineModeMethodInfo ,
#endif
textSetSingleLineMode ,
#if defined(ENABLE_OVERLOADING)
TextSetTextMethodInfo ,
#endif
textSetText ,
#if defined(ENABLE_OVERLOADING)
TextSetUseMarkupMethodInfo ,
#endif
textSetUseMarkup ,
#if defined(ENABLE_OVERLOADING)
TextActivatablePropertyInfo ,
#endif
constructTextActivatable ,
getTextActivatable ,
setTextActivatable ,
#if defined(ENABLE_OVERLOADING)
textActivatable ,
#endif
#if defined(ENABLE_OVERLOADING)
TextAttributesPropertyInfo ,
#endif
clearTextAttributes ,
constructTextAttributes ,
getTextAttributes ,
setTextAttributes ,
#if defined(ENABLE_OVERLOADING)
textAttributes ,
#endif
#if defined(ENABLE_OVERLOADING)
TextBufferPropertyInfo ,
#endif
constructTextBuffer ,
getTextBuffer ,
setTextBuffer ,
#if defined(ENABLE_OVERLOADING)
textBuffer ,
#endif
#if defined(ENABLE_OVERLOADING)
TextColorPropertyInfo ,
#endif
constructTextColor ,
getTextColor ,
setTextColor ,
#if defined(ENABLE_OVERLOADING)
textColor ,
#endif
#if defined(ENABLE_OVERLOADING)
TextCursorColorPropertyInfo ,
#endif
clearTextCursorColor ,
constructTextCursorColor ,
getTextCursorColor ,
setTextCursorColor ,
#if defined(ENABLE_OVERLOADING)
textCursorColor ,
#endif
#if defined(ENABLE_OVERLOADING)
TextCursorColorSetPropertyInfo ,
#endif
getTextCursorColorSet ,
#if defined(ENABLE_OVERLOADING)
textCursorColorSet ,
#endif
#if defined(ENABLE_OVERLOADING)
TextCursorPositionPropertyInfo ,
#endif
constructTextCursorPosition ,
getTextCursorPosition ,
setTextCursorPosition ,
#if defined(ENABLE_OVERLOADING)
textCursorPosition ,
#endif
#if defined(ENABLE_OVERLOADING)
TextCursorSizePropertyInfo ,
#endif
constructTextCursorSize ,
getTextCursorSize ,
setTextCursorSize ,
#if defined(ENABLE_OVERLOADING)
textCursorSize ,
#endif
#if defined(ENABLE_OVERLOADING)
TextCursorVisiblePropertyInfo ,
#endif
constructTextCursorVisible ,
getTextCursorVisible ,
setTextCursorVisible ,
#if defined(ENABLE_OVERLOADING)
textCursorVisible ,
#endif
#if defined(ENABLE_OVERLOADING)
TextEditablePropertyInfo ,
#endif
constructTextEditable ,
getTextEditable ,
setTextEditable ,
#if defined(ENABLE_OVERLOADING)
textEditable ,
#endif
#if defined(ENABLE_OVERLOADING)
TextEllipsizePropertyInfo ,
#endif
constructTextEllipsize ,
getTextEllipsize ,
setTextEllipsize ,
#if defined(ENABLE_OVERLOADING)
textEllipsize ,
#endif
#if defined(ENABLE_OVERLOADING)
TextFontDescriptionPropertyInfo ,
#endif
constructTextFontDescription ,
getTextFontDescription ,
setTextFontDescription ,
#if defined(ENABLE_OVERLOADING)
textFontDescription ,
#endif
#if defined(ENABLE_OVERLOADING)
TextFontNamePropertyInfo ,
#endif
clearTextFontName ,
constructTextFontName ,
getTextFontName ,
setTextFontName ,
#if defined(ENABLE_OVERLOADING)
textFontName ,
#endif
#if defined(ENABLE_OVERLOADING)
TextJustifyPropertyInfo ,
#endif
constructTextJustify ,
getTextJustify ,
setTextJustify ,
#if defined(ENABLE_OVERLOADING)
textJustify ,
#endif
#if defined(ENABLE_OVERLOADING)
TextLineAlignmentPropertyInfo ,
#endif
constructTextLineAlignment ,
getTextLineAlignment ,
setTextLineAlignment ,
#if defined(ENABLE_OVERLOADING)
textLineAlignment ,
#endif
#if defined(ENABLE_OVERLOADING)
TextLineWrapPropertyInfo ,
#endif
constructTextLineWrap ,
getTextLineWrap ,
setTextLineWrap ,
#if defined(ENABLE_OVERLOADING)
textLineWrap ,
#endif
#if defined(ENABLE_OVERLOADING)
TextLineWrapModePropertyInfo ,
#endif
constructTextLineWrapMode ,
getTextLineWrapMode ,
setTextLineWrapMode ,
#if defined(ENABLE_OVERLOADING)
textLineWrapMode ,
#endif
#if defined(ENABLE_OVERLOADING)
TextMaxLengthPropertyInfo ,
#endif
constructTextMaxLength ,
getTextMaxLength ,
setTextMaxLength ,
#if defined(ENABLE_OVERLOADING)
textMaxLength ,
#endif
#if defined(ENABLE_OVERLOADING)
TextPasswordCharPropertyInfo ,
#endif
constructTextPasswordChar ,
getTextPasswordChar ,
setTextPasswordChar ,
#if defined(ENABLE_OVERLOADING)
textPasswordChar ,
#endif
#if defined(ENABLE_OVERLOADING)
TextPositionPropertyInfo ,
#endif
constructTextPosition ,
getTextPosition ,
setTextPosition ,
#if defined(ENABLE_OVERLOADING)
textPosition ,
#endif
#if defined(ENABLE_OVERLOADING)
TextSelectablePropertyInfo ,
#endif
constructTextSelectable ,
getTextSelectable ,
setTextSelectable ,
#if defined(ENABLE_OVERLOADING)
textSelectable ,
#endif
#if defined(ENABLE_OVERLOADING)
TextSelectedTextColorPropertyInfo ,
#endif
clearTextSelectedTextColor ,
constructTextSelectedTextColor ,
getTextSelectedTextColor ,
setTextSelectedTextColor ,
#if defined(ENABLE_OVERLOADING)
textSelectedTextColor ,
#endif
#if defined(ENABLE_OVERLOADING)
TextSelectedTextColorSetPropertyInfo ,
#endif
getTextSelectedTextColorSet ,
#if defined(ENABLE_OVERLOADING)
textSelectedTextColorSet ,
#endif
#if defined(ENABLE_OVERLOADING)
TextSelectionBoundPropertyInfo ,
#endif
constructTextSelectionBound ,
getTextSelectionBound ,
setTextSelectionBound ,
#if defined(ENABLE_OVERLOADING)
textSelectionBound ,
#endif
#if defined(ENABLE_OVERLOADING)
TextSelectionColorPropertyInfo ,
#endif
clearTextSelectionColor ,
constructTextSelectionColor ,
getTextSelectionColor ,
setTextSelectionColor ,
#if defined(ENABLE_OVERLOADING)
textSelectionColor ,
#endif
#if defined(ENABLE_OVERLOADING)
TextSelectionColorSetPropertyInfo ,
#endif
getTextSelectionColorSet ,
#if defined(ENABLE_OVERLOADING)
textSelectionColorSet ,
#endif
#if defined(ENABLE_OVERLOADING)
TextSingleLineModePropertyInfo ,
#endif
constructTextSingleLineMode ,
getTextSingleLineMode ,
setTextSingleLineMode ,
#if defined(ENABLE_OVERLOADING)
textSingleLineMode ,
#endif
#if defined(ENABLE_OVERLOADING)
TextTextPropertyInfo ,
#endif
clearTextText ,
constructTextText ,
getTextText ,
setTextText ,
#if defined(ENABLE_OVERLOADING)
textText ,
#endif
#if defined(ENABLE_OVERLOADING)
TextUseMarkupPropertyInfo ,
#endif
constructTextUseMarkup ,
getTextUseMarkup ,
setTextUseMarkup ,
#if defined(ENABLE_OVERLOADING)
textUseMarkup ,
#endif
TextActivateCallback ,
#if defined(ENABLE_OVERLOADING)
TextActivateSignalInfo ,
#endif
afterTextActivate ,
onTextActivate ,
TextCursorChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TextCursorChangedSignalInfo ,
#endif
afterTextCursorChanged ,
onTextCursorChanged ,
TextCursorEventCallback ,
#if defined(ENABLE_OVERLOADING)
TextCursorEventSignalInfo ,
#endif
afterTextCursorEvent ,
onTextCursorEvent ,
TextDeleteTextCallback ,
#if defined(ENABLE_OVERLOADING)
TextDeleteTextSignalInfo ,
#endif
afterTextDeleteText ,
onTextDeleteText ,
TextInsertTextCallback ,
#if defined(ENABLE_OVERLOADING)
TextInsertTextSignalInfo ,
#endif
afterTextInsertText ,
onTextInsertText ,
TextTextChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TextTextChangedSignalInfo ,
#endif
afterTextTextChanged ,
onTextTextChanged ,
) 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.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import {-# SOURCE #-} qualified GI.Clutter.Interfaces.Animatable as Clutter.Animatable
import {-# SOURCE #-} qualified GI.Clutter.Interfaces.Container as Clutter.Container
import {-# SOURCE #-} qualified GI.Clutter.Interfaces.Scriptable as Clutter.Scriptable
import {-# SOURCE #-} qualified GI.Clutter.Objects.Actor as Clutter.Actor
import {-# SOURCE #-} qualified GI.Clutter.Objects.TextBuffer as Clutter.TextBuffer
import {-# SOURCE #-} qualified GI.Clutter.Structs.Color as Clutter.Color
import {-# SOURCE #-} qualified GI.Clutter.Structs.Geometry as Clutter.Geometry
import {-# SOURCE #-} qualified GI.Clutter.Structs.Rect as Clutter.Rect
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Pango.Enums as Pango.Enums
import qualified GI.Pango.Objects.Layout as Pango.Layout
import qualified GI.Pango.Structs.AttrList as Pango.AttrList
import qualified GI.Pango.Structs.FontDescription as Pango.FontDescription
newtype Text = Text (SP.ManagedPtr Text)
deriving (Text -> Text -> Bool
(Text -> Text -> Bool) -> (Text -> Text -> Bool) -> Eq Text
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Text -> Text -> Bool
$c/= :: Text -> Text -> Bool
== :: Text -> Text -> Bool
$c== :: Text -> Text -> Bool
Eq)
instance SP.ManagedPtrNewtype Text where
toManagedPtr :: Text -> ManagedPtr Text
toManagedPtr (Text ManagedPtr Text
p) = ManagedPtr Text
p
foreign import ccall "clutter_text_get_type"
c_clutter_text_get_type :: IO B.Types.GType
instance B.Types.TypedObject Text where
glibType :: IO GType
glibType = IO GType
c_clutter_text_get_type
instance B.Types.GObject Text
class (SP.GObject o, O.IsDescendantOf Text o) => IsText o
instance (SP.GObject o, O.IsDescendantOf Text o) => IsText o
instance O.HasParentTypes Text
type instance O.ParentTypes Text = '[Clutter.Actor.Actor, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Clutter.Animatable.Animatable, Clutter.Container.Container, Clutter.Scriptable.Scriptable]
toText :: (MIO.MonadIO m, IsText o) => o -> m Text
toText :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Text
toText = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> (o -> IO Text) -> o -> m Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Text -> Text) -> o -> IO Text
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Text -> Text
Text
instance B.GValue.IsGValue (Maybe Text) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_clutter_text_get_type
gvalueSet_ :: Ptr GValue -> Maybe Text -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Text
P.Nothing = Ptr GValue -> Ptr Text -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Text
forall a. Ptr a
FP.nullPtr :: FP.Ptr Text)
gvalueSet_ Ptr GValue
gv (P.Just Text
obj) = Text -> (Ptr Text -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Text
obj (Ptr GValue -> Ptr Text -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Text)
gvalueGet_ Ptr GValue
gv = do
Ptr Text
ptr <- Ptr GValue -> IO (Ptr Text)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Text)
if Ptr Text
ptr Ptr Text -> Ptr Text -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Text
forall a. Ptr a
FP.nullPtr
then Text -> Maybe Text
forall a. a -> Maybe a
P.Just (Text -> Maybe Text) -> IO Text -> IO (Maybe Text)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Text -> Text) -> Ptr Text -> IO Text
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Text -> Text
Text Ptr Text
ptr
else Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveTextMethod (t :: Symbol) (o :: *) :: * where
ResolveTextMethod "activate" o = TextActivateMethodInfo
ResolveTextMethod "addAction" o = Clutter.Actor.ActorAddActionMethodInfo
ResolveTextMethod "addActionWithName" o = Clutter.Actor.ActorAddActionWithNameMethodInfo
ResolveTextMethod "addActor" o = Clutter.Container.ContainerAddActorMethodInfo
ResolveTextMethod "addChild" o = Clutter.Actor.ActorAddChildMethodInfo
ResolveTextMethod "addConstraint" o = Clutter.Actor.ActorAddConstraintMethodInfo
ResolveTextMethod "addConstraintWithName" o = Clutter.Actor.ActorAddConstraintWithNameMethodInfo
ResolveTextMethod "addEffect" o = Clutter.Actor.ActorAddEffectMethodInfo
ResolveTextMethod "addEffectWithName" o = Clutter.Actor.ActorAddEffectWithNameMethodInfo
ResolveTextMethod "addTransition" o = Clutter.Actor.ActorAddTransitionMethodInfo
ResolveTextMethod "allocate" o = Clutter.Actor.ActorAllocateMethodInfo
ResolveTextMethod "allocateAlignFill" o = Clutter.Actor.ActorAllocateAlignFillMethodInfo
ResolveTextMethod "allocateAvailableSize" o = Clutter.Actor.ActorAllocateAvailableSizeMethodInfo
ResolveTextMethod "allocatePreferredSize" o = Clutter.Actor.ActorAllocatePreferredSizeMethodInfo
ResolveTextMethod "animateProperty" o = Clutter.Animatable.AnimatableAnimatePropertyMethodInfo
ResolveTextMethod "animateWithAlphav" o = Clutter.Actor.ActorAnimateWithAlphavMethodInfo
ResolveTextMethod "animateWithTimelinev" o = Clutter.Actor.ActorAnimateWithTimelinevMethodInfo
ResolveTextMethod "animatev" o = Clutter.Actor.ActorAnimatevMethodInfo
ResolveTextMethod "applyRelativeTransformToPoint" o = Clutter.Actor.ActorApplyRelativeTransformToPointMethodInfo
ResolveTextMethod "applyTransformToPoint" o = Clutter.Actor.ActorApplyTransformToPointMethodInfo
ResolveTextMethod "bindModel" o = Clutter.Actor.ActorBindModelMethodInfo
ResolveTextMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTextMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTextMethod "childGetProperty" o = Clutter.Container.ContainerChildGetPropertyMethodInfo
ResolveTextMethod "childNotify" o = Clutter.Container.ContainerChildNotifyMethodInfo
ResolveTextMethod "childSetProperty" o = Clutter.Container.ContainerChildSetPropertyMethodInfo
ResolveTextMethod "clearActions" o = Clutter.Actor.ActorClearActionsMethodInfo
ResolveTextMethod "clearConstraints" o = Clutter.Actor.ActorClearConstraintsMethodInfo
ResolveTextMethod "clearEffects" o = Clutter.Actor.ActorClearEffectsMethodInfo
ResolveTextMethod "contains" o = Clutter.Actor.ActorContainsMethodInfo
ResolveTextMethod "continuePaint" o = Clutter.Actor.ActorContinuePaintMethodInfo
ResolveTextMethod "coordsToPosition" o = TextCoordsToPositionMethodInfo
ResolveTextMethod "createChildMeta" o = Clutter.Container.ContainerCreateChildMetaMethodInfo
ResolveTextMethod "createPangoContext" o = Clutter.Actor.ActorCreatePangoContextMethodInfo
ResolveTextMethod "createPangoLayout" o = Clutter.Actor.ActorCreatePangoLayoutMethodInfo
ResolveTextMethod "deleteChars" o = TextDeleteCharsMethodInfo
ResolveTextMethod "deleteSelection" o = TextDeleteSelectionMethodInfo
ResolveTextMethod "deleteText" o = TextDeleteTextMethodInfo
ResolveTextMethod "destroy" o = Clutter.Actor.ActorDestroyMethodInfo
ResolveTextMethod "destroyAllChildren" o = Clutter.Actor.ActorDestroyAllChildrenMethodInfo
ResolveTextMethod "destroyChildMeta" o = Clutter.Container.ContainerDestroyChildMetaMethodInfo
ResolveTextMethod "detachAnimation" o = Clutter.Actor.ActorDetachAnimationMethodInfo
ResolveTextMethod "event" o = Clutter.Actor.ActorEventMethodInfo
ResolveTextMethod "findChildByName" o = Clutter.Container.ContainerFindChildByNameMethodInfo
ResolveTextMethod "findProperty" o = Clutter.Animatable.AnimatableFindPropertyMethodInfo
ResolveTextMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTextMethod "foreach" o = Clutter.Container.ContainerForeachMethodInfo
ResolveTextMethod "foreachWithInternals" o = Clutter.Container.ContainerForeachWithInternalsMethodInfo
ResolveTextMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTextMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTextMethod "grabKeyFocus" o = Clutter.Actor.ActorGrabKeyFocusMethodInfo
ResolveTextMethod "hasActions" o = Clutter.Actor.ActorHasActionsMethodInfo
ResolveTextMethod "hasAllocation" o = Clutter.Actor.ActorHasAllocationMethodInfo
ResolveTextMethod "hasClip" o = Clutter.Actor.ActorHasClipMethodInfo
ResolveTextMethod "hasConstraints" o = Clutter.Actor.ActorHasConstraintsMethodInfo
ResolveTextMethod "hasEffects" o = Clutter.Actor.ActorHasEffectsMethodInfo
ResolveTextMethod "hasKeyFocus" o = Clutter.Actor.ActorHasKeyFocusMethodInfo
ResolveTextMethod "hasOverlaps" o = Clutter.Actor.ActorHasOverlapsMethodInfo
ResolveTextMethod "hasPointer" o = Clutter.Actor.ActorHasPointerMethodInfo
ResolveTextMethod "hide" o = Clutter.Actor.ActorHideMethodInfo
ResolveTextMethod "hideAll" o = Clutter.Actor.ActorHideAllMethodInfo
ResolveTextMethod "insertChildAbove" o = Clutter.Actor.ActorInsertChildAboveMethodInfo
ResolveTextMethod "insertChildAtIndex" o = Clutter.Actor.ActorInsertChildAtIndexMethodInfo
ResolveTextMethod "insertChildBelow" o = Clutter.Actor.ActorInsertChildBelowMethodInfo
ResolveTextMethod "insertText" o = TextInsertTextMethodInfo
ResolveTextMethod "insertUnichar" o = TextInsertUnicharMethodInfo
ResolveTextMethod "interpolateValue" o = Clutter.Animatable.AnimatableInterpolateValueMethodInfo
ResolveTextMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTextMethod "isInClonePaint" o = Clutter.Actor.ActorIsInClonePaintMethodInfo
ResolveTextMethod "isMapped" o = Clutter.Actor.ActorIsMappedMethodInfo
ResolveTextMethod "isRealized" o = Clutter.Actor.ActorIsRealizedMethodInfo
ResolveTextMethod "isRotated" o = Clutter.Actor.ActorIsRotatedMethodInfo
ResolveTextMethod "isScaled" o = Clutter.Actor.ActorIsScaledMethodInfo
ResolveTextMethod "isVisible" o = Clutter.Actor.ActorIsVisibleMethodInfo
ResolveTextMethod "lower" o = Clutter.Actor.ActorLowerMethodInfo
ResolveTextMethod "lowerBottom" o = Clutter.Actor.ActorLowerBottomMethodInfo
ResolveTextMethod "lowerChild" o = Clutter.Container.ContainerLowerChildMethodInfo
ResolveTextMethod "map" o = Clutter.Actor.ActorMapMethodInfo
ResolveTextMethod "moveAnchorPoint" o = Clutter.Actor.ActorMoveAnchorPointMethodInfo
ResolveTextMethod "moveAnchorPointFromGravity" o = Clutter.Actor.ActorMoveAnchorPointFromGravityMethodInfo
ResolveTextMethod "moveBy" o = Clutter.Actor.ActorMoveByMethodInfo
ResolveTextMethod "needsExpand" o = Clutter.Actor.ActorNeedsExpandMethodInfo
ResolveTextMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTextMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTextMethod "paint" o = Clutter.Actor.ActorPaintMethodInfo
ResolveTextMethod "parseCustomNode" o = Clutter.Scriptable.ScriptableParseCustomNodeMethodInfo
ResolveTextMethod "popInternal" o = Clutter.Actor.ActorPopInternalMethodInfo
ResolveTextMethod "positionToCoords" o = TextPositionToCoordsMethodInfo
ResolveTextMethod "pushInternal" o = Clutter.Actor.ActorPushInternalMethodInfo
ResolveTextMethod "queueRedraw" o = Clutter.Actor.ActorQueueRedrawMethodInfo
ResolveTextMethod "queueRedrawWithClip" o = Clutter.Actor.ActorQueueRedrawWithClipMethodInfo
ResolveTextMethod "queueRelayout" o = Clutter.Actor.ActorQueueRelayoutMethodInfo
ResolveTextMethod "raise" o = Clutter.Actor.ActorRaiseMethodInfo
ResolveTextMethod "raiseChild" o = Clutter.Container.ContainerRaiseChildMethodInfo
ResolveTextMethod "raiseTop" o = Clutter.Actor.ActorRaiseTopMethodInfo
ResolveTextMethod "realize" o = Clutter.Actor.ActorRealizeMethodInfo
ResolveTextMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTextMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTextMethod "removeAction" o = Clutter.Actor.ActorRemoveActionMethodInfo
ResolveTextMethod "removeActionByName" o = Clutter.Actor.ActorRemoveActionByNameMethodInfo
ResolveTextMethod "removeActor" o = Clutter.Container.ContainerRemoveActorMethodInfo
ResolveTextMethod "removeAllChildren" o = Clutter.Actor.ActorRemoveAllChildrenMethodInfo
ResolveTextMethod "removeAllTransitions" o = Clutter.Actor.ActorRemoveAllTransitionsMethodInfo
ResolveTextMethod "removeChild" o = Clutter.Actor.ActorRemoveChildMethodInfo
ResolveTextMethod "removeClip" o = Clutter.Actor.ActorRemoveClipMethodInfo
ResolveTextMethod "removeConstraint" o = Clutter.Actor.ActorRemoveConstraintMethodInfo
ResolveTextMethod "removeConstraintByName" o = Clutter.Actor.ActorRemoveConstraintByNameMethodInfo
ResolveTextMethod "removeEffect" o = Clutter.Actor.ActorRemoveEffectMethodInfo
ResolveTextMethod "removeEffectByName" o = Clutter.Actor.ActorRemoveEffectByNameMethodInfo
ResolveTextMethod "removeTransition" o = Clutter.Actor.ActorRemoveTransitionMethodInfo
ResolveTextMethod "reparent" o = Clutter.Actor.ActorReparentMethodInfo
ResolveTextMethod "replaceChild" o = Clutter.Actor.ActorReplaceChildMethodInfo
ResolveTextMethod "restoreEasingState" o = Clutter.Actor.ActorRestoreEasingStateMethodInfo
ResolveTextMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTextMethod "saveEasingState" o = Clutter.Actor.ActorSaveEasingStateMethodInfo
ResolveTextMethod "shouldPickPaint" o = Clutter.Actor.ActorShouldPickPaintMethodInfo
ResolveTextMethod "show" o = Clutter.Actor.ActorShowMethodInfo
ResolveTextMethod "showAll" o = Clutter.Actor.ActorShowAllMethodInfo
ResolveTextMethod "sortDepthOrder" o = Clutter.Container.ContainerSortDepthOrderMethodInfo
ResolveTextMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTextMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTextMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTextMethod "transformStagePoint" o = Clutter.Actor.ActorTransformStagePointMethodInfo
ResolveTextMethod "unmap" o = Clutter.Actor.ActorUnmapMethodInfo
ResolveTextMethod "unparent" o = Clutter.Actor.ActorUnparentMethodInfo
ResolveTextMethod "unrealize" o = Clutter.Actor.ActorUnrealizeMethodInfo
ResolveTextMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTextMethod "unsetFlags" o = Clutter.Actor.ActorUnsetFlagsMethodInfo
ResolveTextMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTextMethod "getAbsAllocationVertices" o = Clutter.Actor.ActorGetAbsAllocationVerticesMethodInfo
ResolveTextMethod "getAccessible" o = Clutter.Actor.ActorGetAccessibleMethodInfo
ResolveTextMethod "getAction" o = Clutter.Actor.ActorGetActionMethodInfo
ResolveTextMethod "getActions" o = Clutter.Actor.ActorGetActionsMethodInfo
ResolveTextMethod "getActivatable" o = TextGetActivatableMethodInfo
ResolveTextMethod "getAllocationBox" o = Clutter.Actor.ActorGetAllocationBoxMethodInfo
ResolveTextMethod "getAllocationGeometry" o = Clutter.Actor.ActorGetAllocationGeometryMethodInfo
ResolveTextMethod "getAllocationVertices" o = Clutter.Actor.ActorGetAllocationVerticesMethodInfo
ResolveTextMethod "getAnchorPoint" o = Clutter.Actor.ActorGetAnchorPointMethodInfo
ResolveTextMethod "getAnchorPointGravity" o = Clutter.Actor.ActorGetAnchorPointGravityMethodInfo
ResolveTextMethod "getAnimation" o = Clutter.Actor.ActorGetAnimationMethodInfo
ResolveTextMethod "getAttributes" o = TextGetAttributesMethodInfo
ResolveTextMethod "getBackgroundColor" o = Clutter.Actor.ActorGetBackgroundColorMethodInfo
ResolveTextMethod "getBuffer" o = TextGetBufferMethodInfo
ResolveTextMethod "getChars" o = TextGetCharsMethodInfo
ResolveTextMethod "getChildAtIndex" o = Clutter.Actor.ActorGetChildAtIndexMethodInfo
ResolveTextMethod "getChildMeta" o = Clutter.Container.ContainerGetChildMetaMethodInfo
ResolveTextMethod "getChildTransform" o = Clutter.Actor.ActorGetChildTransformMethodInfo
ResolveTextMethod "getChildren" o = Clutter.Actor.ActorGetChildrenMethodInfo
ResolveTextMethod "getClip" o = Clutter.Actor.ActorGetClipMethodInfo
ResolveTextMethod "getClipToAllocation" o = Clutter.Actor.ActorGetClipToAllocationMethodInfo
ResolveTextMethod "getColor" o = TextGetColorMethodInfo
ResolveTextMethod "getConstraint" o = Clutter.Actor.ActorGetConstraintMethodInfo
ResolveTextMethod "getConstraints" o = Clutter.Actor.ActorGetConstraintsMethodInfo
ResolveTextMethod "getContent" o = Clutter.Actor.ActorGetContentMethodInfo
ResolveTextMethod "getContentBox" o = Clutter.Actor.ActorGetContentBoxMethodInfo
ResolveTextMethod "getContentGravity" o = Clutter.Actor.ActorGetContentGravityMethodInfo
ResolveTextMethod "getContentRepeat" o = Clutter.Actor.ActorGetContentRepeatMethodInfo
ResolveTextMethod "getContentScalingFilters" o = Clutter.Actor.ActorGetContentScalingFiltersMethodInfo
ResolveTextMethod "getCursorColor" o = TextGetCursorColorMethodInfo
ResolveTextMethod "getCursorPosition" o = TextGetCursorPositionMethodInfo
ResolveTextMethod "getCursorRect" o = TextGetCursorRectMethodInfo
ResolveTextMethod "getCursorSize" o = TextGetCursorSizeMethodInfo
ResolveTextMethod "getCursorVisible" o = TextGetCursorVisibleMethodInfo
ResolveTextMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTextMethod "getDefaultPaintVolume" o = Clutter.Actor.ActorGetDefaultPaintVolumeMethodInfo
ResolveTextMethod "getDepth" o = Clutter.Actor.ActorGetDepthMethodInfo
ResolveTextMethod "getEasingDelay" o = Clutter.Actor.ActorGetEasingDelayMethodInfo
ResolveTextMethod "getEasingDuration" o = Clutter.Actor.ActorGetEasingDurationMethodInfo
ResolveTextMethod "getEasingMode" o = Clutter.Actor.ActorGetEasingModeMethodInfo
ResolveTextMethod "getEditable" o = TextGetEditableMethodInfo
ResolveTextMethod "getEffect" o = Clutter.Actor.ActorGetEffectMethodInfo
ResolveTextMethod "getEffects" o = Clutter.Actor.ActorGetEffectsMethodInfo
ResolveTextMethod "getEllipsize" o = TextGetEllipsizeMethodInfo
ResolveTextMethod "getFirstChild" o = Clutter.Actor.ActorGetFirstChildMethodInfo
ResolveTextMethod "getFixedPositionSet" o = Clutter.Actor.ActorGetFixedPositionSetMethodInfo
ResolveTextMethod "getFlags" o = Clutter.Actor.ActorGetFlagsMethodInfo
ResolveTextMethod "getFontDescription" o = TextGetFontDescriptionMethodInfo
ResolveTextMethod "getFontName" o = TextGetFontNameMethodInfo
ResolveTextMethod "getGeometry" o = Clutter.Actor.ActorGetGeometryMethodInfo
ResolveTextMethod "getGid" o = Clutter.Actor.ActorGetGidMethodInfo
ResolveTextMethod "getHeight" o = Clutter.Actor.ActorGetHeightMethodInfo
ResolveTextMethod "getId" o = Clutter.Scriptable.ScriptableGetIdMethodInfo
ResolveTextMethod "getInitialState" o = Clutter.Animatable.AnimatableGetInitialStateMethodInfo
ResolveTextMethod "getJustify" o = TextGetJustifyMethodInfo
ResolveTextMethod "getLastChild" o = Clutter.Actor.ActorGetLastChildMethodInfo
ResolveTextMethod "getLayout" o = TextGetLayoutMethodInfo
ResolveTextMethod "getLayoutManager" o = Clutter.Actor.ActorGetLayoutManagerMethodInfo
ResolveTextMethod "getLayoutOffsets" o = TextGetLayoutOffsetsMethodInfo
ResolveTextMethod "getLineAlignment" o = TextGetLineAlignmentMethodInfo
ResolveTextMethod "getLineWrap" o = TextGetLineWrapMethodInfo
ResolveTextMethod "getLineWrapMode" o = TextGetLineWrapModeMethodInfo
ResolveTextMethod "getMargin" o = Clutter.Actor.ActorGetMarginMethodInfo
ResolveTextMethod "getMarginBottom" o = Clutter.Actor.ActorGetMarginBottomMethodInfo
ResolveTextMethod "getMarginLeft" o = Clutter.Actor.ActorGetMarginLeftMethodInfo
ResolveTextMethod "getMarginRight" o = Clutter.Actor.ActorGetMarginRightMethodInfo
ResolveTextMethod "getMarginTop" o = Clutter.Actor.ActorGetMarginTopMethodInfo
ResolveTextMethod "getMaxLength" o = TextGetMaxLengthMethodInfo
ResolveTextMethod "getNChildren" o = Clutter.Actor.ActorGetNChildrenMethodInfo
ResolveTextMethod "getName" o = Clutter.Actor.ActorGetNameMethodInfo
ResolveTextMethod "getNextSibling" o = Clutter.Actor.ActorGetNextSiblingMethodInfo
ResolveTextMethod "getOffscreenRedirect" o = Clutter.Actor.ActorGetOffscreenRedirectMethodInfo
ResolveTextMethod "getOpacity" o = Clutter.Actor.ActorGetOpacityMethodInfo
ResolveTextMethod "getPaintBox" o = Clutter.Actor.ActorGetPaintBoxMethodInfo
ResolveTextMethod "getPaintOpacity" o = Clutter.Actor.ActorGetPaintOpacityMethodInfo
ResolveTextMethod "getPaintVisibility" o = Clutter.Actor.ActorGetPaintVisibilityMethodInfo
ResolveTextMethod "getPaintVolume" o = Clutter.Actor.ActorGetPaintVolumeMethodInfo
ResolveTextMethod "getPangoContext" o = Clutter.Actor.ActorGetPangoContextMethodInfo
ResolveTextMethod "getParent" o = Clutter.Actor.ActorGetParentMethodInfo
ResolveTextMethod "getPasswordChar" o = TextGetPasswordCharMethodInfo
ResolveTextMethod "getPivotPoint" o = Clutter.Actor.ActorGetPivotPointMethodInfo
ResolveTextMethod "getPivotPointZ" o = Clutter.Actor.ActorGetPivotPointZMethodInfo
ResolveTextMethod "getPosition" o = Clutter.Actor.ActorGetPositionMethodInfo
ResolveTextMethod "getPreferredHeight" o = Clutter.Actor.ActorGetPreferredHeightMethodInfo
ResolveTextMethod "getPreferredSize" o = Clutter.Actor.ActorGetPreferredSizeMethodInfo
ResolveTextMethod "getPreferredWidth" o = Clutter.Actor.ActorGetPreferredWidthMethodInfo
ResolveTextMethod "getPreviousSibling" o = Clutter.Actor.ActorGetPreviousSiblingMethodInfo
ResolveTextMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTextMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTextMethod "getReactive" o = Clutter.Actor.ActorGetReactiveMethodInfo
ResolveTextMethod "getRequestMode" o = Clutter.Actor.ActorGetRequestModeMethodInfo
ResolveTextMethod "getRotation" o = Clutter.Actor.ActorGetRotationMethodInfo
ResolveTextMethod "getRotationAngle" o = Clutter.Actor.ActorGetRotationAngleMethodInfo
ResolveTextMethod "getScale" o = Clutter.Actor.ActorGetScaleMethodInfo
ResolveTextMethod "getScaleCenter" o = Clutter.Actor.ActorGetScaleCenterMethodInfo
ResolveTextMethod "getScaleGravity" o = Clutter.Actor.ActorGetScaleGravityMethodInfo
ResolveTextMethod "getScaleZ" o = Clutter.Actor.ActorGetScaleZMethodInfo
ResolveTextMethod "getSelectable" o = TextGetSelectableMethodInfo
ResolveTextMethod "getSelectedTextColor" o = TextGetSelectedTextColorMethodInfo
ResolveTextMethod "getSelection" o = TextGetSelectionMethodInfo
ResolveTextMethod "getSelectionBound" o = TextGetSelectionBoundMethodInfo
ResolveTextMethod "getSelectionColor" o = TextGetSelectionColorMethodInfo
ResolveTextMethod "getShader" o = Clutter.Actor.ActorGetShaderMethodInfo
ResolveTextMethod "getSingleLineMode" o = TextGetSingleLineModeMethodInfo
ResolveTextMethod "getSize" o = Clutter.Actor.ActorGetSizeMethodInfo
ResolveTextMethod "getStage" o = Clutter.Actor.ActorGetStageMethodInfo
ResolveTextMethod "getText" o = TextGetTextMethodInfo
ResolveTextMethod "getTextDirection" o = Clutter.Actor.ActorGetTextDirectionMethodInfo
ResolveTextMethod "getTransform" o = Clutter.Actor.ActorGetTransformMethodInfo
ResolveTextMethod "getTransformationMatrix" o = Clutter.Actor.ActorGetTransformationMatrixMethodInfo
ResolveTextMethod "getTransformedPaintVolume" o = Clutter.Actor.ActorGetTransformedPaintVolumeMethodInfo
ResolveTextMethod "getTransformedPosition" o = Clutter.Actor.ActorGetTransformedPositionMethodInfo
ResolveTextMethod "getTransformedSize" o = Clutter.Actor.ActorGetTransformedSizeMethodInfo
ResolveTextMethod "getTransition" o = Clutter.Actor.ActorGetTransitionMethodInfo
ResolveTextMethod "getTranslation" o = Clutter.Actor.ActorGetTranslationMethodInfo
ResolveTextMethod "getUseMarkup" o = TextGetUseMarkupMethodInfo
ResolveTextMethod "getWidth" o = Clutter.Actor.ActorGetWidthMethodInfo
ResolveTextMethod "getX" o = Clutter.Actor.ActorGetXMethodInfo
ResolveTextMethod "getXAlign" o = Clutter.Actor.ActorGetXAlignMethodInfo
ResolveTextMethod "getXExpand" o = Clutter.Actor.ActorGetXExpandMethodInfo
ResolveTextMethod "getY" o = Clutter.Actor.ActorGetYMethodInfo
ResolveTextMethod "getYAlign" o = Clutter.Actor.ActorGetYAlignMethodInfo
ResolveTextMethod "getYExpand" o = Clutter.Actor.ActorGetYExpandMethodInfo
ResolveTextMethod "getZPosition" o = Clutter.Actor.ActorGetZPositionMethodInfo
ResolveTextMethod "getZRotationGravity" o = Clutter.Actor.ActorGetZRotationGravityMethodInfo
ResolveTextMethod "setActivatable" o = TextSetActivatableMethodInfo
ResolveTextMethod "setAllocation" o = Clutter.Actor.ActorSetAllocationMethodInfo
ResolveTextMethod "setAnchorPoint" o = Clutter.Actor.ActorSetAnchorPointMethodInfo
ResolveTextMethod "setAnchorPointFromGravity" o = Clutter.Actor.ActorSetAnchorPointFromGravityMethodInfo
ResolveTextMethod "setAttributes" o = TextSetAttributesMethodInfo
ResolveTextMethod "setBackgroundColor" o = Clutter.Actor.ActorSetBackgroundColorMethodInfo
ResolveTextMethod "setBuffer" o = TextSetBufferMethodInfo
ResolveTextMethod "setChildAboveSibling" o = Clutter.Actor.ActorSetChildAboveSiblingMethodInfo
ResolveTextMethod "setChildAtIndex" o = Clutter.Actor.ActorSetChildAtIndexMethodInfo
ResolveTextMethod "setChildBelowSibling" o = Clutter.Actor.ActorSetChildBelowSiblingMethodInfo
ResolveTextMethod "setChildTransform" o = Clutter.Actor.ActorSetChildTransformMethodInfo
ResolveTextMethod "setClip" o = Clutter.Actor.ActorSetClipMethodInfo
ResolveTextMethod "setClipToAllocation" o = Clutter.Actor.ActorSetClipToAllocationMethodInfo
ResolveTextMethod "setColor" o = TextSetColorMethodInfo
ResolveTextMethod "setContent" o = Clutter.Actor.ActorSetContentMethodInfo
ResolveTextMethod "setContentGravity" o = Clutter.Actor.ActorSetContentGravityMethodInfo
ResolveTextMethod "setContentRepeat" o = Clutter.Actor.ActorSetContentRepeatMethodInfo
ResolveTextMethod "setContentScalingFilters" o = Clutter.Actor.ActorSetContentScalingFiltersMethodInfo
ResolveTextMethod "setCursorColor" o = TextSetCursorColorMethodInfo
ResolveTextMethod "setCursorPosition" o = TextSetCursorPositionMethodInfo
ResolveTextMethod "setCursorSize" o = TextSetCursorSizeMethodInfo
ResolveTextMethod "setCursorVisible" o = TextSetCursorVisibleMethodInfo
ResolveTextMethod "setCustomProperty" o = Clutter.Scriptable.ScriptableSetCustomPropertyMethodInfo
ResolveTextMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTextMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveTextMethod "setDepth" o = Clutter.Actor.ActorSetDepthMethodInfo
ResolveTextMethod "setEasingDelay" o = Clutter.Actor.ActorSetEasingDelayMethodInfo
ResolveTextMethod "setEasingDuration" o = Clutter.Actor.ActorSetEasingDurationMethodInfo
ResolveTextMethod "setEasingMode" o = Clutter.Actor.ActorSetEasingModeMethodInfo
ResolveTextMethod "setEditable" o = TextSetEditableMethodInfo
ResolveTextMethod "setEllipsize" o = TextSetEllipsizeMethodInfo
ResolveTextMethod "setFinalState" o = Clutter.Animatable.AnimatableSetFinalStateMethodInfo
ResolveTextMethod "setFixedPositionSet" o = Clutter.Actor.ActorSetFixedPositionSetMethodInfo
ResolveTextMethod "setFlags" o = Clutter.Actor.ActorSetFlagsMethodInfo
ResolveTextMethod "setFontDescription" o = TextSetFontDescriptionMethodInfo
ResolveTextMethod "setFontName" o = TextSetFontNameMethodInfo
ResolveTextMethod "setGeometry" o = Clutter.Actor.ActorSetGeometryMethodInfo
ResolveTextMethod "setHeight" o = Clutter.Actor.ActorSetHeightMethodInfo
ResolveTextMethod "setId" o = Clutter.Scriptable.ScriptableSetIdMethodInfo
ResolveTextMethod "setJustify" o = TextSetJustifyMethodInfo
ResolveTextMethod "setLayoutManager" o = Clutter.Actor.ActorSetLayoutManagerMethodInfo
ResolveTextMethod "setLineAlignment" o = TextSetLineAlignmentMethodInfo
ResolveTextMethod "setLineWrap" o = TextSetLineWrapMethodInfo
ResolveTextMethod "setLineWrapMode" o = TextSetLineWrapModeMethodInfo
ResolveTextMethod "setMargin" o = Clutter.Actor.ActorSetMarginMethodInfo
ResolveTextMethod "setMarginBottom" o = Clutter.Actor.ActorSetMarginBottomMethodInfo
ResolveTextMethod "setMarginLeft" o = Clutter.Actor.ActorSetMarginLeftMethodInfo
ResolveTextMethod "setMarginRight" o = Clutter.Actor.ActorSetMarginRightMethodInfo
ResolveTextMethod "setMarginTop" o = Clutter.Actor.ActorSetMarginTopMethodInfo
ResolveTextMethod "setMarkup" o = TextSetMarkupMethodInfo
ResolveTextMethod "setMaxLength" o = TextSetMaxLengthMethodInfo
ResolveTextMethod "setName" o = Clutter.Actor.ActorSetNameMethodInfo
ResolveTextMethod "setOffscreenRedirect" o = Clutter.Actor.ActorSetOffscreenRedirectMethodInfo
ResolveTextMethod "setOpacity" o = Clutter.Actor.ActorSetOpacityMethodInfo
ResolveTextMethod "setParent" o = Clutter.Actor.ActorSetParentMethodInfo
ResolveTextMethod "setPasswordChar" o = TextSetPasswordCharMethodInfo
ResolveTextMethod "setPivotPoint" o = Clutter.Actor.ActorSetPivotPointMethodInfo
ResolveTextMethod "setPivotPointZ" o = Clutter.Actor.ActorSetPivotPointZMethodInfo
ResolveTextMethod "setPosition" o = Clutter.Actor.ActorSetPositionMethodInfo
ResolveTextMethod "setPreeditString" o = TextSetPreeditStringMethodInfo
ResolveTextMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTextMethod "setReactive" o = Clutter.Actor.ActorSetReactiveMethodInfo
ResolveTextMethod "setRequestMode" o = Clutter.Actor.ActorSetRequestModeMethodInfo
ResolveTextMethod "setRotation" o = Clutter.Actor.ActorSetRotationMethodInfo
ResolveTextMethod "setRotationAngle" o = Clutter.Actor.ActorSetRotationAngleMethodInfo
ResolveTextMethod "setScale" o = Clutter.Actor.ActorSetScaleMethodInfo
ResolveTextMethod "setScaleFull" o = Clutter.Actor.ActorSetScaleFullMethodInfo
ResolveTextMethod "setScaleWithGravity" o = Clutter.Actor.ActorSetScaleWithGravityMethodInfo
ResolveTextMethod "setScaleZ" o = Clutter.Actor.ActorSetScaleZMethodInfo
ResolveTextMethod "setSelectable" o = TextSetSelectableMethodInfo
ResolveTextMethod "setSelectedTextColor" o = TextSetSelectedTextColorMethodInfo
ResolveTextMethod "setSelection" o = TextSetSelectionMethodInfo
ResolveTextMethod "setSelectionBound" o = TextSetSelectionBoundMethodInfo
ResolveTextMethod "setSelectionColor" o = TextSetSelectionColorMethodInfo
ResolveTextMethod "setShader" o = Clutter.Actor.ActorSetShaderMethodInfo
ResolveTextMethod "setShaderParam" o = Clutter.Actor.ActorSetShaderParamMethodInfo
ResolveTextMethod "setShaderParamFloat" o = Clutter.Actor.ActorSetShaderParamFloatMethodInfo
ResolveTextMethod "setShaderParamInt" o = Clutter.Actor.ActorSetShaderParamIntMethodInfo
ResolveTextMethod "setSingleLineMode" o = TextSetSingleLineModeMethodInfo
ResolveTextMethod "setSize" o = Clutter.Actor.ActorSetSizeMethodInfo
ResolveTextMethod "setText" o = TextSetTextMethodInfo
ResolveTextMethod "setTextDirection" o = Clutter.Actor.ActorSetTextDirectionMethodInfo
ResolveTextMethod "setTransform" o = Clutter.Actor.ActorSetTransformMethodInfo
ResolveTextMethod "setTranslation" o = Clutter.Actor.ActorSetTranslationMethodInfo
ResolveTextMethod "setUseMarkup" o = TextSetUseMarkupMethodInfo
ResolveTextMethod "setWidth" o = Clutter.Actor.ActorSetWidthMethodInfo
ResolveTextMethod "setX" o = Clutter.Actor.ActorSetXMethodInfo
ResolveTextMethod "setXAlign" o = Clutter.Actor.ActorSetXAlignMethodInfo
ResolveTextMethod "setXExpand" o = Clutter.Actor.ActorSetXExpandMethodInfo
ResolveTextMethod "setY" o = Clutter.Actor.ActorSetYMethodInfo
ResolveTextMethod "setYAlign" o = Clutter.Actor.ActorSetYAlignMethodInfo
ResolveTextMethod "setYExpand" o = Clutter.Actor.ActorSetYExpandMethodInfo
ResolveTextMethod "setZPosition" o = Clutter.Actor.ActorSetZPositionMethodInfo
ResolveTextMethod "setZRotationFromGravity" o = Clutter.Actor.ActorSetZRotationFromGravityMethodInfo
ResolveTextMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTextMethod t Text, O.OverloadedMethod info Text p) => OL.IsLabel t (Text -> 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 ~ ResolveTextMethod t Text, O.OverloadedMethod info Text p, R.HasField t Text p) => R.HasField t Text p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveTextMethod t Text, O.OverloadedMethodInfo info Text) => OL.IsLabel t (O.MethodProxy info Text) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type TextActivateCallback =
IO ()
type C_TextActivateCallback =
Ptr Text ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextActivateCallback :: C_TextActivateCallback -> IO (FunPtr C_TextActivateCallback)
wrap_TextActivateCallback ::
GObject a => (a -> TextActivateCallback) ->
C_TextActivateCallback
wrap_TextActivateCallback :: forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextActivateCallback a -> IO ()
gi'cb Ptr Text
gi'selfPtr Ptr ()
_ = do
Ptr Text -> (Text -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Text
gi'selfPtr ((Text -> IO ()) -> IO ()) -> (Text -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Text
gi'self -> a -> IO ()
gi'cb (Text -> a
Coerce.coerce Text
gi'self)
onTextActivate :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextActivateCallback) -> m SignalHandlerId
onTextActivate :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTextActivate a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TextActivateCallback
wrapped' = (a -> IO ()) -> C_TextActivateCallback
forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextActivateCallback a -> IO ()
wrapped
FunPtr C_TextActivateCallback
wrapped'' <- C_TextActivateCallback -> IO (FunPtr C_TextActivateCallback)
mk_TextActivateCallback C_TextActivateCallback
wrapped'
a
-> Text
-> FunPtr C_TextActivateCallback
-> 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_TextActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTextActivate :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextActivateCallback) -> m SignalHandlerId
afterTextActivate :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTextActivate a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TextActivateCallback
wrapped' = (a -> IO ()) -> C_TextActivateCallback
forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextActivateCallback a -> IO ()
wrapped
FunPtr C_TextActivateCallback
wrapped'' <- C_TextActivateCallback -> IO (FunPtr C_TextActivateCallback)
mk_TextActivateCallback C_TextActivateCallback
wrapped'
a
-> Text
-> FunPtr C_TextActivateCallback
-> 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_TextActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextActivateSignalInfo
instance SignalInfo TextActivateSignalInfo where
type HaskellCallbackType TextActivateSignalInfo = TextActivateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextActivateCallback cb
cb'' <- mk_TextActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text::activate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:signal:activate"})
#endif
type TextCursorChangedCallback =
IO ()
type C_TextCursorChangedCallback =
Ptr Text ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextCursorChangedCallback :: C_TextCursorChangedCallback -> IO (FunPtr C_TextCursorChangedCallback)
wrap_TextCursorChangedCallback ::
GObject a => (a -> TextCursorChangedCallback) ->
C_TextCursorChangedCallback
wrap_TextCursorChangedCallback :: forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextCursorChangedCallback a -> IO ()
gi'cb Ptr Text
gi'selfPtr Ptr ()
_ = do
Ptr Text -> (Text -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Text
gi'selfPtr ((Text -> IO ()) -> IO ()) -> (Text -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Text
gi'self -> a -> IO ()
gi'cb (Text -> a
Coerce.coerce Text
gi'self)
onTextCursorChanged :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextCursorChangedCallback) -> m SignalHandlerId
onTextCursorChanged :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTextCursorChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TextActivateCallback
wrapped' = (a -> IO ()) -> C_TextActivateCallback
forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextCursorChangedCallback a -> IO ()
wrapped
FunPtr C_TextActivateCallback
wrapped'' <- C_TextActivateCallback -> IO (FunPtr C_TextActivateCallback)
mk_TextCursorChangedCallback C_TextActivateCallback
wrapped'
a
-> Text
-> FunPtr C_TextActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"cursor-changed" FunPtr C_TextActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTextCursorChanged :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextCursorChangedCallback) -> m SignalHandlerId
afterTextCursorChanged :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTextCursorChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TextActivateCallback
wrapped' = (a -> IO ()) -> C_TextActivateCallback
forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextCursorChangedCallback a -> IO ()
wrapped
FunPtr C_TextActivateCallback
wrapped'' <- C_TextActivateCallback -> IO (FunPtr C_TextActivateCallback)
mk_TextCursorChangedCallback C_TextActivateCallback
wrapped'
a
-> Text
-> FunPtr C_TextActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"cursor-changed" FunPtr C_TextActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextCursorChangedSignalInfo
instance SignalInfo TextCursorChangedSignalInfo where
type HaskellCallbackType TextCursorChangedSignalInfo = TextCursorChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextCursorChangedCallback cb
cb'' <- mk_TextCursorChangedCallback cb'
connectSignalFunPtr obj "cursor-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text::cursor-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:signal:cursorChanged"})
#endif
{-# DEPRECATED TextCursorEventCallback ["(Since version 1.16)","Use the [cursorChanged](\"GI.Clutter.Objects.Text#g:signal:cursorChanged\") signal instead"] #-}
type TextCursorEventCallback =
Clutter.Geometry.Geometry
-> IO ()
type C_TextCursorEventCallback =
Ptr Text ->
Ptr Clutter.Geometry.Geometry ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextCursorEventCallback :: C_TextCursorEventCallback -> IO (FunPtr C_TextCursorEventCallback)
wrap_TextCursorEventCallback ::
GObject a => (a -> TextCursorEventCallback) ->
C_TextCursorEventCallback
wrap_TextCursorEventCallback :: forall a.
GObject a =>
(a -> TextCursorEventCallback) -> C_TextCursorEventCallback
wrap_TextCursorEventCallback a -> TextCursorEventCallback
gi'cb Ptr Text
gi'selfPtr Ptr Geometry
geometry Ptr ()
_ = do
Ptr Geometry -> TextCursorEventCallback -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Geometry
geometry (TextCursorEventCallback -> IO ())
-> TextCursorEventCallback -> IO ()
forall a b. (a -> b) -> a -> b
$ \Geometry
geometry' -> do
Ptr Text -> (Text -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Text
gi'selfPtr ((Text -> IO ()) -> IO ()) -> (Text -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Text
gi'self -> a -> TextCursorEventCallback
gi'cb (Text -> a
Coerce.coerce Text
gi'self) Geometry
geometry'
onTextCursorEvent :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextCursorEventCallback) -> m SignalHandlerId
onTextCursorEvent :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => TextCursorEventCallback) -> m SignalHandlerId
onTextCursorEvent a
obj (?self::a) => TextCursorEventCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextCursorEventCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TextCursorEventCallback
TextCursorEventCallback
cb
let wrapped' :: C_TextCursorEventCallback
wrapped' = (a -> TextCursorEventCallback) -> C_TextCursorEventCallback
forall a.
GObject a =>
(a -> TextCursorEventCallback) -> C_TextCursorEventCallback
wrap_TextCursorEventCallback a -> TextCursorEventCallback
wrapped
FunPtr C_TextCursorEventCallback
wrapped'' <- C_TextCursorEventCallback -> IO (FunPtr C_TextCursorEventCallback)
mk_TextCursorEventCallback C_TextCursorEventCallback
wrapped'
a
-> Text
-> FunPtr C_TextCursorEventCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"cursor-event" FunPtr C_TextCursorEventCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTextCursorEvent :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextCursorEventCallback) -> m SignalHandlerId
afterTextCursorEvent :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => TextCursorEventCallback) -> m SignalHandlerId
afterTextCursorEvent a
obj (?self::a) => TextCursorEventCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextCursorEventCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TextCursorEventCallback
TextCursorEventCallback
cb
let wrapped' :: C_TextCursorEventCallback
wrapped' = (a -> TextCursorEventCallback) -> C_TextCursorEventCallback
forall a.
GObject a =>
(a -> TextCursorEventCallback) -> C_TextCursorEventCallback
wrap_TextCursorEventCallback a -> TextCursorEventCallback
wrapped
FunPtr C_TextCursorEventCallback
wrapped'' <- C_TextCursorEventCallback -> IO (FunPtr C_TextCursorEventCallback)
mk_TextCursorEventCallback C_TextCursorEventCallback
wrapped'
a
-> Text
-> FunPtr C_TextCursorEventCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"cursor-event" FunPtr C_TextCursorEventCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextCursorEventSignalInfo
instance SignalInfo TextCursorEventSignalInfo where
type HaskellCallbackType TextCursorEventSignalInfo = TextCursorEventCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextCursorEventCallback cb
cb'' <- mk_TextCursorEventCallback cb'
connectSignalFunPtr obj "cursor-event" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text::cursor-event"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:signal:cursorEvent"})
#endif
type TextDeleteTextCallback =
Int32
-> Int32
-> IO ()
type C_TextDeleteTextCallback =
Ptr Text ->
Int32 ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextDeleteTextCallback :: C_TextDeleteTextCallback -> IO (FunPtr C_TextDeleteTextCallback)
wrap_TextDeleteTextCallback ::
GObject a => (a -> TextDeleteTextCallback) ->
C_TextDeleteTextCallback
wrap_TextDeleteTextCallback :: forall a.
GObject a =>
(a -> TextDeleteTextCallback) -> C_TextDeleteTextCallback
wrap_TextDeleteTextCallback a -> TextDeleteTextCallback
gi'cb Ptr Text
gi'selfPtr Int32
startPos Int32
endPos Ptr ()
_ = do
Ptr Text -> (Text -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Text
gi'selfPtr ((Text -> IO ()) -> IO ()) -> (Text -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Text
gi'self -> a -> TextDeleteTextCallback
gi'cb (Text -> a
Coerce.coerce Text
gi'self) Int32
startPos Int32
endPos
onTextDeleteText :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextDeleteTextCallback) -> m SignalHandlerId
onTextDeleteText :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => TextDeleteTextCallback) -> m SignalHandlerId
onTextDeleteText a
obj (?self::a) => TextDeleteTextCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextDeleteTextCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TextDeleteTextCallback
TextDeleteTextCallback
cb
let wrapped' :: C_TextDeleteTextCallback
wrapped' = (a -> TextDeleteTextCallback) -> C_TextDeleteTextCallback
forall a.
GObject a =>
(a -> TextDeleteTextCallback) -> C_TextDeleteTextCallback
wrap_TextDeleteTextCallback a -> TextDeleteTextCallback
wrapped
FunPtr C_TextDeleteTextCallback
wrapped'' <- C_TextDeleteTextCallback -> IO (FunPtr C_TextDeleteTextCallback)
mk_TextDeleteTextCallback C_TextDeleteTextCallback
wrapped'
a
-> Text
-> FunPtr C_TextDeleteTextCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"delete-text" FunPtr C_TextDeleteTextCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTextDeleteText :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextDeleteTextCallback) -> m SignalHandlerId
afterTextDeleteText :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => TextDeleteTextCallback) -> m SignalHandlerId
afterTextDeleteText a
obj (?self::a) => TextDeleteTextCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextDeleteTextCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TextDeleteTextCallback
TextDeleteTextCallback
cb
let wrapped' :: C_TextDeleteTextCallback
wrapped' = (a -> TextDeleteTextCallback) -> C_TextDeleteTextCallback
forall a.
GObject a =>
(a -> TextDeleteTextCallback) -> C_TextDeleteTextCallback
wrap_TextDeleteTextCallback a -> TextDeleteTextCallback
wrapped
FunPtr C_TextDeleteTextCallback
wrapped'' <- C_TextDeleteTextCallback -> IO (FunPtr C_TextDeleteTextCallback)
mk_TextDeleteTextCallback C_TextDeleteTextCallback
wrapped'
a
-> Text
-> FunPtr C_TextDeleteTextCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"delete-text" FunPtr C_TextDeleteTextCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextDeleteTextSignalInfo
instance SignalInfo TextDeleteTextSignalInfo where
type HaskellCallbackType TextDeleteTextSignalInfo = TextDeleteTextCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextDeleteTextCallback cb
cb'' <- mk_TextDeleteTextCallback cb'
connectSignalFunPtr obj "delete-text" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text::delete-text"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:signal:deleteText"})
#endif
type TextInsertTextCallback =
T.Text
-> Int32
-> Ptr ()
-> IO ()
type C_TextInsertTextCallback =
Ptr Text ->
CString ->
Int32 ->
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextInsertTextCallback :: C_TextInsertTextCallback -> IO (FunPtr C_TextInsertTextCallback)
wrap_TextInsertTextCallback ::
GObject a => (a -> TextInsertTextCallback) ->
C_TextInsertTextCallback
wrap_TextInsertTextCallback :: forall a.
GObject a =>
(a -> TextInsertTextCallback) -> C_TextInsertTextCallback
wrap_TextInsertTextCallback a -> TextInsertTextCallback
gi'cb Ptr Text
gi'selfPtr CString
newText Int32
newTextLength Ptr ()
position Ptr ()
_ = do
Text
newText' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
newText
Ptr Text -> (Text -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Text
gi'selfPtr ((Text -> IO ()) -> IO ()) -> (Text -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Text
gi'self -> a -> TextInsertTextCallback
gi'cb (Text -> a
Coerce.coerce Text
gi'self) Text
newText' Int32
newTextLength Ptr ()
position
onTextInsertText :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextInsertTextCallback) -> m SignalHandlerId
onTextInsertText :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => TextInsertTextCallback) -> m SignalHandlerId
onTextInsertText a
obj (?self::a) => TextInsertTextCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextInsertTextCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TextInsertTextCallback
TextInsertTextCallback
cb
let wrapped' :: C_TextInsertTextCallback
wrapped' = (a -> TextInsertTextCallback) -> C_TextInsertTextCallback
forall a.
GObject a =>
(a -> TextInsertTextCallback) -> C_TextInsertTextCallback
wrap_TextInsertTextCallback a -> TextInsertTextCallback
wrapped
FunPtr C_TextInsertTextCallback
wrapped'' <- C_TextInsertTextCallback -> IO (FunPtr C_TextInsertTextCallback)
mk_TextInsertTextCallback C_TextInsertTextCallback
wrapped'
a
-> Text
-> FunPtr C_TextInsertTextCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"insert-text" FunPtr C_TextInsertTextCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTextInsertText :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextInsertTextCallback) -> m SignalHandlerId
afterTextInsertText :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => TextInsertTextCallback) -> m SignalHandlerId
afterTextInsertText a
obj (?self::a) => TextInsertTextCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextInsertTextCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TextInsertTextCallback
TextInsertTextCallback
cb
let wrapped' :: C_TextInsertTextCallback
wrapped' = (a -> TextInsertTextCallback) -> C_TextInsertTextCallback
forall a.
GObject a =>
(a -> TextInsertTextCallback) -> C_TextInsertTextCallback
wrap_TextInsertTextCallback a -> TextInsertTextCallback
wrapped
FunPtr C_TextInsertTextCallback
wrapped'' <- C_TextInsertTextCallback -> IO (FunPtr C_TextInsertTextCallback)
mk_TextInsertTextCallback C_TextInsertTextCallback
wrapped'
a
-> Text
-> FunPtr C_TextInsertTextCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"insert-text" FunPtr C_TextInsertTextCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextInsertTextSignalInfo
instance SignalInfo TextInsertTextSignalInfo where
type HaskellCallbackType TextInsertTextSignalInfo = TextInsertTextCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextInsertTextCallback cb
cb'' <- mk_TextInsertTextCallback cb'
connectSignalFunPtr obj "insert-text" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text::insert-text"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:signal:insertText"})
#endif
type TextTextChangedCallback =
IO ()
type C_TextTextChangedCallback =
Ptr Text ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextTextChangedCallback :: C_TextTextChangedCallback -> IO (FunPtr C_TextTextChangedCallback)
wrap_TextTextChangedCallback ::
GObject a => (a -> TextTextChangedCallback) ->
C_TextTextChangedCallback
wrap_TextTextChangedCallback :: forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextTextChangedCallback a -> IO ()
gi'cb Ptr Text
gi'selfPtr Ptr ()
_ = do
Ptr Text -> (Text -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Text
gi'selfPtr ((Text -> IO ()) -> IO ()) -> (Text -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Text
gi'self -> a -> IO ()
gi'cb (Text -> a
Coerce.coerce Text
gi'self)
onTextTextChanged :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextTextChangedCallback) -> m SignalHandlerId
onTextTextChanged :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTextTextChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TextActivateCallback
wrapped' = (a -> IO ()) -> C_TextActivateCallback
forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextTextChangedCallback a -> IO ()
wrapped
FunPtr C_TextActivateCallback
wrapped'' <- C_TextActivateCallback -> IO (FunPtr C_TextActivateCallback)
mk_TextTextChangedCallback C_TextActivateCallback
wrapped'
a
-> Text
-> FunPtr C_TextActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"text-changed" FunPtr C_TextActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTextTextChanged :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextTextChangedCallback) -> m SignalHandlerId
afterTextTextChanged :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTextTextChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TextActivateCallback
wrapped' = (a -> IO ()) -> C_TextActivateCallback
forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextTextChangedCallback a -> IO ()
wrapped
FunPtr C_TextActivateCallback
wrapped'' <- C_TextActivateCallback -> IO (FunPtr C_TextActivateCallback)
mk_TextTextChangedCallback C_TextActivateCallback
wrapped'
a
-> Text
-> FunPtr C_TextActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"text-changed" FunPtr C_TextActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextTextChangedSignalInfo
instance SignalInfo TextTextChangedSignalInfo where
type HaskellCallbackType TextTextChangedSignalInfo = TextTextChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextTextChangedCallback cb
cb'' <- mk_TextTextChangedCallback cb'
connectSignalFunPtr obj "text-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text::text-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:signal:textChanged"})
#endif
getTextActivatable :: (MonadIO m, IsText o) => o -> m Bool
getTextActivatable :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Bool
getTextActivatable o
obj = IO Bool -> m Bool
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
"activatable"
setTextActivatable :: (MonadIO m, IsText o) => o -> Bool -> m ()
setTextActivatable :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Bool -> m ()
setTextActivatable o
obj Bool
val = IO () -> m ()
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
"activatable" Bool
val
constructTextActivatable :: (IsText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTextActivatable :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTextActivatable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"activatable" Bool
val
#if defined(ENABLE_OVERLOADING)
data TextActivatablePropertyInfo
instance AttrInfo TextActivatablePropertyInfo where
type AttrAllowedOps TextActivatablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextActivatablePropertyInfo = IsText
type AttrSetTypeConstraint TextActivatablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TextActivatablePropertyInfo = (~) Bool
type AttrTransferType TextActivatablePropertyInfo = Bool
type AttrGetType TextActivatablePropertyInfo = Bool
type AttrLabel TextActivatablePropertyInfo = "activatable"
type AttrOrigin TextActivatablePropertyInfo = Text
attrGet = getTextActivatable
attrSet = setTextActivatable
attrTransfer _ v = do
return v
attrConstruct = constructTextActivatable
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.activatable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:activatable"
})
#endif
getTextAttributes :: (MonadIO m, IsText o) => o -> m Pango.AttrList.AttrList
getTextAttributes :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m AttrList
getTextAttributes o
obj = IO AttrList -> m AttrList
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO AttrList -> m AttrList) -> IO AttrList -> m AttrList
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe AttrList) -> IO AttrList
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getTextAttributes" (IO (Maybe AttrList) -> IO AttrList)
-> IO (Maybe AttrList) -> IO AttrList
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr AttrList -> AttrList)
-> IO (Maybe AttrList)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"attributes" ManagedPtr AttrList -> AttrList
Pango.AttrList.AttrList
setTextAttributes :: (MonadIO m, IsText o) => o -> Pango.AttrList.AttrList -> m ()
setTextAttributes :: forall (m :: * -> *) o.
(MonadIO m, IsText o) =>
o -> AttrList -> m ()
setTextAttributes o
obj AttrList
val = IO () -> m ()
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 AttrList -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"attributes" (AttrList -> Maybe AttrList
forall a. a -> Maybe a
Just AttrList
val)
constructTextAttributes :: (IsText o, MIO.MonadIO m) => Pango.AttrList.AttrList -> m (GValueConstruct o)
constructTextAttributes :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
AttrList -> m (GValueConstruct o)
constructTextAttributes AttrList
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 AttrList -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"attributes" (AttrList -> Maybe AttrList
forall a. a -> Maybe a
P.Just AttrList
val)
clearTextAttributes :: (MonadIO m, IsText o) => o -> m ()
clearTextAttributes :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m ()
clearTextAttributes o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe AttrList -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"attributes" (Maybe AttrList
forall a. Maybe a
Nothing :: Maybe Pango.AttrList.AttrList)
#if defined(ENABLE_OVERLOADING)
data TextAttributesPropertyInfo
instance AttrInfo TextAttributesPropertyInfo where
type AttrAllowedOps TextAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TextAttributesPropertyInfo = IsText
type AttrSetTypeConstraint TextAttributesPropertyInfo = (~) Pango.AttrList.AttrList
type AttrTransferTypeConstraint TextAttributesPropertyInfo = (~) Pango.AttrList.AttrList
type AttrTransferType TextAttributesPropertyInfo = Pango.AttrList.AttrList
type AttrGetType TextAttributesPropertyInfo = Pango.AttrList.AttrList
type AttrLabel TextAttributesPropertyInfo = "attributes"
type AttrOrigin TextAttributesPropertyInfo = Text
attrGet = getTextAttributes
attrSet = setTextAttributes
attrTransfer _ v = do
return v
attrConstruct = constructTextAttributes
attrClear = clearTextAttributes
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.attributes"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:attributes"
})
#endif
getTextBuffer :: (MonadIO m, IsText o) => o -> m Clutter.TextBuffer.TextBuffer
getTextBuffer :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m TextBuffer
getTextBuffer o
obj = IO TextBuffer -> m TextBuffer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO TextBuffer -> m TextBuffer) -> IO TextBuffer -> m TextBuffer
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe TextBuffer) -> IO TextBuffer
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getTextBuffer" (IO (Maybe TextBuffer) -> IO TextBuffer)
-> IO (Maybe TextBuffer) -> IO TextBuffer
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr TextBuffer -> TextBuffer)
-> IO (Maybe TextBuffer)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"buffer" ManagedPtr TextBuffer -> TextBuffer
Clutter.TextBuffer.TextBuffer
setTextBuffer :: (MonadIO m, IsText o, Clutter.TextBuffer.IsTextBuffer a) => o -> a -> m ()
setTextBuffer :: forall (m :: * -> *) o a.
(MonadIO m, IsText o, IsTextBuffer a) =>
o -> a -> m ()
setTextBuffer o
obj a
val = IO () -> m ()
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
"buffer" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructTextBuffer :: (IsText o, MIO.MonadIO m, Clutter.TextBuffer.IsTextBuffer a) => a -> m (GValueConstruct o)
constructTextBuffer :: forall o (m :: * -> *) a.
(IsText o, MonadIO m, IsTextBuffer a) =>
a -> m (GValueConstruct o)
constructTextBuffer a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"buffer" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data TextBufferPropertyInfo
instance AttrInfo TextBufferPropertyInfo where
type AttrAllowedOps TextBufferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextBufferPropertyInfo = IsText
type AttrSetTypeConstraint TextBufferPropertyInfo = Clutter.TextBuffer.IsTextBuffer
type AttrTransferTypeConstraint TextBufferPropertyInfo = Clutter.TextBuffer.IsTextBuffer
type AttrTransferType TextBufferPropertyInfo = Clutter.TextBuffer.TextBuffer
type AttrGetType TextBufferPropertyInfo = Clutter.TextBuffer.TextBuffer
type AttrLabel TextBufferPropertyInfo = "buffer"
type AttrOrigin TextBufferPropertyInfo = Text
attrGet = getTextBuffer
attrSet = setTextBuffer
attrTransfer _ v = do
unsafeCastTo Clutter.TextBuffer.TextBuffer v
attrConstruct = constructTextBuffer
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.buffer"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:buffer"
})
#endif
getTextColor :: (MonadIO m, IsText o) => o -> m (Maybe Clutter.Color.Color)
getTextColor :: forall (m :: * -> *) o.
(MonadIO m, IsText o) =>
o -> m (Maybe Color)
getTextColor o
obj = IO (Maybe Color) -> m (Maybe Color)
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
setTextColor :: (MonadIO m, IsText o) => o -> Clutter.Color.Color -> m ()
setTextColor :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Color -> m ()
setTextColor o
obj Color
val = IO () -> m ()
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)
constructTextColor :: (IsText o, MIO.MonadIO m) => Clutter.Color.Color -> m (GValueConstruct o)
constructTextColor :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Color -> m (GValueConstruct o)
constructTextColor Color
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 TextColorPropertyInfo
instance AttrInfo TextColorPropertyInfo where
type AttrAllowedOps TextColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextColorPropertyInfo = IsText
type AttrSetTypeConstraint TextColorPropertyInfo = (~) Clutter.Color.Color
type AttrTransferTypeConstraint TextColorPropertyInfo = (~) Clutter.Color.Color
type AttrTransferType TextColorPropertyInfo = Clutter.Color.Color
type AttrGetType TextColorPropertyInfo = (Maybe Clutter.Color.Color)
type AttrLabel TextColorPropertyInfo = "color"
type AttrOrigin TextColorPropertyInfo = Text
attrGet = getTextColor
attrSet = setTextColor
attrTransfer _ v = do
return v
attrConstruct = constructTextColor
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.color"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:color"
})
#endif
getTextCursorColor :: (MonadIO m, IsText o) => o -> m (Maybe Clutter.Color.Color)
getTextCursorColor :: forall (m :: * -> *) o.
(MonadIO m, IsText o) =>
o -> m (Maybe Color)
getTextCursorColor o
obj = IO (Maybe Color) -> m (Maybe Color)
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
"cursor-color" ManagedPtr Color -> Color
Clutter.Color.Color
setTextCursorColor :: (MonadIO m, IsText o) => o -> Clutter.Color.Color -> m ()
setTextCursorColor :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Color -> m ()
setTextCursorColor o
obj Color
val = IO () -> m ()
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
"cursor-color" (Color -> Maybe Color
forall a. a -> Maybe a
Just Color
val)
constructTextCursorColor :: (IsText o, MIO.MonadIO m) => Clutter.Color.Color -> m (GValueConstruct o)
constructTextCursorColor :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Color -> m (GValueConstruct o)
constructTextCursorColor Color
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"cursor-color" (Color -> Maybe Color
forall a. a -> Maybe a
P.Just Color
val)
clearTextCursorColor :: (MonadIO m, IsText o) => o -> m ()
clearTextCursorColor :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m ()
clearTextCursorColor o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Color -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"cursor-color" (Maybe Color
forall a. Maybe a
Nothing :: Maybe Clutter.Color.Color)
#if defined(ENABLE_OVERLOADING)
data TextCursorColorPropertyInfo
instance AttrInfo TextCursorColorPropertyInfo where
type AttrAllowedOps TextCursorColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TextCursorColorPropertyInfo = IsText
type AttrSetTypeConstraint TextCursorColorPropertyInfo = (~) Clutter.Color.Color
type AttrTransferTypeConstraint TextCursorColorPropertyInfo = (~) Clutter.Color.Color
type AttrTransferType TextCursorColorPropertyInfo = Clutter.Color.Color
type AttrGetType TextCursorColorPropertyInfo = (Maybe Clutter.Color.Color)
type AttrLabel TextCursorColorPropertyInfo = "cursor-color"
type AttrOrigin TextCursorColorPropertyInfo = Text
attrGet = getTextCursorColor
attrSet = setTextCursorColor
attrTransfer _ v = do
return v
attrConstruct = constructTextCursorColor
attrClear = clearTextCursorColor
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.cursorColor"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:cursorColor"
})
#endif
getTextCursorColorSet :: (MonadIO m, IsText o) => o -> m Bool
getTextCursorColorSet :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Bool
getTextCursorColorSet o
obj = IO Bool -> m Bool
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-color-set"
#if defined(ENABLE_OVERLOADING)
data TextCursorColorSetPropertyInfo
instance AttrInfo TextCursorColorSetPropertyInfo where
type AttrAllowedOps TextCursorColorSetPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint TextCursorColorSetPropertyInfo = IsText
type AttrSetTypeConstraint TextCursorColorSetPropertyInfo = (~) ()
type AttrTransferTypeConstraint TextCursorColorSetPropertyInfo = (~) ()
type AttrTransferType TextCursorColorSetPropertyInfo = ()
type AttrGetType TextCursorColorSetPropertyInfo = Bool
type AttrLabel TextCursorColorSetPropertyInfo = "cursor-color-set"
type AttrOrigin TextCursorColorSetPropertyInfo = Text
attrGet = getTextCursorColorSet
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.cursorColorSet"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:cursorColorSet"
})
#endif
getTextCursorPosition :: (MonadIO m, IsText o) => o -> m Int32
getTextCursorPosition :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Int32
getTextCursorPosition o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"cursor-position"
setTextCursorPosition :: (MonadIO m, IsText o) => o -> Int32 -> m ()
setTextCursorPosition :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Int32 -> m ()
setTextCursorPosition o
obj Int32
val = IO () -> m ()
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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"cursor-position" Int32
val
constructTextCursorPosition :: (IsText o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructTextCursorPosition :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructTextCursorPosition Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"cursor-position" Int32
val
#if defined(ENABLE_OVERLOADING)
data TextCursorPositionPropertyInfo
instance AttrInfo TextCursorPositionPropertyInfo where
type AttrAllowedOps TextCursorPositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextCursorPositionPropertyInfo = IsText
type AttrSetTypeConstraint TextCursorPositionPropertyInfo = (~) Int32
type AttrTransferTypeConstraint TextCursorPositionPropertyInfo = (~) Int32
type AttrTransferType TextCursorPositionPropertyInfo = Int32
type AttrGetType TextCursorPositionPropertyInfo = Int32
type AttrLabel TextCursorPositionPropertyInfo = "cursor-position"
type AttrOrigin TextCursorPositionPropertyInfo = Text
attrGet = getTextCursorPosition
attrSet = setTextCursorPosition
attrTransfer _ v = do
return v
attrConstruct = constructTextCursorPosition
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.cursorPosition"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:cursorPosition"
})
#endif
getTextCursorSize :: (MonadIO m, IsText o) => o -> m Int32
getTextCursorSize :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Int32
getTextCursorSize o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"cursor-size"
setTextCursorSize :: (MonadIO m, IsText o) => o -> Int32 -> m ()
setTextCursorSize :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Int32 -> m ()
setTextCursorSize o
obj Int32
val = IO () -> m ()
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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"cursor-size" Int32
val
constructTextCursorSize :: (IsText o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructTextCursorSize :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructTextCursorSize Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"cursor-size" Int32
val
#if defined(ENABLE_OVERLOADING)
data TextCursorSizePropertyInfo
instance AttrInfo TextCursorSizePropertyInfo where
type AttrAllowedOps TextCursorSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextCursorSizePropertyInfo = IsText
type AttrSetTypeConstraint TextCursorSizePropertyInfo = (~) Int32
type AttrTransferTypeConstraint TextCursorSizePropertyInfo = (~) Int32
type AttrTransferType TextCursorSizePropertyInfo = Int32
type AttrGetType TextCursorSizePropertyInfo = Int32
type AttrLabel TextCursorSizePropertyInfo = "cursor-size"
type AttrOrigin TextCursorSizePropertyInfo = Text
attrGet = getTextCursorSize
attrSet = setTextCursorSize
attrTransfer _ v = do
return v
attrConstruct = constructTextCursorSize
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.cursorSize"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:cursorSize"
})
#endif
getTextCursorVisible :: (MonadIO m, IsText o) => o -> m Bool
getTextCursorVisible :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Bool
getTextCursorVisible o
obj = IO Bool -> m Bool
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"
setTextCursorVisible :: (MonadIO m, IsText o) => o -> Bool -> m ()
setTextCursorVisible :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Bool -> m ()
setTextCursorVisible o
obj Bool
val = IO () -> m ()
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
constructTextCursorVisible :: (IsText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTextCursorVisible :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTextCursorVisible Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 TextCursorVisiblePropertyInfo
instance AttrInfo TextCursorVisiblePropertyInfo where
type AttrAllowedOps TextCursorVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextCursorVisiblePropertyInfo = IsText
type AttrSetTypeConstraint TextCursorVisiblePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TextCursorVisiblePropertyInfo = (~) Bool
type AttrTransferType TextCursorVisiblePropertyInfo = Bool
type AttrGetType TextCursorVisiblePropertyInfo = Bool
type AttrLabel TextCursorVisiblePropertyInfo = "cursor-visible"
type AttrOrigin TextCursorVisiblePropertyInfo = Text
attrGet = getTextCursorVisible
attrSet = setTextCursorVisible
attrTransfer _ v = do
return v
attrConstruct = constructTextCursorVisible
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.cursorVisible"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:cursorVisible"
})
#endif
getTextEditable :: (MonadIO m, IsText o) => o -> m Bool
getTextEditable :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Bool
getTextEditable o
obj = IO Bool -> m Bool
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
"editable"
setTextEditable :: (MonadIO m, IsText o) => o -> Bool -> m ()
setTextEditable :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Bool -> m ()
setTextEditable o
obj Bool
val = IO () -> m ()
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
"editable" Bool
val
constructTextEditable :: (IsText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTextEditable :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTextEditable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"editable" Bool
val
#if defined(ENABLE_OVERLOADING)
data TextEditablePropertyInfo
instance AttrInfo TextEditablePropertyInfo where
type AttrAllowedOps TextEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextEditablePropertyInfo = IsText
type AttrSetTypeConstraint TextEditablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TextEditablePropertyInfo = (~) Bool
type AttrTransferType TextEditablePropertyInfo = Bool
type AttrGetType TextEditablePropertyInfo = Bool
type AttrLabel TextEditablePropertyInfo = "editable"
type AttrOrigin TextEditablePropertyInfo = Text
attrGet = getTextEditable
attrSet = setTextEditable
attrTransfer _ v = do
return v
attrConstruct = constructTextEditable
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.editable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:editable"
})
#endif
getTextEllipsize :: (MonadIO m, IsText o) => o -> m Pango.Enums.EllipsizeMode
getTextEllipsize :: forall (m :: * -> *) o.
(MonadIO m, IsText o) =>
o -> m EllipsizeMode
getTextEllipsize o
obj = IO EllipsizeMode -> m EllipsizeMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO EllipsizeMode -> m EllipsizeMode)
-> IO EllipsizeMode -> m EllipsizeMode
forall a b. (a -> b) -> a -> b
$ o -> String -> IO EllipsizeMode
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"ellipsize"
setTextEllipsize :: (MonadIO m, IsText o) => o -> Pango.Enums.EllipsizeMode -> m ()
setTextEllipsize :: forall (m :: * -> *) o.
(MonadIO m, IsText o) =>
o -> EllipsizeMode -> m ()
setTextEllipsize o
obj EllipsizeMode
val = IO () -> m ()
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 -> EllipsizeMode -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"ellipsize" EllipsizeMode
val
constructTextEllipsize :: (IsText o, MIO.MonadIO m) => Pango.Enums.EllipsizeMode -> m (GValueConstruct o)
constructTextEllipsize :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
EllipsizeMode -> m (GValueConstruct o)
constructTextEllipsize EllipsizeMode
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> EllipsizeMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"ellipsize" EllipsizeMode
val
#if defined(ENABLE_OVERLOADING)
data TextEllipsizePropertyInfo
instance AttrInfo TextEllipsizePropertyInfo where
type AttrAllowedOps TextEllipsizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextEllipsizePropertyInfo = IsText
type AttrSetTypeConstraint TextEllipsizePropertyInfo = (~) Pango.Enums.EllipsizeMode
type AttrTransferTypeConstraint TextEllipsizePropertyInfo = (~) Pango.Enums.EllipsizeMode
type AttrTransferType TextEllipsizePropertyInfo = Pango.Enums.EllipsizeMode
type AttrGetType TextEllipsizePropertyInfo = Pango.Enums.EllipsizeMode
type AttrLabel TextEllipsizePropertyInfo = "ellipsize"
type AttrOrigin TextEllipsizePropertyInfo = Text
attrGet = getTextEllipsize
attrSet = setTextEllipsize
attrTransfer _ v = do
return v
attrConstruct = constructTextEllipsize
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.ellipsize"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:ellipsize"
})
#endif
getTextFontDescription :: (MonadIO m, IsText o) => o -> m (Maybe Pango.FontDescription.FontDescription)
getTextFontDescription :: forall (m :: * -> *) o.
(MonadIO m, IsText o) =>
o -> m (Maybe FontDescription)
getTextFontDescription o
obj = IO (Maybe FontDescription) -> m (Maybe FontDescription)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe FontDescription) -> m (Maybe FontDescription))
-> IO (Maybe FontDescription) -> m (Maybe FontDescription)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr FontDescription -> FontDescription)
-> IO (Maybe FontDescription)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"font-description" ManagedPtr FontDescription -> FontDescription
Pango.FontDescription.FontDescription
setTextFontDescription :: (MonadIO m, IsText o) => o -> Pango.FontDescription.FontDescription -> m ()
setTextFontDescription :: forall (m :: * -> *) o.
(MonadIO m, IsText o) =>
o -> FontDescription -> m ()
setTextFontDescription o
obj FontDescription
val = IO () -> m ()
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 FontDescription -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"font-description" (FontDescription -> Maybe FontDescription
forall a. a -> Maybe a
Just FontDescription
val)
constructTextFontDescription :: (IsText o, MIO.MonadIO m) => Pango.FontDescription.FontDescription -> m (GValueConstruct o)
constructTextFontDescription :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
FontDescription -> m (GValueConstruct o)
constructTextFontDescription FontDescription
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 FontDescription -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"font-description" (FontDescription -> Maybe FontDescription
forall a. a -> Maybe a
P.Just FontDescription
val)
#if defined(ENABLE_OVERLOADING)
data TextFontDescriptionPropertyInfo
instance AttrInfo TextFontDescriptionPropertyInfo where
type AttrAllowedOps TextFontDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextFontDescriptionPropertyInfo = IsText
type AttrSetTypeConstraint TextFontDescriptionPropertyInfo = (~) Pango.FontDescription.FontDescription
type AttrTransferTypeConstraint TextFontDescriptionPropertyInfo = (~) Pango.FontDescription.FontDescription
type AttrTransferType TextFontDescriptionPropertyInfo = Pango.FontDescription.FontDescription
type AttrGetType TextFontDescriptionPropertyInfo = (Maybe Pango.FontDescription.FontDescription)
type AttrLabel TextFontDescriptionPropertyInfo = "font-description"
type AttrOrigin TextFontDescriptionPropertyInfo = Text
attrGet = getTextFontDescription
attrSet = setTextFontDescription
attrTransfer _ v = do
return v
attrConstruct = constructTextFontDescription
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.fontDescription"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:fontDescription"
})
#endif
getTextFontName :: (MonadIO m, IsText o) => o -> m T.Text
getTextFontName :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Text
getTextFontName o
obj = IO Text -> m Text
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
"getTextFontName" (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
"font-name"
setTextFontName :: (MonadIO m, IsText o) => o -> T.Text -> m ()
setTextFontName :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Text -> m ()
setTextFontName o
obj Text
val = IO () -> m ()
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
"font-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructTextFontName :: (IsText o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructTextFontName :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructTextFontName Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"font-name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearTextFontName :: (MonadIO m, IsText o) => o -> m ()
clearTextFontName :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m ()
clearTextFontName o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"font-name" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data TextFontNamePropertyInfo
instance AttrInfo TextFontNamePropertyInfo where
type AttrAllowedOps TextFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TextFontNamePropertyInfo = IsText
type AttrSetTypeConstraint TextFontNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint TextFontNamePropertyInfo = (~) T.Text
type AttrTransferType TextFontNamePropertyInfo = T.Text
type AttrGetType TextFontNamePropertyInfo = T.Text
type AttrLabel TextFontNamePropertyInfo = "font-name"
type AttrOrigin TextFontNamePropertyInfo = Text
attrGet = getTextFontName
attrSet = setTextFontName
attrTransfer _ v = do
return v
attrConstruct = constructTextFontName
attrClear = clearTextFontName
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.fontName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:fontName"
})
#endif
getTextJustify :: (MonadIO m, IsText o) => o -> m Bool
getTextJustify :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Bool
getTextJustify o
obj = IO Bool -> m Bool
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
"justify"
setTextJustify :: (MonadIO m, IsText o) => o -> Bool -> m ()
setTextJustify :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Bool -> m ()
setTextJustify o
obj Bool
val = IO () -> m ()
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
"justify" Bool
val
constructTextJustify :: (IsText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTextJustify :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTextJustify Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"justify" Bool
val
#if defined(ENABLE_OVERLOADING)
data TextJustifyPropertyInfo
instance AttrInfo TextJustifyPropertyInfo where
type AttrAllowedOps TextJustifyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextJustifyPropertyInfo = IsText
type AttrSetTypeConstraint TextJustifyPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TextJustifyPropertyInfo = (~) Bool
type AttrTransferType TextJustifyPropertyInfo = Bool
type AttrGetType TextJustifyPropertyInfo = Bool
type AttrLabel TextJustifyPropertyInfo = "justify"
type AttrOrigin TextJustifyPropertyInfo = Text
attrGet = getTextJustify
attrSet = setTextJustify
attrTransfer _ v = do
return v
attrConstruct = constructTextJustify
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.justify"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:justify"
})
#endif
getTextLineAlignment :: (MonadIO m, IsText o) => o -> m Pango.Enums.Alignment
getTextLineAlignment :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Alignment
getTextLineAlignment o
obj = IO Alignment -> m Alignment
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Alignment -> m Alignment) -> IO Alignment -> m Alignment
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Alignment
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"line-alignment"
setTextLineAlignment :: (MonadIO m, IsText o) => o -> Pango.Enums.Alignment -> m ()
setTextLineAlignment :: forall (m :: * -> *) o.
(MonadIO m, IsText o) =>
o -> Alignment -> m ()
setTextLineAlignment o
obj Alignment
val = IO () -> m ()
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 -> Alignment -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"line-alignment" Alignment
val
constructTextLineAlignment :: (IsText o, MIO.MonadIO m) => Pango.Enums.Alignment -> m (GValueConstruct o)
constructTextLineAlignment :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Alignment -> m (GValueConstruct o)
constructTextLineAlignment Alignment
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Alignment -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"line-alignment" Alignment
val
#if defined(ENABLE_OVERLOADING)
data TextLineAlignmentPropertyInfo
instance AttrInfo TextLineAlignmentPropertyInfo where
type AttrAllowedOps TextLineAlignmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextLineAlignmentPropertyInfo = IsText
type AttrSetTypeConstraint TextLineAlignmentPropertyInfo = (~) Pango.Enums.Alignment
type AttrTransferTypeConstraint TextLineAlignmentPropertyInfo = (~) Pango.Enums.Alignment
type AttrTransferType TextLineAlignmentPropertyInfo = Pango.Enums.Alignment
type AttrGetType TextLineAlignmentPropertyInfo = Pango.Enums.Alignment
type AttrLabel TextLineAlignmentPropertyInfo = "line-alignment"
type AttrOrigin TextLineAlignmentPropertyInfo = Text
attrGet = getTextLineAlignment
attrSet = setTextLineAlignment
attrTransfer _ v = do
return v
attrConstruct = constructTextLineAlignment
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.lineAlignment"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:lineAlignment"
})
#endif
getTextLineWrap :: (MonadIO m, IsText o) => o -> m Bool
getTextLineWrap :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Bool
getTextLineWrap o
obj = IO Bool -> m Bool
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
"line-wrap"
setTextLineWrap :: (MonadIO m, IsText o) => o -> Bool -> m ()
setTextLineWrap :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Bool -> m ()
setTextLineWrap o
obj Bool
val = IO () -> m ()
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
"line-wrap" Bool
val
constructTextLineWrap :: (IsText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTextLineWrap :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTextLineWrap Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"line-wrap" Bool
val
#if defined(ENABLE_OVERLOADING)
data TextLineWrapPropertyInfo
instance AttrInfo TextLineWrapPropertyInfo where
type AttrAllowedOps TextLineWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextLineWrapPropertyInfo = IsText
type AttrSetTypeConstraint TextLineWrapPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TextLineWrapPropertyInfo = (~) Bool
type AttrTransferType TextLineWrapPropertyInfo = Bool
type AttrGetType TextLineWrapPropertyInfo = Bool
type AttrLabel TextLineWrapPropertyInfo = "line-wrap"
type AttrOrigin TextLineWrapPropertyInfo = Text
attrGet = getTextLineWrap
attrSet = setTextLineWrap
attrTransfer _ v = do
return v
attrConstruct = constructTextLineWrap
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.lineWrap"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:lineWrap"
})
#endif
getTextLineWrapMode :: (MonadIO m, IsText o) => o -> m Pango.Enums.WrapMode
getTextLineWrapMode :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m WrapMode
getTextLineWrapMode o
obj = IO WrapMode -> m WrapMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO WrapMode -> m WrapMode) -> IO WrapMode -> m WrapMode
forall a b. (a -> b) -> a -> b
$ o -> String -> IO WrapMode
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"line-wrap-mode"
setTextLineWrapMode :: (MonadIO m, IsText o) => o -> Pango.Enums.WrapMode -> m ()
setTextLineWrapMode :: forall (m :: * -> *) o.
(MonadIO m, IsText o) =>
o -> WrapMode -> m ()
setTextLineWrapMode o
obj WrapMode
val = IO () -> m ()
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 -> WrapMode -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"line-wrap-mode" WrapMode
val
constructTextLineWrapMode :: (IsText o, MIO.MonadIO m) => Pango.Enums.WrapMode -> m (GValueConstruct o)
constructTextLineWrapMode :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
WrapMode -> m (GValueConstruct o)
constructTextLineWrapMode WrapMode
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> WrapMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"line-wrap-mode" WrapMode
val
#if defined(ENABLE_OVERLOADING)
data TextLineWrapModePropertyInfo
instance AttrInfo TextLineWrapModePropertyInfo where
type AttrAllowedOps TextLineWrapModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextLineWrapModePropertyInfo = IsText
type AttrSetTypeConstraint TextLineWrapModePropertyInfo = (~) Pango.Enums.WrapMode
type AttrTransferTypeConstraint TextLineWrapModePropertyInfo = (~) Pango.Enums.WrapMode
type AttrTransferType TextLineWrapModePropertyInfo = Pango.Enums.WrapMode
type AttrGetType TextLineWrapModePropertyInfo = Pango.Enums.WrapMode
type AttrLabel TextLineWrapModePropertyInfo = "line-wrap-mode"
type AttrOrigin TextLineWrapModePropertyInfo = Text
attrGet = getTextLineWrapMode
attrSet = setTextLineWrapMode
attrTransfer _ v = do
return v
attrConstruct = constructTextLineWrapMode
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.lineWrapMode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:lineWrapMode"
})
#endif
getTextMaxLength :: (MonadIO m, IsText o) => o -> m Int32
getTextMaxLength :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Int32
getTextMaxLength o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"max-length"
setTextMaxLength :: (MonadIO m, IsText o) => o -> Int32 -> m ()
setTextMaxLength :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Int32 -> m ()
setTextMaxLength o
obj Int32
val = IO () -> m ()
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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"max-length" Int32
val
constructTextMaxLength :: (IsText o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructTextMaxLength :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructTextMaxLength Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"max-length" Int32
val
#if defined(ENABLE_OVERLOADING)
data TextMaxLengthPropertyInfo
instance AttrInfo TextMaxLengthPropertyInfo where
type AttrAllowedOps TextMaxLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextMaxLengthPropertyInfo = IsText
type AttrSetTypeConstraint TextMaxLengthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint TextMaxLengthPropertyInfo = (~) Int32
type AttrTransferType TextMaxLengthPropertyInfo = Int32
type AttrGetType TextMaxLengthPropertyInfo = Int32
type AttrLabel TextMaxLengthPropertyInfo = "max-length"
type AttrOrigin TextMaxLengthPropertyInfo = Text
attrGet = getTextMaxLength
attrSet = setTextMaxLength
attrTransfer _ v = do
return v
attrConstruct = constructTextMaxLength
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.maxLength"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:maxLength"
})
#endif
getTextPasswordChar :: (MonadIO m, IsText o) => o -> m Word32
getTextPasswordChar :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Word32
getTextPasswordChar o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"password-char"
setTextPasswordChar :: (MonadIO m, IsText o) => o -> Word32 -> m ()
setTextPasswordChar :: forall (m :: * -> *) o.
(MonadIO m, IsText o) =>
o -> Word32 -> m ()
setTextPasswordChar o
obj Word32
val = IO () -> m ()
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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"password-char" Word32
val
constructTextPasswordChar :: (IsText o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructTextPasswordChar :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructTextPasswordChar Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"password-char" Word32
val
#if defined(ENABLE_OVERLOADING)
data TextPasswordCharPropertyInfo
instance AttrInfo TextPasswordCharPropertyInfo where
type AttrAllowedOps TextPasswordCharPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextPasswordCharPropertyInfo = IsText
type AttrSetTypeConstraint TextPasswordCharPropertyInfo = (~) Word32
type AttrTransferTypeConstraint TextPasswordCharPropertyInfo = (~) Word32
type AttrTransferType TextPasswordCharPropertyInfo = Word32
type AttrGetType TextPasswordCharPropertyInfo = Word32
type AttrLabel TextPasswordCharPropertyInfo = "password-char"
type AttrOrigin TextPasswordCharPropertyInfo = Text
attrGet = getTextPasswordChar
attrSet = setTextPasswordChar
attrTransfer _ v = do
return v
attrConstruct = constructTextPasswordChar
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.passwordChar"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:passwordChar"
})
#endif
getTextPosition :: (MonadIO m, IsText o) => o -> m Int32
getTextPosition :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Int32
getTextPosition o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"position"
setTextPosition :: (MonadIO m, IsText o) => o -> Int32 -> m ()
setTextPosition :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Int32 -> m ()
setTextPosition o
obj Int32
val = IO () -> m ()
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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"position" Int32
val
constructTextPosition :: (IsText o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructTextPosition :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructTextPosition Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"position" Int32
val
#if defined(ENABLE_OVERLOADING)
data TextPositionPropertyInfo
instance AttrInfo TextPositionPropertyInfo where
type AttrAllowedOps TextPositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextPositionPropertyInfo = IsText
type AttrSetTypeConstraint TextPositionPropertyInfo = (~) Int32
type AttrTransferTypeConstraint TextPositionPropertyInfo = (~) Int32
type AttrTransferType TextPositionPropertyInfo = Int32
type AttrGetType TextPositionPropertyInfo = Int32
type AttrLabel TextPositionPropertyInfo = "position"
type AttrOrigin TextPositionPropertyInfo = Text
attrGet = getTextPosition
attrSet = setTextPosition
attrTransfer _ v = do
return v
attrConstruct = constructTextPosition
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.position"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:position"
})
#endif
getTextSelectable :: (MonadIO m, IsText o) => o -> m Bool
getTextSelectable :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Bool
getTextSelectable o
obj = IO Bool -> m Bool
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
"selectable"
setTextSelectable :: (MonadIO m, IsText o) => o -> Bool -> m ()
setTextSelectable :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Bool -> m ()
setTextSelectable o
obj Bool
val = IO () -> m ()
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
"selectable" Bool
val
constructTextSelectable :: (IsText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTextSelectable :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTextSelectable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"selectable" Bool
val
#if defined(ENABLE_OVERLOADING)
data TextSelectablePropertyInfo
instance AttrInfo TextSelectablePropertyInfo where
type AttrAllowedOps TextSelectablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextSelectablePropertyInfo = IsText
type AttrSetTypeConstraint TextSelectablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TextSelectablePropertyInfo = (~) Bool
type AttrTransferType TextSelectablePropertyInfo = Bool
type AttrGetType TextSelectablePropertyInfo = Bool
type AttrLabel TextSelectablePropertyInfo = "selectable"
type AttrOrigin TextSelectablePropertyInfo = Text
attrGet = getTextSelectable
attrSet = setTextSelectable
attrTransfer _ v = do
return v
attrConstruct = constructTextSelectable
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.selectable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:selectable"
})
#endif
getTextSelectedTextColor :: (MonadIO m, IsText o) => o -> m (Maybe Clutter.Color.Color)
getTextSelectedTextColor :: forall (m :: * -> *) o.
(MonadIO m, IsText o) =>
o -> m (Maybe Color)
getTextSelectedTextColor o
obj = IO (Maybe Color) -> m (Maybe Color)
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
"selected-text-color" ManagedPtr Color -> Color
Clutter.Color.Color
setTextSelectedTextColor :: (MonadIO m, IsText o) => o -> Clutter.Color.Color -> m ()
setTextSelectedTextColor :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Color -> m ()
setTextSelectedTextColor o
obj Color
val = IO () -> m ()
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
"selected-text-color" (Color -> Maybe Color
forall a. a -> Maybe a
Just Color
val)
constructTextSelectedTextColor :: (IsText o, MIO.MonadIO m) => Clutter.Color.Color -> m (GValueConstruct o)
constructTextSelectedTextColor :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Color -> m (GValueConstruct o)
constructTextSelectedTextColor Color
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"selected-text-color" (Color -> Maybe Color
forall a. a -> Maybe a
P.Just Color
val)
clearTextSelectedTextColor :: (MonadIO m, IsText o) => o -> m ()
clearTextSelectedTextColor :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m ()
clearTextSelectedTextColor o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Color -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"selected-text-color" (Maybe Color
forall a. Maybe a
Nothing :: Maybe Clutter.Color.Color)
#if defined(ENABLE_OVERLOADING)
data TextSelectedTextColorPropertyInfo
instance AttrInfo TextSelectedTextColorPropertyInfo where
type AttrAllowedOps TextSelectedTextColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TextSelectedTextColorPropertyInfo = IsText
type AttrSetTypeConstraint TextSelectedTextColorPropertyInfo = (~) Clutter.Color.Color
type AttrTransferTypeConstraint TextSelectedTextColorPropertyInfo = (~) Clutter.Color.Color
type AttrTransferType TextSelectedTextColorPropertyInfo = Clutter.Color.Color
type AttrGetType TextSelectedTextColorPropertyInfo = (Maybe Clutter.Color.Color)
type AttrLabel TextSelectedTextColorPropertyInfo = "selected-text-color"
type AttrOrigin TextSelectedTextColorPropertyInfo = Text
attrGet = getTextSelectedTextColor
attrSet = setTextSelectedTextColor
attrTransfer _ v = do
return v
attrConstruct = constructTextSelectedTextColor
attrClear = clearTextSelectedTextColor
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.selectedTextColor"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:selectedTextColor"
})
#endif
getTextSelectedTextColorSet :: (MonadIO m, IsText o) => o -> m Bool
getTextSelectedTextColorSet :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Bool
getTextSelectedTextColorSet o
obj = IO Bool -> m Bool
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
"selected-text-color-set"
#if defined(ENABLE_OVERLOADING)
data TextSelectedTextColorSetPropertyInfo
instance AttrInfo TextSelectedTextColorSetPropertyInfo where
type AttrAllowedOps TextSelectedTextColorSetPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint TextSelectedTextColorSetPropertyInfo = IsText
type AttrSetTypeConstraint TextSelectedTextColorSetPropertyInfo = (~) ()
type AttrTransferTypeConstraint TextSelectedTextColorSetPropertyInfo = (~) ()
type AttrTransferType TextSelectedTextColorSetPropertyInfo = ()
type AttrGetType TextSelectedTextColorSetPropertyInfo = Bool
type AttrLabel TextSelectedTextColorSetPropertyInfo = "selected-text-color-set"
type AttrOrigin TextSelectedTextColorSetPropertyInfo = Text
attrGet = getTextSelectedTextColorSet
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.selectedTextColorSet"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:selectedTextColorSet"
})
#endif
getTextSelectionBound :: (MonadIO m, IsText o) => o -> m Int32
getTextSelectionBound :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Int32
getTextSelectionBound o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"selection-bound"
setTextSelectionBound :: (MonadIO m, IsText o) => o -> Int32 -> m ()
setTextSelectionBound :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Int32 -> m ()
setTextSelectionBound o
obj Int32
val = IO () -> m ()
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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"selection-bound" Int32
val
constructTextSelectionBound :: (IsText o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructTextSelectionBound :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructTextSelectionBound Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"selection-bound" Int32
val
#if defined(ENABLE_OVERLOADING)
data TextSelectionBoundPropertyInfo
instance AttrInfo TextSelectionBoundPropertyInfo where
type AttrAllowedOps TextSelectionBoundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextSelectionBoundPropertyInfo = IsText
type AttrSetTypeConstraint TextSelectionBoundPropertyInfo = (~) Int32
type AttrTransferTypeConstraint TextSelectionBoundPropertyInfo = (~) Int32
type AttrTransferType TextSelectionBoundPropertyInfo = Int32
type AttrGetType TextSelectionBoundPropertyInfo = Int32
type AttrLabel TextSelectionBoundPropertyInfo = "selection-bound"
type AttrOrigin TextSelectionBoundPropertyInfo = Text
attrGet = getTextSelectionBound
attrSet = setTextSelectionBound
attrTransfer _ v = do
return v
attrConstruct = constructTextSelectionBound
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.selectionBound"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:selectionBound"
})
#endif
getTextSelectionColor :: (MonadIO m, IsText o) => o -> m (Maybe Clutter.Color.Color)
getTextSelectionColor :: forall (m :: * -> *) o.
(MonadIO m, IsText o) =>
o -> m (Maybe Color)
getTextSelectionColor o
obj = IO (Maybe Color) -> m (Maybe Color)
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
"selection-color" ManagedPtr Color -> Color
Clutter.Color.Color
setTextSelectionColor :: (MonadIO m, IsText o) => o -> Clutter.Color.Color -> m ()
setTextSelectionColor :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Color -> m ()
setTextSelectionColor o
obj Color
val = IO () -> m ()
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
"selection-color" (Color -> Maybe Color
forall a. a -> Maybe a
Just Color
val)
constructTextSelectionColor :: (IsText o, MIO.MonadIO m) => Clutter.Color.Color -> m (GValueConstruct o)
constructTextSelectionColor :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Color -> m (GValueConstruct o)
constructTextSelectionColor Color
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"selection-color" (Color -> Maybe Color
forall a. a -> Maybe a
P.Just Color
val)
clearTextSelectionColor :: (MonadIO m, IsText o) => o -> m ()
clearTextSelectionColor :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m ()
clearTextSelectionColor o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Color -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"selection-color" (Maybe Color
forall a. Maybe a
Nothing :: Maybe Clutter.Color.Color)
#if defined(ENABLE_OVERLOADING)
data TextSelectionColorPropertyInfo
instance AttrInfo TextSelectionColorPropertyInfo where
type AttrAllowedOps TextSelectionColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TextSelectionColorPropertyInfo = IsText
type AttrSetTypeConstraint TextSelectionColorPropertyInfo = (~) Clutter.Color.Color
type AttrTransferTypeConstraint TextSelectionColorPropertyInfo = (~) Clutter.Color.Color
type AttrTransferType TextSelectionColorPropertyInfo = Clutter.Color.Color
type AttrGetType TextSelectionColorPropertyInfo = (Maybe Clutter.Color.Color)
type AttrLabel TextSelectionColorPropertyInfo = "selection-color"
type AttrOrigin TextSelectionColorPropertyInfo = Text
attrGet = getTextSelectionColor
attrSet = setTextSelectionColor
attrTransfer _ v = do
return v
attrConstruct = constructTextSelectionColor
attrClear = clearTextSelectionColor
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.selectionColor"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:selectionColor"
})
#endif
getTextSelectionColorSet :: (MonadIO m, IsText o) => o -> m Bool
getTextSelectionColorSet :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Bool
getTextSelectionColorSet o
obj = IO Bool -> m Bool
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
"selection-color-set"
#if defined(ENABLE_OVERLOADING)
data TextSelectionColorSetPropertyInfo
instance AttrInfo TextSelectionColorSetPropertyInfo where
type AttrAllowedOps TextSelectionColorSetPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint TextSelectionColorSetPropertyInfo = IsText
type AttrSetTypeConstraint TextSelectionColorSetPropertyInfo = (~) ()
type AttrTransferTypeConstraint TextSelectionColorSetPropertyInfo = (~) ()
type AttrTransferType TextSelectionColorSetPropertyInfo = ()
type AttrGetType TextSelectionColorSetPropertyInfo = Bool
type AttrLabel TextSelectionColorSetPropertyInfo = "selection-color-set"
type AttrOrigin TextSelectionColorSetPropertyInfo = Text
attrGet = getTextSelectionColorSet
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.selectionColorSet"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:selectionColorSet"
})
#endif
getTextSingleLineMode :: (MonadIO m, IsText o) => o -> m Bool
getTextSingleLineMode :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Bool
getTextSingleLineMode o
obj = IO Bool -> m Bool
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
"single-line-mode"
setTextSingleLineMode :: (MonadIO m, IsText o) => o -> Bool -> m ()
setTextSingleLineMode :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Bool -> m ()
setTextSingleLineMode o
obj Bool
val = IO () -> m ()
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
"single-line-mode" Bool
val
constructTextSingleLineMode :: (IsText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTextSingleLineMode :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTextSingleLineMode Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"single-line-mode" Bool
val
#if defined(ENABLE_OVERLOADING)
data TextSingleLineModePropertyInfo
instance AttrInfo TextSingleLineModePropertyInfo where
type AttrAllowedOps TextSingleLineModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextSingleLineModePropertyInfo = IsText
type AttrSetTypeConstraint TextSingleLineModePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TextSingleLineModePropertyInfo = (~) Bool
type AttrTransferType TextSingleLineModePropertyInfo = Bool
type AttrGetType TextSingleLineModePropertyInfo = Bool
type AttrLabel TextSingleLineModePropertyInfo = "single-line-mode"
type AttrOrigin TextSingleLineModePropertyInfo = Text
attrGet = getTextSingleLineMode
attrSet = setTextSingleLineMode
attrTransfer _ v = do
return v
attrConstruct = constructTextSingleLineMode
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.singleLineMode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:singleLineMode"
})
#endif
getTextText :: (MonadIO m, IsText o) => o -> m T.Text
getTextText :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Text
getTextText o
obj = IO Text -> m Text
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
"getTextText" (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
"text"
setTextText :: (MonadIO m, IsText o) => o -> T.Text -> m ()
setTextText :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Text -> m ()
setTextText o
obj Text
val = IO () -> m ()
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
"text" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructTextText :: (IsText o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructTextText :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructTextText Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"text" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearTextText :: (MonadIO m, IsText o) => o -> m ()
clearTextText :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m ()
clearTextText o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"text" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data TextTextPropertyInfo
instance AttrInfo TextTextPropertyInfo where
type AttrAllowedOps TextTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TextTextPropertyInfo = IsText
type AttrSetTypeConstraint TextTextPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint TextTextPropertyInfo = (~) T.Text
type AttrTransferType TextTextPropertyInfo = T.Text
type AttrGetType TextTextPropertyInfo = T.Text
type AttrLabel TextTextPropertyInfo = "text"
type AttrOrigin TextTextPropertyInfo = Text
attrGet = getTextText
attrSet = setTextText
attrTransfer _ v = do
return v
attrConstruct = constructTextText
attrClear = clearTextText
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.text"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:text"
})
#endif
getTextUseMarkup :: (MonadIO m, IsText o) => o -> m Bool
getTextUseMarkup :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Bool
getTextUseMarkup o
obj = IO Bool -> m Bool
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-markup"
setTextUseMarkup :: (MonadIO m, IsText o) => o -> Bool -> m ()
setTextUseMarkup :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Bool -> m ()
setTextUseMarkup o
obj Bool
val = IO () -> m ()
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-markup" Bool
val
constructTextUseMarkup :: (IsText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTextUseMarkup :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTextUseMarkup Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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-markup" Bool
val
#if defined(ENABLE_OVERLOADING)
data TextUseMarkupPropertyInfo
instance AttrInfo TextUseMarkupPropertyInfo where
type AttrAllowedOps TextUseMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextUseMarkupPropertyInfo = IsText
type AttrSetTypeConstraint TextUseMarkupPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TextUseMarkupPropertyInfo = (~) Bool
type AttrTransferType TextUseMarkupPropertyInfo = Bool
type AttrGetType TextUseMarkupPropertyInfo = Bool
type AttrLabel TextUseMarkupPropertyInfo = "use-markup"
type AttrOrigin TextUseMarkupPropertyInfo = Text
attrGet = getTextUseMarkup
attrSet = setTextUseMarkup
attrTransfer _ v = do
return v
attrConstruct = constructTextUseMarkup
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.useMarkup"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#g:attr:useMarkup"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Text
type instance O.AttributeList Text = TextAttributeList
type TextAttributeList = ('[ '("actions", Clutter.Actor.ActorActionsPropertyInfo), '("activatable", TextActivatablePropertyInfo), '("allocation", Clutter.Actor.ActorAllocationPropertyInfo), '("anchorGravity", Clutter.Actor.ActorAnchorGravityPropertyInfo), '("anchorX", Clutter.Actor.ActorAnchorXPropertyInfo), '("anchorY", Clutter.Actor.ActorAnchorYPropertyInfo), '("attributes", TextAttributesPropertyInfo), '("backgroundColor", Clutter.Actor.ActorBackgroundColorPropertyInfo), '("backgroundColorSet", Clutter.Actor.ActorBackgroundColorSetPropertyInfo), '("buffer", TextBufferPropertyInfo), '("childTransform", Clutter.Actor.ActorChildTransformPropertyInfo), '("childTransformSet", Clutter.Actor.ActorChildTransformSetPropertyInfo), '("clip", Clutter.Actor.ActorClipPropertyInfo), '("clipRect", Clutter.Actor.ActorClipRectPropertyInfo), '("clipToAllocation", Clutter.Actor.ActorClipToAllocationPropertyInfo), '("color", TextColorPropertyInfo), '("constraints", Clutter.Actor.ActorConstraintsPropertyInfo), '("content", Clutter.Actor.ActorContentPropertyInfo), '("contentBox", Clutter.Actor.ActorContentBoxPropertyInfo), '("contentGravity", Clutter.Actor.ActorContentGravityPropertyInfo), '("contentRepeat", Clutter.Actor.ActorContentRepeatPropertyInfo), '("cursorColor", TextCursorColorPropertyInfo), '("cursorColorSet", TextCursorColorSetPropertyInfo), '("cursorPosition", TextCursorPositionPropertyInfo), '("cursorSize", TextCursorSizePropertyInfo), '("cursorVisible", TextCursorVisiblePropertyInfo), '("depth", Clutter.Actor.ActorDepthPropertyInfo), '("editable", TextEditablePropertyInfo), '("effect", Clutter.Actor.ActorEffectPropertyInfo), '("ellipsize", TextEllipsizePropertyInfo), '("firstChild", Clutter.Actor.ActorFirstChildPropertyInfo), '("fixedPositionSet", Clutter.Actor.ActorFixedPositionSetPropertyInfo), '("fixedX", Clutter.Actor.ActorFixedXPropertyInfo), '("fixedY", Clutter.Actor.ActorFixedYPropertyInfo), '("fontDescription", TextFontDescriptionPropertyInfo), '("fontName", TextFontNamePropertyInfo), '("hasClip", Clutter.Actor.ActorHasClipPropertyInfo), '("hasPointer", Clutter.Actor.ActorHasPointerPropertyInfo), '("height", Clutter.Actor.ActorHeightPropertyInfo), '("justify", TextJustifyPropertyInfo), '("lastChild", Clutter.Actor.ActorLastChildPropertyInfo), '("layoutManager", Clutter.Actor.ActorLayoutManagerPropertyInfo), '("lineAlignment", TextLineAlignmentPropertyInfo), '("lineWrap", TextLineWrapPropertyInfo), '("lineWrapMode", TextLineWrapModePropertyInfo), '("magnificationFilter", Clutter.Actor.ActorMagnificationFilterPropertyInfo), '("mapped", Clutter.Actor.ActorMappedPropertyInfo), '("marginBottom", Clutter.Actor.ActorMarginBottomPropertyInfo), '("marginLeft", Clutter.Actor.ActorMarginLeftPropertyInfo), '("marginRight", Clutter.Actor.ActorMarginRightPropertyInfo), '("marginTop", Clutter.Actor.ActorMarginTopPropertyInfo), '("maxLength", TextMaxLengthPropertyInfo), '("minHeight", Clutter.Actor.ActorMinHeightPropertyInfo), '("minHeightSet", Clutter.Actor.ActorMinHeightSetPropertyInfo), '("minWidth", Clutter.Actor.ActorMinWidthPropertyInfo), '("minWidthSet", Clutter.Actor.ActorMinWidthSetPropertyInfo), '("minificationFilter", Clutter.Actor.ActorMinificationFilterPropertyInfo), '("name", Clutter.Actor.ActorNamePropertyInfo), '("naturalHeight", Clutter.Actor.ActorNaturalHeightPropertyInfo), '("naturalHeightSet", Clutter.Actor.ActorNaturalHeightSetPropertyInfo), '("naturalWidth", Clutter.Actor.ActorNaturalWidthPropertyInfo), '("naturalWidthSet", Clutter.Actor.ActorNaturalWidthSetPropertyInfo), '("offscreenRedirect", Clutter.Actor.ActorOffscreenRedirectPropertyInfo), '("opacity", Clutter.Actor.ActorOpacityPropertyInfo), '("passwordChar", TextPasswordCharPropertyInfo), '("pivotPoint", Clutter.Actor.ActorPivotPointPropertyInfo), '("pivotPointZ", Clutter.Actor.ActorPivotPointZPropertyInfo), '("position", TextPositionPropertyInfo), '("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), '("selectable", TextSelectablePropertyInfo), '("selectedTextColor", TextSelectedTextColorPropertyInfo), '("selectedTextColorSet", TextSelectedTextColorSetPropertyInfo), '("selectionBound", TextSelectionBoundPropertyInfo), '("selectionColor", TextSelectionColorPropertyInfo), '("selectionColorSet", TextSelectionColorSetPropertyInfo), '("showOnSetParent", Clutter.Actor.ActorShowOnSetParentPropertyInfo), '("singleLineMode", TextSingleLineModePropertyInfo), '("size", Clutter.Actor.ActorSizePropertyInfo), '("text", TextTextPropertyInfo), '("textDirection", Clutter.Actor.ActorTextDirectionPropertyInfo), '("transform", Clutter.Actor.ActorTransformPropertyInfo), '("transformSet", Clutter.Actor.ActorTransformSetPropertyInfo), '("translationX", Clutter.Actor.ActorTranslationXPropertyInfo), '("translationY", Clutter.Actor.ActorTranslationYPropertyInfo), '("translationZ", Clutter.Actor.ActorTranslationZPropertyInfo), '("useMarkup", TextUseMarkupPropertyInfo), '("visible", Clutter.Actor.ActorVisiblePropertyInfo), '("width", Clutter.Actor.ActorWidthPropertyInfo), '("x", Clutter.Actor.ActorXPropertyInfo), '("xAlign", Clutter.Actor.ActorXAlignPropertyInfo), '("xExpand", Clutter.Actor.ActorXExpandPropertyInfo), '("y", Clutter.Actor.ActorYPropertyInfo), '("yAlign", Clutter.Actor.ActorYAlignPropertyInfo), '("yExpand", Clutter.Actor.ActorYExpandPropertyInfo), '("zPosition", Clutter.Actor.ActorZPositionPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
textActivatable :: AttrLabelProxy "activatable"
textActivatable = AttrLabelProxy
textAttributes :: AttrLabelProxy "attributes"
textAttributes = AttrLabelProxy
textBuffer :: AttrLabelProxy "buffer"
textBuffer = AttrLabelProxy
textColor :: AttrLabelProxy "color"
textColor = AttrLabelProxy
textCursorColor :: AttrLabelProxy "cursorColor"
textCursorColor = AttrLabelProxy
textCursorColorSet :: AttrLabelProxy "cursorColorSet"
textCursorColorSet = AttrLabelProxy
textCursorPosition :: AttrLabelProxy "cursorPosition"
textCursorPosition = AttrLabelProxy
textCursorSize :: AttrLabelProxy "cursorSize"
textCursorSize = AttrLabelProxy
textCursorVisible :: AttrLabelProxy "cursorVisible"
textCursorVisible = AttrLabelProxy
textEditable :: AttrLabelProxy "editable"
textEditable = AttrLabelProxy
textEllipsize :: AttrLabelProxy "ellipsize"
textEllipsize = AttrLabelProxy
textFontDescription :: AttrLabelProxy "fontDescription"
textFontDescription = AttrLabelProxy
textFontName :: AttrLabelProxy "fontName"
textFontName = AttrLabelProxy
textJustify :: AttrLabelProxy "justify"
textJustify = AttrLabelProxy
textLineAlignment :: AttrLabelProxy "lineAlignment"
textLineAlignment = AttrLabelProxy
textLineWrap :: AttrLabelProxy "lineWrap"
textLineWrap = AttrLabelProxy
textLineWrapMode :: AttrLabelProxy "lineWrapMode"
textLineWrapMode = AttrLabelProxy
textMaxLength :: AttrLabelProxy "maxLength"
textMaxLength = AttrLabelProxy
textPasswordChar :: AttrLabelProxy "passwordChar"
textPasswordChar = AttrLabelProxy
textPosition :: AttrLabelProxy "position"
textPosition = AttrLabelProxy
textSelectable :: AttrLabelProxy "selectable"
textSelectable = AttrLabelProxy
textSelectedTextColor :: AttrLabelProxy "selectedTextColor"
textSelectedTextColor = AttrLabelProxy
textSelectedTextColorSet :: AttrLabelProxy "selectedTextColorSet"
textSelectedTextColorSet = AttrLabelProxy
textSelectionBound :: AttrLabelProxy "selectionBound"
textSelectionBound = AttrLabelProxy
textSelectionColor :: AttrLabelProxy "selectionColor"
textSelectionColor = AttrLabelProxy
textSelectionColorSet :: AttrLabelProxy "selectionColorSet"
textSelectionColorSet = AttrLabelProxy
textSingleLineMode :: AttrLabelProxy "singleLineMode"
textSingleLineMode = AttrLabelProxy
textText :: AttrLabelProxy "text"
textText = AttrLabelProxy
textUseMarkup :: AttrLabelProxy "useMarkup"
textUseMarkup = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Text = TextSignalList
type TextSignalList = ('[ '("activate", TextActivateSignalInfo), '("actorAdded", Clutter.Container.ContainerActorAddedSignalInfo), '("actorRemoved", Clutter.Container.ContainerActorRemovedSignalInfo), '("allocationChanged", Clutter.Actor.ActorAllocationChangedSignalInfo), '("buttonPressEvent", Clutter.Actor.ActorButtonPressEventSignalInfo), '("buttonReleaseEvent", Clutter.Actor.ActorButtonReleaseEventSignalInfo), '("capturedEvent", Clutter.Actor.ActorCapturedEventSignalInfo), '("childNotify", Clutter.Container.ContainerChildNotifySignalInfo), '("cursorChanged", TextCursorChangedSignalInfo), '("cursorEvent", TextCursorEventSignalInfo), '("deleteText", TextDeleteTextSignalInfo), '("destroy", Clutter.Actor.ActorDestroySignalInfo), '("enterEvent", Clutter.Actor.ActorEnterEventSignalInfo), '("event", Clutter.Actor.ActorEventSignalInfo), '("hide", Clutter.Actor.ActorHideSignalInfo), '("insertText", TextInsertTextSignalInfo), '("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), '("textChanged", TextTextChangedSignalInfo), '("touchEvent", Clutter.Actor.ActorTouchEventSignalInfo), '("transitionStopped", Clutter.Actor.ActorTransitionStoppedSignalInfo), '("transitionsCompleted", Clutter.Actor.ActorTransitionsCompletedSignalInfo), '("unrealize", Clutter.Actor.ActorUnrealizeSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "clutter_text_new" clutter_text_new ::
IO (Ptr Text)
textNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Text
textNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Text
textNew = IO Text -> m Text
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 Text
result <- IO (Ptr Text)
clutter_text_new
Text -> Ptr Text -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textNew" Ptr Text
result
Text
result' <- ((ManagedPtr Text -> Text) -> Ptr Text -> IO Text
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Text -> Text
Text) Ptr Text
result
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "clutter_text_new_full" clutter_text_new_full ::
CString ->
CString ->
Ptr Clutter.Color.Color ->
IO (Ptr Text)
textNewFull ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> T.Text
-> Clutter.Color.Color
-> m Text
textNewFull :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text -> Text -> Color -> m Text
textNewFull Text
fontName Text
text Color
color = IO Text -> m Text
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
CString
fontName' <- Text -> IO CString
textToCString Text
fontName
CString
text' <- Text -> IO CString
textToCString Text
text
Ptr Color
color' <- Color -> IO (Ptr Color)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Color
color
Ptr Text
result <- CString -> CString -> Ptr Color -> IO (Ptr Text)
clutter_text_new_full CString
fontName' CString
text' Ptr Color
color'
Text -> Ptr Text -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textNewFull" Ptr Text
result
Text
result' <- ((ManagedPtr Text -> Text) -> Ptr Text -> IO Text
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Text -> Text
Text) Ptr Text
result
Color -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Color
color
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
fontName'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
text'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "clutter_text_new_with_buffer" clutter_text_new_with_buffer ::
Ptr Clutter.TextBuffer.TextBuffer ->
IO (Ptr Text)
textNewWithBuffer ::
(B.CallStack.HasCallStack, MonadIO m, Clutter.TextBuffer.IsTextBuffer a) =>
a
-> m Text
textNewWithBuffer :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
a -> m Text
textNewWithBuffer a
buffer = IO Text -> m Text
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 TextBuffer
buffer' <- a -> IO (Ptr TextBuffer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr Text
result <- Ptr TextBuffer -> IO (Ptr Text)
clutter_text_new_with_buffer Ptr TextBuffer
buffer'
Text -> Ptr Text -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textNewWithBuffer" Ptr Text
result
Text
result' <- ((ManagedPtr Text -> Text) -> Ptr Text -> IO Text
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Text -> Text
Text) Ptr Text
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "clutter_text_new_with_text" clutter_text_new_with_text ::
CString ->
CString ->
IO (Ptr Text)
textNewWithText ::
(B.CallStack.HasCallStack, MonadIO m) =>
Maybe (T.Text)
-> T.Text
-> m Text
textNewWithText :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Maybe Text -> Text -> m Text
textNewWithText Maybe Text
fontName Text
text = IO Text -> m Text
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
CString
maybeFontName <- case Maybe Text
fontName of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jFontName -> do
CString
jFontName' <- Text -> IO CString
textToCString Text
jFontName
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jFontName'
CString
text' <- Text -> IO CString
textToCString Text
text
Ptr Text
result <- CString -> CString -> IO (Ptr Text)
clutter_text_new_with_text CString
maybeFontName CString
text'
Text -> Ptr Text -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textNewWithText" Ptr Text
result
Text
result' <- ((ManagedPtr Text -> Text) -> Ptr Text -> IO Text
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Text -> Text
Text) Ptr Text
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeFontName
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
text'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "clutter_text_activate" clutter_text_activate ::
Ptr Text ->
IO CInt
textActivate ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Bool
textActivate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Bool
textActivate a
self = IO Bool -> m Bool
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 Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Text -> IO CInt
clutter_text_activate Ptr Text
self'
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
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextActivateMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsText a) => O.OverloadedMethod TextActivateMethodInfo a signature where
overloadedMethod = textActivate
instance O.OverloadedMethodInfo TextActivateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textActivate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textActivate"
})
#endif
foreign import ccall "clutter_text_coords_to_position" clutter_text_coords_to_position ::
Ptr Text ->
CFloat ->
CFloat ->
IO Int32
textCoordsToPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Float
-> Float
-> m Int32
textCoordsToPosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Float -> Float -> m Int32
textCoordsToPosition a
self Float
x Float
y = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let x' :: CFloat
x' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x
let y' :: CFloat
y' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y
Int32
result <- Ptr Text -> CFloat -> CFloat -> IO Int32
clutter_text_coords_to_position Ptr Text
self' CFloat
x' CFloat
y'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TextCoordsToPositionMethodInfo
instance (signature ~ (Float -> Float -> m Int32), MonadIO m, IsText a) => O.OverloadedMethod TextCoordsToPositionMethodInfo a signature where
overloadedMethod = textCoordsToPosition
instance O.OverloadedMethodInfo TextCoordsToPositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textCoordsToPosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textCoordsToPosition"
})
#endif
foreign import ccall "clutter_text_delete_chars" clutter_text_delete_chars ::
Ptr Text ->
Word32 ->
IO ()
textDeleteChars ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Word32
-> m ()
textDeleteChars :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Word32 -> m ()
textDeleteChars a
self Word32
nChars = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Text -> Word32 -> IO ()
clutter_text_delete_chars Ptr Text
self' Word32
nChars
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextDeleteCharsMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextDeleteCharsMethodInfo a signature where
overloadedMethod = textDeleteChars
instance O.OverloadedMethodInfo TextDeleteCharsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textDeleteChars",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textDeleteChars"
})
#endif
foreign import ccall "clutter_text_delete_selection" clutter_text_delete_selection ::
Ptr Text ->
IO CInt
textDeleteSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Bool
textDeleteSelection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Bool
textDeleteSelection a
self = IO Bool -> m Bool
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 Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Text -> IO CInt
clutter_text_delete_selection Ptr Text
self'
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
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextDeleteSelectionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsText a) => O.OverloadedMethod TextDeleteSelectionMethodInfo a signature where
overloadedMethod = textDeleteSelection
instance O.OverloadedMethodInfo TextDeleteSelectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textDeleteSelection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textDeleteSelection"
})
#endif
foreign import ccall "clutter_text_delete_text" clutter_text_delete_text ::
Ptr Text ->
Int64 ->
Int64 ->
IO ()
textDeleteText ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Int64
-> Int64
-> m ()
textDeleteText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Int64 -> Int64 -> m ()
textDeleteText a
self Int64
startPos Int64
endPos = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Text -> Int64 -> Int64 -> IO ()
clutter_text_delete_text Ptr Text
self' Int64
startPos Int64
endPos
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextDeleteTextMethodInfo
instance (signature ~ (Int64 -> Int64 -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextDeleteTextMethodInfo a signature where
overloadedMethod = textDeleteText
instance O.OverloadedMethodInfo TextDeleteTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textDeleteText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textDeleteText"
})
#endif
foreign import ccall "clutter_text_get_activatable" clutter_text_get_activatable ::
Ptr Text ->
IO CInt
textGetActivatable ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Bool
textGetActivatable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Bool
textGetActivatable a
self = IO Bool -> m Bool
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 Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Text -> IO CInt
clutter_text_get_activatable Ptr Text
self'
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
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextGetActivatableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsText a) => O.OverloadedMethod TextGetActivatableMethodInfo a signature where
overloadedMethod = textGetActivatable
instance O.OverloadedMethodInfo TextGetActivatableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetActivatable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetActivatable"
})
#endif
foreign import ccall "clutter_text_get_attributes" clutter_text_get_attributes ::
Ptr Text ->
IO (Ptr Pango.AttrList.AttrList)
textGetAttributes ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Pango.AttrList.AttrList
textGetAttributes :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m AttrList
textGetAttributes a
self = IO AttrList -> m AttrList
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AttrList -> m AttrList) -> IO AttrList -> m AttrList
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr AttrList
result <- Ptr Text -> IO (Ptr AttrList)
clutter_text_get_attributes Ptr Text
self'
Text -> Ptr AttrList -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textGetAttributes" Ptr AttrList
result
AttrList
result' <- ((ManagedPtr AttrList -> AttrList) -> Ptr AttrList -> IO AttrList
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr AttrList -> AttrList
Pango.AttrList.AttrList) Ptr AttrList
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
AttrList -> IO AttrList
forall (m :: * -> *) a. Monad m => a -> m a
return AttrList
result'
#if defined(ENABLE_OVERLOADING)
data TextGetAttributesMethodInfo
instance (signature ~ (m Pango.AttrList.AttrList), MonadIO m, IsText a) => O.OverloadedMethod TextGetAttributesMethodInfo a signature where
overloadedMethod = textGetAttributes
instance O.OverloadedMethodInfo TextGetAttributesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetAttributes",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetAttributes"
})
#endif
foreign import ccall "clutter_text_get_buffer" clutter_text_get_buffer ::
Ptr Text ->
IO (Ptr Clutter.TextBuffer.TextBuffer)
textGetBuffer ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Clutter.TextBuffer.TextBuffer
textGetBuffer :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m TextBuffer
textGetBuffer a
self = IO TextBuffer -> m TextBuffer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TextBuffer -> m TextBuffer) -> IO TextBuffer -> m TextBuffer
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TextBuffer
result <- Ptr Text -> IO (Ptr TextBuffer)
clutter_text_get_buffer Ptr Text
self'
Text -> Ptr TextBuffer -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textGetBuffer" Ptr TextBuffer
result
TextBuffer
result' <- ((ManagedPtr TextBuffer -> TextBuffer)
-> Ptr TextBuffer -> IO TextBuffer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TextBuffer -> TextBuffer
Clutter.TextBuffer.TextBuffer) Ptr TextBuffer
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
TextBuffer -> IO TextBuffer
forall (m :: * -> *) a. Monad m => a -> m a
return TextBuffer
result'
#if defined(ENABLE_OVERLOADING)
data TextGetBufferMethodInfo
instance (signature ~ (m Clutter.TextBuffer.TextBuffer), MonadIO m, IsText a) => O.OverloadedMethod TextGetBufferMethodInfo a signature where
overloadedMethod = textGetBuffer
instance O.OverloadedMethodInfo TextGetBufferMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetBuffer",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetBuffer"
})
#endif
foreign import ccall "clutter_text_get_chars" clutter_text_get_chars ::
Ptr Text ->
Int64 ->
Int64 ->
IO CString
textGetChars ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Int64
-> Int64
-> m T.Text
textGetChars :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Int64 -> Int64 -> m Text
textGetChars a
self Int64
startPos Int64
endPos = IO Text -> m Text
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 Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Text -> Int64 -> Int64 -> IO CString
clutter_text_get_chars Ptr Text
self' Int64
startPos Int64
endPos
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textGetChars" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data TextGetCharsMethodInfo
instance (signature ~ (Int64 -> Int64 -> m T.Text), MonadIO m, IsText a) => O.OverloadedMethod TextGetCharsMethodInfo a signature where
overloadedMethod = textGetChars
instance O.OverloadedMethodInfo TextGetCharsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetChars",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetChars"
})
#endif
foreign import ccall "clutter_text_get_color" clutter_text_get_color ::
Ptr Text ->
Ptr Clutter.Color.Color ->
IO ()
textGetColor ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m (Clutter.Color.Color)
textGetColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Color
textGetColor a
self = IO Color -> m Color
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 Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
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 Text -> Ptr Color -> IO ()
clutter_text_get_color Ptr Text
self' 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
self
Color -> IO Color
forall (m :: * -> *) a. Monad m => a -> m a
return Color
color'
#if defined(ENABLE_OVERLOADING)
data TextGetColorMethodInfo
instance (signature ~ (m (Clutter.Color.Color)), MonadIO m, IsText a) => O.OverloadedMethod TextGetColorMethodInfo a signature where
overloadedMethod = textGetColor
instance O.OverloadedMethodInfo TextGetColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetColor"
})
#endif
foreign import ccall "clutter_text_get_cursor_color" clutter_text_get_cursor_color ::
Ptr Text ->
Ptr Clutter.Color.Color ->
IO ()
textGetCursorColor ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m (Clutter.Color.Color)
textGetCursorColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Color
textGetCursorColor a
self = IO Color -> m Color
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 Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
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 Text -> Ptr Color -> IO ()
clutter_text_get_cursor_color Ptr Text
self' 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
self
Color -> IO Color
forall (m :: * -> *) a. Monad m => a -> m a
return Color
color'
#if defined(ENABLE_OVERLOADING)
data TextGetCursorColorMethodInfo
instance (signature ~ (m (Clutter.Color.Color)), MonadIO m, IsText a) => O.OverloadedMethod TextGetCursorColorMethodInfo a signature where
overloadedMethod = textGetCursorColor
instance O.OverloadedMethodInfo TextGetCursorColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetCursorColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetCursorColor"
})
#endif
foreign import ccall "clutter_text_get_cursor_position" clutter_text_get_cursor_position ::
Ptr Text ->
IO Int32
textGetCursorPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Int32
textGetCursorPosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Int32
textGetCursorPosition a
self = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Int32
result <- Ptr Text -> IO Int32
clutter_text_get_cursor_position Ptr Text
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TextGetCursorPositionMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsText a) => O.OverloadedMethod TextGetCursorPositionMethodInfo a signature where
overloadedMethod = textGetCursorPosition
instance O.OverloadedMethodInfo TextGetCursorPositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetCursorPosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetCursorPosition"
})
#endif
foreign import ccall "clutter_text_get_cursor_rect" clutter_text_get_cursor_rect ::
Ptr Text ->
Ptr Clutter.Rect.Rect ->
IO ()
textGetCursorRect ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m (Clutter.Rect.Rect)
textGetCursorRect :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Rect
textGetCursorRect a
self = IO Rect -> m Rect
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Rect -> m Rect) -> IO Rect -> m Rect
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Rect
rect <- Int -> IO (Ptr Rect)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
16 :: IO (Ptr Clutter.Rect.Rect)
Ptr Text -> Ptr Rect -> IO ()
clutter_text_get_cursor_rect Ptr Text
self' Ptr Rect
rect
Rect
rect' <- ((ManagedPtr Rect -> Rect) -> Ptr Rect -> IO Rect
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rect -> Rect
Clutter.Rect.Rect) Ptr Rect
rect
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Rect -> IO Rect
forall (m :: * -> *) a. Monad m => a -> m a
return Rect
rect'
#if defined(ENABLE_OVERLOADING)
data TextGetCursorRectMethodInfo
instance (signature ~ (m (Clutter.Rect.Rect)), MonadIO m, IsText a) => O.OverloadedMethod TextGetCursorRectMethodInfo a signature where
overloadedMethod = textGetCursorRect
instance O.OverloadedMethodInfo TextGetCursorRectMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetCursorRect",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetCursorRect"
})
#endif
foreign import ccall "clutter_text_get_cursor_size" clutter_text_get_cursor_size ::
Ptr Text ->
IO Word32
textGetCursorSize ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Word32
textGetCursorSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Word32
textGetCursorSize a
self = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr Text -> IO Word32
clutter_text_get_cursor_size Ptr Text
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data TextGetCursorSizeMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsText a) => O.OverloadedMethod TextGetCursorSizeMethodInfo a signature where
overloadedMethod = textGetCursorSize
instance O.OverloadedMethodInfo TextGetCursorSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetCursorSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetCursorSize"
})
#endif
foreign import ccall "clutter_text_get_cursor_visible" clutter_text_get_cursor_visible ::
Ptr Text ->
IO CInt
textGetCursorVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Bool
textGetCursorVisible :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Bool
textGetCursorVisible a
self = IO Bool -> m Bool
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 Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Text -> IO CInt
clutter_text_get_cursor_visible Ptr Text
self'
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
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextGetCursorVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsText a) => O.OverloadedMethod TextGetCursorVisibleMethodInfo a signature where
overloadedMethod = textGetCursorVisible
instance O.OverloadedMethodInfo TextGetCursorVisibleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetCursorVisible",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetCursorVisible"
})
#endif
foreign import ccall "clutter_text_get_editable" clutter_text_get_editable ::
Ptr Text ->
IO CInt
textGetEditable ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Bool
textGetEditable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Bool
textGetEditable a
self = IO Bool -> m Bool
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 Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Text -> IO CInt
clutter_text_get_editable Ptr Text
self'
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
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextGetEditableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsText a) => O.OverloadedMethod TextGetEditableMethodInfo a signature where
overloadedMethod = textGetEditable
instance O.OverloadedMethodInfo TextGetEditableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetEditable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetEditable"
})
#endif
foreign import ccall "clutter_text_get_ellipsize" clutter_text_get_ellipsize ::
Ptr Text ->
IO CUInt
textGetEllipsize ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Pango.Enums.EllipsizeMode
textGetEllipsize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m EllipsizeMode
textGetEllipsize a
self = IO EllipsizeMode -> m EllipsizeMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO EllipsizeMode -> m EllipsizeMode)
-> IO EllipsizeMode -> m EllipsizeMode
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr Text -> IO CUInt
clutter_text_get_ellipsize Ptr Text
self'
let result' :: EllipsizeMode
result' = (Int -> EllipsizeMode
forall a. Enum a => Int -> a
toEnum (Int -> EllipsizeMode) -> (CUInt -> Int) -> CUInt -> EllipsizeMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
EllipsizeMode -> IO EllipsizeMode
forall (m :: * -> *) a. Monad m => a -> m a
return EllipsizeMode
result'
#if defined(ENABLE_OVERLOADING)
data TextGetEllipsizeMethodInfo
instance (signature ~ (m Pango.Enums.EllipsizeMode), MonadIO m, IsText a) => O.OverloadedMethod TextGetEllipsizeMethodInfo a signature where
overloadedMethod = textGetEllipsize
instance O.OverloadedMethodInfo TextGetEllipsizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetEllipsize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetEllipsize"
})
#endif
foreign import ccall "clutter_text_get_font_description" clutter_text_get_font_description ::
Ptr Text ->
IO (Ptr Pango.FontDescription.FontDescription)
textGetFontDescription ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Pango.FontDescription.FontDescription
textGetFontDescription :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m FontDescription
textGetFontDescription a
self = IO FontDescription -> m FontDescription
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FontDescription -> m FontDescription)
-> IO FontDescription -> m FontDescription
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr FontDescription
result <- Ptr Text -> IO (Ptr FontDescription)
clutter_text_get_font_description Ptr Text
self'
Text -> Ptr FontDescription -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textGetFontDescription" Ptr FontDescription
result
FontDescription
result' <- ((ManagedPtr FontDescription -> FontDescription)
-> Ptr FontDescription -> IO FontDescription
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr FontDescription -> FontDescription
Pango.FontDescription.FontDescription) Ptr FontDescription
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
FontDescription -> IO FontDescription
forall (m :: * -> *) a. Monad m => a -> m a
return FontDescription
result'
#if defined(ENABLE_OVERLOADING)
data TextGetFontDescriptionMethodInfo
instance (signature ~ (m Pango.FontDescription.FontDescription), MonadIO m, IsText a) => O.OverloadedMethod TextGetFontDescriptionMethodInfo a signature where
overloadedMethod = textGetFontDescription
instance O.OverloadedMethodInfo TextGetFontDescriptionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetFontDescription",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetFontDescription"
})
#endif
foreign import ccall "clutter_text_get_font_name" clutter_text_get_font_name ::
Ptr Text ->
IO CString
textGetFontName ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m T.Text
textGetFontName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Text
textGetFontName a
self = IO Text -> m Text
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 Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Text -> IO CString
clutter_text_get_font_name Ptr Text
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textGetFontName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data TextGetFontNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsText a) => O.OverloadedMethod TextGetFontNameMethodInfo a signature where
overloadedMethod = textGetFontName
instance O.OverloadedMethodInfo TextGetFontNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetFontName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetFontName"
})
#endif
foreign import ccall "clutter_text_get_justify" clutter_text_get_justify ::
Ptr Text ->
IO CInt
textGetJustify ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Bool
textGetJustify :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Bool
textGetJustify a
self = IO Bool -> m Bool
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 Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Text -> IO CInt
clutter_text_get_justify Ptr Text
self'
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
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextGetJustifyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsText a) => O.OverloadedMethod TextGetJustifyMethodInfo a signature where
overloadedMethod = textGetJustify
instance O.OverloadedMethodInfo TextGetJustifyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetJustify",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetJustify"
})
#endif
foreign import ccall "clutter_text_get_layout" clutter_text_get_layout ::
Ptr Text ->
IO (Ptr Pango.Layout.Layout)
textGetLayout ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Pango.Layout.Layout
textGetLayout :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Layout
textGetLayout a
self = IO Layout -> m Layout
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Layout -> m Layout) -> IO Layout -> m Layout
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Layout
result <- Ptr Text -> IO (Ptr Layout)
clutter_text_get_layout Ptr Text
self'
Text -> Ptr Layout -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textGetLayout" Ptr Layout
result
Layout
result' <- ((ManagedPtr Layout -> Layout) -> Ptr Layout -> IO Layout
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Layout -> Layout
Pango.Layout.Layout) Ptr Layout
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Layout -> IO Layout
forall (m :: * -> *) a. Monad m => a -> m a
return Layout
result'
#if defined(ENABLE_OVERLOADING)
data TextGetLayoutMethodInfo
instance (signature ~ (m Pango.Layout.Layout), MonadIO m, IsText a) => O.OverloadedMethod TextGetLayoutMethodInfo a signature where
overloadedMethod = textGetLayout
instance O.OverloadedMethodInfo TextGetLayoutMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetLayout",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetLayout"
})
#endif
foreign import ccall "clutter_text_get_layout_offsets" clutter_text_get_layout_offsets ::
Ptr Text ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
textGetLayoutOffsets ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m ((Int32, Int32))
textGetLayoutOffsets :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m (Int32, Int32)
textGetLayoutOffsets a
self = IO (Int32, Int32) -> m (Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Int32
x <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
y <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Text -> Ptr Int32 -> Ptr Int32 -> IO ()
clutter_text_get_layout_offsets Ptr Text
self' Ptr Int32
x Ptr Int32
y
Int32
x' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
x
Int32
y' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
y
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
x
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
y
(Int32, Int32) -> IO (Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
x', Int32
y')
#if defined(ENABLE_OVERLOADING)
data TextGetLayoutOffsetsMethodInfo
instance (signature ~ (m ((Int32, Int32))), MonadIO m, IsText a) => O.OverloadedMethod TextGetLayoutOffsetsMethodInfo a signature where
overloadedMethod = textGetLayoutOffsets
instance O.OverloadedMethodInfo TextGetLayoutOffsetsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetLayoutOffsets",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetLayoutOffsets"
})
#endif
foreign import ccall "clutter_text_get_line_alignment" clutter_text_get_line_alignment ::
Ptr Text ->
IO CUInt
textGetLineAlignment ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Pango.Enums.Alignment
textGetLineAlignment :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Alignment
textGetLineAlignment a
self = IO Alignment -> m Alignment
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Alignment -> m Alignment) -> IO Alignment -> m Alignment
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr Text -> IO CUInt
clutter_text_get_line_alignment Ptr Text
self'
let result' :: Alignment
result' = (Int -> Alignment
forall a. Enum a => Int -> a
toEnum (Int -> Alignment) -> (CUInt -> Int) -> CUInt -> Alignment
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Alignment -> IO Alignment
forall (m :: * -> *) a. Monad m => a -> m a
return Alignment
result'
#if defined(ENABLE_OVERLOADING)
data TextGetLineAlignmentMethodInfo
instance (signature ~ (m Pango.Enums.Alignment), MonadIO m, IsText a) => O.OverloadedMethod TextGetLineAlignmentMethodInfo a signature where
overloadedMethod = textGetLineAlignment
instance O.OverloadedMethodInfo TextGetLineAlignmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetLineAlignment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetLineAlignment"
})
#endif
foreign import ccall "clutter_text_get_line_wrap" clutter_text_get_line_wrap ::
Ptr Text ->
IO CInt
textGetLineWrap ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Bool
textGetLineWrap :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Bool
textGetLineWrap a
self = IO Bool -> m Bool
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 Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Text -> IO CInt
clutter_text_get_line_wrap Ptr Text
self'
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
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextGetLineWrapMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsText a) => O.OverloadedMethod TextGetLineWrapMethodInfo a signature where
overloadedMethod = textGetLineWrap
instance O.OverloadedMethodInfo TextGetLineWrapMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetLineWrap",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetLineWrap"
})
#endif
foreign import ccall "clutter_text_get_line_wrap_mode" clutter_text_get_line_wrap_mode ::
Ptr Text ->
IO CUInt
textGetLineWrapMode ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Pango.Enums.WrapMode
textGetLineWrapMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m WrapMode
textGetLineWrapMode a
self = IO WrapMode -> m WrapMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WrapMode -> m WrapMode) -> IO WrapMode -> m WrapMode
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr Text -> IO CUInt
clutter_text_get_line_wrap_mode Ptr Text
self'
let result' :: WrapMode
result' = (Int -> WrapMode
forall a. Enum a => Int -> a
toEnum (Int -> WrapMode) -> (CUInt -> Int) -> CUInt -> WrapMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
WrapMode -> IO WrapMode
forall (m :: * -> *) a. Monad m => a -> m a
return WrapMode
result'
#if defined(ENABLE_OVERLOADING)
data TextGetLineWrapModeMethodInfo
instance (signature ~ (m Pango.Enums.WrapMode), MonadIO m, IsText a) => O.OverloadedMethod TextGetLineWrapModeMethodInfo a signature where
overloadedMethod = textGetLineWrapMode
instance O.OverloadedMethodInfo TextGetLineWrapModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetLineWrapMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetLineWrapMode"
})
#endif
foreign import ccall "clutter_text_get_max_length" clutter_text_get_max_length ::
Ptr Text ->
IO Int32
textGetMaxLength ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Int32
textGetMaxLength :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Int32
textGetMaxLength a
self = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Int32
result <- Ptr Text -> IO Int32
clutter_text_get_max_length Ptr Text
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TextGetMaxLengthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsText a) => O.OverloadedMethod TextGetMaxLengthMethodInfo a signature where
overloadedMethod = textGetMaxLength
instance O.OverloadedMethodInfo TextGetMaxLengthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetMaxLength",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetMaxLength"
})
#endif
foreign import ccall "clutter_text_get_password_char" clutter_text_get_password_char ::
Ptr Text ->
IO CInt
textGetPasswordChar ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Char
textGetPasswordChar :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Char
textGetPasswordChar a
self = IO Char -> m Char
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Char -> m Char) -> IO Char -> m Char
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Text -> IO CInt
clutter_text_get_password_char Ptr Text
self'
let result' :: Char
result' = (Int -> Char
chr (Int -> Char) -> (CInt -> Int) -> CInt -> Char
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Char -> IO Char
forall (m :: * -> *) a. Monad m => a -> m a
return Char
result'
#if defined(ENABLE_OVERLOADING)
data TextGetPasswordCharMethodInfo
instance (signature ~ (m Char), MonadIO m, IsText a) => O.OverloadedMethod TextGetPasswordCharMethodInfo a signature where
overloadedMethod = textGetPasswordChar
instance O.OverloadedMethodInfo TextGetPasswordCharMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetPasswordChar",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetPasswordChar"
})
#endif
foreign import ccall "clutter_text_get_selectable" clutter_text_get_selectable ::
Ptr Text ->
IO CInt
textGetSelectable ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Bool
textGetSelectable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Bool
textGetSelectable a
self = IO Bool -> m Bool
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 Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Text -> IO CInt
clutter_text_get_selectable Ptr Text
self'
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
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextGetSelectableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsText a) => O.OverloadedMethod TextGetSelectableMethodInfo a signature where
overloadedMethod = textGetSelectable
instance O.OverloadedMethodInfo TextGetSelectableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetSelectable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetSelectable"
})
#endif
foreign import ccall "clutter_text_get_selected_text_color" clutter_text_get_selected_text_color ::
Ptr Text ->
Ptr Clutter.Color.Color ->
IO ()
textGetSelectedTextColor ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m (Clutter.Color.Color)
textGetSelectedTextColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Color
textGetSelectedTextColor a
self = IO Color -> m Color
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 Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
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 Text -> Ptr Color -> IO ()
clutter_text_get_selected_text_color Ptr Text
self' 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
self
Color -> IO Color
forall (m :: * -> *) a. Monad m => a -> m a
return Color
color'
#if defined(ENABLE_OVERLOADING)
data TextGetSelectedTextColorMethodInfo
instance (signature ~ (m (Clutter.Color.Color)), MonadIO m, IsText a) => O.OverloadedMethod TextGetSelectedTextColorMethodInfo a signature where
overloadedMethod = textGetSelectedTextColor
instance O.OverloadedMethodInfo TextGetSelectedTextColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetSelectedTextColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetSelectedTextColor"
})
#endif
foreign import ccall "clutter_text_get_selection" clutter_text_get_selection ::
Ptr Text ->
IO CString
textGetSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m T.Text
textGetSelection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Text
textGetSelection a
self = IO Text -> m Text
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 Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Text -> IO CString
clutter_text_get_selection Ptr Text
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textGetSelection" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data TextGetSelectionMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsText a) => O.OverloadedMethod TextGetSelectionMethodInfo a signature where
overloadedMethod = textGetSelection
instance O.OverloadedMethodInfo TextGetSelectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetSelection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetSelection"
})
#endif
foreign import ccall "clutter_text_get_selection_bound" clutter_text_get_selection_bound ::
Ptr Text ->
IO Int32
textGetSelectionBound ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Int32
textGetSelectionBound :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Int32
textGetSelectionBound a
self = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Int32
result <- Ptr Text -> IO Int32
clutter_text_get_selection_bound Ptr Text
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TextGetSelectionBoundMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsText a) => O.OverloadedMethod TextGetSelectionBoundMethodInfo a signature where
overloadedMethod = textGetSelectionBound
instance O.OverloadedMethodInfo TextGetSelectionBoundMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetSelectionBound",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetSelectionBound"
})
#endif
foreign import ccall "clutter_text_get_selection_color" clutter_text_get_selection_color ::
Ptr Text ->
Ptr Clutter.Color.Color ->
IO ()
textGetSelectionColor ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m (Clutter.Color.Color)
textGetSelectionColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Color
textGetSelectionColor a
self = IO Color -> m Color
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 Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
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 Text -> Ptr Color -> IO ()
clutter_text_get_selection_color Ptr Text
self' 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
self
Color -> IO Color
forall (m :: * -> *) a. Monad m => a -> m a
return Color
color'
#if defined(ENABLE_OVERLOADING)
data TextGetSelectionColorMethodInfo
instance (signature ~ (m (Clutter.Color.Color)), MonadIO m, IsText a) => O.OverloadedMethod TextGetSelectionColorMethodInfo a signature where
overloadedMethod = textGetSelectionColor
instance O.OverloadedMethodInfo TextGetSelectionColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetSelectionColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetSelectionColor"
})
#endif
foreign import ccall "clutter_text_get_single_line_mode" clutter_text_get_single_line_mode ::
Ptr Text ->
IO CInt
textGetSingleLineMode ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Bool
textGetSingleLineMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Bool
textGetSingleLineMode a
self = IO Bool -> m Bool
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 Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Text -> IO CInt
clutter_text_get_single_line_mode Ptr Text
self'
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
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextGetSingleLineModeMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsText a) => O.OverloadedMethod TextGetSingleLineModeMethodInfo a signature where
overloadedMethod = textGetSingleLineMode
instance O.OverloadedMethodInfo TextGetSingleLineModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetSingleLineMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetSingleLineMode"
})
#endif
foreign import ccall "clutter_text_get_text" clutter_text_get_text ::
Ptr Text ->
IO CString
textGetText ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m T.Text
textGetText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Text
textGetText a
self = IO Text -> m Text
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 Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Text -> IO CString
clutter_text_get_text Ptr Text
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textGetText" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data TextGetTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsText a) => O.OverloadedMethod TextGetTextMethodInfo a signature where
overloadedMethod = textGetText
instance O.OverloadedMethodInfo TextGetTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetText"
})
#endif
foreign import ccall "clutter_text_get_use_markup" clutter_text_get_use_markup ::
Ptr Text ->
IO CInt
textGetUseMarkup ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Bool
textGetUseMarkup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Bool
textGetUseMarkup a
self = IO Bool -> m Bool
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 Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Text -> IO CInt
clutter_text_get_use_markup Ptr Text
self'
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
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextGetUseMarkupMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsText a) => O.OverloadedMethod TextGetUseMarkupMethodInfo a signature where
overloadedMethod = textGetUseMarkup
instance O.OverloadedMethodInfo TextGetUseMarkupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textGetUseMarkup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textGetUseMarkup"
})
#endif
foreign import ccall "clutter_text_insert_text" clutter_text_insert_text ::
Ptr Text ->
CString ->
Int64 ->
IO ()
textInsertText ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> T.Text
-> Int64
-> m ()
textInsertText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Text -> Int64 -> m ()
textInsertText a
self Text
text Int64
position = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
text' <- Text -> IO CString
textToCString Text
text
Ptr Text -> CString -> Int64 -> IO ()
clutter_text_insert_text Ptr Text
self' CString
text' Int64
position
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
text'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextInsertTextMethodInfo
instance (signature ~ (T.Text -> Int64 -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextInsertTextMethodInfo a signature where
overloadedMethod = textInsertText
instance O.OverloadedMethodInfo TextInsertTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textInsertText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textInsertText"
})
#endif
foreign import ccall "clutter_text_insert_unichar" clutter_text_insert_unichar ::
Ptr Text ->
CInt ->
IO ()
textInsertUnichar ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Char
-> m ()
textInsertUnichar :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Char -> m ()
textInsertUnichar a
self Char
wc = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let wc' :: CInt
wc' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Char -> Int) -> Char -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Char -> Int
ord) Char
wc
Ptr Text -> CInt -> IO ()
clutter_text_insert_unichar Ptr Text
self' CInt
wc'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextInsertUnicharMethodInfo
instance (signature ~ (Char -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextInsertUnicharMethodInfo a signature where
overloadedMethod = textInsertUnichar
instance O.OverloadedMethodInfo TextInsertUnicharMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textInsertUnichar",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textInsertUnichar"
})
#endif
foreign import ccall "clutter_text_position_to_coords" clutter_text_position_to_coords ::
Ptr Text ->
Int32 ->
Ptr CFloat ->
Ptr CFloat ->
Ptr CFloat ->
IO CInt
textPositionToCoords ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Int32
-> m ((Bool, Float, Float, Float))
textPositionToCoords :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Int32 -> m (Bool, Float, Float, Float)
textPositionToCoords a
self Int32
position = IO (Bool, Float, Float, Float) -> m (Bool, Float, Float, Float)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Float, Float, Float) -> m (Bool, Float, Float, Float))
-> IO (Bool, Float, Float, Float) -> m (Bool, Float, Float, Float)
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr CFloat
x <- IO (Ptr CFloat)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CFloat)
Ptr CFloat
y <- IO (Ptr CFloat)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CFloat)
Ptr CFloat
lineHeight <- IO (Ptr CFloat)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CFloat)
CInt
result <- Ptr Text
-> Int32 -> Ptr CFloat -> Ptr CFloat -> Ptr CFloat -> IO CInt
clutter_text_position_to_coords Ptr Text
self' Int32
position Ptr CFloat
x Ptr CFloat
y Ptr CFloat
lineHeight
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
CFloat
x' <- Ptr CFloat -> IO CFloat
forall a. Storable a => Ptr a -> IO a
peek Ptr CFloat
x
let x'' :: Float
x'' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
x'
CFloat
y' <- Ptr CFloat -> IO CFloat
forall a. Storable a => Ptr a -> IO a
peek Ptr CFloat
y
let y'' :: Float
y'' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
y'
CFloat
lineHeight' <- Ptr CFloat -> IO CFloat
forall a. Storable a => Ptr a -> IO a
peek Ptr CFloat
lineHeight
let lineHeight'' :: Float
lineHeight'' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
lineHeight'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Ptr CFloat -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CFloat
x
Ptr CFloat -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CFloat
y
Ptr CFloat -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CFloat
lineHeight
(Bool, Float, Float, Float) -> IO (Bool, Float, Float, Float)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Float
x'', Float
y'', Float
lineHeight'')
#if defined(ENABLE_OVERLOADING)
data TextPositionToCoordsMethodInfo
instance (signature ~ (Int32 -> m ((Bool, Float, Float, Float))), MonadIO m, IsText a) => O.OverloadedMethod TextPositionToCoordsMethodInfo a signature where
overloadedMethod = textPositionToCoords
instance O.OverloadedMethodInfo TextPositionToCoordsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textPositionToCoords",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textPositionToCoords"
})
#endif
foreign import ccall "clutter_text_set_activatable" clutter_text_set_activatable ::
Ptr Text ->
CInt ->
IO ()
textSetActivatable ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Bool
-> m ()
textSetActivatable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Bool -> m ()
textSetActivatable a
self Bool
activatable = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let activatable' :: CInt
activatable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
activatable
Ptr Text -> CInt -> IO ()
clutter_text_set_activatable Ptr Text
self' CInt
activatable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetActivatableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetActivatableMethodInfo a signature where
overloadedMethod = textSetActivatable
instance O.OverloadedMethodInfo TextSetActivatableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetActivatable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetActivatable"
})
#endif
foreign import ccall "clutter_text_set_attributes" clutter_text_set_attributes ::
Ptr Text ->
Ptr Pango.AttrList.AttrList ->
IO ()
textSetAttributes ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Maybe (Pango.AttrList.AttrList)
-> m ()
textSetAttributes :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Maybe AttrList -> m ()
textSetAttributes a
self Maybe AttrList
attrs = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr AttrList
maybeAttrs <- case Maybe AttrList
attrs of
Maybe AttrList
Nothing -> Ptr AttrList -> IO (Ptr AttrList)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr AttrList
forall a. Ptr a
nullPtr
Just AttrList
jAttrs -> do
Ptr AttrList
jAttrs' <- AttrList -> IO (Ptr AttrList)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr AttrList
jAttrs
Ptr AttrList -> IO (Ptr AttrList)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr AttrList
jAttrs'
Ptr Text -> Ptr AttrList -> IO ()
clutter_text_set_attributes Ptr Text
self' Ptr AttrList
maybeAttrs
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe AttrList -> (AttrList -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe AttrList
attrs AttrList -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetAttributesMethodInfo
instance (signature ~ (Maybe (Pango.AttrList.AttrList) -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetAttributesMethodInfo a signature where
overloadedMethod = textSetAttributes
instance O.OverloadedMethodInfo TextSetAttributesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetAttributes",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetAttributes"
})
#endif
foreign import ccall "clutter_text_set_buffer" clutter_text_set_buffer ::
Ptr Text ->
Ptr Clutter.TextBuffer.TextBuffer ->
IO ()
textSetBuffer ::
(B.CallStack.HasCallStack, MonadIO m, IsText a, Clutter.TextBuffer.IsTextBuffer b) =>
a
-> b
-> m ()
textSetBuffer :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsText a, IsTextBuffer b) =>
a -> b -> m ()
textSetBuffer a
self b
buffer = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TextBuffer
buffer' <- b -> IO (Ptr TextBuffer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
buffer
Ptr Text -> Ptr TextBuffer -> IO ()
clutter_text_set_buffer Ptr Text
self' Ptr TextBuffer
buffer'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
buffer
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetBufferMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsText a, Clutter.TextBuffer.IsTextBuffer b) => O.OverloadedMethod TextSetBufferMethodInfo a signature where
overloadedMethod = textSetBuffer
instance O.OverloadedMethodInfo TextSetBufferMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetBuffer",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetBuffer"
})
#endif
foreign import ccall "clutter_text_set_color" clutter_text_set_color ::
Ptr Text ->
Ptr Clutter.Color.Color ->
IO ()
textSetColor ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Clutter.Color.Color
-> m ()
textSetColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Color -> m ()
textSetColor a
self Color
color = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Color
color' <- Color -> IO (Ptr Color)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Color
color
Ptr Text -> Ptr Color -> IO ()
clutter_text_set_color Ptr Text
self' Ptr Color
color'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Color -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Color
color
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetColorMethodInfo
instance (signature ~ (Clutter.Color.Color -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetColorMethodInfo a signature where
overloadedMethod = textSetColor
instance O.OverloadedMethodInfo TextSetColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetColor"
})
#endif
foreign import ccall "clutter_text_set_cursor_color" clutter_text_set_cursor_color ::
Ptr Text ->
Ptr Clutter.Color.Color ->
IO ()
textSetCursorColor ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Maybe (Clutter.Color.Color)
-> m ()
textSetCursorColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Maybe Color -> m ()
textSetCursorColor a
self Maybe Color
color = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Color
maybeColor <- case Maybe Color
color of
Maybe Color
Nothing -> Ptr Color -> IO (Ptr Color)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Color
forall a. Ptr a
nullPtr
Just Color
jColor -> do
Ptr Color
jColor' <- Color -> IO (Ptr Color)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Color
jColor
Ptr Color -> IO (Ptr Color)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Color
jColor'
Ptr Text -> Ptr Color -> IO ()
clutter_text_set_cursor_color Ptr Text
self' Ptr Color
maybeColor
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Color -> (Color -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Color
color Color -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetCursorColorMethodInfo
instance (signature ~ (Maybe (Clutter.Color.Color) -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetCursorColorMethodInfo a signature where
overloadedMethod = textSetCursorColor
instance O.OverloadedMethodInfo TextSetCursorColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetCursorColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetCursorColor"
})
#endif
foreign import ccall "clutter_text_set_cursor_position" clutter_text_set_cursor_position ::
Ptr Text ->
Int32 ->
IO ()
textSetCursorPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Int32
-> m ()
textSetCursorPosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Int32 -> m ()
textSetCursorPosition a
self Int32
position = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Text -> Int32 -> IO ()
clutter_text_set_cursor_position Ptr Text
self' Int32
position
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetCursorPositionMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetCursorPositionMethodInfo a signature where
overloadedMethod = textSetCursorPosition
instance O.OverloadedMethodInfo TextSetCursorPositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetCursorPosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetCursorPosition"
})
#endif
foreign import ccall "clutter_text_set_cursor_size" clutter_text_set_cursor_size ::
Ptr Text ->
Int32 ->
IO ()
textSetCursorSize ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Int32
-> m ()
textSetCursorSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Int32 -> m ()
textSetCursorSize a
self Int32
size = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Text -> Int32 -> IO ()
clutter_text_set_cursor_size Ptr Text
self' Int32
size
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetCursorSizeMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetCursorSizeMethodInfo a signature where
overloadedMethod = textSetCursorSize
instance O.OverloadedMethodInfo TextSetCursorSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetCursorSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetCursorSize"
})
#endif
foreign import ccall "clutter_text_set_cursor_visible" clutter_text_set_cursor_visible ::
Ptr Text ->
CInt ->
IO ()
textSetCursorVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Bool
-> m ()
textSetCursorVisible :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Bool -> m ()
textSetCursorVisible a
self Bool
cursorVisible = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let cursorVisible' :: CInt
cursorVisible' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
cursorVisible
Ptr Text -> CInt -> IO ()
clutter_text_set_cursor_visible Ptr Text
self' CInt
cursorVisible'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetCursorVisibleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetCursorVisibleMethodInfo a signature where
overloadedMethod = textSetCursorVisible
instance O.OverloadedMethodInfo TextSetCursorVisibleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetCursorVisible",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetCursorVisible"
})
#endif
foreign import ccall "clutter_text_set_editable" clutter_text_set_editable ::
Ptr Text ->
CInt ->
IO ()
textSetEditable ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Bool
-> m ()
textSetEditable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Bool -> m ()
textSetEditable a
self Bool
editable = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let editable' :: CInt
editable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
editable
Ptr Text -> CInt -> IO ()
clutter_text_set_editable Ptr Text
self' CInt
editable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetEditableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetEditableMethodInfo a signature where
overloadedMethod = textSetEditable
instance O.OverloadedMethodInfo TextSetEditableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetEditable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetEditable"
})
#endif
foreign import ccall "clutter_text_set_ellipsize" clutter_text_set_ellipsize ::
Ptr Text ->
CUInt ->
IO ()
textSetEllipsize ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Pango.Enums.EllipsizeMode
-> m ()
textSetEllipsize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> EllipsizeMode -> m ()
textSetEllipsize a
self EllipsizeMode
mode = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let mode' :: CUInt
mode' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (EllipsizeMode -> Int) -> EllipsizeMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. EllipsizeMode -> Int
forall a. Enum a => a -> Int
fromEnum) EllipsizeMode
mode
Ptr Text -> CUInt -> IO ()
clutter_text_set_ellipsize Ptr Text
self' CUInt
mode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetEllipsizeMethodInfo
instance (signature ~ (Pango.Enums.EllipsizeMode -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetEllipsizeMethodInfo a signature where
overloadedMethod = textSetEllipsize
instance O.OverloadedMethodInfo TextSetEllipsizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetEllipsize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetEllipsize"
})
#endif
foreign import ccall "clutter_text_set_font_description" clutter_text_set_font_description ::
Ptr Text ->
Ptr Pango.FontDescription.FontDescription ->
IO ()
textSetFontDescription ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Pango.FontDescription.FontDescription
-> m ()
textSetFontDescription :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> FontDescription -> m ()
textSetFontDescription a
self FontDescription
fontDesc = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr FontDescription
fontDesc' <- FontDescription -> IO (Ptr FontDescription)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr FontDescription
fontDesc
Ptr Text -> Ptr FontDescription -> IO ()
clutter_text_set_font_description Ptr Text
self' Ptr FontDescription
fontDesc'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
FontDescription -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr FontDescription
fontDesc
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetFontDescriptionMethodInfo
instance (signature ~ (Pango.FontDescription.FontDescription -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetFontDescriptionMethodInfo a signature where
overloadedMethod = textSetFontDescription
instance O.OverloadedMethodInfo TextSetFontDescriptionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetFontDescription",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetFontDescription"
})
#endif
foreign import ccall "clutter_text_set_font_name" clutter_text_set_font_name ::
Ptr Text ->
CString ->
IO ()
textSetFontName ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Maybe (T.Text)
-> m ()
textSetFontName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Maybe Text -> m ()
textSetFontName a
self Maybe Text
fontName = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
maybeFontName <- case Maybe Text
fontName of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jFontName -> do
CString
jFontName' <- Text -> IO CString
textToCString Text
jFontName
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jFontName'
Ptr Text -> CString -> IO ()
clutter_text_set_font_name Ptr Text
self' CString
maybeFontName
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeFontName
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetFontNameMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetFontNameMethodInfo a signature where
overloadedMethod = textSetFontName
instance O.OverloadedMethodInfo TextSetFontNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetFontName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetFontName"
})
#endif
foreign import ccall "clutter_text_set_justify" clutter_text_set_justify ::
Ptr Text ->
CInt ->
IO ()
textSetJustify ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Bool
-> m ()
textSetJustify :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Bool -> m ()
textSetJustify a
self Bool
justify = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let justify' :: CInt
justify' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
justify
Ptr Text -> CInt -> IO ()
clutter_text_set_justify Ptr Text
self' CInt
justify'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetJustifyMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetJustifyMethodInfo a signature where
overloadedMethod = textSetJustify
instance O.OverloadedMethodInfo TextSetJustifyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetJustify",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetJustify"
})
#endif
foreign import ccall "clutter_text_set_line_alignment" clutter_text_set_line_alignment ::
Ptr Text ->
CUInt ->
IO ()
textSetLineAlignment ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Pango.Enums.Alignment
-> m ()
textSetLineAlignment :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Alignment -> m ()
textSetLineAlignment a
self Alignment
alignment = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let alignment' :: CUInt
alignment' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Alignment -> Int) -> Alignment -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Alignment -> Int
forall a. Enum a => a -> Int
fromEnum) Alignment
alignment
Ptr Text -> CUInt -> IO ()
clutter_text_set_line_alignment Ptr Text
self' CUInt
alignment'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetLineAlignmentMethodInfo
instance (signature ~ (Pango.Enums.Alignment -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetLineAlignmentMethodInfo a signature where
overloadedMethod = textSetLineAlignment
instance O.OverloadedMethodInfo TextSetLineAlignmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetLineAlignment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetLineAlignment"
})
#endif
foreign import ccall "clutter_text_set_line_wrap" clutter_text_set_line_wrap ::
Ptr Text ->
CInt ->
IO ()
textSetLineWrap ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Bool
-> m ()
textSetLineWrap :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Bool -> m ()
textSetLineWrap a
self Bool
lineWrap = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let lineWrap' :: CInt
lineWrap' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
lineWrap
Ptr Text -> CInt -> IO ()
clutter_text_set_line_wrap Ptr Text
self' CInt
lineWrap'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetLineWrapMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetLineWrapMethodInfo a signature where
overloadedMethod = textSetLineWrap
instance O.OverloadedMethodInfo TextSetLineWrapMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetLineWrap",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetLineWrap"
})
#endif
foreign import ccall "clutter_text_set_line_wrap_mode" clutter_text_set_line_wrap_mode ::
Ptr Text ->
CUInt ->
IO ()
textSetLineWrapMode ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Pango.Enums.WrapMode
-> m ()
textSetLineWrapMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> WrapMode -> m ()
textSetLineWrapMode a
self WrapMode
wrapMode = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let wrapMode' :: CUInt
wrapMode' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (WrapMode -> Int) -> WrapMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. WrapMode -> Int
forall a. Enum a => a -> Int
fromEnum) WrapMode
wrapMode
Ptr Text -> CUInt -> IO ()
clutter_text_set_line_wrap_mode Ptr Text
self' CUInt
wrapMode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetLineWrapModeMethodInfo
instance (signature ~ (Pango.Enums.WrapMode -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetLineWrapModeMethodInfo a signature where
overloadedMethod = textSetLineWrapMode
instance O.OverloadedMethodInfo TextSetLineWrapModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetLineWrapMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetLineWrapMode"
})
#endif
foreign import ccall "clutter_text_set_markup" clutter_text_set_markup ::
Ptr Text ->
CString ->
IO ()
textSetMarkup ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Maybe (T.Text)
-> m ()
textSetMarkup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Maybe Text -> m ()
textSetMarkup a
self Maybe Text
markup = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
maybeMarkup <- case Maybe Text
markup of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jMarkup -> do
CString
jMarkup' <- Text -> IO CString
textToCString Text
jMarkup
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jMarkup'
Ptr Text -> CString -> IO ()
clutter_text_set_markup Ptr Text
self' CString
maybeMarkup
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeMarkup
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetMarkupMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetMarkupMethodInfo a signature where
overloadedMethod = textSetMarkup
instance O.OverloadedMethodInfo TextSetMarkupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetMarkup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetMarkup"
})
#endif
foreign import ccall "clutter_text_set_max_length" clutter_text_set_max_length ::
Ptr Text ->
Int32 ->
IO ()
textSetMaxLength ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Int32
-> m ()
textSetMaxLength :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Int32 -> m ()
textSetMaxLength a
self Int32
max = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Text -> Int32 -> IO ()
clutter_text_set_max_length Ptr Text
self' Int32
max
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetMaxLengthMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetMaxLengthMethodInfo a signature where
overloadedMethod = textSetMaxLength
instance O.OverloadedMethodInfo TextSetMaxLengthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetMaxLength",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetMaxLength"
})
#endif
foreign import ccall "clutter_text_set_password_char" clutter_text_set_password_char ::
Ptr Text ->
CInt ->
IO ()
textSetPasswordChar ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Char
-> m ()
textSetPasswordChar :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Char -> m ()
textSetPasswordChar a
self Char
wc = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let wc' :: CInt
wc' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Char -> Int) -> Char -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Char -> Int
ord) Char
wc
Ptr Text -> CInt -> IO ()
clutter_text_set_password_char Ptr Text
self' CInt
wc'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetPasswordCharMethodInfo
instance (signature ~ (Char -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetPasswordCharMethodInfo a signature where
overloadedMethod = textSetPasswordChar
instance O.OverloadedMethodInfo TextSetPasswordCharMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetPasswordChar",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetPasswordChar"
})
#endif
foreign import ccall "clutter_text_set_preedit_string" clutter_text_set_preedit_string ::
Ptr Text ->
CString ->
Ptr Pango.AttrList.AttrList ->
Word32 ->
IO ()
textSetPreeditString ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Maybe (T.Text)
-> Maybe (Pango.AttrList.AttrList)
-> Word32
-> m ()
textSetPreeditString :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Maybe Text -> Maybe AttrList -> Word32 -> m ()
textSetPreeditString a
self Maybe Text
preeditStr Maybe AttrList
preeditAttrs Word32
cursorPos = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
maybePreeditStr <- case Maybe Text
preeditStr of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jPreeditStr -> do
CString
jPreeditStr' <- Text -> IO CString
textToCString Text
jPreeditStr
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jPreeditStr'
Ptr AttrList
maybePreeditAttrs <- case Maybe AttrList
preeditAttrs of
Maybe AttrList
Nothing -> Ptr AttrList -> IO (Ptr AttrList)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr AttrList
forall a. Ptr a
nullPtr
Just AttrList
jPreeditAttrs -> do
Ptr AttrList
jPreeditAttrs' <- AttrList -> IO (Ptr AttrList)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr AttrList
jPreeditAttrs
Ptr AttrList -> IO (Ptr AttrList)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr AttrList
jPreeditAttrs'
Ptr Text -> CString -> Ptr AttrList -> Word32 -> IO ()
clutter_text_set_preedit_string Ptr Text
self' CString
maybePreeditStr Ptr AttrList
maybePreeditAttrs Word32
cursorPos
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe AttrList -> (AttrList -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe AttrList
preeditAttrs AttrList -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybePreeditStr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetPreeditStringMethodInfo
instance (signature ~ (Maybe (T.Text) -> Maybe (Pango.AttrList.AttrList) -> Word32 -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetPreeditStringMethodInfo a signature where
overloadedMethod = textSetPreeditString
instance O.OverloadedMethodInfo TextSetPreeditStringMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetPreeditString",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetPreeditString"
})
#endif
foreign import ccall "clutter_text_set_selectable" clutter_text_set_selectable ::
Ptr Text ->
CInt ->
IO ()
textSetSelectable ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Bool
-> m ()
textSetSelectable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Bool -> m ()
textSetSelectable a
self Bool
selectable = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let selectable' :: CInt
selectable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
selectable
Ptr Text -> CInt -> IO ()
clutter_text_set_selectable Ptr Text
self' CInt
selectable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetSelectableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetSelectableMethodInfo a signature where
overloadedMethod = textSetSelectable
instance O.OverloadedMethodInfo TextSetSelectableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetSelectable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetSelectable"
})
#endif
foreign import ccall "clutter_text_set_selected_text_color" clutter_text_set_selected_text_color ::
Ptr Text ->
Ptr Clutter.Color.Color ->
IO ()
textSetSelectedTextColor ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Maybe (Clutter.Color.Color)
-> m ()
textSetSelectedTextColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Maybe Color -> m ()
textSetSelectedTextColor a
self Maybe Color
color = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Color
maybeColor <- case Maybe Color
color of
Maybe Color
Nothing -> Ptr Color -> IO (Ptr Color)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Color
forall a. Ptr a
nullPtr
Just Color
jColor -> do
Ptr Color
jColor' <- Color -> IO (Ptr Color)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Color
jColor
Ptr Color -> IO (Ptr Color)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Color
jColor'
Ptr Text -> Ptr Color -> IO ()
clutter_text_set_selected_text_color Ptr Text
self' Ptr Color
maybeColor
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Color -> (Color -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Color
color Color -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetSelectedTextColorMethodInfo
instance (signature ~ (Maybe (Clutter.Color.Color) -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetSelectedTextColorMethodInfo a signature where
overloadedMethod = textSetSelectedTextColor
instance O.OverloadedMethodInfo TextSetSelectedTextColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetSelectedTextColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetSelectedTextColor"
})
#endif
foreign import ccall "clutter_text_set_selection" clutter_text_set_selection ::
Ptr Text ->
Int64 ->
Int64 ->
IO ()
textSetSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Int64
-> Int64
-> m ()
textSetSelection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Int64 -> Int64 -> m ()
textSetSelection a
self Int64
startPos Int64
endPos = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Text -> Int64 -> Int64 -> IO ()
clutter_text_set_selection Ptr Text
self' Int64
startPos Int64
endPos
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetSelectionMethodInfo
instance (signature ~ (Int64 -> Int64 -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetSelectionMethodInfo a signature where
overloadedMethod = textSetSelection
instance O.OverloadedMethodInfo TextSetSelectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetSelection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetSelection"
})
#endif
foreign import ccall "clutter_text_set_selection_bound" clutter_text_set_selection_bound ::
Ptr Text ->
Int32 ->
IO ()
textSetSelectionBound ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Int32
-> m ()
textSetSelectionBound :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Int32 -> m ()
textSetSelectionBound a
self Int32
selectionBound = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Text -> Int32 -> IO ()
clutter_text_set_selection_bound Ptr Text
self' Int32
selectionBound
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetSelectionBoundMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetSelectionBoundMethodInfo a signature where
overloadedMethod = textSetSelectionBound
instance O.OverloadedMethodInfo TextSetSelectionBoundMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetSelectionBound",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetSelectionBound"
})
#endif
foreign import ccall "clutter_text_set_selection_color" clutter_text_set_selection_color ::
Ptr Text ->
Ptr Clutter.Color.Color ->
IO ()
textSetSelectionColor ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Maybe (Clutter.Color.Color)
-> m ()
textSetSelectionColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Maybe Color -> m ()
textSetSelectionColor a
self Maybe Color
color = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Color
maybeColor <- case Maybe Color
color of
Maybe Color
Nothing -> Ptr Color -> IO (Ptr Color)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Color
forall a. Ptr a
nullPtr
Just Color
jColor -> do
Ptr Color
jColor' <- Color -> IO (Ptr Color)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Color
jColor
Ptr Color -> IO (Ptr Color)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Color
jColor'
Ptr Text -> Ptr Color -> IO ()
clutter_text_set_selection_color Ptr Text
self' Ptr Color
maybeColor
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Color -> (Color -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Color
color Color -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetSelectionColorMethodInfo
instance (signature ~ (Maybe (Clutter.Color.Color) -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetSelectionColorMethodInfo a signature where
overloadedMethod = textSetSelectionColor
instance O.OverloadedMethodInfo TextSetSelectionColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetSelectionColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetSelectionColor"
})
#endif
foreign import ccall "clutter_text_set_single_line_mode" clutter_text_set_single_line_mode ::
Ptr Text ->
CInt ->
IO ()
textSetSingleLineMode ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Bool
-> m ()
textSetSingleLineMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Bool -> m ()
textSetSingleLineMode a
self Bool
singleLine = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let singleLine' :: CInt
singleLine' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
singleLine
Ptr Text -> CInt -> IO ()
clutter_text_set_single_line_mode Ptr Text
self' CInt
singleLine'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetSingleLineModeMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetSingleLineModeMethodInfo a signature where
overloadedMethod = textSetSingleLineMode
instance O.OverloadedMethodInfo TextSetSingleLineModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetSingleLineMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetSingleLineMode"
})
#endif
foreign import ccall "clutter_text_set_text" clutter_text_set_text ::
Ptr Text ->
CString ->
IO ()
textSetText ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Maybe (T.Text)
-> m ()
textSetText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Maybe Text -> m ()
textSetText a
self Maybe Text
text = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
maybeText <- case Maybe Text
text of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jText -> do
CString
jText' <- Text -> IO CString
textToCString Text
jText
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jText'
Ptr Text -> CString -> IO ()
clutter_text_set_text Ptr Text
self' CString
maybeText
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeText
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetTextMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetTextMethodInfo a signature where
overloadedMethod = textSetText
instance O.OverloadedMethodInfo TextSetTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetText"
})
#endif
foreign import ccall "clutter_text_set_use_markup" clutter_text_set_use_markup ::
Ptr Text ->
CInt ->
IO ()
textSetUseMarkup ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Bool
-> m ()
textSetUseMarkup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Bool -> m ()
textSetUseMarkup a
self Bool
setting = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let setting' :: CInt
setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
setting
Ptr Text -> CInt -> IO ()
clutter_text_set_use_markup Ptr Text
self' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetUseMarkupMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetUseMarkupMethodInfo a signature where
overloadedMethod = textSetUseMarkup
instance O.OverloadedMethodInfo TextSetUseMarkupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Text.textSetUseMarkup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Objects-Text.html#v:textSetUseMarkup"
})
#endif