{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Structs.FixedChild
(
FixedChild(..) ,
newZeroFixedChild ,
#if defined(ENABLE_OVERLOADING)
ResolveFixedChildMethod ,
#endif
clearFixedChildWidget ,
#if defined(ENABLE_OVERLOADING)
fixedChild_widget ,
#endif
getFixedChildWidget ,
setFixedChildWidget ,
#if defined(ENABLE_OVERLOADING)
fixedChild_x ,
#endif
getFixedChildX ,
setFixedChildX ,
#if defined(ENABLE_OVERLOADING)
fixedChild_y ,
#endif
getFixedChildY ,
setFixedChildY ,
) 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 {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype FixedChild = FixedChild (SP.ManagedPtr FixedChild)
deriving (FixedChild -> FixedChild -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FixedChild -> FixedChild -> Bool
$c/= :: FixedChild -> FixedChild -> Bool
== :: FixedChild -> FixedChild -> Bool
$c== :: FixedChild -> FixedChild -> Bool
Eq)
instance SP.ManagedPtrNewtype FixedChild where
toManagedPtr :: FixedChild -> ManagedPtr FixedChild
toManagedPtr (FixedChild ManagedPtr FixedChild
p) = ManagedPtr FixedChild
p
instance BoxedPtr FixedChild where
boxedPtrCopy :: FixedChild -> IO FixedChild
boxedPtrCopy = \FixedChild
p -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr FixedChild
p (forall a. (HasCallStack, CallocPtr a) => Int -> Ptr a -> IO (Ptr a)
copyBytes Int
16 forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.wrapPtr ManagedPtr FixedChild -> FixedChild
FixedChild)
boxedPtrFree :: FixedChild -> IO ()
boxedPtrFree = \FixedChild
x -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
SP.withManagedPtr FixedChild
x forall a. Ptr a -> IO ()
SP.freeMem
instance CallocPtr FixedChild where
boxedPtrCalloc :: IO (Ptr FixedChild)
boxedPtrCalloc = forall a. Int -> IO (Ptr a)
callocBytes Int
16
newZeroFixedChild :: MonadIO m => m FixedChild
newZeroFixedChild :: forall (m :: * -> *). MonadIO m => m FixedChild
newZeroFixedChild = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. CallocPtr a => IO (Ptr a)
boxedPtrCalloc forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr FixedChild -> FixedChild
FixedChild
instance tag ~ 'AttrSet => Constructible FixedChild tag where
new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr FixedChild -> FixedChild)
-> [AttrOp FixedChild tag] -> m FixedChild
new ManagedPtr FixedChild -> FixedChild
_ [AttrOp FixedChild tag]
attrs = do
FixedChild
o <- forall (m :: * -> *). MonadIO m => m FixedChild
newZeroFixedChild
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set FixedChild
o [AttrOp FixedChild tag]
attrs
forall (m :: * -> *) a. Monad m => a -> m a
return FixedChild
o
getFixedChildWidget :: MonadIO m => FixedChild -> m (Maybe Gtk.Widget.Widget)
getFixedChildWidget :: forall (m :: * -> *). MonadIO m => FixedChild -> m (Maybe Widget)
getFixedChildWidget FixedChild
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr FixedChild
s forall a b. (a -> b) -> a -> b
$ \Ptr FixedChild
ptr -> do
Ptr Widget
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr FixedChild
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) :: IO (Ptr Gtk.Widget.Widget)
Maybe Widget
result <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull Ptr Widget
val forall a b. (a -> b) -> a -> b
$ \Ptr Widget
val' -> do
Widget
val'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
val'
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
result
setFixedChildWidget :: MonadIO m => FixedChild -> Ptr Gtk.Widget.Widget -> m ()
setFixedChildWidget :: forall (m :: * -> *). MonadIO m => FixedChild -> Ptr Widget -> m ()
setFixedChildWidget FixedChild
s Ptr Widget
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr FixedChild
s forall a b. (a -> b) -> a -> b
$ \Ptr FixedChild
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr FixedChild
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (Ptr Widget
val :: Ptr Gtk.Widget.Widget)
clearFixedChildWidget :: MonadIO m => FixedChild -> m ()
clearFixedChildWidget :: forall (m :: * -> *). MonadIO m => FixedChild -> m ()
clearFixedChildWidget FixedChild
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr FixedChild
s forall a b. (a -> b) -> a -> b
$ \Ptr FixedChild
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr FixedChild
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (forall a. Ptr a
FP.nullPtr :: Ptr Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data FixedChildWidgetFieldInfo
instance AttrInfo FixedChildWidgetFieldInfo where
type AttrBaseTypeConstraint FixedChildWidgetFieldInfo = (~) FixedChild
type AttrAllowedOps FixedChildWidgetFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint FixedChildWidgetFieldInfo = (~) (Ptr Gtk.Widget.Widget)
type AttrTransferTypeConstraint FixedChildWidgetFieldInfo = (~)(Ptr Gtk.Widget.Widget)
type AttrTransferType FixedChildWidgetFieldInfo = (Ptr Gtk.Widget.Widget)
type AttrGetType FixedChildWidgetFieldInfo = Maybe Gtk.Widget.Widget
type AttrLabel FixedChildWidgetFieldInfo = "widget"
type AttrOrigin FixedChildWidgetFieldInfo = FixedChild
attrGet = getFixedChildWidget
attrSet = setFixedChildWidget
attrConstruct = undefined
attrClear = clearFixedChildWidget
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.FixedChild.widget"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-FixedChild.html#g:attr:widget"
})
fixedChild_widget :: AttrLabelProxy "widget"
fixedChild_widget = AttrLabelProxy
#endif
getFixedChildX :: MonadIO m => FixedChild -> m Int32
getFixedChildX :: forall (m :: * -> *). MonadIO m => FixedChild -> m Int32
getFixedChildX FixedChild
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr FixedChild
s forall a b. (a -> b) -> a -> b
$ \Ptr FixedChild
ptr -> do
Int32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr FixedChild
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) :: IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
val
setFixedChildX :: MonadIO m => FixedChild -> Int32 -> m ()
setFixedChildX :: forall (m :: * -> *). MonadIO m => FixedChild -> Int32 -> m ()
setFixedChildX FixedChild
s Int32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr FixedChild
s forall a b. (a -> b) -> a -> b
$ \Ptr FixedChild
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr FixedChild
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (Int32
val :: Int32)
#if defined(ENABLE_OVERLOADING)
data FixedChildXFieldInfo
instance AttrInfo FixedChildXFieldInfo where
type AttrBaseTypeConstraint FixedChildXFieldInfo = (~) FixedChild
type AttrAllowedOps FixedChildXFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint FixedChildXFieldInfo = (~) Int32
type AttrTransferTypeConstraint FixedChildXFieldInfo = (~)Int32
type AttrTransferType FixedChildXFieldInfo = Int32
type AttrGetType FixedChildXFieldInfo = Int32
type AttrLabel FixedChildXFieldInfo = "x"
type AttrOrigin FixedChildXFieldInfo = FixedChild
attrGet = getFixedChildX
attrSet = setFixedChildX
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.FixedChild.x"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-FixedChild.html#g:attr:x"
})
fixedChild_x :: AttrLabelProxy "x"
fixedChild_x = AttrLabelProxy
#endif
getFixedChildY :: MonadIO m => FixedChild -> m Int32
getFixedChildY :: forall (m :: * -> *). MonadIO m => FixedChild -> m Int32
getFixedChildY FixedChild
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr FixedChild
s forall a b. (a -> b) -> a -> b
$ \Ptr FixedChild
ptr -> do
Int32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr FixedChild
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12) :: IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
val
setFixedChildY :: MonadIO m => FixedChild -> Int32 -> m ()
setFixedChildY :: forall (m :: * -> *). MonadIO m => FixedChild -> Int32 -> m ()
setFixedChildY FixedChild
s Int32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr FixedChild
s forall a b. (a -> b) -> a -> b
$ \Ptr FixedChild
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr FixedChild
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12) (Int32
val :: Int32)
#if defined(ENABLE_OVERLOADING)
data FixedChildYFieldInfo
instance AttrInfo FixedChildYFieldInfo where
type AttrBaseTypeConstraint FixedChildYFieldInfo = (~) FixedChild
type AttrAllowedOps FixedChildYFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint FixedChildYFieldInfo = (~) Int32
type AttrTransferTypeConstraint FixedChildYFieldInfo = (~)Int32
type AttrTransferType FixedChildYFieldInfo = Int32
type AttrGetType FixedChildYFieldInfo = Int32
type AttrLabel FixedChildYFieldInfo = "y"
type AttrOrigin FixedChildYFieldInfo = FixedChild
attrGet = getFixedChildY
attrSet = setFixedChildY
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.FixedChild.y"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-FixedChild.html#g:attr:y"
})
fixedChild_y :: AttrLabelProxy "y"
fixedChild_y = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList FixedChild
type instance O.AttributeList FixedChild = FixedChildAttributeList
type FixedChildAttributeList = ('[ '("widget", FixedChildWidgetFieldInfo), '("x", FixedChildXFieldInfo), '("y", FixedChildYFieldInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveFixedChildMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveFixedChildMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveFixedChildMethod t FixedChild, O.OverloadedMethod info FixedChild p) => OL.IsLabel t (FixedChild -> 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 ~ ResolveFixedChildMethod t FixedChild, O.OverloadedMethod info FixedChild p, R.HasField t FixedChild p) => R.HasField t FixedChild p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveFixedChildMethod t FixedChild, O.OverloadedMethodInfo info FixedChild) => OL.IsLabel t (O.MethodProxy info FixedChild) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif