{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.LinkButtonAccessible
(
LinkButtonAccessible(..) ,
IsLinkButtonAccessible ,
toLinkButtonAccessible ,
#if defined(ENABLE_OVERLOADING)
ResolveLinkButtonAccessibleMethod ,
#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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.Atk.Interfaces.Action as Atk.Action
import qualified GI.Atk.Interfaces.Component as Atk.Component
import qualified GI.Atk.Interfaces.HyperlinkImpl as Atk.HyperlinkImpl
import qualified GI.Atk.Interfaces.Image as Atk.Image
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.ButtonAccessible as Gtk.ButtonAccessible
import {-# SOURCE #-} qualified GI.Gtk.Objects.ContainerAccessible as Gtk.ContainerAccessible
import {-# SOURCE #-} qualified GI.Gtk.Objects.WidgetAccessible as Gtk.WidgetAccessible
newtype LinkButtonAccessible = LinkButtonAccessible (SP.ManagedPtr LinkButtonAccessible)
deriving (LinkButtonAccessible -> LinkButtonAccessible -> Bool
(LinkButtonAccessible -> LinkButtonAccessible -> Bool)
-> (LinkButtonAccessible -> LinkButtonAccessible -> Bool)
-> Eq LinkButtonAccessible
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LinkButtonAccessible -> LinkButtonAccessible -> Bool
== :: LinkButtonAccessible -> LinkButtonAccessible -> Bool
$c/= :: LinkButtonAccessible -> LinkButtonAccessible -> Bool
/= :: LinkButtonAccessible -> LinkButtonAccessible -> Bool
Eq)
instance SP.ManagedPtrNewtype LinkButtonAccessible where
toManagedPtr :: LinkButtonAccessible -> ManagedPtr LinkButtonAccessible
toManagedPtr (LinkButtonAccessible ManagedPtr LinkButtonAccessible
p) = ManagedPtr LinkButtonAccessible
p
foreign import ccall "gtk_link_button_accessible_get_type"
c_gtk_link_button_accessible_get_type :: IO B.Types.GType
instance B.Types.TypedObject LinkButtonAccessible where
glibType :: IO GType
glibType = IO GType
c_gtk_link_button_accessible_get_type
instance B.Types.GObject LinkButtonAccessible
class (SP.GObject o, O.IsDescendantOf LinkButtonAccessible o) => IsLinkButtonAccessible o
instance (SP.GObject o, O.IsDescendantOf LinkButtonAccessible o) => IsLinkButtonAccessible o
instance O.HasParentTypes LinkButtonAccessible
type instance O.ParentTypes LinkButtonAccessible = '[Gtk.ButtonAccessible.ButtonAccessible, Gtk.ContainerAccessible.ContainerAccessible, Gtk.WidgetAccessible.WidgetAccessible, Gtk.Accessible.Accessible, Atk.Object.Object, GObject.Object.Object, Atk.Action.Action, Atk.Component.Component, Atk.HyperlinkImpl.HyperlinkImpl, Atk.Image.Image]
toLinkButtonAccessible :: (MIO.MonadIO m, IsLinkButtonAccessible o) => o -> m LinkButtonAccessible
toLinkButtonAccessible :: forall (m :: * -> *) o.
(MonadIO m, IsLinkButtonAccessible o) =>
o -> m LinkButtonAccessible
toLinkButtonAccessible = IO LinkButtonAccessible -> m LinkButtonAccessible
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO LinkButtonAccessible -> m LinkButtonAccessible)
-> (o -> IO LinkButtonAccessible) -> o -> m LinkButtonAccessible
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr LinkButtonAccessible -> LinkButtonAccessible)
-> o -> IO LinkButtonAccessible
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr LinkButtonAccessible -> LinkButtonAccessible
LinkButtonAccessible
instance B.GValue.IsGValue (Maybe LinkButtonAccessible) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_link_button_accessible_get_type
gvalueSet_ :: Ptr GValue -> Maybe LinkButtonAccessible -> IO ()
gvalueSet_ Ptr GValue
gv Maybe LinkButtonAccessible
P.Nothing = Ptr GValue -> Ptr LinkButtonAccessible -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr LinkButtonAccessible
forall a. Ptr a
FP.nullPtr :: FP.Ptr LinkButtonAccessible)
gvalueSet_ Ptr GValue
gv (P.Just LinkButtonAccessible
obj) = LinkButtonAccessible
-> (Ptr LinkButtonAccessible -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr LinkButtonAccessible
obj (Ptr GValue -> Ptr LinkButtonAccessible -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe LinkButtonAccessible)
gvalueGet_ Ptr GValue
gv = do
Ptr LinkButtonAccessible
ptr <- Ptr GValue -> IO (Ptr LinkButtonAccessible)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr LinkButtonAccessible)
if Ptr LinkButtonAccessible
ptr Ptr LinkButtonAccessible -> Ptr LinkButtonAccessible -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr LinkButtonAccessible
forall a. Ptr a
FP.nullPtr
then LinkButtonAccessible -> Maybe LinkButtonAccessible
forall a. a -> Maybe a
P.Just (LinkButtonAccessible -> Maybe LinkButtonAccessible)
-> IO LinkButtonAccessible -> IO (Maybe LinkButtonAccessible)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr LinkButtonAccessible -> LinkButtonAccessible)
-> Ptr LinkButtonAccessible -> IO LinkButtonAccessible
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr LinkButtonAccessible -> LinkButtonAccessible
LinkButtonAccessible Ptr LinkButtonAccessible
ptr
else Maybe LinkButtonAccessible -> IO (Maybe LinkButtonAccessible)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe LinkButtonAccessible
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveLinkButtonAccessibleMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveLinkButtonAccessibleMethod "addRelationship" o = Atk.Object.ObjectAddRelationshipMethodInfo
ResolveLinkButtonAccessibleMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveLinkButtonAccessibleMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveLinkButtonAccessibleMethod "connectWidgetDestroyed" o = Gtk.Accessible.AccessibleConnectWidgetDestroyedMethodInfo
ResolveLinkButtonAccessibleMethod "contains" o = Atk.Component.ComponentContainsMethodInfo
ResolveLinkButtonAccessibleMethod "doAction" o = Atk.Action.ActionDoActionMethodInfo
ResolveLinkButtonAccessibleMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveLinkButtonAccessibleMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveLinkButtonAccessibleMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveLinkButtonAccessibleMethod "grabFocus" o = Atk.Component.ComponentGrabFocusMethodInfo
ResolveLinkButtonAccessibleMethod "initialize" o = Atk.Object.ObjectInitializeMethodInfo
ResolveLinkButtonAccessibleMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveLinkButtonAccessibleMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveLinkButtonAccessibleMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveLinkButtonAccessibleMethod "notifyStateChange" o = Atk.Object.ObjectNotifyStateChangeMethodInfo
ResolveLinkButtonAccessibleMethod "peekParent" o = Atk.Object.ObjectPeekParentMethodInfo
ResolveLinkButtonAccessibleMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveLinkButtonAccessibleMethod "refAccessibleAtPoint" o = Atk.Component.ComponentRefAccessibleAtPointMethodInfo
ResolveLinkButtonAccessibleMethod "refAccessibleChild" o = Atk.Object.ObjectRefAccessibleChildMethodInfo
ResolveLinkButtonAccessibleMethod "refRelationSet" o = Atk.Object.ObjectRefRelationSetMethodInfo
ResolveLinkButtonAccessibleMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveLinkButtonAccessibleMethod "refStateSet" o = Atk.Object.ObjectRefStateSetMethodInfo
ResolveLinkButtonAccessibleMethod "removeFocusHandler" o = Atk.Component.ComponentRemoveFocusHandlerMethodInfo
ResolveLinkButtonAccessibleMethod "removePropertyChangeHandler" o = Atk.Object.ObjectRemovePropertyChangeHandlerMethodInfo
ResolveLinkButtonAccessibleMethod "removeRelationship" o = Atk.Object.ObjectRemoveRelationshipMethodInfo
ResolveLinkButtonAccessibleMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveLinkButtonAccessibleMethod "scrollTo" o = Atk.Component.ComponentScrollToMethodInfo
ResolveLinkButtonAccessibleMethod "scrollToPoint" o = Atk.Component.ComponentScrollToPointMethodInfo
ResolveLinkButtonAccessibleMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveLinkButtonAccessibleMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveLinkButtonAccessibleMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveLinkButtonAccessibleMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveLinkButtonAccessibleMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveLinkButtonAccessibleMethod "getAccessibleId" o = Atk.Object.ObjectGetAccessibleIdMethodInfo
ResolveLinkButtonAccessibleMethod "getAlpha" o = Atk.Component.ComponentGetAlphaMethodInfo
ResolveLinkButtonAccessibleMethod "getAttributes" o = Atk.Object.ObjectGetAttributesMethodInfo
ResolveLinkButtonAccessibleMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveLinkButtonAccessibleMethod "getDescription" o = Atk.Object.ObjectGetDescriptionMethodInfo
ResolveLinkButtonAccessibleMethod "getExtents" o = Atk.Component.ComponentGetExtentsMethodInfo
ResolveLinkButtonAccessibleMethod "getHyperlink" o = Atk.HyperlinkImpl.HyperlinkImplGetHyperlinkMethodInfo
ResolveLinkButtonAccessibleMethod "getImageDescription" o = Atk.Image.ImageGetImageDescriptionMethodInfo
ResolveLinkButtonAccessibleMethod "getImageLocale" o = Atk.Image.ImageGetImageLocaleMethodInfo
ResolveLinkButtonAccessibleMethod "getImagePosition" o = Atk.Image.ImageGetImagePositionMethodInfo
ResolveLinkButtonAccessibleMethod "getImageSize" o = Atk.Image.ImageGetImageSizeMethodInfo
ResolveLinkButtonAccessibleMethod "getIndexInParent" o = Atk.Object.ObjectGetIndexInParentMethodInfo
ResolveLinkButtonAccessibleMethod "getKeybinding" o = Atk.Action.ActionGetKeybindingMethodInfo
ResolveLinkButtonAccessibleMethod "getLayer" o = Atk.Object.ObjectGetLayerMethodInfo
ResolveLinkButtonAccessibleMethod "getLocalizedName" o = Atk.Action.ActionGetLocalizedNameMethodInfo
ResolveLinkButtonAccessibleMethod "getMdiZorder" o = Atk.Object.ObjectGetMdiZorderMethodInfo
ResolveLinkButtonAccessibleMethod "getNAccessibleChildren" o = Atk.Object.ObjectGetNAccessibleChildrenMethodInfo
ResolveLinkButtonAccessibleMethod "getNActions" o = Atk.Action.ActionGetNActionsMethodInfo
ResolveLinkButtonAccessibleMethod "getName" o = Atk.Object.ObjectGetNameMethodInfo
ResolveLinkButtonAccessibleMethod "getObjectLocale" o = Atk.Object.ObjectGetObjectLocaleMethodInfo
ResolveLinkButtonAccessibleMethod "getParent" o = Atk.Object.ObjectGetParentMethodInfo
ResolveLinkButtonAccessibleMethod "getPosition" o = Atk.Component.ComponentGetPositionMethodInfo
ResolveLinkButtonAccessibleMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveLinkButtonAccessibleMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveLinkButtonAccessibleMethod "getRole" o = Atk.Object.ObjectGetRoleMethodInfo
ResolveLinkButtonAccessibleMethod "getSize" o = Atk.Component.ComponentGetSizeMethodInfo
ResolveLinkButtonAccessibleMethod "getWidget" o = Gtk.Accessible.AccessibleGetWidgetMethodInfo
ResolveLinkButtonAccessibleMethod "setAccessibleId" o = Atk.Object.ObjectSetAccessibleIdMethodInfo
ResolveLinkButtonAccessibleMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveLinkButtonAccessibleMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveLinkButtonAccessibleMethod "setDescription" o = Atk.Object.ObjectSetDescriptionMethodInfo
ResolveLinkButtonAccessibleMethod "setExtents" o = Atk.Component.ComponentSetExtentsMethodInfo
ResolveLinkButtonAccessibleMethod "setImageDescription" o = Atk.Image.ImageSetImageDescriptionMethodInfo
ResolveLinkButtonAccessibleMethod "setName" o = Atk.Object.ObjectSetNameMethodInfo
ResolveLinkButtonAccessibleMethod "setParent" o = Atk.Object.ObjectSetParentMethodInfo
ResolveLinkButtonAccessibleMethod "setPosition" o = Atk.Component.ComponentSetPositionMethodInfo
ResolveLinkButtonAccessibleMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveLinkButtonAccessibleMethod "setRole" o = Atk.Object.ObjectSetRoleMethodInfo
ResolveLinkButtonAccessibleMethod "setSize" o = Atk.Component.ComponentSetSizeMethodInfo
ResolveLinkButtonAccessibleMethod "setWidget" o = Gtk.Accessible.AccessibleSetWidgetMethodInfo
ResolveLinkButtonAccessibleMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveLinkButtonAccessibleMethod t LinkButtonAccessible, O.OverloadedMethod info LinkButtonAccessible p) => OL.IsLabel t (LinkButtonAccessible -> 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 ~ ResolveLinkButtonAccessibleMethod t LinkButtonAccessible, O.OverloadedMethod info LinkButtonAccessible p, R.HasField t LinkButtonAccessible p) => R.HasField t LinkButtonAccessible p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveLinkButtonAccessibleMethod t LinkButtonAccessible, O.OverloadedMethodInfo info LinkButtonAccessible) => OL.IsLabel t (O.MethodProxy info LinkButtonAccessible) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList LinkButtonAccessible
type instance O.AttributeList LinkButtonAccessible = LinkButtonAccessibleAttributeList
type LinkButtonAccessibleAttributeList = ('[ '("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, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList LinkButtonAccessible = LinkButtonAccessibleSignalList
type LinkButtonAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.Object.ObjectActiveDescendantChangedSignalInfo), '("announcement", Atk.Object.ObjectAnnouncementSignalInfo), '("boundsChanged", Atk.Component.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.Object.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.Object.ObjectFocusEventSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("propertyChange", Atk.Object.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.Object.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.Object.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, DK.Type)])
#endif