{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.TextAccessible
(
TextAccessible(..) ,
IsTextAccessible ,
toTextAccessible ,
noTextAccessible ,
#if defined(ENABLE_OVERLOADING)
ResolveTextAccessibleMethod ,
#endif
) 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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Atk.Interfaces.Action as Atk.Action
import qualified GI.Atk.Interfaces.Component as Atk.Component
import qualified GI.Atk.Interfaces.EditableText as Atk.EditableText
import qualified GI.Atk.Interfaces.Text as Atk.Text
import qualified GI.Atk.Objects.Object as Atk.Object
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Objects.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Objects.WidgetAccessible as Gtk.WidgetAccessible
newtype TextAccessible = TextAccessible (ManagedPtr TextAccessible)
deriving (TextAccessible -> TextAccessible -> Bool
(TextAccessible -> TextAccessible -> Bool)
-> (TextAccessible -> TextAccessible -> Bool) -> Eq TextAccessible
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TextAccessible -> TextAccessible -> Bool
$c/= :: TextAccessible -> TextAccessible -> Bool
== :: TextAccessible -> TextAccessible -> Bool
$c== :: TextAccessible -> TextAccessible -> Bool
Eq)
foreign import ccall "gtk_text_accessible_get_type"
c_gtk_text_accessible_get_type :: IO GType
instance GObject TextAccessible where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_text_accessible_get_type
instance B.GValue.IsGValue TextAccessible where
toGValue :: TextAccessible -> IO GValue
toGValue o :: TextAccessible
o = do
GType
gtype <- IO GType
c_gtk_text_accessible_get_type
TextAccessible -> (Ptr TextAccessible -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr TextAccessible
o (GType
-> (GValue -> Ptr TextAccessible -> IO ())
-> Ptr TextAccessible
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr TextAccessible -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO TextAccessible
fromGValue gv :: GValue
gv = do
Ptr TextAccessible
ptr <- GValue -> IO (Ptr TextAccessible)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr TextAccessible)
(ManagedPtr TextAccessible -> TextAccessible)
-> Ptr TextAccessible -> IO TextAccessible
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr TextAccessible -> TextAccessible
TextAccessible Ptr TextAccessible
ptr
class (GObject o, O.IsDescendantOf TextAccessible o) => IsTextAccessible o
instance (GObject o, O.IsDescendantOf TextAccessible o) => IsTextAccessible o
instance O.HasParentTypes TextAccessible
type instance O.ParentTypes TextAccessible = '[Gtk.WidgetAccessible.WidgetAccessible, Gtk.Accessible.Accessible, Atk.Object.Object, GObject.Object.Object, Atk.Action.Action, Atk.Component.Component, Atk.EditableText.EditableText, Atk.Text.Text]
toTextAccessible :: (MonadIO m, IsTextAccessible o) => o -> m TextAccessible
toTextAccessible :: o -> m TextAccessible
toTextAccessible = IO TextAccessible -> m TextAccessible
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TextAccessible -> m TextAccessible)
-> (o -> IO TextAccessible) -> o -> m TextAccessible
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr TextAccessible -> TextAccessible)
-> o -> IO TextAccessible
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr TextAccessible -> TextAccessible
TextAccessible
noTextAccessible :: Maybe TextAccessible
noTextAccessible :: Maybe TextAccessible
noTextAccessible = Maybe TextAccessible
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveTextAccessibleMethod (t :: Symbol) (o :: *) :: * where
ResolveTextAccessibleMethod "addRelationship" o = Atk.Object.ObjectAddRelationshipMethodInfo
ResolveTextAccessibleMethod "addSelection" o = Atk.Text.TextAddSelectionMethodInfo
ResolveTextAccessibleMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTextAccessibleMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTextAccessibleMethod "contains" o = Atk.Component.ComponentContainsMethodInfo
ResolveTextAccessibleMethod "copyText" o = Atk.EditableText.EditableTextCopyTextMethodInfo
ResolveTextAccessibleMethod "cutText" o = Atk.EditableText.EditableTextCutTextMethodInfo
ResolveTextAccessibleMethod "deleteText" o = Atk.EditableText.EditableTextDeleteTextMethodInfo
ResolveTextAccessibleMethod "doAction" o = Atk.Action.ActionDoActionMethodInfo
ResolveTextAccessibleMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTextAccessibleMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTextAccessibleMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTextAccessibleMethod "grabFocus" o = Atk.Component.ComponentGrabFocusMethodInfo
ResolveTextAccessibleMethod "initialize" o = Atk.Object.ObjectInitializeMethodInfo
ResolveTextAccessibleMethod "insertText" o = Atk.EditableText.EditableTextInsertTextMethodInfo
ResolveTextAccessibleMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTextAccessibleMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTextAccessibleMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTextAccessibleMethod "notifyStateChange" o = Atk.Object.ObjectNotifyStateChangeMethodInfo
ResolveTextAccessibleMethod "pasteText" o = Atk.EditableText.EditableTextPasteTextMethodInfo
ResolveTextAccessibleMethod "peekParent" o = Atk.Object.ObjectPeekParentMethodInfo
ResolveTextAccessibleMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTextAccessibleMethod "refAccessibleAtPoint" o = Atk.Component.ComponentRefAccessibleAtPointMethodInfo
ResolveTextAccessibleMethod "refAccessibleChild" o = Atk.Object.ObjectRefAccessibleChildMethodInfo
ResolveTextAccessibleMethod "refRelationSet" o = Atk.Object.ObjectRefRelationSetMethodInfo
ResolveTextAccessibleMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTextAccessibleMethod "refStateSet" o = Atk.Object.ObjectRefStateSetMethodInfo
ResolveTextAccessibleMethod "removeFocusHandler" o = Atk.Component.ComponentRemoveFocusHandlerMethodInfo
ResolveTextAccessibleMethod "removePropertyChangeHandler" o = Atk.Object.ObjectRemovePropertyChangeHandlerMethodInfo
ResolveTextAccessibleMethod "removeRelationship" o = Atk.Object.ObjectRemoveRelationshipMethodInfo
ResolveTextAccessibleMethod "removeSelection" o = Atk.Text.TextRemoveSelectionMethodInfo
ResolveTextAccessibleMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTextAccessibleMethod "scrollSubstringTo" o = Atk.Text.TextScrollSubstringToMethodInfo
ResolveTextAccessibleMethod "scrollSubstringToPoint" o = Atk.Text.TextScrollSubstringToPointMethodInfo
ResolveTextAccessibleMethod "scrollTo" o = Atk.Component.ComponentScrollToMethodInfo
ResolveTextAccessibleMethod "scrollToPoint" o = Atk.Component.ComponentScrollToPointMethodInfo
ResolveTextAccessibleMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTextAccessibleMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTextAccessibleMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTextAccessibleMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTextAccessibleMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTextAccessibleMethod "getAlpha" o = Atk.Component.ComponentGetAlphaMethodInfo
ResolveTextAccessibleMethod "getAttributes" o = Atk.Object.ObjectGetAttributesMethodInfo
ResolveTextAccessibleMethod "getBoundedRanges" o = Atk.Text.TextGetBoundedRangesMethodInfo
ResolveTextAccessibleMethod "getCaretOffset" o = Atk.Text.TextGetCaretOffsetMethodInfo
ResolveTextAccessibleMethod "getCharacterAtOffset" o = Atk.Text.TextGetCharacterAtOffsetMethodInfo
ResolveTextAccessibleMethod "getCharacterCount" o = Atk.Text.TextGetCharacterCountMethodInfo
ResolveTextAccessibleMethod "getCharacterExtents" o = Atk.Text.TextGetCharacterExtentsMethodInfo
ResolveTextAccessibleMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTextAccessibleMethod "getDefaultAttributes" o = Atk.Text.TextGetDefaultAttributesMethodInfo
ResolveTextAccessibleMethod "getDescription" o = Atk.Object.ObjectGetDescriptionMethodInfo
ResolveTextAccessibleMethod "getExtents" o = Atk.Component.ComponentGetExtentsMethodInfo
ResolveTextAccessibleMethod "getIndexInParent" o = Atk.Object.ObjectGetIndexInParentMethodInfo
ResolveTextAccessibleMethod "getKeybinding" o = Atk.Action.ActionGetKeybindingMethodInfo
ResolveTextAccessibleMethod "getLayer" o = Atk.Object.ObjectGetLayerMethodInfo
ResolveTextAccessibleMethod "getLocalizedName" o = Atk.Action.ActionGetLocalizedNameMethodInfo
ResolveTextAccessibleMethod "getMdiZorder" o = Atk.Object.ObjectGetMdiZorderMethodInfo
ResolveTextAccessibleMethod "getNAccessibleChildren" o = Atk.Object.ObjectGetNAccessibleChildrenMethodInfo
ResolveTextAccessibleMethod "getNActions" o = Atk.Action.ActionGetNActionsMethodInfo
ResolveTextAccessibleMethod "getNSelections" o = Atk.Text.TextGetNSelectionsMethodInfo
ResolveTextAccessibleMethod "getName" o = Atk.Object.ObjectGetNameMethodInfo
ResolveTextAccessibleMethod "getObjectLocale" o = Atk.Object.ObjectGetObjectLocaleMethodInfo
ResolveTextAccessibleMethod "getOffsetAtPoint" o = Atk.Text.TextGetOffsetAtPointMethodInfo
ResolveTextAccessibleMethod "getParent" o = Atk.Object.ObjectGetParentMethodInfo
ResolveTextAccessibleMethod "getPosition" o = Atk.Component.ComponentGetPositionMethodInfo
ResolveTextAccessibleMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTextAccessibleMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTextAccessibleMethod "getRangeExtents" o = Atk.Text.TextGetRangeExtentsMethodInfo
ResolveTextAccessibleMethod "getRole" o = Atk.Object.ObjectGetRoleMethodInfo
ResolveTextAccessibleMethod "getRunAttributes" o = Atk.Text.TextGetRunAttributesMethodInfo
ResolveTextAccessibleMethod "getSelection" o = Atk.Text.TextGetSelectionMethodInfo
ResolveTextAccessibleMethod "getSize" o = Atk.Component.ComponentGetSizeMethodInfo
ResolveTextAccessibleMethod "getStringAtOffset" o = Atk.Text.TextGetStringAtOffsetMethodInfo
ResolveTextAccessibleMethod "getText" o = Atk.Text.TextGetTextMethodInfo
ResolveTextAccessibleMethod "getTextAfterOffset" o = Atk.Text.TextGetTextAfterOffsetMethodInfo
ResolveTextAccessibleMethod "getTextAtOffset" o = Atk.Text.TextGetTextAtOffsetMethodInfo
ResolveTextAccessibleMethod "getTextBeforeOffset" o = Atk.Text.TextGetTextBeforeOffsetMethodInfo
ResolveTextAccessibleMethod "getWidget" o = Gtk.Accessible.AccessibleGetWidgetMethodInfo
ResolveTextAccessibleMethod "setCaretOffset" o = Atk.Text.TextSetCaretOffsetMethodInfo
ResolveTextAccessibleMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTextAccessibleMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveTextAccessibleMethod "setDescription" o = Atk.Object.ObjectSetDescriptionMethodInfo
ResolveTextAccessibleMethod "setExtents" o = Atk.Component.ComponentSetExtentsMethodInfo
ResolveTextAccessibleMethod "setName" o = Atk.Object.ObjectSetNameMethodInfo
ResolveTextAccessibleMethod "setParent" o = Atk.Object.ObjectSetParentMethodInfo
ResolveTextAccessibleMethod "setPosition" o = Atk.Component.ComponentSetPositionMethodInfo
ResolveTextAccessibleMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTextAccessibleMethod "setRole" o = Atk.Object.ObjectSetRoleMethodInfo
ResolveTextAccessibleMethod "setRunAttributes" o = Atk.EditableText.EditableTextSetRunAttributesMethodInfo
ResolveTextAccessibleMethod "setSelection" o = Atk.Text.TextSetSelectionMethodInfo
ResolveTextAccessibleMethod "setSize" o = Atk.Component.ComponentSetSizeMethodInfo
ResolveTextAccessibleMethod "setTextContents" o = Atk.EditableText.EditableTextSetTextContentsMethodInfo
ResolveTextAccessibleMethod "setWidget" o = Gtk.Accessible.AccessibleSetWidgetMethodInfo
ResolveTextAccessibleMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTextAccessibleMethod t TextAccessible, O.MethodInfo info TextAccessible p) => OL.IsLabel t (TextAccessible -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList TextAccessible
type instance O.AttributeList TextAccessible = TextAccessibleAttributeList
type TextAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.Object.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.Object.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.Object.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.Object.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.Object.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.Object.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.Object.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.Object.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.Object.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.Object.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.Object.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.Object.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.Object.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.Object.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.Object.ObjectAccessibleValuePropertyInfo), '("widget", Gtk.Accessible.AccessibleWidgetPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList TextAccessible = TextAccessibleSignalList
type TextAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.Object.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.Component.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.Object.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.Object.ObjectFocusEventSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("propertyChange", Atk.Object.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.Object.ObjectStateChangeSignalInfo), '("textAttributesChanged", Atk.Text.TextTextAttributesChangedSignalInfo), '("textCaretMoved", Atk.Text.TextTextCaretMovedSignalInfo), '("textChanged", Atk.Text.TextTextChangedSignalInfo), '("textInsert", Atk.Text.TextTextInsertSignalInfo), '("textRemove", Atk.Text.TextTextRemoveSignalInfo), '("textSelectionChanged", Atk.Text.TextTextSelectionChangedSignalInfo), '("visibleDataChanged", Atk.Object.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)])
#endif