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