{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Text
(
Text(..) ,
IsText ,
toText ,
#if defined(ENABLE_OVERLOADING)
ResolveTextMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
TextComputeCursorExtentsMethodInfo ,
#endif
textComputeCursorExtents ,
#if defined(ENABLE_OVERLOADING)
TextGetActivatesDefaultMethodInfo ,
#endif
textGetActivatesDefault ,
#if defined(ENABLE_OVERLOADING)
TextGetAttributesMethodInfo ,
#endif
textGetAttributes ,
#if defined(ENABLE_OVERLOADING)
TextGetBufferMethodInfo ,
#endif
textGetBuffer ,
#if defined(ENABLE_OVERLOADING)
TextGetEnableEmojiCompletionMethodInfo ,
#endif
textGetEnableEmojiCompletion ,
#if defined(ENABLE_OVERLOADING)
TextGetExtraMenuMethodInfo ,
#endif
textGetExtraMenu ,
#if defined(ENABLE_OVERLOADING)
TextGetInputHintsMethodInfo ,
#endif
textGetInputHints ,
#if defined(ENABLE_OVERLOADING)
TextGetInputPurposeMethodInfo ,
#endif
textGetInputPurpose ,
#if defined(ENABLE_OVERLOADING)
TextGetInvisibleCharMethodInfo ,
#endif
textGetInvisibleChar ,
#if defined(ENABLE_OVERLOADING)
TextGetMaxLengthMethodInfo ,
#endif
textGetMaxLength ,
#if defined(ENABLE_OVERLOADING)
TextGetOverwriteModeMethodInfo ,
#endif
textGetOverwriteMode ,
#if defined(ENABLE_OVERLOADING)
TextGetPlaceholderTextMethodInfo ,
#endif
textGetPlaceholderText ,
#if defined(ENABLE_OVERLOADING)
TextGetPropagateTextWidthMethodInfo ,
#endif
textGetPropagateTextWidth ,
#if defined(ENABLE_OVERLOADING)
TextGetTabsMethodInfo ,
#endif
textGetTabs ,
#if defined(ENABLE_OVERLOADING)
TextGetTextLengthMethodInfo ,
#endif
textGetTextLength ,
#if defined(ENABLE_OVERLOADING)
TextGetTruncateMultilineMethodInfo ,
#endif
textGetTruncateMultiline ,
#if defined(ENABLE_OVERLOADING)
TextGetVisibilityMethodInfo ,
#endif
textGetVisibility ,
#if defined(ENABLE_OVERLOADING)
TextGrabFocusWithoutSelectingMethodInfo ,
#endif
textGrabFocusWithoutSelecting ,
textNew ,
textNewWithBuffer ,
#if defined(ENABLE_OVERLOADING)
TextSetActivatesDefaultMethodInfo ,
#endif
textSetActivatesDefault ,
#if defined(ENABLE_OVERLOADING)
TextSetAttributesMethodInfo ,
#endif
textSetAttributes ,
#if defined(ENABLE_OVERLOADING)
TextSetBufferMethodInfo ,
#endif
textSetBuffer ,
#if defined(ENABLE_OVERLOADING)
TextSetEnableEmojiCompletionMethodInfo ,
#endif
textSetEnableEmojiCompletion ,
#if defined(ENABLE_OVERLOADING)
TextSetExtraMenuMethodInfo ,
#endif
textSetExtraMenu ,
#if defined(ENABLE_OVERLOADING)
TextSetInputHintsMethodInfo ,
#endif
textSetInputHints ,
#if defined(ENABLE_OVERLOADING)
TextSetInputPurposeMethodInfo ,
#endif
textSetInputPurpose ,
#if defined(ENABLE_OVERLOADING)
TextSetInvisibleCharMethodInfo ,
#endif
textSetInvisibleChar ,
#if defined(ENABLE_OVERLOADING)
TextSetMaxLengthMethodInfo ,
#endif
textSetMaxLength ,
#if defined(ENABLE_OVERLOADING)
TextSetOverwriteModeMethodInfo ,
#endif
textSetOverwriteMode ,
#if defined(ENABLE_OVERLOADING)
TextSetPlaceholderTextMethodInfo ,
#endif
textSetPlaceholderText ,
#if defined(ENABLE_OVERLOADING)
TextSetPropagateTextWidthMethodInfo ,
#endif
textSetPropagateTextWidth ,
#if defined(ENABLE_OVERLOADING)
TextSetTabsMethodInfo ,
#endif
textSetTabs ,
#if defined(ENABLE_OVERLOADING)
TextSetTruncateMultilineMethodInfo ,
#endif
textSetTruncateMultiline ,
#if defined(ENABLE_OVERLOADING)
TextSetVisibilityMethodInfo ,
#endif
textSetVisibility ,
#if defined(ENABLE_OVERLOADING)
TextUnsetInvisibleCharMethodInfo ,
#endif
textUnsetInvisibleChar ,
#if defined(ENABLE_OVERLOADING)
TextActivatesDefaultPropertyInfo ,
#endif
constructTextActivatesDefault ,
getTextActivatesDefault ,
setTextActivatesDefault ,
#if defined(ENABLE_OVERLOADING)
textActivatesDefault ,
#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)
TextEnableEmojiCompletionPropertyInfo ,
#endif
constructTextEnableEmojiCompletion ,
getTextEnableEmojiCompletion ,
setTextEnableEmojiCompletion ,
#if defined(ENABLE_OVERLOADING)
textEnableEmojiCompletion ,
#endif
#if defined(ENABLE_OVERLOADING)
TextExtraMenuPropertyInfo ,
#endif
clearTextExtraMenu ,
constructTextExtraMenu ,
getTextExtraMenu ,
setTextExtraMenu ,
#if defined(ENABLE_OVERLOADING)
textExtraMenu ,
#endif
#if defined(ENABLE_OVERLOADING)
TextImModulePropertyInfo ,
#endif
clearTextImModule ,
constructTextImModule ,
getTextImModule ,
setTextImModule ,
#if defined(ENABLE_OVERLOADING)
textImModule ,
#endif
#if defined(ENABLE_OVERLOADING)
TextInputHintsPropertyInfo ,
#endif
constructTextInputHints ,
getTextInputHints ,
setTextInputHints ,
#if defined(ENABLE_OVERLOADING)
textInputHints ,
#endif
#if defined(ENABLE_OVERLOADING)
TextInputPurposePropertyInfo ,
#endif
constructTextInputPurpose ,
getTextInputPurpose ,
setTextInputPurpose ,
#if defined(ENABLE_OVERLOADING)
textInputPurpose ,
#endif
#if defined(ENABLE_OVERLOADING)
TextInvisibleCharPropertyInfo ,
#endif
constructTextInvisibleChar ,
getTextInvisibleChar ,
setTextInvisibleChar ,
#if defined(ENABLE_OVERLOADING)
textInvisibleChar ,
#endif
#if defined(ENABLE_OVERLOADING)
TextInvisibleCharSetPropertyInfo ,
#endif
constructTextInvisibleCharSet ,
getTextInvisibleCharSet ,
setTextInvisibleCharSet ,
#if defined(ENABLE_OVERLOADING)
textInvisibleCharSet ,
#endif
#if defined(ENABLE_OVERLOADING)
TextMaxLengthPropertyInfo ,
#endif
constructTextMaxLength ,
getTextMaxLength ,
setTextMaxLength ,
#if defined(ENABLE_OVERLOADING)
textMaxLength ,
#endif
#if defined(ENABLE_OVERLOADING)
TextOverwriteModePropertyInfo ,
#endif
constructTextOverwriteMode ,
getTextOverwriteMode ,
setTextOverwriteMode ,
#if defined(ENABLE_OVERLOADING)
textOverwriteMode ,
#endif
#if defined(ENABLE_OVERLOADING)
TextPlaceholderTextPropertyInfo ,
#endif
clearTextPlaceholderText ,
constructTextPlaceholderText ,
getTextPlaceholderText ,
setTextPlaceholderText ,
#if defined(ENABLE_OVERLOADING)
textPlaceholderText ,
#endif
#if defined(ENABLE_OVERLOADING)
TextPropagateTextWidthPropertyInfo ,
#endif
constructTextPropagateTextWidth ,
getTextPropagateTextWidth ,
setTextPropagateTextWidth ,
#if defined(ENABLE_OVERLOADING)
textPropagateTextWidth ,
#endif
#if defined(ENABLE_OVERLOADING)
TextScrollOffsetPropertyInfo ,
#endif
getTextScrollOffset ,
#if defined(ENABLE_OVERLOADING)
textScrollOffset ,
#endif
#if defined(ENABLE_OVERLOADING)
TextTabsPropertyInfo ,
#endif
clearTextTabs ,
constructTextTabs ,
getTextTabs ,
setTextTabs ,
#if defined(ENABLE_OVERLOADING)
textTabs ,
#endif
#if defined(ENABLE_OVERLOADING)
TextTruncateMultilinePropertyInfo ,
#endif
constructTextTruncateMultiline ,
getTextTruncateMultiline ,
setTextTruncateMultiline ,
#if defined(ENABLE_OVERLOADING)
textTruncateMultiline ,
#endif
#if defined(ENABLE_OVERLOADING)
TextVisibilityPropertyInfo ,
#endif
constructTextVisibility ,
getTextVisibility ,
setTextVisibility ,
#if defined(ENABLE_OVERLOADING)
textVisibility ,
#endif
TextActivateCallback ,
#if defined(ENABLE_OVERLOADING)
TextActivateSignalInfo ,
#endif
afterTextActivate ,
onTextActivate ,
TextBackspaceCallback ,
#if defined(ENABLE_OVERLOADING)
TextBackspaceSignalInfo ,
#endif
afterTextBackspace ,
onTextBackspace ,
TextCopyClipboardCallback ,
#if defined(ENABLE_OVERLOADING)
TextCopyClipboardSignalInfo ,
#endif
afterTextCopyClipboard ,
onTextCopyClipboard ,
TextCutClipboardCallback ,
#if defined(ENABLE_OVERLOADING)
TextCutClipboardSignalInfo ,
#endif
afterTextCutClipboard ,
onTextCutClipboard ,
TextDeleteFromCursorCallback ,
#if defined(ENABLE_OVERLOADING)
TextDeleteFromCursorSignalInfo ,
#endif
afterTextDeleteFromCursor ,
onTextDeleteFromCursor ,
TextInsertAtCursorCallback ,
#if defined(ENABLE_OVERLOADING)
TextInsertAtCursorSignalInfo ,
#endif
afterTextInsertAtCursor ,
onTextInsertAtCursor ,
TextInsertEmojiCallback ,
#if defined(ENABLE_OVERLOADING)
TextInsertEmojiSignalInfo ,
#endif
afterTextInsertEmoji ,
onTextInsertEmoji ,
TextMoveCursorCallback ,
#if defined(ENABLE_OVERLOADING)
TextMoveCursorSignalInfo ,
#endif
afterTextMoveCursor ,
onTextMoveCursor ,
TextPasteClipboardCallback ,
#if defined(ENABLE_OVERLOADING)
TextPasteClipboardSignalInfo ,
#endif
afterTextPasteClipboard ,
onTextPasteClipboard ,
TextPreeditChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TextPreeditChangedSignalInfo ,
#endif
afterTextPreeditChanged ,
onTextPreeditChanged ,
TextToggleOverwriteCallback ,
#if defined(ENABLE_OVERLOADING)
TextToggleOverwriteSignalInfo ,
#endif
afterTextToggleOverwrite ,
onTextToggleOverwrite ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Objects.MenuModel as Gio.MenuModel
import qualified GI.Graphene.Structs.Rect as Graphene.Rect
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Editable as Gtk.Editable
import {-# SOURCE #-} qualified GI.Gtk.Objects.EntryBuffer as Gtk.EntryBuffer
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import qualified GI.Pango.Structs.AttrList as Pango.AttrList
import qualified GI.Pango.Structs.TabArray as Pango.TabArray
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
$c== :: Text -> Text -> Bool
== :: Text -> Text -> Bool
$c/= :: Text -> Text -> Bool
/= :: Text -> Text -> Bool
Eq)
instance SP.ManagedPtrNewtype Text where
toManagedPtr :: Text -> ManagedPtr Text
toManagedPtr (Text ManagedPtr Text
p) = ManagedPtr Text
p
foreign import ccall "gtk_text_get_type"
c_gtk_text_get_type :: IO B.Types.GType
instance B.Types.TypedObject Text where
glibType :: IO GType
glibType = IO GType
c_gtk_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 = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget, Gtk.Editable.Editable]
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 a. IO a -> m a
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_gtk_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 a. a -> IO a
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 :: DK.Type) :: DK.Type where
ResolveTextMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveTextMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveTextMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveTextMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveTextMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveTextMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveTextMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveTextMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveTextMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveTextMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTextMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTextMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveTextMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveTextMethod "computeCursorExtents" o = TextComputeCursorExtentsMethodInfo
ResolveTextMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveTextMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveTextMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveTextMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveTextMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveTextMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveTextMethod "delegateGetAccessiblePlatformState" o = Gtk.Editable.EditableDelegateGetAccessiblePlatformStateMethodInfo
ResolveTextMethod "deleteSelection" o = Gtk.Editable.EditableDeleteSelectionMethodInfo
ResolveTextMethod "deleteText" o = Gtk.Editable.EditableDeleteTextMethodInfo
ResolveTextMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveTextMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveTextMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveTextMethod "finishDelegate" o = Gtk.Editable.EditableFinishDelegateMethodInfo
ResolveTextMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTextMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTextMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTextMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveTextMethod "grabFocusWithoutSelecting" o = TextGrabFocusWithoutSelectingMethodInfo
ResolveTextMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveTextMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveTextMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveTextMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveTextMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveTextMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveTextMethod "initDelegate" o = Gtk.Editable.EditableInitDelegateMethodInfo
ResolveTextMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveTextMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveTextMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveTextMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveTextMethod "insertText" o = Gtk.Editable.EditableInsertTextMethodInfo
ResolveTextMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveTextMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveTextMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTextMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveTextMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveTextMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveTextMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveTextMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveTextMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveTextMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveTextMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveTextMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTextMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTextMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveTextMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveTextMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveTextMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveTextMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveTextMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveTextMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveTextMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTextMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTextMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveTextMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveTextMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveTextMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveTextMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveTextMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveTextMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveTextMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTextMethod "selectRegion" o = Gtk.Editable.EditableSelectRegionMethodInfo
ResolveTextMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveTextMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveTextMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveTextMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveTextMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTextMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTextMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTextMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveTextMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveTextMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveTextMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveTextMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveTextMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTextMethod "unsetInvisibleChar" o = TextUnsetInvisibleCharMethodInfo
ResolveTextMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveTextMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveTextMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveTextMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveTextMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveTextMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTextMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveTextMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveTextMethod "getActivatesDefault" o = TextGetActivatesDefaultMethodInfo
ResolveTextMethod "getAlignment" o = Gtk.Editable.EditableGetAlignmentMethodInfo
ResolveTextMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveTextMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveTextMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveTextMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveTextMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveTextMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveTextMethod "getAttributes" o = TextGetAttributesMethodInfo
ResolveTextMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveTextMethod "getBuffer" o = TextGetBufferMethodInfo
ResolveTextMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveTextMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveTextMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveTextMethod "getChars" o = Gtk.Editable.EditableGetCharsMethodInfo
ResolveTextMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveTextMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveTextMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveTextMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveTextMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveTextMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveTextMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTextMethod "getDelegate" o = Gtk.Editable.EditableGetDelegateMethodInfo
ResolveTextMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveTextMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveTextMethod "getEditable" o = Gtk.Editable.EditableGetEditableMethodInfo
ResolveTextMethod "getEnableEmojiCompletion" o = TextGetEnableEmojiCompletionMethodInfo
ResolveTextMethod "getEnableUndo" o = Gtk.Editable.EditableGetEnableUndoMethodInfo
ResolveTextMethod "getExtraMenu" o = TextGetExtraMenuMethodInfo
ResolveTextMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveTextMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveTextMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveTextMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveTextMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveTextMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveTextMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveTextMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveTextMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveTextMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveTextMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveTextMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveTextMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveTextMethod "getInputHints" o = TextGetInputHintsMethodInfo
ResolveTextMethod "getInputPurpose" o = TextGetInputPurposeMethodInfo
ResolveTextMethod "getInvisibleChar" o = TextGetInvisibleCharMethodInfo
ResolveTextMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveTextMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveTextMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveTextMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveTextMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveTextMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveTextMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveTextMethod "getMaxLength" o = TextGetMaxLengthMethodInfo
ResolveTextMethod "getMaxWidthChars" o = Gtk.Editable.EditableGetMaxWidthCharsMethodInfo
ResolveTextMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveTextMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveTextMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveTextMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveTextMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveTextMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveTextMethod "getOverwriteMode" o = TextGetOverwriteModeMethodInfo
ResolveTextMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveTextMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveTextMethod "getPlaceholderText" o = TextGetPlaceholderTextMethodInfo
ResolveTextMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveTextMethod "getPosition" o = Gtk.Editable.EditableGetPositionMethodInfo
ResolveTextMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveTextMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveTextMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveTextMethod "getPropagateTextWidth" o = TextGetPropagateTextWidthMethodInfo
ResolveTextMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTextMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTextMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveTextMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveTextMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveTextMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveTextMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveTextMethod "getSelectionBounds" o = Gtk.Editable.EditableGetSelectionBoundsMethodInfo
ResolveTextMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveTextMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveTextMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveTextMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveTextMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveTextMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveTextMethod "getTabs" o = TextGetTabsMethodInfo
ResolveTextMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveTextMethod "getText" o = Gtk.Editable.EditableGetTextMethodInfo
ResolveTextMethod "getTextLength" o = TextGetTextLengthMethodInfo
ResolveTextMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveTextMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveTextMethod "getTruncateMultiline" o = TextGetTruncateMultilineMethodInfo
ResolveTextMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveTextMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveTextMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveTextMethod "getVisibility" o = TextGetVisibilityMethodInfo
ResolveTextMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveTextMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveTextMethod "getWidthChars" o = Gtk.Editable.EditableGetWidthCharsMethodInfo
ResolveTextMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveTextMethod "setActivatesDefault" o = TextSetActivatesDefaultMethodInfo
ResolveTextMethod "setAlignment" o = Gtk.Editable.EditableSetAlignmentMethodInfo
ResolveTextMethod "setAttributes" o = TextSetAttributesMethodInfo
ResolveTextMethod "setBuffer" o = TextSetBufferMethodInfo
ResolveTextMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveTextMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveTextMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveTextMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveTextMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveTextMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveTextMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTextMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveTextMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveTextMethod "setEditable" o = Gtk.Editable.EditableSetEditableMethodInfo
ResolveTextMethod "setEnableEmojiCompletion" o = TextSetEnableEmojiCompletionMethodInfo
ResolveTextMethod "setEnableUndo" o = Gtk.Editable.EditableSetEnableUndoMethodInfo
ResolveTextMethod "setExtraMenu" o = TextSetExtraMenuMethodInfo
ResolveTextMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveTextMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveTextMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveTextMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveTextMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveTextMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveTextMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveTextMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveTextMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveTextMethod "setInputHints" o = TextSetInputHintsMethodInfo
ResolveTextMethod "setInputPurpose" o = TextSetInputPurposeMethodInfo
ResolveTextMethod "setInvisibleChar" o = TextSetInvisibleCharMethodInfo
ResolveTextMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveTextMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveTextMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveTextMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveTextMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveTextMethod "setMaxLength" o = TextSetMaxLengthMethodInfo
ResolveTextMethod "setMaxWidthChars" o = Gtk.Editable.EditableSetMaxWidthCharsMethodInfo
ResolveTextMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveTextMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveTextMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveTextMethod "setOverwriteMode" o = TextSetOverwriteModeMethodInfo
ResolveTextMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveTextMethod "setPlaceholderText" o = TextSetPlaceholderTextMethodInfo
ResolveTextMethod "setPosition" o = Gtk.Editable.EditableSetPositionMethodInfo
ResolveTextMethod "setPropagateTextWidth" o = TextSetPropagateTextWidthMethodInfo
ResolveTextMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTextMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveTextMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveTextMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveTextMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveTextMethod "setTabs" o = TextSetTabsMethodInfo
ResolveTextMethod "setText" o = Gtk.Editable.EditableSetTextMethodInfo
ResolveTextMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveTextMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveTextMethod "setTruncateMultiline" o = TextSetTruncateMultilineMethodInfo
ResolveTextMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveTextMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveTextMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveTextMethod "setVisibility" o = TextSetVisibilityMethodInfo
ResolveTextMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveTextMethod "setWidthChars" o = Gtk.Editable.EditableSetWidthCharsMethodInfo
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 o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject 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
forall a b. Coercible a b => a -> b
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 a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_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 a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_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.Gtk.Objects.Text::activate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:signal:activate"})
#endif
type TextBackspaceCallback =
IO ()
type C_TextBackspaceCallback =
Ptr Text ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextBackspaceCallback :: C_TextBackspaceCallback -> IO (FunPtr C_TextBackspaceCallback)
wrap_TextBackspaceCallback ::
GObject a => (a -> TextBackspaceCallback) ->
C_TextBackspaceCallback
wrap_TextBackspaceCallback :: forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextBackspaceCallback a -> IO ()
gi'cb Ptr Text
gi'selfPtr Ptr ()
_ = do
Ptr Text -> (Text -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject 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
forall a b. Coercible a b => a -> b
Coerce.coerce Text
gi'self)
onTextBackspace :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextBackspaceCallback) -> m SignalHandlerId
onTextBackspace :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTextBackspace a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TextActivateCallback
wrapped' = (a -> IO ()) -> C_TextActivateCallback
forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextBackspaceCallback a -> IO ()
wrapped
FunPtr C_TextActivateCallback
wrapped'' <- C_TextActivateCallback -> IO (FunPtr C_TextActivateCallback)
mk_TextBackspaceCallback 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
"backspace" FunPtr C_TextActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTextBackspace :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextBackspaceCallback) -> m SignalHandlerId
afterTextBackspace :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTextBackspace a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TextActivateCallback
wrapped' = (a -> IO ()) -> C_TextActivateCallback
forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextBackspaceCallback a -> IO ()
wrapped
FunPtr C_TextActivateCallback
wrapped'' <- C_TextActivateCallback -> IO (FunPtr C_TextActivateCallback)
mk_TextBackspaceCallback 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
"backspace" FunPtr C_TextActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextBackspaceSignalInfo
instance SignalInfo TextBackspaceSignalInfo where
type HaskellCallbackType TextBackspaceSignalInfo = TextBackspaceCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextBackspaceCallback cb
cb'' <- mk_TextBackspaceCallback cb'
connectSignalFunPtr obj "backspace" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text::backspace"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:signal:backspace"})
#endif
type TextCopyClipboardCallback =
IO ()
type C_TextCopyClipboardCallback =
Ptr Text ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextCopyClipboardCallback :: C_TextCopyClipboardCallback -> IO (FunPtr C_TextCopyClipboardCallback)
wrap_TextCopyClipboardCallback ::
GObject a => (a -> TextCopyClipboardCallback) ->
C_TextCopyClipboardCallback
wrap_TextCopyClipboardCallback :: forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextCopyClipboardCallback a -> IO ()
gi'cb Ptr Text
gi'selfPtr Ptr ()
_ = do
Ptr Text -> (Text -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject 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
forall a b. Coercible a b => a -> b
Coerce.coerce Text
gi'self)
onTextCopyClipboard :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextCopyClipboardCallback) -> m SignalHandlerId
onTextCopyClipboard :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTextCopyClipboard a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TextActivateCallback
wrapped' = (a -> IO ()) -> C_TextActivateCallback
forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextCopyClipboardCallback a -> IO ()
wrapped
FunPtr C_TextActivateCallback
wrapped'' <- C_TextActivateCallback -> IO (FunPtr C_TextActivateCallback)
mk_TextCopyClipboardCallback 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
"copy-clipboard" FunPtr C_TextActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTextCopyClipboard :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextCopyClipboardCallback) -> m SignalHandlerId
afterTextCopyClipboard :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTextCopyClipboard a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TextActivateCallback
wrapped' = (a -> IO ()) -> C_TextActivateCallback
forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextCopyClipboardCallback a -> IO ()
wrapped
FunPtr C_TextActivateCallback
wrapped'' <- C_TextActivateCallback -> IO (FunPtr C_TextActivateCallback)
mk_TextCopyClipboardCallback 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
"copy-clipboard" FunPtr C_TextActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextCopyClipboardSignalInfo
instance SignalInfo TextCopyClipboardSignalInfo where
type HaskellCallbackType TextCopyClipboardSignalInfo = TextCopyClipboardCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextCopyClipboardCallback cb
cb'' <- mk_TextCopyClipboardCallback cb'
connectSignalFunPtr obj "copy-clipboard" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text::copy-clipboard"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:signal:copyClipboard"})
#endif
type TextCutClipboardCallback =
IO ()
type C_TextCutClipboardCallback =
Ptr Text ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextCutClipboardCallback :: C_TextCutClipboardCallback -> IO (FunPtr C_TextCutClipboardCallback)
wrap_TextCutClipboardCallback ::
GObject a => (a -> TextCutClipboardCallback) ->
C_TextCutClipboardCallback
wrap_TextCutClipboardCallback :: forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextCutClipboardCallback a -> IO ()
gi'cb Ptr Text
gi'selfPtr Ptr ()
_ = do
Ptr Text -> (Text -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject 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
forall a b. Coercible a b => a -> b
Coerce.coerce Text
gi'self)
onTextCutClipboard :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextCutClipboardCallback) -> m SignalHandlerId
onTextCutClipboard :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTextCutClipboard a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TextActivateCallback
wrapped' = (a -> IO ()) -> C_TextActivateCallback
forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextCutClipboardCallback a -> IO ()
wrapped
FunPtr C_TextActivateCallback
wrapped'' <- C_TextActivateCallback -> IO (FunPtr C_TextActivateCallback)
mk_TextCutClipboardCallback 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
"cut-clipboard" FunPtr C_TextActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTextCutClipboard :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextCutClipboardCallback) -> m SignalHandlerId
afterTextCutClipboard :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTextCutClipboard a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TextActivateCallback
wrapped' = (a -> IO ()) -> C_TextActivateCallback
forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextCutClipboardCallback a -> IO ()
wrapped
FunPtr C_TextActivateCallback
wrapped'' <- C_TextActivateCallback -> IO (FunPtr C_TextActivateCallback)
mk_TextCutClipboardCallback 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
"cut-clipboard" FunPtr C_TextActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextCutClipboardSignalInfo
instance SignalInfo TextCutClipboardSignalInfo where
type HaskellCallbackType TextCutClipboardSignalInfo = TextCutClipboardCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextCutClipboardCallback cb
cb'' <- mk_TextCutClipboardCallback cb'
connectSignalFunPtr obj "cut-clipboard" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text::cut-clipboard"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:signal:cutClipboard"})
#endif
type TextDeleteFromCursorCallback =
Gtk.Enums.DeleteType
-> Int32
-> IO ()
type C_TextDeleteFromCursorCallback =
Ptr Text ->
CUInt ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextDeleteFromCursorCallback :: C_TextDeleteFromCursorCallback -> IO (FunPtr C_TextDeleteFromCursorCallback)
wrap_TextDeleteFromCursorCallback ::
GObject a => (a -> TextDeleteFromCursorCallback) ->
C_TextDeleteFromCursorCallback
wrap_TextDeleteFromCursorCallback :: forall a.
GObject a =>
(a -> TextDeleteFromCursorCallback)
-> C_TextDeleteFromCursorCallback
wrap_TextDeleteFromCursorCallback a -> TextDeleteFromCursorCallback
gi'cb Ptr Text
gi'selfPtr CUInt
type_ Int32
count Ptr ()
_ = do
let type_' :: DeleteType
type_' = (Int -> DeleteType
forall a. Enum a => Int -> a
toEnum (Int -> DeleteType) -> (CUInt -> Int) -> CUInt -> DeleteType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
type_
Ptr Text -> (Text -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Text
gi'selfPtr ((Text -> IO ()) -> IO ()) -> (Text -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Text
gi'self -> a -> TextDeleteFromCursorCallback
gi'cb (Text -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Text
gi'self) DeleteType
type_' Int32
count
onTextDeleteFromCursor :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextDeleteFromCursorCallback) -> m SignalHandlerId
onTextDeleteFromCursor :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a
-> ((?self::a) => TextDeleteFromCursorCallback)
-> m SignalHandlerId
onTextDeleteFromCursor a
obj (?self::a) => TextDeleteFromCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextDeleteFromCursorCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TextDeleteFromCursorCallback
TextDeleteFromCursorCallback
cb
let wrapped' :: C_TextDeleteFromCursorCallback
wrapped' = (a -> TextDeleteFromCursorCallback)
-> C_TextDeleteFromCursorCallback
forall a.
GObject a =>
(a -> TextDeleteFromCursorCallback)
-> C_TextDeleteFromCursorCallback
wrap_TextDeleteFromCursorCallback a -> TextDeleteFromCursorCallback
wrapped
FunPtr C_TextDeleteFromCursorCallback
wrapped'' <- C_TextDeleteFromCursorCallback
-> IO (FunPtr C_TextDeleteFromCursorCallback)
mk_TextDeleteFromCursorCallback C_TextDeleteFromCursorCallback
wrapped'
a
-> Text
-> FunPtr C_TextDeleteFromCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"delete-from-cursor" FunPtr C_TextDeleteFromCursorCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTextDeleteFromCursor :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextDeleteFromCursorCallback) -> m SignalHandlerId
afterTextDeleteFromCursor :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a
-> ((?self::a) => TextDeleteFromCursorCallback)
-> m SignalHandlerId
afterTextDeleteFromCursor a
obj (?self::a) => TextDeleteFromCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextDeleteFromCursorCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TextDeleteFromCursorCallback
TextDeleteFromCursorCallback
cb
let wrapped' :: C_TextDeleteFromCursorCallback
wrapped' = (a -> TextDeleteFromCursorCallback)
-> C_TextDeleteFromCursorCallback
forall a.
GObject a =>
(a -> TextDeleteFromCursorCallback)
-> C_TextDeleteFromCursorCallback
wrap_TextDeleteFromCursorCallback a -> TextDeleteFromCursorCallback
wrapped
FunPtr C_TextDeleteFromCursorCallback
wrapped'' <- C_TextDeleteFromCursorCallback
-> IO (FunPtr C_TextDeleteFromCursorCallback)
mk_TextDeleteFromCursorCallback C_TextDeleteFromCursorCallback
wrapped'
a
-> Text
-> FunPtr C_TextDeleteFromCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"delete-from-cursor" FunPtr C_TextDeleteFromCursorCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextDeleteFromCursorSignalInfo
instance SignalInfo TextDeleteFromCursorSignalInfo where
type HaskellCallbackType TextDeleteFromCursorSignalInfo = TextDeleteFromCursorCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextDeleteFromCursorCallback cb
cb'' <- mk_TextDeleteFromCursorCallback cb'
connectSignalFunPtr obj "delete-from-cursor" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text::delete-from-cursor"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:signal:deleteFromCursor"})
#endif
type TextInsertAtCursorCallback =
T.Text
-> IO ()
type C_TextInsertAtCursorCallback =
Ptr Text ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextInsertAtCursorCallback :: C_TextInsertAtCursorCallback -> IO (FunPtr C_TextInsertAtCursorCallback)
wrap_TextInsertAtCursorCallback ::
GObject a => (a -> TextInsertAtCursorCallback) ->
C_TextInsertAtCursorCallback
wrap_TextInsertAtCursorCallback :: forall a.
GObject a =>
(a -> TextInsertAtCursorCallback) -> C_TextInsertAtCursorCallback
wrap_TextInsertAtCursorCallback a -> TextInsertAtCursorCallback
gi'cb Ptr Text
gi'selfPtr CString
string Ptr ()
_ = do
Text
string' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
string
Ptr Text -> (Text -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Text
gi'selfPtr ((Text -> IO ()) -> IO ()) -> (Text -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Text
gi'self -> a -> TextInsertAtCursorCallback
gi'cb (Text -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Text
gi'self) Text
string'
onTextInsertAtCursor :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextInsertAtCursorCallback) -> m SignalHandlerId
onTextInsertAtCursor :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a
-> ((?self::a) => TextInsertAtCursorCallback) -> m SignalHandlerId
onTextInsertAtCursor a
obj (?self::a) => TextInsertAtCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextInsertAtCursorCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TextInsertAtCursorCallback
TextInsertAtCursorCallback
cb
let wrapped' :: C_TextInsertAtCursorCallback
wrapped' = (a -> TextInsertAtCursorCallback) -> C_TextInsertAtCursorCallback
forall a.
GObject a =>
(a -> TextInsertAtCursorCallback) -> C_TextInsertAtCursorCallback
wrap_TextInsertAtCursorCallback a -> TextInsertAtCursorCallback
wrapped
FunPtr C_TextInsertAtCursorCallback
wrapped'' <- C_TextInsertAtCursorCallback
-> IO (FunPtr C_TextInsertAtCursorCallback)
mk_TextInsertAtCursorCallback C_TextInsertAtCursorCallback
wrapped'
a
-> Text
-> FunPtr C_TextInsertAtCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"insert-at-cursor" FunPtr C_TextInsertAtCursorCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTextInsertAtCursor :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextInsertAtCursorCallback) -> m SignalHandlerId
afterTextInsertAtCursor :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a
-> ((?self::a) => TextInsertAtCursorCallback) -> m SignalHandlerId
afterTextInsertAtCursor a
obj (?self::a) => TextInsertAtCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextInsertAtCursorCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TextInsertAtCursorCallback
TextInsertAtCursorCallback
cb
let wrapped' :: C_TextInsertAtCursorCallback
wrapped' = (a -> TextInsertAtCursorCallback) -> C_TextInsertAtCursorCallback
forall a.
GObject a =>
(a -> TextInsertAtCursorCallback) -> C_TextInsertAtCursorCallback
wrap_TextInsertAtCursorCallback a -> TextInsertAtCursorCallback
wrapped
FunPtr C_TextInsertAtCursorCallback
wrapped'' <- C_TextInsertAtCursorCallback
-> IO (FunPtr C_TextInsertAtCursorCallback)
mk_TextInsertAtCursorCallback C_TextInsertAtCursorCallback
wrapped'
a
-> Text
-> FunPtr C_TextInsertAtCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"insert-at-cursor" FunPtr C_TextInsertAtCursorCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextInsertAtCursorSignalInfo
instance SignalInfo TextInsertAtCursorSignalInfo where
type HaskellCallbackType TextInsertAtCursorSignalInfo = TextInsertAtCursorCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextInsertAtCursorCallback cb
cb'' <- mk_TextInsertAtCursorCallback cb'
connectSignalFunPtr obj "insert-at-cursor" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text::insert-at-cursor"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:signal:insertAtCursor"})
#endif
type TextInsertEmojiCallback =
IO ()
type C_TextInsertEmojiCallback =
Ptr Text ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextInsertEmojiCallback :: C_TextInsertEmojiCallback -> IO (FunPtr C_TextInsertEmojiCallback)
wrap_TextInsertEmojiCallback ::
GObject a => (a -> TextInsertEmojiCallback) ->
C_TextInsertEmojiCallback
wrap_TextInsertEmojiCallback :: forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextInsertEmojiCallback a -> IO ()
gi'cb Ptr Text
gi'selfPtr Ptr ()
_ = do
Ptr Text -> (Text -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject 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
forall a b. Coercible a b => a -> b
Coerce.coerce Text
gi'self)
onTextInsertEmoji :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextInsertEmojiCallback) -> m SignalHandlerId
onTextInsertEmoji :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTextInsertEmoji a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TextActivateCallback
wrapped' = (a -> IO ()) -> C_TextActivateCallback
forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextInsertEmojiCallback a -> IO ()
wrapped
FunPtr C_TextActivateCallback
wrapped'' <- C_TextActivateCallback -> IO (FunPtr C_TextActivateCallback)
mk_TextInsertEmojiCallback 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
"insert-emoji" FunPtr C_TextActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTextInsertEmoji :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextInsertEmojiCallback) -> m SignalHandlerId
afterTextInsertEmoji :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTextInsertEmoji a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TextActivateCallback
wrapped' = (a -> IO ()) -> C_TextActivateCallback
forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextInsertEmojiCallback a -> IO ()
wrapped
FunPtr C_TextActivateCallback
wrapped'' <- C_TextActivateCallback -> IO (FunPtr C_TextActivateCallback)
mk_TextInsertEmojiCallback 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
"insert-emoji" FunPtr C_TextActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextInsertEmojiSignalInfo
instance SignalInfo TextInsertEmojiSignalInfo where
type HaskellCallbackType TextInsertEmojiSignalInfo = TextInsertEmojiCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextInsertEmojiCallback cb
cb'' <- mk_TextInsertEmojiCallback cb'
connectSignalFunPtr obj "insert-emoji" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text::insert-emoji"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:signal:insertEmoji"})
#endif
type TextMoveCursorCallback =
Gtk.Enums.MovementStep
-> Int32
-> Bool
-> IO ()
type C_TextMoveCursorCallback =
Ptr Text ->
CUInt ->
Int32 ->
CInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextMoveCursorCallback :: C_TextMoveCursorCallback -> IO (FunPtr C_TextMoveCursorCallback)
wrap_TextMoveCursorCallback ::
GObject a => (a -> TextMoveCursorCallback) ->
C_TextMoveCursorCallback
wrap_TextMoveCursorCallback :: forall a.
GObject a =>
(a -> TextMoveCursorCallback) -> C_TextMoveCursorCallback
wrap_TextMoveCursorCallback a -> TextMoveCursorCallback
gi'cb Ptr Text
gi'selfPtr CUInt
step Int32
count CInt
extend Ptr ()
_ = do
let step' :: MovementStep
step' = (Int -> MovementStep
forall a. Enum a => Int -> a
toEnum (Int -> MovementStep) -> (CUInt -> Int) -> CUInt -> MovementStep
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
step
let extend' :: Bool
extend' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
extend
Ptr Text -> (Text -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Text
gi'selfPtr ((Text -> IO ()) -> IO ()) -> (Text -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Text
gi'self -> a -> TextMoveCursorCallback
gi'cb (Text -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Text
gi'self) MovementStep
step' Int32
count Bool
extend'
onTextMoveCursor :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextMoveCursorCallback) -> m SignalHandlerId
onTextMoveCursor :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => TextMoveCursorCallback) -> m SignalHandlerId
onTextMoveCursor a
obj (?self::a) => TextMoveCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextMoveCursorCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TextMoveCursorCallback
TextMoveCursorCallback
cb
let wrapped' :: C_TextMoveCursorCallback
wrapped' = (a -> TextMoveCursorCallback) -> C_TextMoveCursorCallback
forall a.
GObject a =>
(a -> TextMoveCursorCallback) -> C_TextMoveCursorCallback
wrap_TextMoveCursorCallback a -> TextMoveCursorCallback
wrapped
FunPtr C_TextMoveCursorCallback
wrapped'' <- C_TextMoveCursorCallback -> IO (FunPtr C_TextMoveCursorCallback)
mk_TextMoveCursorCallback C_TextMoveCursorCallback
wrapped'
a
-> Text
-> FunPtr C_TextMoveCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-cursor" FunPtr C_TextMoveCursorCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTextMoveCursor :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextMoveCursorCallback) -> m SignalHandlerId
afterTextMoveCursor :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => TextMoveCursorCallback) -> m SignalHandlerId
afterTextMoveCursor a
obj (?self::a) => TextMoveCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextMoveCursorCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TextMoveCursorCallback
TextMoveCursorCallback
cb
let wrapped' :: C_TextMoveCursorCallback
wrapped' = (a -> TextMoveCursorCallback) -> C_TextMoveCursorCallback
forall a.
GObject a =>
(a -> TextMoveCursorCallback) -> C_TextMoveCursorCallback
wrap_TextMoveCursorCallback a -> TextMoveCursorCallback
wrapped
FunPtr C_TextMoveCursorCallback
wrapped'' <- C_TextMoveCursorCallback -> IO (FunPtr C_TextMoveCursorCallback)
mk_TextMoveCursorCallback C_TextMoveCursorCallback
wrapped'
a
-> Text
-> FunPtr C_TextMoveCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-cursor" FunPtr C_TextMoveCursorCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextMoveCursorSignalInfo
instance SignalInfo TextMoveCursorSignalInfo where
type HaskellCallbackType TextMoveCursorSignalInfo = TextMoveCursorCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextMoveCursorCallback cb
cb'' <- mk_TextMoveCursorCallback cb'
connectSignalFunPtr obj "move-cursor" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text::move-cursor"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:signal:moveCursor"})
#endif
type TextPasteClipboardCallback =
IO ()
type C_TextPasteClipboardCallback =
Ptr Text ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextPasteClipboardCallback :: C_TextPasteClipboardCallback -> IO (FunPtr C_TextPasteClipboardCallback)
wrap_TextPasteClipboardCallback ::
GObject a => (a -> TextPasteClipboardCallback) ->
C_TextPasteClipboardCallback
wrap_TextPasteClipboardCallback :: forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextPasteClipboardCallback a -> IO ()
gi'cb Ptr Text
gi'selfPtr Ptr ()
_ = do
Ptr Text -> (Text -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject 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
forall a b. Coercible a b => a -> b
Coerce.coerce Text
gi'self)
onTextPasteClipboard :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextPasteClipboardCallback) -> m SignalHandlerId
onTextPasteClipboard :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTextPasteClipboard a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TextActivateCallback
wrapped' = (a -> IO ()) -> C_TextActivateCallback
forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextPasteClipboardCallback a -> IO ()
wrapped
FunPtr C_TextActivateCallback
wrapped'' <- C_TextActivateCallback -> IO (FunPtr C_TextActivateCallback)
mk_TextPasteClipboardCallback 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
"paste-clipboard" FunPtr C_TextActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTextPasteClipboard :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextPasteClipboardCallback) -> m SignalHandlerId
afterTextPasteClipboard :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTextPasteClipboard a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TextActivateCallback
wrapped' = (a -> IO ()) -> C_TextActivateCallback
forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextPasteClipboardCallback a -> IO ()
wrapped
FunPtr C_TextActivateCallback
wrapped'' <- C_TextActivateCallback -> IO (FunPtr C_TextActivateCallback)
mk_TextPasteClipboardCallback 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
"paste-clipboard" FunPtr C_TextActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextPasteClipboardSignalInfo
instance SignalInfo TextPasteClipboardSignalInfo where
type HaskellCallbackType TextPasteClipboardSignalInfo = TextPasteClipboardCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextPasteClipboardCallback cb
cb'' <- mk_TextPasteClipboardCallback cb'
connectSignalFunPtr obj "paste-clipboard" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text::paste-clipboard"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:signal:pasteClipboard"})
#endif
type TextPreeditChangedCallback =
T.Text
-> IO ()
type C_TextPreeditChangedCallback =
Ptr Text ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextPreeditChangedCallback :: C_TextPreeditChangedCallback -> IO (FunPtr C_TextPreeditChangedCallback)
wrap_TextPreeditChangedCallback ::
GObject a => (a -> TextPreeditChangedCallback) ->
C_TextPreeditChangedCallback
wrap_TextPreeditChangedCallback :: forall a.
GObject a =>
(a -> TextInsertAtCursorCallback) -> C_TextInsertAtCursorCallback
wrap_TextPreeditChangedCallback a -> TextInsertAtCursorCallback
gi'cb Ptr Text
gi'selfPtr CString
preedit Ptr ()
_ = do
Text
preedit' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
preedit
Ptr Text -> (Text -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Text
gi'selfPtr ((Text -> IO ()) -> IO ()) -> (Text -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Text
gi'self -> a -> TextInsertAtCursorCallback
gi'cb (Text -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Text
gi'self) Text
preedit'
onTextPreeditChanged :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextPreeditChangedCallback) -> m SignalHandlerId
onTextPreeditChanged :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a
-> ((?self::a) => TextInsertAtCursorCallback) -> m SignalHandlerId
onTextPreeditChanged a
obj (?self::a) => TextInsertAtCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextInsertAtCursorCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TextInsertAtCursorCallback
TextInsertAtCursorCallback
cb
let wrapped' :: C_TextInsertAtCursorCallback
wrapped' = (a -> TextInsertAtCursorCallback) -> C_TextInsertAtCursorCallback
forall a.
GObject a =>
(a -> TextInsertAtCursorCallback) -> C_TextInsertAtCursorCallback
wrap_TextPreeditChangedCallback a -> TextInsertAtCursorCallback
wrapped
FunPtr C_TextInsertAtCursorCallback
wrapped'' <- C_TextInsertAtCursorCallback
-> IO (FunPtr C_TextInsertAtCursorCallback)
mk_TextPreeditChangedCallback C_TextInsertAtCursorCallback
wrapped'
a
-> Text
-> FunPtr C_TextInsertAtCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"preedit-changed" FunPtr C_TextInsertAtCursorCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTextPreeditChanged :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextPreeditChangedCallback) -> m SignalHandlerId
afterTextPreeditChanged :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a
-> ((?self::a) => TextInsertAtCursorCallback) -> m SignalHandlerId
afterTextPreeditChanged a
obj (?self::a) => TextInsertAtCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> TextInsertAtCursorCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TextInsertAtCursorCallback
TextInsertAtCursorCallback
cb
let wrapped' :: C_TextInsertAtCursorCallback
wrapped' = (a -> TextInsertAtCursorCallback) -> C_TextInsertAtCursorCallback
forall a.
GObject a =>
(a -> TextInsertAtCursorCallback) -> C_TextInsertAtCursorCallback
wrap_TextPreeditChangedCallback a -> TextInsertAtCursorCallback
wrapped
FunPtr C_TextInsertAtCursorCallback
wrapped'' <- C_TextInsertAtCursorCallback
-> IO (FunPtr C_TextInsertAtCursorCallback)
mk_TextPreeditChangedCallback C_TextInsertAtCursorCallback
wrapped'
a
-> Text
-> FunPtr C_TextInsertAtCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"preedit-changed" FunPtr C_TextInsertAtCursorCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextPreeditChangedSignalInfo
instance SignalInfo TextPreeditChangedSignalInfo where
type HaskellCallbackType TextPreeditChangedSignalInfo = TextPreeditChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextPreeditChangedCallback cb
cb'' <- mk_TextPreeditChangedCallback cb'
connectSignalFunPtr obj "preedit-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text::preedit-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:signal:preeditChanged"})
#endif
type TextToggleOverwriteCallback =
IO ()
type C_TextToggleOverwriteCallback =
Ptr Text ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TextToggleOverwriteCallback :: C_TextToggleOverwriteCallback -> IO (FunPtr C_TextToggleOverwriteCallback)
wrap_TextToggleOverwriteCallback ::
GObject a => (a -> TextToggleOverwriteCallback) ->
C_TextToggleOverwriteCallback
wrap_TextToggleOverwriteCallback :: forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextToggleOverwriteCallback a -> IO ()
gi'cb Ptr Text
gi'selfPtr Ptr ()
_ = do
Ptr Text -> (Text -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject 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
forall a b. Coercible a b => a -> b
Coerce.coerce Text
gi'self)
onTextToggleOverwrite :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextToggleOverwriteCallback) -> m SignalHandlerId
onTextToggleOverwrite :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTextToggleOverwrite a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TextActivateCallback
wrapped' = (a -> IO ()) -> C_TextActivateCallback
forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextToggleOverwriteCallback a -> IO ()
wrapped
FunPtr C_TextActivateCallback
wrapped'' <- C_TextActivateCallback -> IO (FunPtr C_TextActivateCallback)
mk_TextToggleOverwriteCallback 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
"toggle-overwrite" FunPtr C_TextActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTextToggleOverwrite :: (IsText a, MonadIO m) => a -> ((?self :: a) => TextToggleOverwriteCallback) -> m SignalHandlerId
afterTextToggleOverwrite :: forall a (m :: * -> *).
(IsText a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTextToggleOverwrite a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TextActivateCallback
wrapped' = (a -> IO ()) -> C_TextActivateCallback
forall a. GObject a => (a -> IO ()) -> C_TextActivateCallback
wrap_TextToggleOverwriteCallback a -> IO ()
wrapped
FunPtr C_TextActivateCallback
wrapped'' <- C_TextActivateCallback -> IO (FunPtr C_TextActivateCallback)
mk_TextToggleOverwriteCallback 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
"toggle-overwrite" FunPtr C_TextActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TextToggleOverwriteSignalInfo
instance SignalInfo TextToggleOverwriteSignalInfo where
type HaskellCallbackType TextToggleOverwriteSignalInfo = TextToggleOverwriteCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TextToggleOverwriteCallback cb
cb'' <- mk_TextToggleOverwriteCallback cb'
connectSignalFunPtr obj "toggle-overwrite" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text::toggle-overwrite"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:signal:toggleOverwrite"})
#endif
getTextActivatesDefault :: (MonadIO m, IsText o) => o -> m Bool
getTextActivatesDefault :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Bool
getTextActivatesDefault o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"activates-default"
setTextActivatesDefault :: (MonadIO m, IsText o) => o -> Bool -> m ()
setTextActivatesDefault :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Bool -> m ()
setTextActivatesDefault o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"activates-default" Bool
val
constructTextActivatesDefault :: (IsText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTextActivatesDefault :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTextActivatesDefault Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"activates-default" Bool
val
#if defined(ENABLE_OVERLOADING)
data TextActivatesDefaultPropertyInfo
instance AttrInfo TextActivatesDefaultPropertyInfo where
type AttrAllowedOps TextActivatesDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextActivatesDefaultPropertyInfo = IsText
type AttrSetTypeConstraint TextActivatesDefaultPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TextActivatesDefaultPropertyInfo = (~) Bool
type AttrTransferType TextActivatesDefaultPropertyInfo = Bool
type AttrGetType TextActivatesDefaultPropertyInfo = Bool
type AttrLabel TextActivatesDefaultPropertyInfo = "activates-default"
type AttrOrigin TextActivatesDefaultPropertyInfo = Text
attrGet = getTextActivatesDefault
attrSet = setTextActivatesDefault
attrTransfer _ v = do
return v
attrConstruct = constructTextActivatesDefault
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.activatesDefault"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:attr:activatesDefault"
})
#endif
getTextAttributes :: (MonadIO m, IsText o) => o -> m (Maybe Pango.AttrList.AttrList)
getTextAttributes :: forall (m :: * -> *) o.
(MonadIO m, IsText o) =>
o -> m (Maybe AttrList)
getTextAttributes o
obj = IO (Maybe AttrList) -> m (Maybe AttrList)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe AttrList) -> m (Maybe AttrList))
-> IO (Maybe AttrList) -> m (Maybe 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 a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe 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 a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe 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 a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe 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 = (Maybe 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.Gtk.Objects.Text.attributes"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:attr:attributes"
})
#endif
getTextBuffer :: (MonadIO m, IsText o) => o -> m Gtk.EntryBuffer.EntryBuffer
getTextBuffer :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m EntryBuffer
getTextBuffer o
obj = IO EntryBuffer -> m EntryBuffer
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO EntryBuffer -> m EntryBuffer)
-> IO EntryBuffer -> m EntryBuffer
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe EntryBuffer) -> IO EntryBuffer
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getTextBuffer" (IO (Maybe EntryBuffer) -> IO EntryBuffer)
-> IO (Maybe EntryBuffer) -> IO EntryBuffer
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr EntryBuffer -> EntryBuffer)
-> IO (Maybe EntryBuffer)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"buffer" ManagedPtr EntryBuffer -> EntryBuffer
Gtk.EntryBuffer.EntryBuffer
setTextBuffer :: (MonadIO m, IsText o, Gtk.EntryBuffer.IsEntryBuffer a) => o -> a -> m ()
setTextBuffer :: forall (m :: * -> *) o a.
(MonadIO m, IsText o, IsEntryBuffer a) =>
o -> a -> m ()
setTextBuffer o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"buffer" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructTextBuffer :: (IsText o, MIO.MonadIO m, Gtk.EntryBuffer.IsEntryBuffer a) => a -> m (GValueConstruct o)
constructTextBuffer :: forall o (m :: * -> *) a.
(IsText o, MonadIO m, IsEntryBuffer a) =>
a -> m (GValueConstruct o)
constructTextBuffer a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"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 = Gtk.EntryBuffer.IsEntryBuffer
type AttrTransferTypeConstraint TextBufferPropertyInfo = Gtk.EntryBuffer.IsEntryBuffer
type AttrTransferType TextBufferPropertyInfo = Gtk.EntryBuffer.EntryBuffer
type AttrGetType TextBufferPropertyInfo = Gtk.EntryBuffer.EntryBuffer
type AttrLabel TextBufferPropertyInfo = "buffer"
type AttrOrigin TextBufferPropertyInfo = Text
attrGet = getTextBuffer
attrSet = setTextBuffer
attrTransfer _ v = do
unsafeCastTo Gtk.EntryBuffer.EntryBuffer v
attrConstruct = constructTextBuffer
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.buffer"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:attr:buffer"
})
#endif
getTextEnableEmojiCompletion :: (MonadIO m, IsText o) => o -> m Bool
getTextEnableEmojiCompletion :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Bool
getTextEnableEmojiCompletion o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"enable-emoji-completion"
setTextEnableEmojiCompletion :: (MonadIO m, IsText o) => o -> Bool -> m ()
setTextEnableEmojiCompletion :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Bool -> m ()
setTextEnableEmojiCompletion o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-emoji-completion" Bool
val
constructTextEnableEmojiCompletion :: (IsText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTextEnableEmojiCompletion :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTextEnableEmojiCompletion Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"enable-emoji-completion" Bool
val
#if defined(ENABLE_OVERLOADING)
data TextEnableEmojiCompletionPropertyInfo
instance AttrInfo TextEnableEmojiCompletionPropertyInfo where
type AttrAllowedOps TextEnableEmojiCompletionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextEnableEmojiCompletionPropertyInfo = IsText
type AttrSetTypeConstraint TextEnableEmojiCompletionPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TextEnableEmojiCompletionPropertyInfo = (~) Bool
type AttrTransferType TextEnableEmojiCompletionPropertyInfo = Bool
type AttrGetType TextEnableEmojiCompletionPropertyInfo = Bool
type AttrLabel TextEnableEmojiCompletionPropertyInfo = "enable-emoji-completion"
type AttrOrigin TextEnableEmojiCompletionPropertyInfo = Text
attrGet = getTextEnableEmojiCompletion
attrSet = setTextEnableEmojiCompletion
attrTransfer _ v = do
return v
attrConstruct = constructTextEnableEmojiCompletion
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.enableEmojiCompletion"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:attr:enableEmojiCompletion"
})
#endif
getTextExtraMenu :: (MonadIO m, IsText o) => o -> m (Maybe Gio.MenuModel.MenuModel)
o
obj = IO (Maybe MenuModel) -> m (Maybe MenuModel)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe MenuModel) -> m (Maybe MenuModel))
-> IO (Maybe MenuModel) -> m (Maybe MenuModel)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr MenuModel -> MenuModel)
-> IO (Maybe MenuModel)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"extra-menu" ManagedPtr MenuModel -> MenuModel
Gio.MenuModel.MenuModel
setTextExtraMenu :: (MonadIO m, IsText o, Gio.MenuModel.IsMenuModel a) => o -> a -> m ()
o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"extra-menu" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructTextExtraMenu :: (IsText o, MIO.MonadIO m, Gio.MenuModel.IsMenuModel a) => a -> m (GValueConstruct o)
a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"extra-menu" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearTextExtraMenu :: (MonadIO m, IsText o) => o -> m ()
o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe MenuModel -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"extra-menu" (Maybe MenuModel
forall a. Maybe a
Nothing :: Maybe Gio.MenuModel.MenuModel)
#if defined(ENABLE_OVERLOADING)
data TextExtraMenuPropertyInfo
instance AttrInfo TextExtraMenuPropertyInfo where
type AttrAllowedOps TextExtraMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TextExtraMenuPropertyInfo = IsText
type AttrSetTypeConstraint TextExtraMenuPropertyInfo = Gio.MenuModel.IsMenuModel
type AttrTransferTypeConstraint TextExtraMenuPropertyInfo = Gio.MenuModel.IsMenuModel
type AttrTransferType TextExtraMenuPropertyInfo = Gio.MenuModel.MenuModel
type AttrGetType TextExtraMenuPropertyInfo = (Maybe Gio.MenuModel.MenuModel)
type AttrLabel TextExtraMenuPropertyInfo = "extra-menu"
type AttrOrigin TextExtraMenuPropertyInfo = Text
attrGet = getTextExtraMenu
attrSet = setTextExtraMenu
attrTransfer _ v = do
unsafeCastTo Gio.MenuModel.MenuModel v
attrConstruct = constructTextExtraMenu
attrClear = clearTextExtraMenu
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.extraMenu"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:attr:extraMenu"
})
#endif
getTextImModule :: (MonadIO m, IsText o) => o -> m (Maybe T.Text)
getTextImModule :: forall (m :: * -> *) o.
(MonadIO m, IsText o) =>
o -> m (Maybe Text)
getTextImModule o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"im-module"
setTextImModule :: (MonadIO m, IsText o) => o -> T.Text -> m ()
setTextImModule :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Text -> m ()
setTextImModule o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"im-module" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructTextImModule :: (IsText o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructTextImModule :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructTextImModule Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"im-module" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearTextImModule :: (MonadIO m, IsText o) => o -> m ()
clearTextImModule :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m ()
clearTextImModule o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"im-module" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data TextImModulePropertyInfo
instance AttrInfo TextImModulePropertyInfo where
type AttrAllowedOps TextImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TextImModulePropertyInfo = IsText
type AttrSetTypeConstraint TextImModulePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint TextImModulePropertyInfo = (~) T.Text
type AttrTransferType TextImModulePropertyInfo = T.Text
type AttrGetType TextImModulePropertyInfo = (Maybe T.Text)
type AttrLabel TextImModulePropertyInfo = "im-module"
type AttrOrigin TextImModulePropertyInfo = Text
attrGet = getTextImModule
attrSet = setTextImModule
attrTransfer _ v = do
return v
attrConstruct = constructTextImModule
attrClear = clearTextImModule
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.imModule"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:attr:imModule"
})
#endif
getTextInputHints :: (MonadIO m, IsText o) => o -> m [Gtk.Flags.InputHints]
getTextInputHints :: forall (m :: * -> *) o.
(MonadIO m, IsText o) =>
o -> m [InputHints]
getTextInputHints o
obj = IO [InputHints] -> m [InputHints]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO [InputHints] -> m [InputHints])
-> IO [InputHints] -> m [InputHints]
forall a b. (a -> b) -> a -> b
$ o -> String -> IO [InputHints]
forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj String
"input-hints"
setTextInputHints :: (MonadIO m, IsText o) => o -> [Gtk.Flags.InputHints] -> m ()
setTextInputHints :: forall (m :: * -> *) o.
(MonadIO m, IsText o) =>
o -> [InputHints] -> m ()
setTextInputHints o
obj [InputHints]
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> [InputHints] -> IO ()
forall a b.
(IsGFlag b, BoxedFlags b, GObject a) =>
a -> String -> [b] -> IO ()
B.Properties.setObjectPropertyFlags o
obj String
"input-hints" [InputHints]
val
constructTextInputHints :: (IsText o, MIO.MonadIO m) => [Gtk.Flags.InputHints] -> m (GValueConstruct o)
constructTextInputHints :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
[InputHints] -> m (GValueConstruct o)
constructTextInputHints [InputHints]
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> [InputHints] -> IO (GValueConstruct o)
forall a o.
(IsGFlag a, BoxedFlags a) =>
String -> [a] -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFlags String
"input-hints" [InputHints]
val
#if defined(ENABLE_OVERLOADING)
data TextInputHintsPropertyInfo
instance AttrInfo TextInputHintsPropertyInfo where
type AttrAllowedOps TextInputHintsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextInputHintsPropertyInfo = IsText
type AttrSetTypeConstraint TextInputHintsPropertyInfo = (~) [Gtk.Flags.InputHints]
type AttrTransferTypeConstraint TextInputHintsPropertyInfo = (~) [Gtk.Flags.InputHints]
type AttrTransferType TextInputHintsPropertyInfo = [Gtk.Flags.InputHints]
type AttrGetType TextInputHintsPropertyInfo = [Gtk.Flags.InputHints]
type AttrLabel TextInputHintsPropertyInfo = "input-hints"
type AttrOrigin TextInputHintsPropertyInfo = Text
attrGet = getTextInputHints
attrSet = setTextInputHints
attrTransfer _ v = do
return v
attrConstruct = constructTextInputHints
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.inputHints"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:attr:inputHints"
})
#endif
getTextInputPurpose :: (MonadIO m, IsText o) => o -> m Gtk.Enums.InputPurpose
getTextInputPurpose :: forall (m :: * -> *) o.
(MonadIO m, IsText o) =>
o -> m InputPurpose
getTextInputPurpose o
obj = IO InputPurpose -> m InputPurpose
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO InputPurpose -> m InputPurpose)
-> IO InputPurpose -> m InputPurpose
forall a b. (a -> b) -> a -> b
$ o -> String -> IO InputPurpose
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"input-purpose"
setTextInputPurpose :: (MonadIO m, IsText o) => o -> Gtk.Enums.InputPurpose -> m ()
setTextInputPurpose :: forall (m :: * -> *) o.
(MonadIO m, IsText o) =>
o -> InputPurpose -> m ()
setTextInputPurpose o
obj InputPurpose
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> InputPurpose -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"input-purpose" InputPurpose
val
constructTextInputPurpose :: (IsText o, MIO.MonadIO m) => Gtk.Enums.InputPurpose -> m (GValueConstruct o)
constructTextInputPurpose :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
InputPurpose -> m (GValueConstruct o)
constructTextInputPurpose InputPurpose
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> InputPurpose -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"input-purpose" InputPurpose
val
#if defined(ENABLE_OVERLOADING)
data TextInputPurposePropertyInfo
instance AttrInfo TextInputPurposePropertyInfo where
type AttrAllowedOps TextInputPurposePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextInputPurposePropertyInfo = IsText
type AttrSetTypeConstraint TextInputPurposePropertyInfo = (~) Gtk.Enums.InputPurpose
type AttrTransferTypeConstraint TextInputPurposePropertyInfo = (~) Gtk.Enums.InputPurpose
type AttrTransferType TextInputPurposePropertyInfo = Gtk.Enums.InputPurpose
type AttrGetType TextInputPurposePropertyInfo = Gtk.Enums.InputPurpose
type AttrLabel TextInputPurposePropertyInfo = "input-purpose"
type AttrOrigin TextInputPurposePropertyInfo = Text
attrGet = getTextInputPurpose
attrSet = setTextInputPurpose
attrTransfer _ v = do
return v
attrConstruct = constructTextInputPurpose
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.inputPurpose"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:attr:inputPurpose"
})
#endif
getTextInvisibleChar :: (MonadIO m, IsText o) => o -> m Word32
getTextInvisibleChar :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Word32
getTextInvisibleChar o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
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
"invisible-char"
setTextInvisibleChar :: (MonadIO m, IsText o) => o -> Word32 -> m ()
setTextInvisibleChar :: forall (m :: * -> *) o.
(MonadIO m, IsText o) =>
o -> Word32 -> m ()
setTextInvisibleChar o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"invisible-char" Word32
val
constructTextInvisibleChar :: (IsText o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructTextInvisibleChar :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructTextInvisibleChar Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"invisible-char" Word32
val
#if defined(ENABLE_OVERLOADING)
data TextInvisibleCharPropertyInfo
instance AttrInfo TextInvisibleCharPropertyInfo where
type AttrAllowedOps TextInvisibleCharPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextInvisibleCharPropertyInfo = IsText
type AttrSetTypeConstraint TextInvisibleCharPropertyInfo = (~) Word32
type AttrTransferTypeConstraint TextInvisibleCharPropertyInfo = (~) Word32
type AttrTransferType TextInvisibleCharPropertyInfo = Word32
type AttrGetType TextInvisibleCharPropertyInfo = Word32
type AttrLabel TextInvisibleCharPropertyInfo = "invisible-char"
type AttrOrigin TextInvisibleCharPropertyInfo = Text
attrGet = getTextInvisibleChar
attrSet = setTextInvisibleChar
attrTransfer _ v = do
return v
attrConstruct = constructTextInvisibleChar
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.invisibleChar"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:attr:invisibleChar"
})
#endif
getTextInvisibleCharSet :: (MonadIO m, IsText o) => o -> m Bool
getTextInvisibleCharSet :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Bool
getTextInvisibleCharSet o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"invisible-char-set"
setTextInvisibleCharSet :: (MonadIO m, IsText o) => o -> Bool -> m ()
setTextInvisibleCharSet :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Bool -> m ()
setTextInvisibleCharSet o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"invisible-char-set" Bool
val
constructTextInvisibleCharSet :: (IsText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTextInvisibleCharSet :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTextInvisibleCharSet Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"invisible-char-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data TextInvisibleCharSetPropertyInfo
instance AttrInfo TextInvisibleCharSetPropertyInfo where
type AttrAllowedOps TextInvisibleCharSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextInvisibleCharSetPropertyInfo = IsText
type AttrSetTypeConstraint TextInvisibleCharSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TextInvisibleCharSetPropertyInfo = (~) Bool
type AttrTransferType TextInvisibleCharSetPropertyInfo = Bool
type AttrGetType TextInvisibleCharSetPropertyInfo = Bool
type AttrLabel TextInvisibleCharSetPropertyInfo = "invisible-char-set"
type AttrOrigin TextInvisibleCharSetPropertyInfo = Text
attrGet = getTextInvisibleCharSet
attrSet = setTextInvisibleCharSet
attrTransfer _ v = do
return v
attrConstruct = constructTextInvisibleCharSet
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.invisibleCharSet"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:attr:invisibleCharSet"
})
#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 a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"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 a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> 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 a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> 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.Gtk.Objects.Text.maxLength"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:attr:maxLength"
})
#endif
getTextOverwriteMode :: (MonadIO m, IsText o) => o -> m Bool
getTextOverwriteMode :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Bool
getTextOverwriteMode o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"overwrite-mode"
setTextOverwriteMode :: (MonadIO m, IsText o) => o -> Bool -> m ()
setTextOverwriteMode :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Bool -> m ()
setTextOverwriteMode o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"overwrite-mode" Bool
val
constructTextOverwriteMode :: (IsText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTextOverwriteMode :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTextOverwriteMode Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"overwrite-mode" Bool
val
#if defined(ENABLE_OVERLOADING)
data TextOverwriteModePropertyInfo
instance AttrInfo TextOverwriteModePropertyInfo where
type AttrAllowedOps TextOverwriteModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextOverwriteModePropertyInfo = IsText
type AttrSetTypeConstraint TextOverwriteModePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TextOverwriteModePropertyInfo = (~) Bool
type AttrTransferType TextOverwriteModePropertyInfo = Bool
type AttrGetType TextOverwriteModePropertyInfo = Bool
type AttrLabel TextOverwriteModePropertyInfo = "overwrite-mode"
type AttrOrigin TextOverwriteModePropertyInfo = Text
attrGet = getTextOverwriteMode
attrSet = setTextOverwriteMode
attrTransfer _ v = do
return v
attrConstruct = constructTextOverwriteMode
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.overwriteMode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:attr:overwriteMode"
})
#endif
getTextPlaceholderText :: (MonadIO m, IsText o) => o -> m (Maybe T.Text)
getTextPlaceholderText :: forall (m :: * -> *) o.
(MonadIO m, IsText o) =>
o -> m (Maybe Text)
getTextPlaceholderText o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"placeholder-text"
setTextPlaceholderText :: (MonadIO m, IsText o) => o -> T.Text -> m ()
setTextPlaceholderText :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Text -> m ()
setTextPlaceholderText o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"placeholder-text" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructTextPlaceholderText :: (IsText o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructTextPlaceholderText :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructTextPlaceholderText Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"placeholder-text" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearTextPlaceholderText :: (MonadIO m, IsText o) => o -> m ()
clearTextPlaceholderText :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m ()
clearTextPlaceholderText o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"placeholder-text" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data TextPlaceholderTextPropertyInfo
instance AttrInfo TextPlaceholderTextPropertyInfo where
type AttrAllowedOps TextPlaceholderTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TextPlaceholderTextPropertyInfo = IsText
type AttrSetTypeConstraint TextPlaceholderTextPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint TextPlaceholderTextPropertyInfo = (~) T.Text
type AttrTransferType TextPlaceholderTextPropertyInfo = T.Text
type AttrGetType TextPlaceholderTextPropertyInfo = (Maybe T.Text)
type AttrLabel TextPlaceholderTextPropertyInfo = "placeholder-text"
type AttrOrigin TextPlaceholderTextPropertyInfo = Text
attrGet = getTextPlaceholderText
attrSet = setTextPlaceholderText
attrTransfer _ v = do
return v
attrConstruct = constructTextPlaceholderText
attrClear = clearTextPlaceholderText
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.placeholderText"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:attr:placeholderText"
})
#endif
getTextPropagateTextWidth :: (MonadIO m, IsText o) => o -> m Bool
getTextPropagateTextWidth :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Bool
getTextPropagateTextWidth o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"propagate-text-width"
setTextPropagateTextWidth :: (MonadIO m, IsText o) => o -> Bool -> m ()
setTextPropagateTextWidth :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Bool -> m ()
setTextPropagateTextWidth o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"propagate-text-width" Bool
val
constructTextPropagateTextWidth :: (IsText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTextPropagateTextWidth :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTextPropagateTextWidth Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"propagate-text-width" Bool
val
#if defined(ENABLE_OVERLOADING)
data TextPropagateTextWidthPropertyInfo
instance AttrInfo TextPropagateTextWidthPropertyInfo where
type AttrAllowedOps TextPropagateTextWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextPropagateTextWidthPropertyInfo = IsText
type AttrSetTypeConstraint TextPropagateTextWidthPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TextPropagateTextWidthPropertyInfo = (~) Bool
type AttrTransferType TextPropagateTextWidthPropertyInfo = Bool
type AttrGetType TextPropagateTextWidthPropertyInfo = Bool
type AttrLabel TextPropagateTextWidthPropertyInfo = "propagate-text-width"
type AttrOrigin TextPropagateTextWidthPropertyInfo = Text
attrGet = getTextPropagateTextWidth
attrSet = setTextPropagateTextWidth
attrTransfer _ v = do
return v
attrConstruct = constructTextPropagateTextWidth
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.propagateTextWidth"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:attr:propagateTextWidth"
})
#endif
getTextScrollOffset :: (MonadIO m, IsText o) => o -> m Int32
getTextScrollOffset :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Int32
getTextScrollOffset o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"scroll-offset"
#if defined(ENABLE_OVERLOADING)
data TextScrollOffsetPropertyInfo
instance AttrInfo TextScrollOffsetPropertyInfo where
type AttrAllowedOps TextScrollOffsetPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint TextScrollOffsetPropertyInfo = IsText
type AttrSetTypeConstraint TextScrollOffsetPropertyInfo = (~) ()
type AttrTransferTypeConstraint TextScrollOffsetPropertyInfo = (~) ()
type AttrTransferType TextScrollOffsetPropertyInfo = ()
type AttrGetType TextScrollOffsetPropertyInfo = Int32
type AttrLabel TextScrollOffsetPropertyInfo = "scroll-offset"
type AttrOrigin TextScrollOffsetPropertyInfo = Text
attrGet = getTextScrollOffset
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.scrollOffset"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:attr:scrollOffset"
})
#endif
getTextTabs :: (MonadIO m, IsText o) => o -> m (Maybe Pango.TabArray.TabArray)
getTextTabs :: forall (m :: * -> *) o.
(MonadIO m, IsText o) =>
o -> m (Maybe TabArray)
getTextTabs o
obj = IO (Maybe TabArray) -> m (Maybe TabArray)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe TabArray) -> m (Maybe TabArray))
-> IO (Maybe TabArray) -> m (Maybe TabArray)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr TabArray -> TabArray)
-> IO (Maybe TabArray)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"tabs" ManagedPtr TabArray -> TabArray
Pango.TabArray.TabArray
setTextTabs :: (MonadIO m, IsText o) => o -> Pango.TabArray.TabArray -> m ()
setTextTabs :: forall (m :: * -> *) o.
(MonadIO m, IsText o) =>
o -> TabArray -> m ()
setTextTabs o
obj TabArray
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe TabArray -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"tabs" (TabArray -> Maybe TabArray
forall a. a -> Maybe a
Just TabArray
val)
constructTextTabs :: (IsText o, MIO.MonadIO m) => Pango.TabArray.TabArray -> m (GValueConstruct o)
constructTextTabs :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
TabArray -> m (GValueConstruct o)
constructTextTabs TabArray
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe TabArray -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"tabs" (TabArray -> Maybe TabArray
forall a. a -> Maybe a
P.Just TabArray
val)
clearTextTabs :: (MonadIO m, IsText o) => o -> m ()
clearTextTabs :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m ()
clearTextTabs o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe TabArray -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"tabs" (Maybe TabArray
forall a. Maybe a
Nothing :: Maybe Pango.TabArray.TabArray)
#if defined(ENABLE_OVERLOADING)
data TextTabsPropertyInfo
instance AttrInfo TextTabsPropertyInfo where
type AttrAllowedOps TextTabsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TextTabsPropertyInfo = IsText
type AttrSetTypeConstraint TextTabsPropertyInfo = (~) Pango.TabArray.TabArray
type AttrTransferTypeConstraint TextTabsPropertyInfo = (~) Pango.TabArray.TabArray
type AttrTransferType TextTabsPropertyInfo = Pango.TabArray.TabArray
type AttrGetType TextTabsPropertyInfo = (Maybe Pango.TabArray.TabArray)
type AttrLabel TextTabsPropertyInfo = "tabs"
type AttrOrigin TextTabsPropertyInfo = Text
attrGet = getTextTabs
attrSet = setTextTabs
attrTransfer _ v = do
return v
attrConstruct = constructTextTabs
attrClear = clearTextTabs
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.tabs"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:attr:tabs"
})
#endif
getTextTruncateMultiline :: (MonadIO m, IsText o) => o -> m Bool
getTextTruncateMultiline :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Bool
getTextTruncateMultiline o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"truncate-multiline"
setTextTruncateMultiline :: (MonadIO m, IsText o) => o -> Bool -> m ()
setTextTruncateMultiline :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Bool -> m ()
setTextTruncateMultiline o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"truncate-multiline" Bool
val
constructTextTruncateMultiline :: (IsText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTextTruncateMultiline :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTextTruncateMultiline Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"truncate-multiline" Bool
val
#if defined(ENABLE_OVERLOADING)
data TextTruncateMultilinePropertyInfo
instance AttrInfo TextTruncateMultilinePropertyInfo where
type AttrAllowedOps TextTruncateMultilinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextTruncateMultilinePropertyInfo = IsText
type AttrSetTypeConstraint TextTruncateMultilinePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TextTruncateMultilinePropertyInfo = (~) Bool
type AttrTransferType TextTruncateMultilinePropertyInfo = Bool
type AttrGetType TextTruncateMultilinePropertyInfo = Bool
type AttrLabel TextTruncateMultilinePropertyInfo = "truncate-multiline"
type AttrOrigin TextTruncateMultilinePropertyInfo = Text
attrGet = getTextTruncateMultiline
attrSet = setTextTruncateMultiline
attrTransfer _ v = do
return v
attrConstruct = constructTextTruncateMultiline
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.truncateMultiline"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:attr:truncateMultiline"
})
#endif
getTextVisibility :: (MonadIO m, IsText o) => o -> m Bool
getTextVisibility :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> m Bool
getTextVisibility o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"visibility"
setTextVisibility :: (MonadIO m, IsText o) => o -> Bool -> m ()
setTextVisibility :: forall (m :: * -> *) o. (MonadIO m, IsText o) => o -> Bool -> m ()
setTextVisibility o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"visibility" Bool
val
constructTextVisibility :: (IsText o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTextVisibility :: forall o (m :: * -> *).
(IsText o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTextVisibility Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"visibility" Bool
val
#if defined(ENABLE_OVERLOADING)
data TextVisibilityPropertyInfo
instance AttrInfo TextVisibilityPropertyInfo where
type AttrAllowedOps TextVisibilityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TextVisibilityPropertyInfo = IsText
type AttrSetTypeConstraint TextVisibilityPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TextVisibilityPropertyInfo = (~) Bool
type AttrTransferType TextVisibilityPropertyInfo = Bool
type AttrGetType TextVisibilityPropertyInfo = Bool
type AttrLabel TextVisibilityPropertyInfo = "visibility"
type AttrOrigin TextVisibilityPropertyInfo = Text
attrGet = getTextVisibility
attrSet = setTextVisibility
attrTransfer _ v = do
return v
attrConstruct = constructTextVisibility
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.visibility"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#g:attr:visibility"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Text
type instance O.AttributeList Text = TextAttributeList
type TextAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("activatesDefault", TextActivatesDefaultPropertyInfo), '("attributes", TextAttributesPropertyInfo), '("buffer", TextBufferPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("cursorPosition", Gtk.Editable.EditableCursorPositionPropertyInfo), '("editable", Gtk.Editable.EditableEditablePropertyInfo), '("enableEmojiCompletion", TextEnableEmojiCompletionPropertyInfo), '("enableUndo", Gtk.Editable.EditableEnableUndoPropertyInfo), '("extraMenu", TextExtraMenuPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("imModule", TextImModulePropertyInfo), '("inputHints", TextInputHintsPropertyInfo), '("inputPurpose", TextInputPurposePropertyInfo), '("invisibleChar", TextInvisibleCharPropertyInfo), '("invisibleCharSet", TextInvisibleCharSetPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("maxLength", TextMaxLengthPropertyInfo), '("maxWidthChars", Gtk.Editable.EditableMaxWidthCharsPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("overwriteMode", TextOverwriteModePropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("placeholderText", TextPlaceholderTextPropertyInfo), '("propagateTextWidth", TextPropagateTextWidthPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("scrollOffset", TextScrollOffsetPropertyInfo), '("selectionBound", Gtk.Editable.EditableSelectionBoundPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("tabs", TextTabsPropertyInfo), '("text", Gtk.Editable.EditableTextPropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("truncateMultiline", TextTruncateMultilinePropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visibility", TextVisibilityPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthChars", Gtk.Editable.EditableWidthCharsPropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("xalign", Gtk.Editable.EditableXalignPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
textActivatesDefault :: AttrLabelProxy "activatesDefault"
textActivatesDefault = AttrLabelProxy
textAttributes :: AttrLabelProxy "attributes"
textAttributes = AttrLabelProxy
textBuffer :: AttrLabelProxy "buffer"
textBuffer = AttrLabelProxy
textEnableEmojiCompletion :: AttrLabelProxy "enableEmojiCompletion"
textEnableEmojiCompletion = AttrLabelProxy
textExtraMenu :: AttrLabelProxy "extraMenu"
textExtraMenu = AttrLabelProxy
textImModule :: AttrLabelProxy "imModule"
textImModule = AttrLabelProxy
textInputHints :: AttrLabelProxy "inputHints"
textInputHints = AttrLabelProxy
textInputPurpose :: AttrLabelProxy "inputPurpose"
textInputPurpose = AttrLabelProxy
textInvisibleChar :: AttrLabelProxy "invisibleChar"
textInvisibleChar = AttrLabelProxy
textInvisibleCharSet :: AttrLabelProxy "invisibleCharSet"
textInvisibleCharSet = AttrLabelProxy
textMaxLength :: AttrLabelProxy "maxLength"
textMaxLength = AttrLabelProxy
textOverwriteMode :: AttrLabelProxy "overwriteMode"
textOverwriteMode = AttrLabelProxy
textPlaceholderText :: AttrLabelProxy "placeholderText"
textPlaceholderText = AttrLabelProxy
textPropagateTextWidth :: AttrLabelProxy "propagateTextWidth"
textPropagateTextWidth = AttrLabelProxy
textScrollOffset :: AttrLabelProxy "scrollOffset"
textScrollOffset = AttrLabelProxy
textTabs :: AttrLabelProxy "tabs"
textTabs = AttrLabelProxy
textTruncateMultiline :: AttrLabelProxy "truncateMultiline"
textTruncateMultiline = AttrLabelProxy
textVisibility :: AttrLabelProxy "visibility"
textVisibility = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Text = TextSignalList
type TextSignalList = ('[ '("activate", TextActivateSignalInfo), '("backspace", TextBackspaceSignalInfo), '("changed", Gtk.Editable.EditableChangedSignalInfo), '("copyClipboard", TextCopyClipboardSignalInfo), '("cutClipboard", TextCutClipboardSignalInfo), '("deleteFromCursor", TextDeleteFromCursorSignalInfo), '("deleteText", Gtk.Editable.EditableDeleteTextSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("insertAtCursor", TextInsertAtCursorSignalInfo), '("insertEmoji", TextInsertEmojiSignalInfo), '("insertText", Gtk.Editable.EditableInsertTextSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveCursor", TextMoveCursorSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("pasteClipboard", TextPasteClipboardSignalInfo), '("preeditChanged", TextPreeditChangedSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("toggleOverwrite", TextToggleOverwriteSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_text_new" gtk_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 a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
result <- IO (Ptr Text)
gtk_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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_text_new_with_buffer" gtk_text_new_with_buffer ::
Ptr Gtk.EntryBuffer.EntryBuffer ->
IO (Ptr Text)
textNewWithBuffer ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.EntryBuffer.IsEntryBuffer a) =>
a
-> m Text
textNewWithBuffer :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsEntryBuffer a) =>
a -> m Text
textNewWithBuffer a
buffer = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr EntryBuffer
buffer' <- a -> IO (Ptr EntryBuffer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr Text
result <- Ptr EntryBuffer -> IO (Ptr Text)
gtk_text_new_with_buffer Ptr EntryBuffer
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_text_compute_cursor_extents" gtk_text_compute_cursor_extents ::
Ptr Text ->
Word64 ->
Ptr Graphene.Rect.Rect ->
Ptr Graphene.Rect.Rect ->
IO ()
textComputeCursorExtents ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Word64
-> m ((Graphene.Rect.Rect, Graphene.Rect.Rect))
textComputeCursorExtents :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Word64 -> m (Rect, Rect)
textComputeCursorExtents a
self Word64
position = IO (Rect, Rect) -> m (Rect, Rect)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Rect, Rect) -> m (Rect, Rect))
-> IO (Rect, Rect) -> m (Rect, 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
strong <- Int -> IO (Ptr Rect)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
16 :: IO (Ptr Graphene.Rect.Rect)
Ptr Rect
weak <- Int -> IO (Ptr Rect)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
16 :: IO (Ptr Graphene.Rect.Rect)
Ptr Text -> Word64 -> Ptr Rect -> Ptr Rect -> IO ()
gtk_text_compute_cursor_extents Ptr Text
self' Word64
position Ptr Rect
strong Ptr Rect
weak
Rect
strong' <- ((ManagedPtr Rect -> Rect) -> Ptr Rect -> IO Rect
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rect -> Rect
Graphene.Rect.Rect) Ptr Rect
strong
Rect
weak' <- ((ManagedPtr Rect -> Rect) -> Ptr Rect -> IO Rect
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rect -> Rect
Graphene.Rect.Rect) Ptr Rect
weak
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
(Rect, Rect) -> IO (Rect, Rect)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Rect
strong', Rect
weak')
#if defined(ENABLE_OVERLOADING)
data TextComputeCursorExtentsMethodInfo
instance (signature ~ (Word64 -> m ((Graphene.Rect.Rect, Graphene.Rect.Rect))), MonadIO m, IsText a) => O.OverloadedMethod TextComputeCursorExtentsMethodInfo a signature where
overloadedMethod = textComputeCursorExtents
instance O.OverloadedMethodInfo TextComputeCursorExtentsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textComputeCursorExtents",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textComputeCursorExtents"
})
#endif
foreign import ccall "gtk_text_get_activates_default" gtk_text_get_activates_default ::
Ptr Text ->
IO CInt
textGetActivatesDefault ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Bool
textGetActivatesDefault :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Bool
textGetActivatesDefault a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
gtk_text_get_activates_default 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextGetActivatesDefaultMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsText a) => O.OverloadedMethod TextGetActivatesDefaultMethodInfo a signature where
overloadedMethod = textGetActivatesDefault
instance O.OverloadedMethodInfo TextGetActivatesDefaultMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textGetActivatesDefault",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textGetActivatesDefault"
})
#endif
foreign import ccall "gtk_text_get_attributes" gtk_text_get_attributes ::
Ptr Text ->
IO (Ptr Pango.AttrList.AttrList)
textGetAttributes ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m (Maybe Pango.AttrList.AttrList)
textGetAttributes :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m (Maybe AttrList)
textGetAttributes a
self = IO (Maybe AttrList) -> m (Maybe AttrList)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe AttrList) -> m (Maybe AttrList))
-> IO (Maybe AttrList) -> m (Maybe 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)
gtk_text_get_attributes Ptr Text
self'
Maybe AttrList
maybeResult <- Ptr AttrList
-> (Ptr AttrList -> IO AttrList) -> IO (Maybe AttrList)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr AttrList
result ((Ptr AttrList -> IO AttrList) -> IO (Maybe AttrList))
-> (Ptr AttrList -> IO AttrList) -> IO (Maybe AttrList)
forall a b. (a -> b) -> a -> b
$ \Ptr AttrList
result' -> do
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'
AttrList -> IO AttrList
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return AttrList
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe AttrList -> IO (Maybe AttrList)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe AttrList
maybeResult
#if defined(ENABLE_OVERLOADING)
data TextGetAttributesMethodInfo
instance (signature ~ (m (Maybe 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.Gtk.Objects.Text.textGetAttributes",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textGetAttributes"
})
#endif
foreign import ccall "gtk_text_get_buffer" gtk_text_get_buffer ::
Ptr Text ->
IO (Ptr Gtk.EntryBuffer.EntryBuffer)
textGetBuffer ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Gtk.EntryBuffer.EntryBuffer
textGetBuffer :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m EntryBuffer
textGetBuffer a
self = IO EntryBuffer -> m EntryBuffer
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO EntryBuffer -> m EntryBuffer)
-> IO EntryBuffer -> m EntryBuffer
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 EntryBuffer
result <- Ptr Text -> IO (Ptr EntryBuffer)
gtk_text_get_buffer Ptr Text
self'
Text -> Ptr EntryBuffer -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textGetBuffer" Ptr EntryBuffer
result
EntryBuffer
result' <- ((ManagedPtr EntryBuffer -> EntryBuffer)
-> Ptr EntryBuffer -> IO EntryBuffer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr EntryBuffer -> EntryBuffer
Gtk.EntryBuffer.EntryBuffer) Ptr EntryBuffer
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
EntryBuffer -> IO EntryBuffer
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return EntryBuffer
result'
#if defined(ENABLE_OVERLOADING)
data TextGetBufferMethodInfo
instance (signature ~ (m Gtk.EntryBuffer.EntryBuffer), 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.Gtk.Objects.Text.textGetBuffer",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textGetBuffer"
})
#endif
foreign import ccall "gtk_text_get_enable_emoji_completion" gtk_text_get_enable_emoji_completion ::
Ptr Text ->
IO CInt
textGetEnableEmojiCompletion ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Bool
textGetEnableEmojiCompletion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Bool
textGetEnableEmojiCompletion a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
gtk_text_get_enable_emoji_completion 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextGetEnableEmojiCompletionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsText a) => O.OverloadedMethod TextGetEnableEmojiCompletionMethodInfo a signature where
overloadedMethod = textGetEnableEmojiCompletion
instance O.OverloadedMethodInfo TextGetEnableEmojiCompletionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textGetEnableEmojiCompletion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textGetEnableEmojiCompletion"
})
#endif
foreign import ccall "gtk_text_get_extra_menu" ::
Ptr Text ->
IO (Ptr Gio.MenuModel.MenuModel)
textGetExtraMenu ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m (Maybe Gio.MenuModel.MenuModel)
a
self = IO (Maybe MenuModel) -> m (Maybe MenuModel)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe MenuModel) -> m (Maybe MenuModel))
-> IO (Maybe MenuModel) -> m (Maybe MenuModel)
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 MenuModel
result <- Ptr Text -> IO (Ptr MenuModel)
gtk_text_get_extra_menu Ptr Text
self'
Maybe MenuModel
maybeResult <- Ptr MenuModel
-> (Ptr MenuModel -> IO MenuModel) -> IO (Maybe MenuModel)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr MenuModel
result ((Ptr MenuModel -> IO MenuModel) -> IO (Maybe MenuModel))
-> (Ptr MenuModel -> IO MenuModel) -> IO (Maybe MenuModel)
forall a b. (a -> b) -> a -> b
$ \Ptr MenuModel
result' -> do
MenuModel
result'' <- ((ManagedPtr MenuModel -> MenuModel)
-> Ptr MenuModel -> IO MenuModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr MenuModel -> MenuModel
Gio.MenuModel.MenuModel) Ptr MenuModel
result'
MenuModel -> IO MenuModel
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return MenuModel
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe MenuModel -> IO (Maybe MenuModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe MenuModel
maybeResult
#if defined(ENABLE_OVERLOADING)
data TextGetExtraMenuMethodInfo
instance (signature ~ (m (Maybe Gio.MenuModel.MenuModel)), MonadIO m, IsText a) => O.OverloadedMethod TextGetExtraMenuMethodInfo a signature where
overloadedMethod = textGetExtraMenu
instance O.OverloadedMethodInfo TextGetExtraMenuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textGetExtraMenu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textGetExtraMenu"
})
#endif
foreign import ccall "gtk_text_get_input_hints" gtk_text_get_input_hints ::
Ptr Text ->
IO CUInt
textGetInputHints ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m [Gtk.Flags.InputHints]
textGetInputHints :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m [InputHints]
textGetInputHints a
self = IO [InputHints] -> m [InputHints]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [InputHints] -> m [InputHints])
-> IO [InputHints] -> m [InputHints]
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
gtk_text_get_input_hints Ptr Text
self'
let result' :: [InputHints]
result' = CUInt -> [InputHints]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
[InputHints] -> IO [InputHints]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [InputHints]
result'
#if defined(ENABLE_OVERLOADING)
data TextGetInputHintsMethodInfo
instance (signature ~ (m [Gtk.Flags.InputHints]), MonadIO m, IsText a) => O.OverloadedMethod TextGetInputHintsMethodInfo a signature where
overloadedMethod = textGetInputHints
instance O.OverloadedMethodInfo TextGetInputHintsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textGetInputHints",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textGetInputHints"
})
#endif
foreign import ccall "gtk_text_get_input_purpose" gtk_text_get_input_purpose ::
Ptr Text ->
IO CUInt
textGetInputPurpose ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Gtk.Enums.InputPurpose
textGetInputPurpose :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m InputPurpose
textGetInputPurpose a
self = IO InputPurpose -> m InputPurpose
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO InputPurpose -> m InputPurpose)
-> IO InputPurpose -> m InputPurpose
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
gtk_text_get_input_purpose Ptr Text
self'
let result' :: InputPurpose
result' = (Int -> InputPurpose
forall a. Enum a => Int -> a
toEnum (Int -> InputPurpose) -> (CUInt -> Int) -> CUInt -> InputPurpose
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
InputPurpose -> IO InputPurpose
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return InputPurpose
result'
#if defined(ENABLE_OVERLOADING)
data TextGetInputPurposeMethodInfo
instance (signature ~ (m Gtk.Enums.InputPurpose), MonadIO m, IsText a) => O.OverloadedMethod TextGetInputPurposeMethodInfo a signature where
overloadedMethod = textGetInputPurpose
instance O.OverloadedMethodInfo TextGetInputPurposeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textGetInputPurpose",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textGetInputPurpose"
})
#endif
foreign import ccall "gtk_text_get_invisible_char" gtk_text_get_invisible_char ::
Ptr Text ->
IO CInt
textGetInvisibleChar ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Char
textGetInvisibleChar :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Char
textGetInvisibleChar a
self = IO Char -> m Char
forall a. IO a -> m a
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
gtk_text_get_invisible_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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Char
result'
#if defined(ENABLE_OVERLOADING)
data TextGetInvisibleCharMethodInfo
instance (signature ~ (m Char), MonadIO m, IsText a) => O.OverloadedMethod TextGetInvisibleCharMethodInfo a signature where
overloadedMethod = textGetInvisibleChar
instance O.OverloadedMethodInfo TextGetInvisibleCharMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textGetInvisibleChar",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textGetInvisibleChar"
})
#endif
foreign import ccall "gtk_text_get_max_length" gtk_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 a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
gtk_text_get_max_length Ptr Text
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Int32 -> IO Int32
forall a. a -> IO a
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.Gtk.Objects.Text.textGetMaxLength",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textGetMaxLength"
})
#endif
foreign import ccall "gtk_text_get_overwrite_mode" gtk_text_get_overwrite_mode ::
Ptr Text ->
IO CInt
textGetOverwriteMode ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Bool
textGetOverwriteMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Bool
textGetOverwriteMode a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
gtk_text_get_overwrite_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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextGetOverwriteModeMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsText a) => O.OverloadedMethod TextGetOverwriteModeMethodInfo a signature where
overloadedMethod = textGetOverwriteMode
instance O.OverloadedMethodInfo TextGetOverwriteModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textGetOverwriteMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textGetOverwriteMode"
})
#endif
foreign import ccall "gtk_text_get_placeholder_text" gtk_text_get_placeholder_text ::
Ptr Text ->
IO CString
textGetPlaceholderText ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m (Maybe T.Text)
textGetPlaceholderText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m (Maybe Text)
textGetPlaceholderText a
self = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe 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
gtk_text_get_placeholder_text Ptr Text
self'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data TextGetPlaceholderTextMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsText a) => O.OverloadedMethod TextGetPlaceholderTextMethodInfo a signature where
overloadedMethod = textGetPlaceholderText
instance O.OverloadedMethodInfo TextGetPlaceholderTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textGetPlaceholderText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textGetPlaceholderText"
})
#endif
foreign import ccall "gtk_text_get_propagate_text_width" gtk_text_get_propagate_text_width ::
Ptr Text ->
IO CInt
textGetPropagateTextWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Bool
textGetPropagateTextWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Bool
textGetPropagateTextWidth a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
gtk_text_get_propagate_text_width 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextGetPropagateTextWidthMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsText a) => O.OverloadedMethod TextGetPropagateTextWidthMethodInfo a signature where
overloadedMethod = textGetPropagateTextWidth
instance O.OverloadedMethodInfo TextGetPropagateTextWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textGetPropagateTextWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textGetPropagateTextWidth"
})
#endif
foreign import ccall "gtk_text_get_tabs" gtk_text_get_tabs ::
Ptr Text ->
IO (Ptr Pango.TabArray.TabArray)
textGetTabs ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m (Maybe Pango.TabArray.TabArray)
textGetTabs :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m (Maybe TabArray)
textGetTabs a
self = IO (Maybe TabArray) -> m (Maybe TabArray)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TabArray) -> m (Maybe TabArray))
-> IO (Maybe TabArray) -> m (Maybe TabArray)
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 TabArray
result <- Ptr Text -> IO (Ptr TabArray)
gtk_text_get_tabs Ptr Text
self'
Maybe TabArray
maybeResult <- Ptr TabArray
-> (Ptr TabArray -> IO TabArray) -> IO (Maybe TabArray)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TabArray
result ((Ptr TabArray -> IO TabArray) -> IO (Maybe TabArray))
-> (Ptr TabArray -> IO TabArray) -> IO (Maybe TabArray)
forall a b. (a -> b) -> a -> b
$ \Ptr TabArray
result' -> do
TabArray
result'' <- ((ManagedPtr TabArray -> TabArray) -> Ptr TabArray -> IO TabArray
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr TabArray -> TabArray
Pango.TabArray.TabArray) Ptr TabArray
result'
TabArray -> IO TabArray
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TabArray
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe TabArray -> IO (Maybe TabArray)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TabArray
maybeResult
#if defined(ENABLE_OVERLOADING)
data TextGetTabsMethodInfo
instance (signature ~ (m (Maybe Pango.TabArray.TabArray)), MonadIO m, IsText a) => O.OverloadedMethod TextGetTabsMethodInfo a signature where
overloadedMethod = textGetTabs
instance O.OverloadedMethodInfo TextGetTabsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textGetTabs",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textGetTabs"
})
#endif
foreign import ccall "gtk_text_get_text_length" gtk_text_get_text_length ::
Ptr Text ->
IO Word16
textGetTextLength ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Word16
textGetTextLength :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Word16
textGetTextLength a
self = IO Word16 -> m Word16
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word16 -> m Word16) -> IO Word16 -> m Word16
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
Word16
result <- Ptr Text -> IO Word16
gtk_text_get_text_length Ptr Text
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word16 -> IO Word16
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word16
result
#if defined(ENABLE_OVERLOADING)
data TextGetTextLengthMethodInfo
instance (signature ~ (m Word16), MonadIO m, IsText a) => O.OverloadedMethod TextGetTextLengthMethodInfo a signature where
overloadedMethod = textGetTextLength
instance O.OverloadedMethodInfo TextGetTextLengthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textGetTextLength",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textGetTextLength"
})
#endif
foreign import ccall "gtk_text_get_truncate_multiline" gtk_text_get_truncate_multiline ::
Ptr Text ->
IO CInt
textGetTruncateMultiline ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Bool
textGetTruncateMultiline :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Bool
textGetTruncateMultiline a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
gtk_text_get_truncate_multiline 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextGetTruncateMultilineMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsText a) => O.OverloadedMethod TextGetTruncateMultilineMethodInfo a signature where
overloadedMethod = textGetTruncateMultiline
instance O.OverloadedMethodInfo TextGetTruncateMultilineMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textGetTruncateMultiline",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textGetTruncateMultiline"
})
#endif
foreign import ccall "gtk_text_get_visibility" gtk_text_get_visibility ::
Ptr Text ->
IO CInt
textGetVisibility ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Bool
textGetVisibility :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Bool
textGetVisibility a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
gtk_text_get_visibility 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextGetVisibilityMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsText a) => O.OverloadedMethod TextGetVisibilityMethodInfo a signature where
overloadedMethod = textGetVisibility
instance O.OverloadedMethodInfo TextGetVisibilityMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textGetVisibility",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textGetVisibility"
})
#endif
foreign import ccall "gtk_text_grab_focus_without_selecting" gtk_text_grab_focus_without_selecting ::
Ptr Text ->
IO CInt
textGrabFocusWithoutSelecting ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m Bool
textGrabFocusWithoutSelecting :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m Bool
textGrabFocusWithoutSelecting a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
gtk_text_grab_focus_without_selecting 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextGrabFocusWithoutSelectingMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsText a) => O.OverloadedMethod TextGrabFocusWithoutSelectingMethodInfo a signature where
overloadedMethod = textGrabFocusWithoutSelecting
instance O.OverloadedMethodInfo TextGrabFocusWithoutSelectingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textGrabFocusWithoutSelecting",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textGrabFocusWithoutSelecting"
})
#endif
foreign import ccall "gtk_text_set_activates_default" gtk_text_set_activates_default ::
Ptr Text ->
CInt ->
IO ()
textSetActivatesDefault ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Bool
-> m ()
textSetActivatesDefault :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Bool -> m ()
textSetActivatesDefault a
self Bool
activates = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let activates' :: CInt
activates' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
activates
Ptr Text -> CInt -> IO ()
gtk_text_set_activates_default Ptr Text
self' CInt
activates'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetActivatesDefaultMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetActivatesDefaultMethodInfo a signature where
overloadedMethod = textSetActivatesDefault
instance O.OverloadedMethodInfo TextSetActivatesDefaultMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textSetActivatesDefault",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textSetActivatesDefault"
})
#endif
foreign import ccall "gtk_text_set_attributes" gtk_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 a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr AttrList
jAttrs'
Ptr Text -> Ptr AttrList -> IO ()
gtk_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 a. a -> IO a
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.Gtk.Objects.Text.textSetAttributes",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textSetAttributes"
})
#endif
foreign import ccall "gtk_text_set_buffer" gtk_text_set_buffer ::
Ptr Text ->
Ptr Gtk.EntryBuffer.EntryBuffer ->
IO ()
textSetBuffer ::
(B.CallStack.HasCallStack, MonadIO m, IsText a, Gtk.EntryBuffer.IsEntryBuffer b) =>
a
-> b
-> m ()
textSetBuffer :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsText a, IsEntryBuffer b) =>
a -> b -> m ()
textSetBuffer a
self b
buffer = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr EntryBuffer
buffer' <- b -> IO (Ptr EntryBuffer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
buffer
Ptr Text -> Ptr EntryBuffer -> IO ()
gtk_text_set_buffer Ptr Text
self' Ptr EntryBuffer
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetBufferMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsText a, Gtk.EntryBuffer.IsEntryBuffer b) => O.OverloadedMethod TextSetBufferMethodInfo a signature where
overloadedMethod = textSetBuffer
instance O.OverloadedMethodInfo TextSetBufferMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textSetBuffer",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textSetBuffer"
})
#endif
foreign import ccall "gtk_text_set_enable_emoji_completion" gtk_text_set_enable_emoji_completion ::
Ptr Text ->
CInt ->
IO ()
textSetEnableEmojiCompletion ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Bool
-> m ()
textSetEnableEmojiCompletion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Bool -> m ()
textSetEnableEmojiCompletion a
self Bool
enableEmojiCompletion = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let enableEmojiCompletion' :: CInt
enableEmojiCompletion' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
enableEmojiCompletion
Ptr Text -> CInt -> IO ()
gtk_text_set_enable_emoji_completion Ptr Text
self' CInt
enableEmojiCompletion'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetEnableEmojiCompletionMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetEnableEmojiCompletionMethodInfo a signature where
overloadedMethod = textSetEnableEmojiCompletion
instance O.OverloadedMethodInfo TextSetEnableEmojiCompletionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textSetEnableEmojiCompletion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textSetEnableEmojiCompletion"
})
#endif
foreign import ccall "gtk_text_set_extra_menu" ::
Ptr Text ->
Ptr Gio.MenuModel.MenuModel ->
IO ()
textSetExtraMenu ::
(B.CallStack.HasCallStack, MonadIO m, IsText a, Gio.MenuModel.IsMenuModel b) =>
a
-> Maybe (b)
-> m ()
a
self Maybe b
model = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr MenuModel
maybeModel <- case Maybe b
model of
Maybe b
Nothing -> Ptr MenuModel -> IO (Ptr MenuModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr MenuModel
forall a. Ptr a
nullPtr
Just b
jModel -> do
Ptr MenuModel
jModel' <- b -> IO (Ptr MenuModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jModel
Ptr MenuModel -> IO (Ptr MenuModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr MenuModel
jModel'
Ptr Text -> Ptr MenuModel -> IO ()
gtk_text_set_extra_menu Ptr Text
self' Ptr MenuModel
maybeModel
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
model b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetExtraMenuMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsText a, Gio.MenuModel.IsMenuModel b) => O.OverloadedMethod TextSetExtraMenuMethodInfo a signature where
overloadedMethod = textSetExtraMenu
instance O.OverloadedMethodInfo TextSetExtraMenuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textSetExtraMenu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textSetExtraMenu"
})
#endif
foreign import ccall "gtk_text_set_input_hints" gtk_text_set_input_hints ::
Ptr Text ->
CUInt ->
IO ()
textSetInputHints ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> [Gtk.Flags.InputHints]
-> m ()
textSetInputHints :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> [InputHints] -> m ()
textSetInputHints a
self [InputHints]
hints = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let hints' :: CUInt
hints' = [InputHints] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [InputHints]
hints
Ptr Text -> CUInt -> IO ()
gtk_text_set_input_hints Ptr Text
self' CUInt
hints'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetInputHintsMethodInfo
instance (signature ~ ([Gtk.Flags.InputHints] -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetInputHintsMethodInfo a signature where
overloadedMethod = textSetInputHints
instance O.OverloadedMethodInfo TextSetInputHintsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textSetInputHints",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textSetInputHints"
})
#endif
foreign import ccall "gtk_text_set_input_purpose" gtk_text_set_input_purpose ::
Ptr Text ->
CUInt ->
IO ()
textSetInputPurpose ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Gtk.Enums.InputPurpose
-> m ()
textSetInputPurpose :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> InputPurpose -> m ()
textSetInputPurpose a
self InputPurpose
purpose = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let purpose' :: CUInt
purpose' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (InputPurpose -> Int) -> InputPurpose -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. InputPurpose -> Int
forall a. Enum a => a -> Int
fromEnum) InputPurpose
purpose
Ptr Text -> CUInt -> IO ()
gtk_text_set_input_purpose Ptr Text
self' CUInt
purpose'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetInputPurposeMethodInfo
instance (signature ~ (Gtk.Enums.InputPurpose -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetInputPurposeMethodInfo a signature where
overloadedMethod = textSetInputPurpose
instance O.OverloadedMethodInfo TextSetInputPurposeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textSetInputPurpose",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textSetInputPurpose"
})
#endif
foreign import ccall "gtk_text_set_invisible_char" gtk_text_set_invisible_char ::
Ptr Text ->
CInt ->
IO ()
textSetInvisibleChar ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Char
-> m ()
textSetInvisibleChar :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Char -> m ()
textSetInvisibleChar a
self Char
ch = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let ch' :: CInt
ch' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Char -> Int) -> Char -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Char -> Int
SP.ord) Char
ch
Ptr Text -> CInt -> IO ()
gtk_text_set_invisible_char Ptr Text
self' CInt
ch'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetInvisibleCharMethodInfo
instance (signature ~ (Char -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetInvisibleCharMethodInfo a signature where
overloadedMethod = textSetInvisibleChar
instance O.OverloadedMethodInfo TextSetInvisibleCharMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textSetInvisibleChar",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textSetInvisibleChar"
})
#endif
foreign import ccall "gtk_text_set_max_length" gtk_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
length_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Text -> Int32 -> IO ()
gtk_text_set_max_length Ptr Text
self' Int32
length_
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
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.Gtk.Objects.Text.textSetMaxLength",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textSetMaxLength"
})
#endif
foreign import ccall "gtk_text_set_overwrite_mode" gtk_text_set_overwrite_mode ::
Ptr Text ->
CInt ->
IO ()
textSetOverwriteMode ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Bool
-> m ()
textSetOverwriteMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Bool -> m ()
textSetOverwriteMode a
self Bool
overwrite = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let overwrite' :: CInt
overwrite' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
overwrite
Ptr Text -> CInt -> IO ()
gtk_text_set_overwrite_mode Ptr Text
self' CInt
overwrite'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetOverwriteModeMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetOverwriteModeMethodInfo a signature where
overloadedMethod = textSetOverwriteMode
instance O.OverloadedMethodInfo TextSetOverwriteModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textSetOverwriteMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textSetOverwriteMode"
})
#endif
foreign import ccall "gtk_text_set_placeholder_text" gtk_text_set_placeholder_text ::
Ptr Text ->
CString ->
IO ()
textSetPlaceholderText ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Maybe (T.Text)
-> m ()
textSetPlaceholderText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Maybe Text -> m ()
textSetPlaceholderText a
self Maybe Text
text = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jText'
Ptr Text -> CString -> IO ()
gtk_text_set_placeholder_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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetPlaceholderTextMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetPlaceholderTextMethodInfo a signature where
overloadedMethod = textSetPlaceholderText
instance O.OverloadedMethodInfo TextSetPlaceholderTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textSetPlaceholderText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textSetPlaceholderText"
})
#endif
foreign import ccall "gtk_text_set_propagate_text_width" gtk_text_set_propagate_text_width ::
Ptr Text ->
CInt ->
IO ()
textSetPropagateTextWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Bool
-> m ()
textSetPropagateTextWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Bool -> m ()
textSetPropagateTextWidth a
self Bool
propagateTextWidth = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let propagateTextWidth' :: CInt
propagateTextWidth' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
propagateTextWidth
Ptr Text -> CInt -> IO ()
gtk_text_set_propagate_text_width Ptr Text
self' CInt
propagateTextWidth'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetPropagateTextWidthMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetPropagateTextWidthMethodInfo a signature where
overloadedMethod = textSetPropagateTextWidth
instance O.OverloadedMethodInfo TextSetPropagateTextWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textSetPropagateTextWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textSetPropagateTextWidth"
})
#endif
foreign import ccall "gtk_text_set_tabs" gtk_text_set_tabs ::
Ptr Text ->
Ptr Pango.TabArray.TabArray ->
IO ()
textSetTabs ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Maybe (Pango.TabArray.TabArray)
-> m ()
textSetTabs :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Maybe TabArray -> m ()
textSetTabs a
self Maybe TabArray
tabs = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TabArray
maybeTabs <- case Maybe TabArray
tabs of
Maybe TabArray
Nothing -> Ptr TabArray -> IO (Ptr TabArray)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TabArray
forall a. Ptr a
nullPtr
Just TabArray
jTabs -> do
Ptr TabArray
jTabs' <- TabArray -> IO (Ptr TabArray)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TabArray
jTabs
Ptr TabArray -> IO (Ptr TabArray)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TabArray
jTabs'
Ptr Text -> Ptr TabArray -> IO ()
gtk_text_set_tabs Ptr Text
self' Ptr TabArray
maybeTabs
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe TabArray -> (TabArray -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe TabArray
tabs TabArray -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetTabsMethodInfo
instance (signature ~ (Maybe (Pango.TabArray.TabArray) -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetTabsMethodInfo a signature where
overloadedMethod = textSetTabs
instance O.OverloadedMethodInfo TextSetTabsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textSetTabs",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textSetTabs"
})
#endif
foreign import ccall "gtk_text_set_truncate_multiline" gtk_text_set_truncate_multiline ::
Ptr Text ->
CInt ->
IO ()
textSetTruncateMultiline ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Bool
-> m ()
textSetTruncateMultiline :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Bool -> m ()
textSetTruncateMultiline a
self Bool
truncateMultiline = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let truncateMultiline' :: CInt
truncateMultiline' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
truncateMultiline
Ptr Text -> CInt -> IO ()
gtk_text_set_truncate_multiline Ptr Text
self' CInt
truncateMultiline'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetTruncateMultilineMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetTruncateMultilineMethodInfo a signature where
overloadedMethod = textSetTruncateMultiline
instance O.OverloadedMethodInfo TextSetTruncateMultilineMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textSetTruncateMultiline",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textSetTruncateMultiline"
})
#endif
foreign import ccall "gtk_text_set_visibility" gtk_text_set_visibility ::
Ptr Text ->
CInt ->
IO ()
textSetVisibility ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> Bool
-> m ()
textSetVisibility :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> Bool -> m ()
textSetVisibility a
self Bool
visible = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let visible' :: CInt
visible' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
visible
Ptr Text -> CInt -> IO ()
gtk_text_set_visibility Ptr Text
self' CInt
visible'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextSetVisibilityMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsText a) => O.OverloadedMethod TextSetVisibilityMethodInfo a signature where
overloadedMethod = textSetVisibility
instance O.OverloadedMethodInfo TextSetVisibilityMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textSetVisibility",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textSetVisibility"
})
#endif
foreign import ccall "gtk_text_unset_invisible_char" gtk_text_unset_invisible_char ::
Ptr Text ->
IO ()
textUnsetInvisibleChar ::
(B.CallStack.HasCallStack, MonadIO m, IsText a) =>
a
-> m ()
textUnsetInvisibleChar :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsText a) =>
a -> m ()
textUnsetInvisibleChar a
self = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Text
self' <- a -> IO (Ptr Text)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Text -> IO ()
gtk_text_unset_invisible_char Ptr Text
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TextUnsetInvisibleCharMethodInfo
instance (signature ~ (m ()), MonadIO m, IsText a) => O.OverloadedMethod TextUnsetInvisibleCharMethodInfo a signature where
overloadedMethod = textUnsetInvisibleChar
instance O.OverloadedMethodInfo TextUnsetInvisibleCharMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Text.textUnsetInvisibleChar",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Text.html#v:textUnsetInvisibleChar"
})
#endif