{-# LANGUAGE TypeApplications #-}


-- | Copyright  : Will Thompson and Iñaki García Etxebarria
-- License    : LGPL-2.1
-- Maintainer : Iñaki García Etxebarria
-- 
-- @GtkLayoutChild@ subclass for children in a @GtkFixedLayout@.

#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif

module GI.Gtk.Objects.FixedLayoutChild
    ( 

-- * Exported types
    FixedLayoutChild(..)                    ,
    IsFixedLayoutChild                      ,
    toFixedLayoutChild                      ,


 -- * Methods
-- | 
-- 
--  === __Click to display all available methods, including inherited ones__
-- ==== Methods
-- [bindProperty]("GI.GObject.Objects.Object#g:method:bindProperty"), [bindPropertyFull]("GI.GObject.Objects.Object#g:method:bindPropertyFull"), [forceFloating]("GI.GObject.Objects.Object#g:method:forceFloating"), [freezeNotify]("GI.GObject.Objects.Object#g:method:freezeNotify"), [getv]("GI.GObject.Objects.Object#g:method:getv"), [isFloating]("GI.GObject.Objects.Object#g:method:isFloating"), [notify]("GI.GObject.Objects.Object#g:method:notify"), [notifyByPspec]("GI.GObject.Objects.Object#g:method:notifyByPspec"), [ref]("GI.GObject.Objects.Object#g:method:ref"), [refSink]("GI.GObject.Objects.Object#g:method:refSink"), [runDispose]("GI.GObject.Objects.Object#g:method:runDispose"), [stealData]("GI.GObject.Objects.Object#g:method:stealData"), [stealQdata]("GI.GObject.Objects.Object#g:method:stealQdata"), [thawNotify]("GI.GObject.Objects.Object#g:method:thawNotify"), [unref]("GI.GObject.Objects.Object#g:method:unref"), [watchClosure]("GI.GObject.Objects.Object#g:method:watchClosure").
-- 
-- ==== Getters
-- [getChildWidget]("GI.Gtk.Objects.LayoutChild#g:method:getChildWidget"), [getData]("GI.GObject.Objects.Object#g:method:getData"), [getLayoutManager]("GI.Gtk.Objects.LayoutChild#g:method:getLayoutManager"), [getProperty]("GI.GObject.Objects.Object#g:method:getProperty"), [getQdata]("GI.GObject.Objects.Object#g:method:getQdata"), [getTransform]("GI.Gtk.Objects.FixedLayoutChild#g:method:getTransform").
-- 
-- ==== Setters
-- [setData]("GI.GObject.Objects.Object#g:method:setData"), [setDataFull]("GI.GObject.Objects.Object#g:method:setDataFull"), [setProperty]("GI.GObject.Objects.Object#g:method:setProperty"), [setTransform]("GI.Gtk.Objects.FixedLayoutChild#g:method:setTransform").

#if defined(ENABLE_OVERLOADING)
    ResolveFixedLayoutChildMethod           ,
#endif

-- ** getTransform #method:getTransform#

#if defined(ENABLE_OVERLOADING)
    FixedLayoutChildGetTransformMethodInfo  ,
#endif
    fixedLayoutChildGetTransform            ,


-- ** setTransform #method:setTransform#

#if defined(ENABLE_OVERLOADING)
    FixedLayoutChildSetTransformMethodInfo  ,
#endif
    fixedLayoutChildSetTransform            ,




 -- * Properties


-- ** transform #attr:transform#
-- | The transform of the child.

#if defined(ENABLE_OVERLOADING)
    FixedLayoutChildTransformPropertyInfo   ,
#endif
    constructFixedLayoutChildTransform      ,
#if defined(ENABLE_OVERLOADING)
    fixedLayoutChildTransform               ,
#endif
    getFixedLayoutChildTransform            ,
    setFixedLayoutChildTransform            ,




    ) 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.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 qualified GI.Gsk.Structs.Transform as Gsk.Transform
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutChild as Gtk.LayoutChild

-- | Memory-managed wrapper type.
newtype FixedLayoutChild = FixedLayoutChild (SP.ManagedPtr FixedLayoutChild)
    deriving (FixedLayoutChild -> FixedLayoutChild -> Bool
(FixedLayoutChild -> FixedLayoutChild -> Bool)
-> (FixedLayoutChild -> FixedLayoutChild -> Bool)
-> Eq FixedLayoutChild
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: FixedLayoutChild -> FixedLayoutChild -> Bool
== :: FixedLayoutChild -> FixedLayoutChild -> Bool
$c/= :: FixedLayoutChild -> FixedLayoutChild -> Bool
/= :: FixedLayoutChild -> FixedLayoutChild -> Bool
Eq)

instance SP.ManagedPtrNewtype FixedLayoutChild where
    toManagedPtr :: FixedLayoutChild -> ManagedPtr FixedLayoutChild
toManagedPtr (FixedLayoutChild ManagedPtr FixedLayoutChild
p) = ManagedPtr FixedLayoutChild
p

foreign import ccall "gtk_fixed_layout_child_get_type"
    c_gtk_fixed_layout_child_get_type :: IO B.Types.GType

instance B.Types.TypedObject FixedLayoutChild where
    glibType :: IO GType
glibType = IO GType
c_gtk_fixed_layout_child_get_type

instance B.Types.GObject FixedLayoutChild

-- | Type class for types which can be safely cast to `FixedLayoutChild`, for instance with `toFixedLayoutChild`.
class (SP.GObject o, O.IsDescendantOf FixedLayoutChild o) => IsFixedLayoutChild o
instance (SP.GObject o, O.IsDescendantOf FixedLayoutChild o) => IsFixedLayoutChild o

instance O.HasParentTypes FixedLayoutChild
type instance O.ParentTypes FixedLayoutChild = '[Gtk.LayoutChild.LayoutChild, GObject.Object.Object]

-- | Cast to `FixedLayoutChild`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.
toFixedLayoutChild :: (MIO.MonadIO m, IsFixedLayoutChild o) => o -> m FixedLayoutChild
toFixedLayoutChild :: forall (m :: * -> *) o.
(MonadIO m, IsFixedLayoutChild o) =>
o -> m FixedLayoutChild
toFixedLayoutChild = IO FixedLayoutChild -> m FixedLayoutChild
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO FixedLayoutChild -> m FixedLayoutChild)
-> (o -> IO FixedLayoutChild) -> o -> m FixedLayoutChild
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr FixedLayoutChild -> FixedLayoutChild)
-> o -> IO FixedLayoutChild
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
 ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr FixedLayoutChild -> FixedLayoutChild
FixedLayoutChild

-- | Convert 'FixedLayoutChild' to and from 'Data.GI.Base.GValue.GValue'. See 'Data.GI.Base.GValue.toGValue' and 'Data.GI.Base.GValue.fromGValue'.
instance B.GValue.IsGValue (Maybe FixedLayoutChild) where
    gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_fixed_layout_child_get_type
    gvalueSet_ :: Ptr GValue -> Maybe FixedLayoutChild -> IO ()
gvalueSet_ Ptr GValue
gv Maybe FixedLayoutChild
P.Nothing = Ptr GValue -> Ptr FixedLayoutChild -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr FixedLayoutChild
forall a. Ptr a
FP.nullPtr :: FP.Ptr FixedLayoutChild)
    gvalueSet_ Ptr GValue
gv (P.Just FixedLayoutChild
obj) = FixedLayoutChild -> (Ptr FixedLayoutChild -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr FixedLayoutChild
obj (Ptr GValue -> Ptr FixedLayoutChild -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
    gvalueGet_ :: Ptr GValue -> IO (Maybe FixedLayoutChild)
gvalueGet_ Ptr GValue
gv = do
        Ptr FixedLayoutChild
ptr <- Ptr GValue -> IO (Ptr FixedLayoutChild)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr FixedLayoutChild)
        if Ptr FixedLayoutChild
ptr Ptr FixedLayoutChild -> Ptr FixedLayoutChild -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr FixedLayoutChild
forall a. Ptr a
FP.nullPtr
        then FixedLayoutChild -> Maybe FixedLayoutChild
forall a. a -> Maybe a
P.Just (FixedLayoutChild -> Maybe FixedLayoutChild)
-> IO FixedLayoutChild -> IO (Maybe FixedLayoutChild)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr FixedLayoutChild -> FixedLayoutChild)
-> Ptr FixedLayoutChild -> IO FixedLayoutChild
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr FixedLayoutChild -> FixedLayoutChild
FixedLayoutChild Ptr FixedLayoutChild
ptr
        else Maybe FixedLayoutChild -> IO (Maybe FixedLayoutChild)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe FixedLayoutChild
