#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Gtk.Objects.CellAreaBox
(
CellAreaBox(..) ,
IsCellAreaBox ,
toCellAreaBox ,
noCellAreaBox ,
#if ENABLE_OVERLOADING
CellAreaBoxGetSpacingMethodInfo ,
#endif
cellAreaBoxGetSpacing ,
cellAreaBoxNew ,
#if ENABLE_OVERLOADING
CellAreaBoxPackEndMethodInfo ,
#endif
cellAreaBoxPackEnd ,
#if ENABLE_OVERLOADING
CellAreaBoxPackStartMethodInfo ,
#endif
cellAreaBoxPackStart ,
#if ENABLE_OVERLOADING
CellAreaBoxSetSpacingMethodInfo ,
#endif
cellAreaBoxSetSpacing ,
#if ENABLE_OVERLOADING
CellAreaBoxSpacingPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
cellAreaBoxSpacing ,
#endif
constructCellAreaBoxSpacing ,
getCellAreaBoxSpacing ,
setCellAreaBoxSpacing ,
) 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.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.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 {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.CellLayout as Gtk.CellLayout
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Orientable as Gtk.Orientable
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellArea as Gtk.CellArea
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellRenderer as Gtk.CellRenderer
newtype CellAreaBox = CellAreaBox (ManagedPtr CellAreaBox)
foreign import ccall "gtk_cell_area_box_get_type"
c_gtk_cell_area_box_get_type :: IO GType
instance GObject CellAreaBox where
gobjectType _ = c_gtk_cell_area_box_get_type
class GObject o => IsCellAreaBox o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError CellAreaBox a) =>
IsCellAreaBox a
#endif
instance IsCellAreaBox CellAreaBox
instance Gtk.CellArea.IsCellArea CellAreaBox
instance GObject.Object.IsObject CellAreaBox
instance Gtk.Buildable.IsBuildable CellAreaBox
instance Gtk.CellLayout.IsCellLayout CellAreaBox
instance Gtk.Orientable.IsOrientable CellAreaBox
toCellAreaBox :: (MonadIO m, IsCellAreaBox o) => o -> m CellAreaBox
toCellAreaBox = liftIO . unsafeCastTo CellAreaBox
noCellAreaBox :: Maybe CellAreaBox
noCellAreaBox = Nothing
#if ENABLE_OVERLOADING
type family ResolveCellAreaBoxMethod (t :: Symbol) (o :: *) :: * where
ResolveCellAreaBoxMethod "activate" o = Gtk.CellArea.CellAreaActivateMethodInfo
ResolveCellAreaBoxMethod "activateCell" o = Gtk.CellArea.CellAreaActivateCellMethodInfo
ResolveCellAreaBoxMethod "add" o = Gtk.CellArea.CellAreaAddMethodInfo
ResolveCellAreaBoxMethod "addAttribute" o = Gtk.CellLayout.CellLayoutAddAttributeMethodInfo
ResolveCellAreaBoxMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveCellAreaBoxMethod "addFocusSibling" o = Gtk.CellArea.CellAreaAddFocusSiblingMethodInfo
ResolveCellAreaBoxMethod "applyAttributes" o = Gtk.CellArea.CellAreaApplyAttributesMethodInfo
ResolveCellAreaBoxMethod "attributeConnect" o = Gtk.CellArea.CellAreaAttributeConnectMethodInfo
ResolveCellAreaBoxMethod "attributeDisconnect" o = Gtk.CellArea.CellAreaAttributeDisconnectMethodInfo
ResolveCellAreaBoxMethod "attributeGetColumn" o = Gtk.CellArea.CellAreaAttributeGetColumnMethodInfo
ResolveCellAreaBoxMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCellAreaBoxMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCellAreaBoxMethod "cellGetProperty" o = Gtk.CellArea.CellAreaCellGetPropertyMethodInfo
ResolveCellAreaBoxMethod "cellSetProperty" o = Gtk.CellArea.CellAreaCellSetPropertyMethodInfo
ResolveCellAreaBoxMethod "clear" o = Gtk.CellLayout.CellLayoutClearMethodInfo
ResolveCellAreaBoxMethod "clearAttributes" o = Gtk.CellLayout.CellLayoutClearAttributesMethodInfo
ResolveCellAreaBoxMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveCellAreaBoxMethod "copyContext" o = Gtk.CellArea.CellAreaCopyContextMethodInfo
ResolveCellAreaBoxMethod "createContext" o = Gtk.CellArea.CellAreaCreateContextMethodInfo
ResolveCellAreaBoxMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveCellAreaBoxMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveCellAreaBoxMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveCellAreaBoxMethod "event" o = Gtk.CellArea.CellAreaEventMethodInfo
ResolveCellAreaBoxMethod "focus" o = Gtk.CellArea.CellAreaFocusMethodInfo
ResolveCellAreaBoxMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCellAreaBoxMethod "foreach" o = Gtk.CellArea.CellAreaForeachMethodInfo
ResolveCellAreaBoxMethod "foreachAlloc" o = Gtk.CellArea.CellAreaForeachAllocMethodInfo
ResolveCellAreaBoxMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCellAreaBoxMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveCellAreaBoxMethod "hasRenderer" o = Gtk.CellArea.CellAreaHasRendererMethodInfo
ResolveCellAreaBoxMethod "innerCellArea" o = Gtk.CellArea.CellAreaInnerCellAreaMethodInfo
ResolveCellAreaBoxMethod "isActivatable" o = Gtk.CellArea.CellAreaIsActivatableMethodInfo
ResolveCellAreaBoxMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveCellAreaBoxMethod "isFocusSibling" o = Gtk.CellArea.CellAreaIsFocusSiblingMethodInfo
ResolveCellAreaBoxMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCellAreaBoxMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCellAreaBoxMethod "packEnd" o = CellAreaBoxPackEndMethodInfo
ResolveCellAreaBoxMethod "packStart" o = CellAreaBoxPackStartMethodInfo
ResolveCellAreaBoxMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveCellAreaBoxMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCellAreaBoxMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCellAreaBoxMethod "remove" o = Gtk.CellArea.CellAreaRemoveMethodInfo
ResolveCellAreaBoxMethod "removeFocusSibling" o = Gtk.CellArea.CellAreaRemoveFocusSiblingMethodInfo
ResolveCellAreaBoxMethod "render" o = Gtk.CellArea.CellAreaRenderMethodInfo
ResolveCellAreaBoxMethod "reorder" o = Gtk.CellLayout.CellLayoutReorderMethodInfo
ResolveCellAreaBoxMethod "requestRenderer" o = Gtk.CellArea.CellAreaRequestRendererMethodInfo
ResolveCellAreaBoxMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCellAreaBoxMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCellAreaBoxMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCellAreaBoxMethod "stopEditing" o = Gtk.CellArea.CellAreaStopEditingMethodInfo
ResolveCellAreaBoxMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveCellAreaBoxMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveCellAreaBoxMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCellAreaBoxMethod "getArea" o = Gtk.CellLayout.CellLayoutGetAreaMethodInfo
ResolveCellAreaBoxMethod "getCellAllocation" o = Gtk.CellArea.CellAreaGetCellAllocationMethodInfo
ResolveCellAreaBoxMethod "getCellAtPosition" o = Gtk.CellArea.CellAreaGetCellAtPositionMethodInfo
ResolveCellAreaBoxMethod "getCells" o = Gtk.CellLayout.CellLayoutGetCellsMethodInfo
ResolveCellAreaBoxMethod "getCurrentPathString" o = Gtk.CellArea.CellAreaGetCurrentPathStringMethodInfo
ResolveCellAreaBoxMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCellAreaBoxMethod "getEditWidget" o = Gtk.CellArea.CellAreaGetEditWidgetMethodInfo
ResolveCellAreaBoxMethod "getEditedCell" o = Gtk.CellArea.CellAreaGetEditedCellMethodInfo
ResolveCellAreaBoxMethod "getFocusCell" o = Gtk.CellArea.CellAreaGetFocusCellMethodInfo
ResolveCellAreaBoxMethod "getFocusFromSibling" o = Gtk.CellArea.CellAreaGetFocusFromSiblingMethodInfo
ResolveCellAreaBoxMethod "getFocusSiblings" o = Gtk.CellArea.CellAreaGetFocusSiblingsMethodInfo
ResolveCellAreaBoxMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveCellAreaBoxMethod "getName" o = Gtk.Buildable.BuildableGetNameMethodInfo
ResolveCellAreaBoxMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolveCellAreaBoxMethod "getPreferredHeight" o = Gtk.CellArea.CellAreaGetPreferredHeightMethodInfo
ResolveCellAreaBoxMethod "getPreferredHeightForWidth" o = Gtk.CellArea.CellAreaGetPreferredHeightForWidthMethodInfo
ResolveCellAreaBoxMethod "getPreferredWidth" o = Gtk.CellArea.CellAreaGetPreferredWidthMethodInfo
ResolveCellAreaBoxMethod "getPreferredWidthForHeight" o = Gtk.CellArea.CellAreaGetPreferredWidthForHeightMethodInfo
ResolveCellAreaBoxMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveCellAreaBoxMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveCellAreaBoxMethod "getRequestMode" o = Gtk.CellArea.CellAreaGetRequestModeMethodInfo
ResolveCellAreaBoxMethod "getSpacing" o = CellAreaBoxGetSpacingMethodInfo
ResolveCellAreaBoxMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveCellAreaBoxMethod "setCellDataFunc" o = Gtk.CellLayout.CellLayoutSetCellDataFuncMethodInfo
ResolveCellAreaBoxMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCellAreaBoxMethod "setFocusCell" o = Gtk.CellArea.CellAreaSetFocusCellMethodInfo
ResolveCellAreaBoxMethod "setName" o = Gtk.Buildable.BuildableSetNameMethodInfo
ResolveCellAreaBoxMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolveCellAreaBoxMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCellAreaBoxMethod "setSpacing" o = CellAreaBoxSetSpacingMethodInfo
ResolveCellAreaBoxMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCellAreaBoxMethod t CellAreaBox, O.MethodInfo info CellAreaBox p) => O.IsLabelProxy t (CellAreaBox -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveCellAreaBoxMethod t CellAreaBox, O.MethodInfo info CellAreaBox p) => O.IsLabel t (CellAreaBox -> 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
getCellAreaBoxSpacing :: (MonadIO m, IsCellAreaBox o) => o -> m Int32
getCellAreaBoxSpacing obj = liftIO $ getObjectPropertyInt32 obj "spacing"
setCellAreaBoxSpacing :: (MonadIO m, IsCellAreaBox o) => o -> Int32 -> m ()
setCellAreaBoxSpacing obj val = liftIO $ setObjectPropertyInt32 obj "spacing" val
constructCellAreaBoxSpacing :: (IsCellAreaBox o) => Int32 -> IO (GValueConstruct o)
constructCellAreaBoxSpacing val = constructObjectPropertyInt32 "spacing" val
#if ENABLE_OVERLOADING
data CellAreaBoxSpacingPropertyInfo
instance AttrInfo CellAreaBoxSpacingPropertyInfo where
type AttrAllowedOps CellAreaBoxSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CellAreaBoxSpacingPropertyInfo = (~) Int32
type AttrBaseTypeConstraint CellAreaBoxSpacingPropertyInfo = IsCellAreaBox
type AttrGetType CellAreaBoxSpacingPropertyInfo = Int32
type AttrLabel CellAreaBoxSpacingPropertyInfo = "spacing"
type AttrOrigin CellAreaBoxSpacingPropertyInfo = CellAreaBox
attrGet _ = getCellAreaBoxSpacing
attrSet _ = setCellAreaBoxSpacing
attrConstruct _ = constructCellAreaBoxSpacing
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList CellAreaBox
type instance O.AttributeList CellAreaBox = CellAreaBoxAttributeList
type CellAreaBoxAttributeList = ('[ '("editWidget", Gtk.CellArea.CellAreaEditWidgetPropertyInfo), '("editedCell", Gtk.CellArea.CellAreaEditedCellPropertyInfo), '("focusCell", Gtk.CellArea.CellAreaFocusCellPropertyInfo), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("spacing", CellAreaBoxSpacingPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
cellAreaBoxSpacing :: AttrLabelProxy "spacing"
cellAreaBoxSpacing = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList CellAreaBox = CellAreaBoxSignalList
type CellAreaBoxSignalList = ('[ '("addEditable", Gtk.CellArea.CellAreaAddEditableSignalInfo), '("applyAttributes", Gtk.CellArea.CellAreaApplyAttributesSignalInfo), '("focusChanged", Gtk.CellArea.CellAreaFocusChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("removeEditable", Gtk.CellArea.CellAreaRemoveEditableSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_cell_area_box_new" gtk_cell_area_box_new ::
IO (Ptr CellAreaBox)
cellAreaBoxNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m CellAreaBox
cellAreaBoxNew = liftIO $ do
result <- gtk_cell_area_box_new
checkUnexpectedReturnNULL "cellAreaBoxNew" result
result' <- (newObject CellAreaBox) result
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "gtk_cell_area_box_get_spacing" gtk_cell_area_box_get_spacing ::
Ptr CellAreaBox ->
IO Int32
cellAreaBoxGetSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAreaBox a) =>
a
-> m Int32
cellAreaBoxGetSpacing box = liftIO $ do
box' <- unsafeManagedPtrCastPtr box
result <- gtk_cell_area_box_get_spacing box'
touchManagedPtr box
return result
#if ENABLE_OVERLOADING
data CellAreaBoxGetSpacingMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsCellAreaBox a) => O.MethodInfo CellAreaBoxGetSpacingMethodInfo a signature where
overloadedMethod _ = cellAreaBoxGetSpacing
#endif
foreign import ccall "gtk_cell_area_box_pack_end" gtk_cell_area_box_pack_end ::
Ptr CellAreaBox ->
Ptr Gtk.CellRenderer.CellRenderer ->
CInt ->
CInt ->
CInt ->
IO ()
cellAreaBoxPackEnd ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAreaBox a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> Bool
-> Bool
-> Bool
-> m ()
cellAreaBoxPackEnd box renderer expand align fixed = liftIO $ do
box' <- unsafeManagedPtrCastPtr box
renderer' <- unsafeManagedPtrCastPtr renderer
let expand' = (fromIntegral . fromEnum) expand
let align' = (fromIntegral . fromEnum) align
let fixed' = (fromIntegral . fromEnum) fixed
gtk_cell_area_box_pack_end box' renderer' expand' align' fixed'
touchManagedPtr box
touchManagedPtr renderer
return ()
#if ENABLE_OVERLOADING
data CellAreaBoxPackEndMethodInfo
instance (signature ~ (b -> Bool -> Bool -> Bool -> m ()), MonadIO m, IsCellAreaBox a, Gtk.CellRenderer.IsCellRenderer b) => O.MethodInfo CellAreaBoxPackEndMethodInfo a signature where
overloadedMethod _ = cellAreaBoxPackEnd
#endif
foreign import ccall "gtk_cell_area_box_pack_start" gtk_cell_area_box_pack_start ::
Ptr CellAreaBox ->
Ptr Gtk.CellRenderer.CellRenderer ->
CInt ->
CInt ->
CInt ->
IO ()
cellAreaBoxPackStart ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAreaBox a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> Bool
-> Bool
-> Bool
-> m ()
cellAreaBoxPackStart box renderer expand align fixed = liftIO $ do
box' <- unsafeManagedPtrCastPtr box
renderer' <- unsafeManagedPtrCastPtr renderer
let expand' = (fromIntegral . fromEnum) expand
let align' = (fromIntegral . fromEnum) align
let fixed' = (fromIntegral . fromEnum) fixed
gtk_cell_area_box_pack_start box' renderer' expand' align' fixed'
touchManagedPtr box
touchManagedPtr renderer
return ()
#if ENABLE_OVERLOADING
data CellAreaBoxPackStartMethodInfo
instance (signature ~ (b -> Bool -> Bool -> Bool -> m ()), MonadIO m, IsCellAreaBox a, Gtk.CellRenderer.IsCellRenderer b) => O.MethodInfo CellAreaBoxPackStartMethodInfo a signature where
overloadedMethod _ = cellAreaBoxPackStart
#endif
foreign import ccall "gtk_cell_area_box_set_spacing" gtk_cell_area_box_set_spacing ::
Ptr CellAreaBox ->
Int32 ->
IO ()
cellAreaBoxSetSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsCellAreaBox a) =>
a
-> Int32
-> m ()
cellAreaBoxSetSpacing box spacing = liftIO $ do
box' <- unsafeManagedPtrCastPtr box
gtk_cell_area_box_set_spacing box' spacing
touchManagedPtr box
return ()
#if ENABLE_OVERLOADING
data CellAreaBoxSetSpacingMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsCellAreaBox a) => O.MethodInfo CellAreaBoxSetSpacingMethodInfo a signature where
overloadedMethod _ = cellAreaBoxSetSpacing
#endif