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