forall a. Maybe a
P.Nothing
        
    

#if defined(ENABLE_OVERLOADING)
type family ResolveFixedLayoutChildMethod (t :: Symbol) (o :: *) :: * where
    ResolveFixedLayoutChildMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
    ResolveFixedLayoutChildMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
    ResolveFixedLayoutChildMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
    ResolveFixedLayoutChildMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
    ResolveFixedLayoutChildMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
    ResolveFixedLayoutChildMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
    ResolveFixedLayoutChildMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
    ResolveFixedLayoutChildMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
    ResolveFixedLayoutChildMethod "ref" o = GObject.Object.ObjectRefMethodInfo
    ResolveFixedLayoutChildMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
    ResolveFixedLayoutChildMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
    ResolveFixedLayoutChildMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
    ResolveFixedLayoutChildMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
    ResolveFixedLayoutChildMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
    ResolveFixedLayoutChildMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
    ResolveFixedLayoutChildMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
    ResolveFixedLayoutChildMethod "getChildWidget" o = Gtk.LayoutChild.LayoutChildGetChildWidgetMethodInfo
    ResolveFixedLayoutChildMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
    ResolveFixedLayoutChildMethod "getLayoutManager" o = Gtk.LayoutChild.LayoutChildGetLayoutManagerMethodInfo
    ResolveFixedLayoutChildMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
    ResolveFixedLayoutChildMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
    ResolveFixedLayoutChildMethod "getTransform" o = FixedLayoutChildGetTransformMethodInfo
    ResolveFixedLayoutChildMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
    ResolveFixedLayoutChildMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
    ResolveFixedLayoutChildMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
    ResolveFixedLayoutChildMethod "setTransform" o = FixedLayoutChildSetTransformMethodInfo
    ResolveFixedLayoutChildMethod l o = O.MethodResolutionFailed l o

instance (info ~ ResolveFixedLayoutChildMethod t FixedLayoutChild, O.OverloadedMethod info FixedLayoutChild p) => OL.IsLabel t (FixedLayoutChild -> 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 ~ ResolveFixedLayoutChildMethod t FixedLayoutChild, O.OverloadedMethod info FixedLayoutChild p, R.HasField t FixedLayoutChild p) => R.HasField t FixedLayoutChild p where
    getField = O.overloadedMethod @info

#endif

instance (info ~ ResolveFixedLayoutChildMethod t FixedLayoutChild, O.OverloadedMethodInfo info FixedLayoutChild) => OL.IsLabel t (O.MethodProxy info FixedLayoutChild) where
#if MIN_VERSION_base(4,10,0)
    fromLabel = O.MethodProxy
#else
    fromLabel _ = O.MethodProxy
#endif

#endif

-- VVV Prop "transform"
   -- Type: TInterface (Name {namespace = "Gsk", name = "Transform"})
   -- Flags: [PropertyReadable,PropertyWritable]
   -- Nullable: (Just True,Just False)

-- | Get the value of the “@transform@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' fixedLayoutChild #transform
-- @
getFixedLayoutChildTransform :: (MonadIO m, IsFixedLayoutChild o) => o -> m (Maybe Gsk.Transform.Transform)
getFixedLayoutChildTransform :: forall (m :: * -> *) o.
(MonadIO m, IsFixedLayoutChild o) =>
o -> m (Maybe Transform)
getFixedLayoutChildTransform o
obj = IO (Maybe Transform) -> m (Maybe Transform)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Transform) -> m (Maybe Transform))
-> IO (Maybe Transform) -> m (Maybe Transform)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr Transform -> Transform)
-> IO (Maybe Transform)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"transform" ManagedPtr Transform -> Transform
Gsk.Transform.Transform

