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