{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.HeaderBarAccessible
(
HeaderBarAccessible(..) ,
IsHeaderBarAccessible ,
toHeaderBarAccessible ,
#if defined(ENABLE_OVERLOADING)
ResolveHeaderBarAccessibleMethod ,
#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.Component as Atk.Component
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.ContainerAccessible as Gtk.ContainerAccessible
import {-# SOURCE #-} qualified GI.Gtk.Objects.WidgetAccessible as Gtk.WidgetAccessible
newtype = (SP.ManagedPtr HeaderBarAccessible)
deriving (HeaderBarAccessible -> HeaderBarAccessible -> Bool
(HeaderBarAccessible -> HeaderBarAccessible -> Bool)
-> (HeaderBarAccessible -> HeaderBarAccessible -> Bool)
-> Eq HeaderBarAccessible
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: HeaderBarAccessible -> HeaderBarAccessible -> Bool
== :: HeaderBarAccessible -> HeaderBarAccessible -> Bool
$c/= :: HeaderBarAccessible -> HeaderBarAccessible -> Bool
/= :: HeaderBarAccessible -> HeaderBarAccessible -> Bool
Eq)
instance SP.ManagedPtrNewtype HeaderBarAccessible where
toManagedPtr :: HeaderBarAccessible -> ManagedPtr HeaderBarAccessible
toManagedPtr (HeaderBarAccessible ManagedPtr HeaderBarAccessible
p) = ManagedPtr HeaderBarAccessible
p
foreign import ccall "gtk_header_bar_accessible_get_type"
:: IO B.Types.GType
instance B.Types.TypedObject HeaderBarAccessible where
glibType :: IO GType
glibType = IO GType
c_gtk_header_bar_accessible_get_type
instance B.Types.GObject HeaderBarAccessible
class (SP.GObject o, O.IsDescendantOf HeaderBarAccessible o) => o
instance (SP.GObject o, O.IsDescendantOf HeaderBarAccessible o) => IsHeaderBarAccessible o
instance O.HasParentTypes HeaderBarAccessible
type instance O.ParentTypes HeaderBarAccessible = '[Gtk.ContainerAccessible.ContainerAccessible, Gtk.WidgetAccessible.WidgetAccessible, Gtk.Accessible.Accessible, Atk.Object.Object, GObject.Object.Object, Atk.Component.Component]
toHeaderBarAccessible :: (MIO.MonadIO m, IsHeaderBarAccessible o) => o -> m HeaderBarAccessible
= IO HeaderBarAccessible -> m HeaderBarAccessible
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO HeaderBarAccessible -> m HeaderBarAccessible)
-> (o -> IO HeaderBarAccessible) -> o -> m HeaderBarAccessible
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr HeaderBarAccessible -> HeaderBarAccessible)
-> o -> IO HeaderBarAccessible
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr HeaderBarAccessible -> HeaderBarAccessible
HeaderBarAccessible
instance B.GValue.IsGValue (Maybe HeaderBarAccessible) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_header_bar_accessible_get_type
gvalueSet_ :: Ptr GValue -> Maybe HeaderBarAccessible -> IO ()
gvalueSet_ Ptr GValue
gv Maybe HeaderBarAccessible
P.Nothing = Ptr GValue -> Ptr HeaderBarAccessible -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr HeaderBarAccessible
forall a. Ptr a
FP.nullPtr :: FP.Ptr HeaderBarAccessible)
gvalueSet_ Ptr GValue
gv (P.Just HeaderBarAccessible
obj) = HeaderBarAccessible -> (Ptr HeaderBarAccessible -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr HeaderBarAccessible
obj (Ptr GValue -> Ptr HeaderBarAccessible -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe HeaderBarAccessible)
gvalueGet_ Ptr GValue
gv = do
Ptr HeaderBarAccessible
ptr <- Ptr GValue -> IO (Ptr HeaderBarAccessible)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr HeaderBarAccessible)
if Ptr HeaderBarAccessible
ptr Ptr HeaderBarAccessible -> Ptr HeaderBarAccessible -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr HeaderBarAccessible
forall a. Ptr a
FP.nullPtr
then HeaderBarAccessible -> Maybe HeaderBarAccessible
forall a. a -> Maybe a
P.Just (HeaderBarAccessible -> Maybe HeaderBarAccessible)
-> IO HeaderBarAccessible -> IO (Maybe HeaderBarAccessible)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr HeaderBarAccessible -> HeaderBarAccessible)
-> Ptr HeaderBarAccessible -> IO HeaderBarAccessible
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr HeaderBarAccessible -> HeaderBarAccessible
HeaderBarAccessible Ptr HeaderBarAccessible
ptr
else Maybe HeaderBarAccessible -> IO (Maybe HeaderBarAccessible)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe HeaderBarAccessible
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveHeaderBarAccessibleMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveHeaderBarAccessibleMethod "addRelationship" o = Atk.Object.ObjectAddRelationshipMethodInfo
ResolveHeaderBarAccessibleMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveHeaderBarAccessibleMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveHeaderBarAccessibleMethod "connectWidgetDestroyed" o = Gtk.Accessible.AccessibleConnectWidgetDestroyedMethodInfo
ResolveHeaderBarAccessibleMethod "contains" o = Atk.Component.ComponentContainsMethodInfo
ResolveHeaderBarAccessibleMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveHeaderBarAccessibleMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveHeaderBarAccessibleMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveHeaderBarAccessibleMethod "grabFocus" o = Atk.Component.ComponentGrabFocusMethodInfo
ResolveHeaderBarAccessibleMethod "initialize" o = Atk.Object.ObjectInitializeMethodInfo
ResolveHeaderBarAccessibleMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveHeaderBarAccessibleMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveHeaderBarAccessibleMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveHeaderBarAccessibleMethod "notifyStateChange" o = Atk.Object.ObjectNotifyStateChangeMethodInfo
ResolveHeaderBarAccessibleMethod "peekParent" o = Atk.Object.ObjectPeekParentMethodInfo
ResolveHeaderBarAccessibleMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveHeaderBarAccessibleMethod "refAccessibleAtPoint" o = Atk.Component.ComponentRefAccessibleAtPointMethodInfo
ResolveHeaderBarAccessibleMethod "refAccessibleChild" o = Atk.Object.ObjectRefAccessibleChildMethodInfo
ResolveHeaderBarAccessibleMethod "refRelationSet" o = Atk.Object.ObjectRefRelationSetMethodInfo
ResolveHeaderBarAccessibleMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveHeaderBarAccessibleMethod "refStateSet" o = Atk.Object.ObjectRefStateSetMethodInfo
ResolveHeaderBarAccessibleMethod "removeFocusHandler" o = Atk.Component.ComponentRemoveFocusHandlerMethodInfo
ResolveHeaderBarAccessibleMethod "removePropertyChangeHandler" o = Atk.Object.ObjectRemovePropertyChangeHandlerMethodInfo
ResolveHeaderBarAccessibleMethod "removeRelationship" o = Atk.Object.ObjectRemoveRelationshipMethodInfo
ResolveHeaderBarAccessibleMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveHeaderBarAccessibleMethod "scrollTo" o = Atk.Component.ComponentScrollToMethodInfo
ResolveHeaderBarAccessibleMethod "scrollToPoint" o = Atk.Component.ComponentScrollToPointMethodInfo
ResolveHeaderBarAccessibleMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveHeaderBarAccessibleMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveHeaderBarAccessibleMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveHeaderBarAccessibleMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveHeaderBarAccessibleMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveHeaderBarAccessibleMethod "getAccessibleId" o = Atk.Object.ObjectGetAccessibleIdMethodInfo
ResolveHeaderBarAccessibleMethod "getAlpha" o = Atk.Component.ComponentGetAlphaMethodInfo
ResolveHeaderBarAccessibleMethod "getAttributes" o = Atk.Object.ObjectGetAttributesMethodInfo
ResolveHeaderBarAccessibleMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveHeaderBarAccessibleMethod "getDescription" o = Atk.Object.ObjectGetDescriptionMethodInfo
ResolveHeaderBarAccessibleMethod "getExtents" o = Atk.Component.ComponentGetExtentsMethodInfo
ResolveHeaderBarAccessibleMethod "getIndexInParent" o = Atk.Object.ObjectGetIndexInParentMethodInfo
ResolveHeaderBarAccessibleMethod "getLayer" o = Atk.Object.ObjectGetLayerMethodInfo
ResolveHeaderBarAccessibleMethod "getMdiZorder" o = Atk.Object.ObjectGetMdiZorderMethodInfo
ResolveHeaderBarAccessibleMethod "getNAccessibleChildren" o = Atk.Object.ObjectGetNAccessibleChildrenMethodInfo
ResolveHeaderBarAccessibleMethod "getName" o = Atk.Object.ObjectGetNameMethodInfo
ResolveHeaderBarAccessibleMethod "getObjectLocale" o = Atk.Object.ObjectGetObjectLocaleMethodInfo
ResolveHeaderBarAccessibleMethod "getParent" o = Atk.Object.ObjectGetParentMethodInfo
ResolveHeaderBarAccessibleMethod "getPosition" o = Atk.Component.ComponentGetPositionMethodInfo
ResolveHeaderBarAccessibleMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveHeaderBarAccessibleMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveHeaderBarAccessibleMethod "getRole" o = Atk.Object.ObjectGetRoleMethodInfo
ResolveHeaderBarAccessibleMethod "getSize" o = Atk.Component.ComponentGetSizeMethodInfo
ResolveHeaderBarAccessibleMethod "getWidget" o = Gtk.Accessible.AccessibleGetWidgetMethodInfo
ResolveHeaderBarAccessibleMethod "setAccessibleId" o = Atk.Object.ObjectSetAccessibleIdMethodInfo
ResolveHeaderBarAccessibleMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveHeaderBarAccessibleMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveHeaderBarAccessibleMethod "setDescription" o = Atk.Object.ObjectSetDescriptionMethodInfo
ResolveHeaderBarAccessibleMethod "setExtents" o = Atk.Component.ComponentSetExtentsMethodInfo
ResolveHeaderBarAccessibleMethod "setName" o = Atk.Object.ObjectSetNameMethodInfo
ResolveHeaderBarAccessibleMethod "setParent" o = Atk.Object.ObjectSetParentMethodInfo
ResolveHeaderBarAccessibleMethod "setPosition" o = Atk.Component.ComponentSetPositionMethodInfo
ResolveHeaderBarAccessibleMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveHeaderBarAccessibleMethod "setRole" o = Atk.Object.ObjectSetRoleMethodInfo
ResolveHeaderBarAccessibleMethod "setSize" o = Atk.Component.ComponentSetSizeMethodInfo
ResolveHeaderBarAccessibleMethod "setWidget" o = Gtk.Accessible.AccessibleSetWidgetMethodInfo
ResolveHeaderBarAccessibleMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveHeaderBarAccessibleMethod t HeaderBarAccessible, O.OverloadedMethod info HeaderBarAccessible p) => OL.IsLabel t (HeaderBarAccessible -> 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 ~ ResolveHeaderBarAccessibleMethod t HeaderBarAccessible, O.OverloadedMethod info HeaderBarAccessible p, R.HasField t HeaderBarAccessible p) => R.HasField t HeaderBarAccessible p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveHeaderBarAccessibleMethod t HeaderBarAccessible, O.OverloadedMethodInfo info HeaderBarAccessible) => OL.IsLabel t (O.MethodProxy info HeaderBarAccessible) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList HeaderBarAccessible
type instance O.AttributeList HeaderBarAccessible = HeaderBarAccessibleAttributeList
type HeaderBarAccessibleAttributeList = ('[ '("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 HeaderBarAccessible = HeaderBarAccessibleSignalList
type HeaderBarAccessibleSignalList = ('[ '("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