{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.NotebookPageAccessible
(
NotebookPageAccessible(..) ,
IsNotebookPageAccessible ,
toNotebookPageAccessible ,
#if defined(ENABLE_OVERLOADING)
ResolveNotebookPageAccessibleMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
NotebookPageAccessibleInvalidateMethodInfo,
#endif
notebookPageAccessibleInvalidate ,
notebookPageAccessibleNew ,
) 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.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.Text as T
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 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.NotebookAccessible as Gtk.NotebookAccessible
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype NotebookPageAccessible = NotebookPageAccessible (SP.ManagedPtr NotebookPageAccessible)
deriving (NotebookPageAccessible -> NotebookPageAccessible -> Bool
(NotebookPageAccessible -> NotebookPageAccessible -> Bool)
-> (NotebookPageAccessible -> NotebookPageAccessible -> Bool)
-> Eq NotebookPageAccessible
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: NotebookPageAccessible -> NotebookPageAccessible -> Bool
$c/= :: NotebookPageAccessible -> NotebookPageAccessible -> Bool
== :: NotebookPageAccessible -> NotebookPageAccessible -> Bool
$c== :: NotebookPageAccessible -> NotebookPageAccessible -> Bool
Eq)
instance SP.ManagedPtrNewtype NotebookPageAccessible where
toManagedPtr :: NotebookPageAccessible -> ManagedPtr NotebookPageAccessible
toManagedPtr (NotebookPageAccessible ManagedPtr NotebookPageAccessible
p) = ManagedPtr NotebookPageAccessible
p
foreign import ccall "gtk_notebook_page_accessible_get_type"
c_gtk_notebook_page_accessible_get_type :: IO B.Types.GType
instance B.Types.TypedObject NotebookPageAccessible where
glibType :: IO GType
glibType = IO GType
c_gtk_notebook_page_accessible_get_type
instance B.Types.GObject NotebookPageAccessible
instance B.GValue.IsGValue NotebookPageAccessible where
toGValue :: NotebookPageAccessible -> IO GValue
toGValue NotebookPageAccessible
o = do
GType
gtype <- IO GType
c_gtk_notebook_page_accessible_get_type
NotebookPageAccessible
-> (Ptr NotebookPageAccessible -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr NotebookPageAccessible
o (GType
-> (GValue -> Ptr NotebookPageAccessible -> IO ())
-> Ptr NotebookPageAccessible
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr NotebookPageAccessible -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO NotebookPageAccessible
fromGValue GValue
gv = do
Ptr NotebookPageAccessible
ptr <- GValue -> IO (Ptr NotebookPageAccessible)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr NotebookPageAccessible)
(ManagedPtr NotebookPageAccessible -> NotebookPageAccessible)
-> Ptr NotebookPageAccessible -> IO NotebookPageAccessible
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr NotebookPageAccessible -> NotebookPageAccessible
NotebookPageAccessible Ptr NotebookPageAccessible
ptr
class (SP.GObject o, O.IsDescendantOf NotebookPageAccessible o) => IsNotebookPageAccessible o
instance (SP.GObject o, O.IsDescendantOf NotebookPageAccessible o) => IsNotebookPageAccessible o
instance O.HasParentTypes NotebookPageAccessible
type instance O.ParentTypes NotebookPageAccessible = '[Atk.Object.Object, GObject.Object.Object, Atk.Component.Component]
toNotebookPageAccessible :: (MonadIO m, IsNotebookPageAccessible o) => o -> m NotebookPageAccessible
toNotebookPageAccessible :: o -> m NotebookPageAccessible
toNotebookPageAccessible = IO NotebookPageAccessible -> m NotebookPageAccessible
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO NotebookPageAccessible -> m NotebookPageAccessible)
-> (o -> IO NotebookPageAccessible)
-> o
-> m NotebookPageAccessible
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr NotebookPageAccessible -> NotebookPageAccessible)
-> o -> IO NotebookPageAccessible
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr NotebookPageAccessible -> NotebookPageAccessible
NotebookPageAccessible
#if defined(ENABLE_OVERLOADING)
type family ResolveNotebookPageAccessibleMethod (t :: Symbol) (o :: *) :: * where
ResolveNotebookPageAccessibleMethod "addRelationship" o = Atk.Object.ObjectAddRelationshipMethodInfo
ResolveNotebookPageAccessibleMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveNotebookPageAccessibleMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveNotebookPageAccessibleMethod "contains" o = Atk.Component.ComponentContainsMethodInfo
ResolveNotebookPageAccessibleMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveNotebookPageAccessibleMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveNotebookPageAccessibleMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveNotebookPageAccessibleMethod "grabFocus" o = Atk.Component.ComponentGrabFocusMethodInfo
ResolveNotebookPageAccessibleMethod "initialize" o = Atk.Object.ObjectInitializeMethodInfo
ResolveNotebookPageAccessibleMethod "invalidate" o = NotebookPageAccessibleInvalidateMethodInfo
ResolveNotebookPageAccessibleMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveNotebookPageAccessibleMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveNotebookPageAccessibleMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveNotebookPageAccessibleMethod "notifyStateChange" o = Atk.Object.ObjectNotifyStateChangeMethodInfo
ResolveNotebookPageAccessibleMethod "peekParent" o = Atk.Object.ObjectPeekParentMethodInfo
ResolveNotebookPageAccessibleMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveNotebookPageAccessibleMethod "refAccessibleAtPoint" o = Atk.Component.ComponentRefAccessibleAtPointMethodInfo
ResolveNotebookPageAccessibleMethod "refAccessibleChild" o = Atk.Object.ObjectRefAccessibleChildMethodInfo
ResolveNotebookPageAccessibleMethod "refRelationSet" o = Atk.Object.ObjectRefRelationSetMethodInfo
ResolveNotebookPageAccessibleMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveNotebookPageAccessibleMethod "refStateSet" o = Atk.Object.ObjectRefStateSetMethodInfo
ResolveNotebookPageAccessibleMethod "removeFocusHandler" o = Atk.Component.ComponentRemoveFocusHandlerMethodInfo
ResolveNotebookPageAccessibleMethod "removePropertyChangeHandler" o = Atk.Object.ObjectRemovePropertyChangeHandlerMethodInfo
ResolveNotebookPageAccessibleMethod "removeRelationship" o = Atk.Object.ObjectRemoveRelationshipMethodInfo
ResolveNotebookPageAccessibleMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveNotebookPageAccessibleMethod "scrollTo" o = Atk.Component.ComponentScrollToMethodInfo
ResolveNotebookPageAccessibleMethod "scrollToPoint" o = Atk.Component.ComponentScrollToPointMethodInfo
ResolveNotebookPageAccessibleMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveNotebookPageAccessibleMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveNotebookPageAccessibleMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveNotebookPageAccessibleMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveNotebookPageAccessibleMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveNotebookPageAccessibleMethod "getAccessibleId" o = Atk.Object.ObjectGetAccessibleIdMethodInfo
ResolveNotebookPageAccessibleMethod "getAlpha" o = Atk.Component.ComponentGetAlphaMethodInfo
ResolveNotebookPageAccessibleMethod "getAttributes" o = Atk.Object.ObjectGetAttributesMethodInfo
ResolveNotebookPageAccessibleMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveNotebookPageAccessibleMethod "getDescription" o = Atk.Object.ObjectGetDescriptionMethodInfo
ResolveNotebookPageAccessibleMethod "getExtents" o = Atk.Component.ComponentGetExtentsMethodInfo
ResolveNotebookPageAccessibleMethod "getIndexInParent" o = Atk.Object.ObjectGetIndexInParentMethodInfo
ResolveNotebookPageAccessibleMethod "getLayer" o = Atk.Object.ObjectGetLayerMethodInfo
ResolveNotebookPageAccessibleMethod "getMdiZorder" o = Atk.Object.ObjectGetMdiZorderMethodInfo
ResolveNotebookPageAccessibleMethod "getNAccessibleChildren" o = Atk.Object.ObjectGetNAccessibleChildrenMethodInfo
ResolveNotebookPageAccessibleMethod "getName" o = Atk.Object.ObjectGetNameMethodInfo
ResolveNotebookPageAccessibleMethod "getObjectLocale" o = Atk.Object.ObjectGetObjectLocaleMethodInfo
ResolveNotebookPageAccessibleMethod "getParent" o = Atk.Object.ObjectGetParentMethodInfo
ResolveNotebookPageAccessibleMethod "getPosition" o = Atk.Component.ComponentGetPositionMethodInfo
ResolveNotebookPageAccessibleMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveNotebookPageAccessibleMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveNotebookPageAccessibleMethod "getRole" o = Atk.Object.ObjectGetRoleMethodInfo
ResolveNotebookPageAccessibleMethod "getSize" o = Atk.Component.ComponentGetSizeMethodInfo
ResolveNotebookPageAccessibleMethod "setAccessibleId" o = Atk.Object.ObjectSetAccessibleIdMethodInfo
ResolveNotebookPageAccessibleMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveNotebookPageAccessibleMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveNotebookPageAccessibleMethod "setDescription" o = Atk.Object.ObjectSetDescriptionMethodInfo
ResolveNotebookPageAccessibleMethod "setExtents" o = Atk.Component.ComponentSetExtentsMethodInfo
ResolveNotebookPageAccessibleMethod "setName" o = Atk.Object.ObjectSetNameMethodInfo
ResolveNotebookPageAccessibleMethod "setParent" o = Atk.Object.ObjectSetParentMethodInfo
ResolveNotebookPageAccessibleMethod "setPosition" o = Atk.Component.ComponentSetPositionMethodInfo
ResolveNotebookPageAccessibleMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveNotebookPageAccessibleMethod "setRole" o = Atk.Object.ObjectSetRoleMethodInfo
ResolveNotebookPageAccessibleMethod "setSize" o = Atk.Component.ComponentSetSizeMethodInfo
ResolveNotebookPageAccessibleMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveNotebookPageAccessibleMethod t NotebookPageAccessible, O.MethodInfo info NotebookPageAccessible p) => OL.IsLabel t (NotebookPageAccessible -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList NotebookPageAccessible
type instance O.AttributeList NotebookPageAccessible = NotebookPageAccessibleAttributeList
type NotebookPageAccessibleAttributeList = ('[ '("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)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList NotebookPageAccessible = NotebookPageAccessibleSignalList
type NotebookPageAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.Object.ObjectActiveDescendantChangedSignalInfo), '("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, *)])
#endif
foreign import ccall "gtk_notebook_page_accessible_new" gtk_notebook_page_accessible_new ::
Ptr Gtk.NotebookAccessible.NotebookAccessible ->
Ptr Gtk.Widget.Widget ->
IO (Ptr NotebookPageAccessible)
notebookPageAccessibleNew ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.NotebookAccessible.IsNotebookAccessible a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m NotebookPageAccessible
notebookPageAccessibleNew :: a -> b -> m NotebookPageAccessible
notebookPageAccessibleNew a
notebook b
child = IO NotebookPageAccessible -> m NotebookPageAccessible
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO NotebookPageAccessible -> m NotebookPageAccessible)
-> IO NotebookPageAccessible -> m NotebookPageAccessible
forall a b. (a -> b) -> a -> b
$ do
Ptr NotebookAccessible
notebook' <- a -> IO (Ptr NotebookAccessible)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
notebook
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr NotebookPageAccessible
result <- Ptr NotebookAccessible
-> Ptr Widget -> IO (Ptr NotebookPageAccessible)
gtk_notebook_page_accessible_new Ptr NotebookAccessible
notebook' Ptr Widget
child'
Text -> Ptr NotebookPageAccessible -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"notebookPageAccessibleNew" Ptr NotebookPageAccessible
result
NotebookPageAccessible
result' <- ((ManagedPtr NotebookPageAccessible -> NotebookPageAccessible)
-> Ptr NotebookPageAccessible -> IO NotebookPageAccessible
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr NotebookPageAccessible -> NotebookPageAccessible
NotebookPageAccessible) Ptr NotebookPageAccessible
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
notebook
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
NotebookPageAccessible -> IO NotebookPageAccessible
forall (m :: * -> *) a. Monad m => a -> m a
return NotebookPageAccessible
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_notebook_page_accessible_invalidate" gtk_notebook_page_accessible_invalidate ::
Ptr NotebookPageAccessible ->
IO ()
notebookPageAccessibleInvalidate ::
(B.CallStack.HasCallStack, MonadIO m, IsNotebookPageAccessible a) =>
a
-> m ()
notebookPageAccessibleInvalidate :: a -> m ()
notebookPageAccessibleInvalidate a
page = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr NotebookPageAccessible
page' <- a -> IO (Ptr NotebookPageAccessible)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
page
Ptr NotebookPageAccessible -> IO ()
gtk_notebook_page_accessible_invalidate Ptr NotebookPageAccessible
page'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
page
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NotebookPageAccessibleInvalidateMethodInfo
instance (signature ~ (m ()), MonadIO m, IsNotebookPageAccessible a) => O.MethodInfo NotebookPageAccessibleInvalidateMethodInfo a signature where
overloadedMethod = notebookPageAccessibleInvalidate
#endif