-- | Set the value of the “@transform@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' fixedLayoutChild [ #transform 'Data.GI.Base.Attributes.:=' value ]
-- @
setFixedLayoutChildTransform :: (MonadIO m, IsFixedLayoutChild o) => o -> Gsk.Transform.Transform -> m ()
setFixedLayoutChildTransform :: forall (m :: * -> *) o.
(MonadIO m, IsFixedLayoutChild o) =>
o -> Transform -> m ()
setFixedLayoutChildTransform o
obj Transform
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    o -> String -> Maybe Transform -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"transform" (Transform -> Maybe Transform
forall a. a -> Maybe a
Just Transform
val)

-- | Construct a `GValueConstruct` with valid value for the “@transform@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
constructFixedLayoutChildTransform :: (IsFixedLayoutChild o, MIO.MonadIO m) => Gsk.Transform.Transform -> m (GValueConstruct o)
constructFixedLayoutChildTransform :: forall o (m :: * -> *).
(IsFixedLayoutChild o, MonadIO m) =>
Transform -> m (GValueConstruct o)
constructFixedLayoutChildTransform Transform
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
    IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Transform -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"transform" (Transform -> Maybe Transform
forall a. a -> Maybe a
P.Just Transform
val)

#if defined(ENABLE_OVERLOADING)
data FixedLayoutChildTransformPropertyInfo
instance AttrInfo FixedLayoutChildTransformPropertyInfo where
    type AttrAllowedOps FixedLayoutChildTransformPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint FixedLayoutChildTransformPropertyInfo = IsFixedLayoutChild
    type AttrSetTypeConstraint FixedLayoutChildTransformPropertyInfo = (~) Gsk.Transform.Transform
    type AttrTransferTypeConstraint FixedLayoutChildTransformPropertyInfo = (~) Gsk.Transform.Transform
    type AttrTransferType FixedLayoutChildTransformPropertyInfo = Gsk.Transform.Transform
    type AttrGetType FixedLayoutChildTransformPropertyInfo = (Maybe Gsk.Transform.Transform)
    type AttrLabel FixedLayoutChildTransformPropertyInfo = "transform"
    type AttrOrigin FixedLayoutChildTransformPropertyInfo = FixedLayoutChild
    attrGet = getFixedLayoutChildTransform
    attrSet = setFixedLayoutChildTransform
    attrTransfer _ v = do
        return v
    attrConstruct = constructFixedLayoutChildTransform
    attrClear = undefined
    dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Gtk.Objects.FixedLayoutChild.transform"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-FixedLayoutChild.html#g:attr:transform"
        })
#endif

#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList FixedLayoutChild
type instance O.AttributeList FixedLayoutChild = FixedLayoutChildAttributeList
type FixedLayoutChildAttributeList = ('[ '("childWidget", Gtk.LayoutChild.LayoutChildChildWidgetPropertyInfo), '("layoutManager", Gtk.LayoutChild.LayoutChildLayoutManagerPropertyInfo), '("transform", FixedLayoutChildTransformPropertyInfo)] :: [(Symbol, *)])
#endif

#if defined(ENABLE_OVERLOADING)
fixedLayoutChildTransform :: AttrLabelProxy "transform"
fixedLayoutChildTransform = AttrLabelProxy

#endif

#if defined(ENABLE_OVERLOADING)
type instance O.SignalList FixedLayoutChild = FixedLayoutChildSignalList
type FixedLayoutChildSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])

#endif

-- method FixedLayoutChild::get_transform
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "child"
--           , argType =
--               TInterface Name { namespace = "Gtk" , name = "FixedLayoutChild" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a `GtkFixedLayoutChild`"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TInterface Name { namespace = "Gsk" , name = "Transform" })
-- throws : False
-- Skip return : False

foreign import ccall "gtk_fixed_layout_child_get_transform" gtk_fixed_layout_child_get_transform :: 
    Ptr FixedLayoutChild ->                 -- child : TInterface (Name {namespace = "Gtk", name = "FixedLayoutChild"})
    IO (Ptr Gsk.Transform.Transform)

-- | Retrieves the transformation of the child.
fixedLayoutChildGetTransform ::
    (B.CallStack.HasCallStack, MonadIO m, IsFixedLayoutChild a) =>
    a
    -- ^ /@child@/: a @GtkFixedLayoutChild@
    -> m (Maybe Gsk.Transform.Transform)
    -- ^ __Returns:__ a @GskTransform@
fixedLayoutChildGetTransform :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFixedLayoutChild a) =>
a -> m (Maybe Transform)
fixedLayoutChildGetTransform a
child = IO (Maybe Transform) -> m (Maybe Transform)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Transform) -> m (Maybe Transform))
-> IO (Maybe Transform) -> m (Maybe Transform)
forall a b. (a -> b) -> a -> b
$ do
    Ptr FixedLayoutChild
