{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.TextChildAnchor
(
TextChildAnchor(..) ,
IsTextChildAnchor ,
toTextChildAnchor ,
#if defined(ENABLE_OVERLOADING)
ResolveTextChildAnchorMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
TextChildAnchorGetDeletedMethodInfo ,
#endif
textChildAnchorGetDeleted ,
#if defined(ENABLE_OVERLOADING)
TextChildAnchorGetWidgetsMethodInfo ,
#endif
textChildAnchorGetWidgets ,
textChildAnchorNew ,
) 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.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype TextChildAnchor = TextChildAnchor (SP.ManagedPtr TextChildAnchor)
deriving (TextChildAnchor -> TextChildAnchor -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TextChildAnchor -> TextChildAnchor -> Bool
$c/= :: TextChildAnchor -> TextChildAnchor -> Bool
== :: TextChildAnchor -> TextChildAnchor -> Bool
$c== :: TextChildAnchor -> TextChildAnchor -> Bool
Eq)
instance SP.ManagedPtrNewtype TextChildAnchor where
toManagedPtr :: TextChildAnchor -> ManagedPtr TextChildAnchor
toManagedPtr (TextChildAnchor ManagedPtr TextChildAnchor
p) = ManagedPtr TextChildAnchor
p
foreign import ccall "gtk_text_child_anchor_get_type"
c_gtk_text_child_anchor_get_type :: IO B.Types.GType
instance B.Types.TypedObject TextChildAnchor where
glibType :: IO GType
glibType = IO GType
c_gtk_text_child_anchor_get_type
instance B.Types.GObject TextChildAnchor
class (SP.GObject o, O.IsDescendantOf TextChildAnchor o) => IsTextChildAnchor o
instance (SP.GObject o, O.IsDescendantOf TextChildAnchor o) => IsTextChildAnchor o
instance O.HasParentTypes TextChildAnchor
type instance O.ParentTypes TextChildAnchor = '[GObject.Object.Object]
toTextChildAnchor :: (MIO.MonadIO m, IsTextChildAnchor o) => o -> m TextChildAnchor
toTextChildAnchor :: forall (m :: * -> *) o.
(MonadIO m, IsTextChildAnchor o) =>
o -> m TextChildAnchor
toTextChildAnchor = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr TextChildAnchor -> TextChildAnchor
TextChildAnchor
instance B.GValue.IsGValue (Maybe TextChildAnchor) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_text_child_anchor_get_type
gvalueSet_ :: Ptr GValue -> Maybe TextChildAnchor -> IO ()
gvalueSet_ Ptr GValue
gv Maybe TextChildAnchor
P.Nothing = forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr TextChildAnchor)
gvalueSet_ Ptr GValue
gv (P.Just TextChildAnchor
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr TextChildAnchor
obj (forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe TextChildAnchor)
gvalueGet_ Ptr GValue
gv = do
Ptr TextChildAnchor
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr TextChildAnchor)
if Ptr TextChildAnchor
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr TextChildAnchor -> TextChildAnchor
TextChildAnchor Ptr TextChildAnchor
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveTextChildAnchorMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveTextChildAnchorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTextChildAnchorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTextChildAnchorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTextChildAnchorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTextChildAnchorMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTextChildAnchorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTextChildAnchorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTextChildAnchorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTextChildAnchorMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTextChildAnchorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTextChildAnchorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTextChildAnchorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTextChildAnchorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTextChildAnchorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTextChildAnchorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTextChildAnchorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTextChildAnchorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTextChildAnchorMethod "getDeleted" o = TextChildAnchorGetDeletedMethodInfo
ResolveTextChildAnchorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTextChildAnchorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTextChildAnchorMethod "getWidgets" o = TextChildAnchorGetWidgetsMethodInfo
ResolveTextChildAnchorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTextChildAnchorMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveTextChildAnchorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTextChildAnchorMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTextChildAnchorMethod t TextChildAnchor, O.OverloadedMethod info TextChildAnchor p) => OL.IsLabel t (TextChildAnchor -> 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 ~ ResolveTextChildAnchorMethod t TextChildAnchor, O.OverloadedMethod info TextChildAnchor p, R.HasField t TextChildAnchor p) => R.HasField t TextChildAnchor p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveTextChildAnchorMethod t TextChildAnchor, O.OverloadedMethodInfo info TextChildAnchor) => OL.IsLabel t (O.MethodProxy info TextChildAnchor) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList TextChildAnchor
type instance O.AttributeList TextChildAnchor = TextChildAnchorAttributeList
type TextChildAnchorAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList TextChildAnchor = TextChildAnchorSignalList
type TextChildAnchorSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_text_child_anchor_new" gtk_text_child_anchor_new ::
IO (Ptr TextChildAnchor)
textChildAnchorNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m TextChildAnchor
textChildAnchorNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
m TextChildAnchor
textChildAnchorNew = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextChildAnchor
result <- IO (Ptr TextChildAnchor)
gtk_text_child_anchor_new
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"textChildAnchorNew" Ptr TextChildAnchor
result
TextChildAnchor
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr TextChildAnchor -> TextChildAnchor
TextChildAnchor) Ptr TextChildAnchor
result
forall (m :: * -> *) a. Monad m => a -> m a
return TextChildAnchor
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_text_child_anchor_get_deleted" gtk_text_child_anchor_get_deleted ::
Ptr TextChildAnchor ->
IO CInt
textChildAnchorGetDeleted ::
(B.CallStack.HasCallStack, MonadIO m, IsTextChildAnchor a) =>
a
-> m Bool
textChildAnchorGetDeleted :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextChildAnchor a) =>
a -> m Bool
textChildAnchorGetDeleted a
anchor = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextChildAnchor
anchor' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
anchor
CInt
result <- Ptr TextChildAnchor -> IO CInt
gtk_text_child_anchor_get_deleted Ptr TextChildAnchor
anchor'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
anchor
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TextChildAnchorGetDeletedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTextChildAnchor a) => O.OverloadedMethod TextChildAnchorGetDeletedMethodInfo a signature where
overloadedMethod = textChildAnchorGetDeleted
instance O.OverloadedMethodInfo TextChildAnchorGetDeletedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextChildAnchor.textChildAnchorGetDeleted",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextChildAnchor.html#v:textChildAnchorGetDeleted"
})
#endif
foreign import ccall "gtk_text_child_anchor_get_widgets" gtk_text_child_anchor_get_widgets ::
Ptr TextChildAnchor ->
IO (Ptr (GList (Ptr Gtk.Widget.Widget)))
textChildAnchorGetWidgets ::
(B.CallStack.HasCallStack, MonadIO m, IsTextChildAnchor a) =>
a
-> m [Gtk.Widget.Widget]
textChildAnchorGetWidgets :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextChildAnchor a) =>
a -> m [Widget]
textChildAnchorGetWidgets a
anchor = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TextChildAnchor
anchor' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
anchor
Ptr (GList (Ptr Widget))
result <- Ptr TextChildAnchor -> IO (Ptr (GList (Ptr Widget)))
gtk_text_child_anchor_get_widgets Ptr TextChildAnchor
anchor'
[Ptr Widget]
result' <- forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr Widget))
result
[Widget]
result'' <- forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) [Ptr Widget]
result'
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr Widget))
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
anchor
forall (m :: * -> *) a. Monad m => a -> m a
return [Widget]
result''
#if defined(ENABLE_OVERLOADING)
data TextChildAnchorGetWidgetsMethodInfo
instance (signature ~ (m [Gtk.Widget.Widget]), MonadIO m, IsTextChildAnchor a) => O.OverloadedMethod TextChildAnchorGetWidgetsMethodInfo a signature where
overloadedMethod = textChildAnchorGetWidgets
instance O.OverloadedMethodInfo TextChildAnchorGetWidgetsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TextChildAnchor.textChildAnchorGetWidgets",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-TextChildAnchor.html#v:textChildAnchorGetWidgets"
})
#endif