module GI.Gtk.Objects.CellAreaContext
(
CellAreaContext(..) ,
IsCellAreaContext ,
toCellAreaContext ,
noCellAreaContext ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAreaContextAllocateMethodInfo ,
#endif
cellAreaContextAllocate ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAreaContextGetAllocationMethodInfo ,
#endif
cellAreaContextGetAllocation ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAreaContextGetAreaMethodInfo ,
#endif
cellAreaContextGetArea ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAreaContextGetPreferredHeightMethodInfo,
#endif
cellAreaContextGetPreferredHeight ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAreaContextGetPreferredHeightForWidthMethodInfo,
#endif
cellAreaContextGetPreferredHeightForWidth,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAreaContextGetPreferredWidthMethodInfo,
#endif
cellAreaContextGetPreferredWidth ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAreaContextGetPreferredWidthForHeightMethodInfo,
#endif
cellAreaContextGetPreferredWidthForHeight,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAreaContextPushPreferredHeightMethodInfo,
#endif
cellAreaContextPushPreferredHeight ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAreaContextPushPreferredWidthMethodInfo,
#endif
cellAreaContextPushPreferredWidth ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAreaContextResetMethodInfo ,
#endif
cellAreaContextReset ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAreaContextAreaPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
cellAreaContextArea ,
#endif
constructCellAreaContextArea ,
getCellAreaContextArea ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAreaContextMinimumHeightPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
cellAreaContextMinimumHeight ,
#endif
getCellAreaContextMinimumHeight ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAreaContextMinimumWidthPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
cellAreaContextMinimumWidth ,
#endif
getCellAreaContextMinimumWidth ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAreaContextNaturalHeightPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
cellAreaContextNaturalHeight ,
#endif
getCellAreaContextNaturalHeight ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
CellAreaContextNaturalWidthPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
cellAreaContextNaturalWidth ,
#endif
getCellAreaContextNaturalWidth ,
) 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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Objects.CellArea as Gtk.CellArea
newtype CellAreaContext = CellAreaContext (ManagedPtr CellAreaContext)
foreign import ccall "gtk_cell_area_context_get_type"
c_gtk_cell_area_context_get_type :: IO GType
instance GObject CellAreaContext where
gobjectType _ = c_gtk_cell_area_context_get_type
class GObject o => IsCellAreaContext o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError CellAreaContext a) =>
IsCellAreaContext a
#endif
instance IsCellAreaContext CellAreaContext
instance GObject.Object.IsObject CellAreaContext
toCellAreaContext :: (MonadIO m, IsCellAreaContext o) => o -> m CellAreaContext
toCellAreaContext = liftIO . unsafeCastTo CellAreaContext
noCellAreaContext :: Maybe CellAreaContext
noCellAreaContext = Nothing
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
type family ResolveCellAreaContextMethod (t :: Symbol) (o :: *) :: * where
ResolveCellAreaContextMethod "allocate" o = CellAreaContextAllocateMethodInfo
ResolveCellAreaContextMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCellAreaContextMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCellAreaContextMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCellAreaContextMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCellAreaContextMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveCellAreaContextMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCellAreaContextMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCellAreaContextMethod "pushPreferredHeight" o = CellAreaContextPushPreferredHeightMethodInfo
ResolveCellAreaContextMethod "pushPreferredWidth" o = CellAreaContextPushPreferredWidthMethodInfo
ResolveCellAreaContextMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCellAreaContextMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCellAreaContextMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveCellAreaContextMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveCellAreaContextMethod "reset" o = CellAreaContextResetMethodInfo
ResolveCellAreaContextMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCellAreaContextMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCellAreaContextMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCellAreaContextMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveCellAreaContextMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveCellAreaContextMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCellAreaContextMethod "getAllocation" o = CellAreaContextGetAllocationMethodInfo
ResolveCellAreaContextMethod "getArea" o = CellAreaContextGetAreaMethodInfo
ResolveCellAreaContextMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCellAreaContextMethod "getPreferredHeight" o = CellAreaContextGetPreferredHeightMethodInfo
ResolveCellAreaContextMethod "getPreferredHeightForWidth" o = CellAreaContextGetPreferredHeightForWidthMethodInfo
ResolveCellAreaContextMethod "getPreferredWidth" o = CellAreaContextGetPreferredWidthMethodInfo
ResolveCellAreaContextMethod "getPreferredWidthForHeight" o = CellAreaContextGetPreferredWidthForHeightMethodInfo
ResolveCellAreaContextMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveCellAreaContextMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveCellAreaContextMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCellAreaContextMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCellAreaContextMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCellAreaContextMethod t CellAreaContext, O.MethodInfo info CellAreaContext p) => O.IsLabelProxy t (CellAreaContext -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveCellAreaContextMethod t CellAreaContext, O.MethodInfo info CellAreaContext p) => O.IsLabel t (CellAreaContext -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif
getCellAreaContextArea :: (MonadIO m, IsCellAreaContext o) => o -> m Gtk.CellArea.CellArea
getCellAreaContextArea obj = liftIO $ checkUnexpectedNothing "getCellAreaContextArea" $ getObjectPropertyObject obj "area" Gtk.CellArea.CellArea
constructCellAreaContextArea :: (IsCellAreaContext o, Gtk.CellArea.IsCellArea a) => a -> IO (GValueConstruct o)
constructCellAreaContextArea val = constructObjectPropertyObject "area" (Just val)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data CellAreaContextAreaPropertyInfo
instance AttrInfo CellAreaContextAreaPropertyInfo where
type AttrAllowedOps CellAreaContextAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint CellAreaContextAreaPropertyInfo = Gtk.CellArea.IsCellArea
type AttrBaseTypeConstraint CellAreaContextAreaPropertyInfo = IsCellAreaContext
type AttrGetType CellAreaContextAreaPropertyInfo = Gtk.CellArea.CellArea
type AttrLabel CellAreaContextAreaPropertyInfo = "area"
type AttrOrigin CellAreaContextAreaPropertyInfo = CellAreaContext
attrGet _ = getCellAreaContextArea
attrSet _ = undefined
attrConstruct _ = constructCellAreaContextArea
attrClear _ = undefined
#endif
getCellAreaContextMinimumHeight :: (MonadIO m, IsCellAreaContext o) => o -> m Int32
getCellAreaContextMinimumHeight obj = liftIO $ getObjectPropertyInt32 obj "minimum-height"
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data CellAreaContextMinimumHeightPropertyInfo
instance AttrInfo CellAreaContextMinimumHeightPropertyInfo where
type AttrAllowedOps CellAreaContextMinimumHeightPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint CellAreaContextMinimumHeightPropertyInfo = (~) ()
type AttrBaseTypeConstraint CellAreaContextMinimumHeightPropertyInfo = IsCellAreaContext
type AttrGetType CellAreaContextMinimumHeightPropertyInfo = Int32
type AttrLabel CellAreaContextMinimumHeightPropertyInfo = "minimum-height"
type AttrOrigin CellAreaContextMinimumHeightPropertyInfo = CellAreaContext
attrGet _ = getCellAreaContextMinimumHeight
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getCellAreaContextMinimumWidth :: (MonadIO m, IsCellAreaContext o) => o -> m Int32
getCellAreaContextMinimumWidth obj = liftIO $ getObjectPropertyInt32 obj "minimum-width"
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data CellAreaContextMinimumWidthPropertyInfo
instance AttrInfo CellAreaContextMinimumWidthPropertyInfo where
type AttrAllowedOps CellAreaContextMinimumWidthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint CellAreaContextMinimumWidthPropertyInfo = (~) ()
type AttrBaseTypeConstraint CellAreaContextMinimumWidthPropertyInfo = IsCellAreaContext
type AttrGetType CellAreaContextMinimumWidthPropertyInfo = Int32
type AttrLabel CellAreaContextMinimumWidthPropertyInfo = "minimum-width"
type AttrOrigin CellAreaContextMinimumWidthPropertyInfo = CellAreaContext
attrGet _ = getCellAreaContextMinimumWidth
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getCellAreaContextNaturalHeight :: (MonadIO m, IsCellAreaContext o) => o -> m Int32
getCellAreaContextNaturalHeight obj = liftIO $ getObjectPropertyInt32 obj "natural-height"
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data CellAreaContextNaturalHeightPropertyInfo
instance AttrInfo CellAreaContextNaturalHeightPropertyInfo where
type AttrAllowedOps CellAreaContextNaturalHeightPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint CellAreaContextNaturalHeightPropertyInfo = (~) ()
type AttrBaseTypeConstraint CellAreaContextNaturalHeightPropertyInfo = IsCellAreaContext
type AttrGetType CellAreaContextNaturalHeightPropertyInfo = Int32
type AttrLabel CellAreaContextNaturalHeightPropertyInfo = "natural-height"
type AttrOrigin CellAreaContextNaturalHeightPropertyInfo = CellAreaContext
attrGet _ = getCellAreaContextNaturalHeight
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getCellAreaContextNaturalWidth :: (MonadIO m, IsCellAreaContext o) => o -> m Int32
getCellAreaContextNaturalWidth obj = liftIO $ getObjectPropertyInt32 obj "natural-width"
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data CellAreaContextNaturalWidthPropertyInfo
instance AttrInfo CellAreaContextNaturalWidthPropertyInfo where
type AttrAllowedOps CellAreaContextNaturalWidthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint CellAreaContextNaturalWidthPropertyInfo = (~) ()
type AttrBaseTypeConstraint CellAreaContextNaturalWidthPropertyInfo = IsCellAreaContext
type AttrGetType CellAreaContextNaturalWidthPropertyInfo = Int32
type AttrLabel CellAreaContextNaturalWidthPropertyInfo = "natural-width"
type AttrOrigin CellAreaContextNaturalWidthPropertyInfo = CellAreaContext
attrGet _ = getCellAreaContextNaturalWidth
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
instance O.HasAttributeList CellAreaContext
type instance O.AttributeList CellAreaContext = CellAreaContextAttributeList
type CellAreaContextAttributeList = ('[ '("area", CellAreaContextAreaPropertyInfo), '("minimumHeight", CellAreaContextMinimumHeightPropertyInfo), '("minimumWidth", CellAreaContextMinimumWidthPropertyInfo), '("naturalHeight", CellAreaContextNaturalHeightPropertyInfo), '("naturalWidth", CellAreaContextNaturalWidthPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
cellAreaContextArea :: AttrLabelProxy "area"
cellAreaContextArea = AttrLabelProxy
cellAreaContextMinimumHeight :: AttrLabelProxy "minimumHeight"
cellAreaContextMinimumHeight = AttrLabelProxy
cellAreaContextMinimumWidth :: AttrLabelProxy "minimumWidth"
cellAreaContextMinimumWidth = AttrLabelProxy
cellAreaContextNaturalHeight :: AttrLabelProxy "naturalHeight"
cellAreaContextNaturalHeight = AttrLabelProxy
cellAreaContextNaturalWidth :: AttrLabelProxy "naturalWidth"
cellAreaContextNaturalWidth = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
type instance O.SignalList CellAreaContext = CellAreaContextSignalList
type CellAreaContextSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_cell_area_context_allocate" gtk_cell_area_context_allocate ::
Ptr CellAreaContext ->
Int32 ->
Int32 ->
IO ()
cellAreaContextAllocate ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAreaContext a) =>
a
-> Int32
-> Int32
-> m ()
cellAreaContextAllocate context width height = liftIO $ do
context' <- unsafeManagedPtrCastPtr context
gtk_cell_area_context_allocate context' width height
touchManagedPtr context
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data CellAreaContextAllocateMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsCellAreaContext a) => O.MethodInfo CellAreaContextAllocateMethodInfo a signature where
overloadedMethod _ = cellAreaContextAllocate
#endif
foreign import ccall "gtk_cell_area_context_get_allocation" gtk_cell_area_context_get_allocation ::
Ptr CellAreaContext ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
cellAreaContextGetAllocation ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAreaContext a) =>
a
-> m ((Int32, Int32))
cellAreaContextGetAllocation context = liftIO $ do
context' <- unsafeManagedPtrCastPtr context
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
gtk_cell_area_context_get_allocation context' width height
width' <- peek width
height' <- peek height
touchManagedPtr context
freeMem width
freeMem height
return (width', height')
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data CellAreaContextGetAllocationMethodInfo
instance (signature ~ (m ((Int32, Int32))), MonadIO m, IsCellAreaContext a) => O.MethodInfo CellAreaContextGetAllocationMethodInfo a signature where
overloadedMethod _ = cellAreaContextGetAllocation
#endif
foreign import ccall "gtk_cell_area_context_get_area" gtk_cell_area_context_get_area ::
Ptr CellAreaContext ->
IO (Ptr Gtk.CellArea.CellArea)
cellAreaContextGetArea ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAreaContext a) =>
a
-> m Gtk.CellArea.CellArea
cellAreaContextGetArea context = liftIO $ do
context' <- unsafeManagedPtrCastPtr context
result <- gtk_cell_area_context_get_area context'
checkUnexpectedReturnNULL "cellAreaContextGetArea" result
result' <- (newObject Gtk.CellArea.CellArea) result
touchManagedPtr context
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data CellAreaContextGetAreaMethodInfo
instance (signature ~ (m Gtk.CellArea.CellArea), MonadIO m, IsCellAreaContext a) => O.MethodInfo CellAreaContextGetAreaMethodInfo a signature where
overloadedMethod _ = cellAreaContextGetArea
#endif
foreign import ccall "gtk_cell_area_context_get_preferred_height" gtk_cell_area_context_get_preferred_height ::
Ptr CellAreaContext ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
cellAreaContextGetPreferredHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAreaContext a) =>
a
-> m ((Int32, Int32))
cellAreaContextGetPreferredHeight context = liftIO $ do
context' <- unsafeManagedPtrCastPtr context
minimumHeight <- allocMem :: IO (Ptr Int32)
naturalHeight <- allocMem :: IO (Ptr Int32)
gtk_cell_area_context_get_preferred_height context' minimumHeight naturalHeight
minimumHeight' <- peek minimumHeight
naturalHeight' <- peek naturalHeight
touchManagedPtr context
freeMem minimumHeight
freeMem naturalHeight
return (minimumHeight', naturalHeight')
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data CellAreaContextGetPreferredHeightMethodInfo
instance (signature ~ (m ((Int32, Int32))), MonadIO m, IsCellAreaContext a) => O.MethodInfo CellAreaContextGetPreferredHeightMethodInfo a signature where
overloadedMethod _ = cellAreaContextGetPreferredHeight
#endif
foreign import ccall "gtk_cell_area_context_get_preferred_height_for_width" gtk_cell_area_context_get_preferred_height_for_width ::
Ptr CellAreaContext ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
cellAreaContextGetPreferredHeightForWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAreaContext a) =>
a
-> Int32
-> m ((Int32, Int32))
cellAreaContextGetPreferredHeightForWidth context width = liftIO $ do
context' <- unsafeManagedPtrCastPtr context
minimumHeight <- allocMem :: IO (Ptr Int32)
naturalHeight <- allocMem :: IO (Ptr Int32)
gtk_cell_area_context_get_preferred_height_for_width context' width minimumHeight naturalHeight
minimumHeight' <- peek minimumHeight
naturalHeight' <- peek naturalHeight
touchManagedPtr context
freeMem minimumHeight
freeMem naturalHeight
return (minimumHeight', naturalHeight')
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data CellAreaContextGetPreferredHeightForWidthMethodInfo
instance (signature ~ (Int32 -> m ((Int32, Int32))), MonadIO m, IsCellAreaContext a) => O.MethodInfo CellAreaContextGetPreferredHeightForWidthMethodInfo a signature where
overloadedMethod _ = cellAreaContextGetPreferredHeightForWidth
#endif
foreign import ccall "gtk_cell_area_context_get_preferred_width" gtk_cell_area_context_get_preferred_width ::
Ptr CellAreaContext ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
cellAreaContextGetPreferredWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAreaContext a) =>
a
-> m ((Int32, Int32))
cellAreaContextGetPreferredWidth context = liftIO $ do
context' <- unsafeManagedPtrCastPtr context
minimumWidth <- allocMem :: IO (Ptr Int32)
naturalWidth <- allocMem :: IO (Ptr Int32)
gtk_cell_area_context_get_preferred_width context' minimumWidth naturalWidth
minimumWidth' <- peek minimumWidth
naturalWidth' <- peek naturalWidth
touchManagedPtr context
freeMem minimumWidth
freeMem naturalWidth
return (minimumWidth', naturalWidth')
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data CellAreaContextGetPreferredWidthMethodInfo
instance (signature ~ (m ((Int32, Int32))), MonadIO m, IsCellAreaContext a) => O.MethodInfo CellAreaContextGetPreferredWidthMethodInfo a signature where
overloadedMethod _ = cellAreaContextGetPreferredWidth
#endif
foreign import ccall "gtk_cell_area_context_get_preferred_width_for_height" gtk_cell_area_context_get_preferred_width_for_height ::
Ptr CellAreaContext ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
cellAreaContextGetPreferredWidthForHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAreaContext a) =>
a
-> Int32
-> m ((Int32, Int32))
cellAreaContextGetPreferredWidthForHeight context height = liftIO $ do
context' <- unsafeManagedPtrCastPtr context
minimumWidth <- allocMem :: IO (Ptr Int32)
naturalWidth <- allocMem :: IO (Ptr Int32)
gtk_cell_area_context_get_preferred_width_for_height context' height minimumWidth naturalWidth
minimumWidth' <- peek minimumWidth
naturalWidth' <- peek naturalWidth
touchManagedPtr context
freeMem minimumWidth
freeMem naturalWidth
return (minimumWidth', naturalWidth')
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data CellAreaContextGetPreferredWidthForHeightMethodInfo
instance (signature ~ (Int32 -> m ((Int32, Int32))), MonadIO m, IsCellAreaContext a) => O.MethodInfo CellAreaContextGetPreferredWidthForHeightMethodInfo a signature where
overloadedMethod _ = cellAreaContextGetPreferredWidthForHeight
#endif
foreign import ccall "gtk_cell_area_context_push_preferred_height" gtk_cell_area_context_push_preferred_height ::
Ptr CellAreaContext ->
Int32 ->
Int32 ->
IO ()
cellAreaContextPushPreferredHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAreaContext a) =>
a
-> Int32
-> Int32
-> m ()
cellAreaContextPushPreferredHeight context minimumHeight naturalHeight = liftIO $ do
context' <- unsafeManagedPtrCastPtr context
gtk_cell_area_context_push_preferred_height context' minimumHeight naturalHeight
touchManagedPtr context
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data CellAreaContextPushPreferredHeightMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsCellAreaContext a) => O.MethodInfo CellAreaContextPushPreferredHeightMethodInfo a signature where
overloadedMethod _ = cellAreaContextPushPreferredHeight
#endif
foreign import ccall "gtk_cell_area_context_push_preferred_width" gtk_cell_area_context_push_preferred_width ::
Ptr CellAreaContext ->
Int32 ->
Int32 ->
IO ()
cellAreaContextPushPreferredWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAreaContext a) =>
a
-> Int32
-> Int32
-> m ()
cellAreaContextPushPreferredWidth context minimumWidth naturalWidth = liftIO $ do
context' <- unsafeManagedPtrCastPtr context
gtk_cell_area_context_push_preferred_width context' minimumWidth naturalWidth
touchManagedPtr context
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data CellAreaContextPushPreferredWidthMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsCellAreaContext a) => O.MethodInfo CellAreaContextPushPreferredWidthMethodInfo a signature where
overloadedMethod _ = cellAreaContextPushPreferredWidth
#endif
foreign import ccall "gtk_cell_area_context_reset" gtk_cell_area_context_reset ::
Ptr CellAreaContext ->
IO ()
cellAreaContextReset ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAreaContext a) =>
a
-> m ()
cellAreaContextReset context = liftIO $ do
context' <- unsafeManagedPtrCastPtr context
gtk_cell_area_context_reset context'
touchManagedPtr context
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data CellAreaContextResetMethodInfo
instance (signature ~ (m ()), MonadIO m, IsCellAreaContext a) => O.MethodInfo CellAreaContextResetMethodInfo a signature where
overloadedMethod _ = cellAreaContextReset
#endif