child' <- a -> IO (Ptr FixedLayoutChild)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
child
    Ptr Transform
result <- Ptr FixedLayoutChild -> IO (Ptr Transform)
gtk_fixed_layout_child_get_transform Ptr FixedLayoutChild
child'
    Maybe Transform
maybeResult <- Ptr Transform
-> (Ptr Transform -> IO Transform) -> IO (Maybe Transform)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Transform
result ((Ptr Transform -> IO Transform) -> IO (Maybe Transform))
-> (Ptr Transform -> IO Transform) -> IO (Maybe Transform)
forall a b. (a -> b) -> a -> b
$ \Ptr Transform
result' -> do
        Transform
result'' <- ((ManagedPtr Transform -> Transform)
-> Ptr Transform -> IO Transform
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Transform -> Transform
Gsk.Transform.Transform) Ptr Transform
result'
        Transform -> IO Transform
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Transform
result''
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
child
    Maybe Transform -> IO (Maybe Transform)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Transform
maybeResult

#if defined(ENABLE_OVERLOADING)
data FixedLayoutChildGetTransformMethodInfo
instance (signature ~ (m (Maybe Gsk.Transform.Transform)), MonadIO m, IsFixedLayoutChild a) => O.OverloadedMethod FixedLayoutChildGetTransformMethodInfo a signature where
    overloadedMethod = fixedLayoutChildGetTransform

instance O.OverloadedMethodInfo FixedLayoutChildGetTransformMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Gtk.Objects.FixedLayoutChild.fixedLayoutChildGetTransform",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-FixedLayoutChild.html#v:fixedLayoutChildGetTransform"
        })


#endif

-- method FixedLayoutChild::set_transform
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "child"
--           , argType =
--               TInterface Name { namespace = "Gtk" , name = "FixedLayoutChild" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a `GtkFixedLayoutChild`"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "transform"
--           , argType =
--               TInterface Name { namespace = "Gsk" , name = "Transform" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a `GskTransform`" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "gtk_fixed_layout_child_set_transform" gtk_fixed_layout_child_set_transform :: 
    Ptr FixedLayoutChild ->                 -- child : TInterface (Name {namespace = "Gtk", name = "FixedLayoutChild"})
    Ptr Gsk.Transform.Transform ->          -- transform : TInterface (Name {namespace = "Gsk", name = "Transform"})
    IO ()

-- | Sets the transformation of the child of a @GtkFixedLayout@.
fixedLayoutChildSetTransform ::
    (B.CallStack.HasCallStack, MonadIO m, IsFixedLayoutChild a) =>
    a
    -- ^ /@child@/: a @GtkFixedLayoutChild@
    -> Gsk.Transform.Transform
    -- ^ /@transform@/: a @GskTransform@
    -> m ()
fixedLayoutChildSetTransform :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFixedLayoutChild a) =>
a -> Transform -> m ()
fixedLayoutChildSetTransform a
child Transform
transform = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr FixedLayoutChild
child' <- a -> IO (Ptr FixedLayoutChild)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
child
    Ptr Transform
transform' <- Transform -> IO (Ptr Transform)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Transform
transform
    Ptr FixedLayoutChild -> Ptr Transform -> IO ()
gtk_fixed_layout_child_set_transform Ptr FixedLayoutChild
child' Ptr Transform
transform'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
child
    Transform -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Transform
transform
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data FixedLayoutChildSetTransformMethodInfo
instance (signature ~ (Gsk.Transform.Transform -> m ()), MonadIO m, IsFixedLayoutChild a) => O.OverloadedMethod FixedLayoutChildSetTransformMethodInfo a signature where
    overloadedMethod = fixedLayoutChildSetTransform

instance O.OverloadedMethodInfo FixedLayoutChildSetTransformMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Gtk.Objects.FixedLayoutChild.fixedLayoutChildSetTransform",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-FixedLayoutChild.html#v:fixedLayoutChildSetTransform"
        })


#endif