#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Gtk.Objects.CellRendererToggle
(
CellRendererToggle(..) ,
IsCellRendererToggle ,
toCellRendererToggle ,
noCellRendererToggle ,
#if ENABLE_OVERLOADING
CellRendererToggleGetActivatableMethodInfo,
#endif
cellRendererToggleGetActivatable ,
#if ENABLE_OVERLOADING
CellRendererToggleGetActiveMethodInfo ,
#endif
cellRendererToggleGetActive ,
#if ENABLE_OVERLOADING
CellRendererToggleGetRadioMethodInfo ,
#endif
cellRendererToggleGetRadio ,
cellRendererToggleNew ,
#if ENABLE_OVERLOADING
CellRendererToggleSetActivatableMethodInfo,
#endif
cellRendererToggleSetActivatable ,
#if ENABLE_OVERLOADING
CellRendererToggleSetActiveMethodInfo ,
#endif
cellRendererToggleSetActive ,
#if ENABLE_OVERLOADING
CellRendererToggleSetRadioMethodInfo ,
#endif
cellRendererToggleSetRadio ,
#if ENABLE_OVERLOADING
CellRendererToggleActivatablePropertyInfo,
#endif
#if ENABLE_OVERLOADING
cellRendererToggleActivatable ,
#endif
constructCellRendererToggleActivatable ,
getCellRendererToggleActivatable ,
setCellRendererToggleActivatable ,
#if ENABLE_OVERLOADING
CellRendererToggleActivePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
cellRendererToggleActive ,
#endif
constructCellRendererToggleActive ,
getCellRendererToggleActive ,
setCellRendererToggleActive ,
#if ENABLE_OVERLOADING
CellRendererToggleInconsistentPropertyInfo,
#endif
#if ENABLE_OVERLOADING
cellRendererToggleInconsistent ,
#endif
constructCellRendererToggleInconsistent ,
getCellRendererToggleInconsistent ,
setCellRendererToggleInconsistent ,
#if ENABLE_OVERLOADING
CellRendererToggleIndicatorSizePropertyInfo,
#endif
#if ENABLE_OVERLOADING
cellRendererToggleIndicatorSize ,
#endif
constructCellRendererToggleIndicatorSize,
getCellRendererToggleIndicatorSize ,
setCellRendererToggleIndicatorSize ,
#if ENABLE_OVERLOADING
CellRendererToggleRadioPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
cellRendererToggleRadio ,
#endif
constructCellRendererToggleRadio ,
getCellRendererToggleRadio ,
setCellRendererToggleRadio ,
C_CellRendererToggleToggledCallback ,
CellRendererToggleToggledCallback ,
#if ENABLE_OVERLOADING
CellRendererToggleToggledSignalInfo ,
#endif
afterCellRendererToggleToggled ,
genClosure_CellRendererToggleToggled ,
mk_CellRendererToggleToggledCallback ,
noCellRendererToggleToggledCallback ,
onCellRendererToggleToggled ,
wrap_CellRendererToggleToggledCallback ,
) 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.Objects.CellRenderer as Gtk.CellRenderer
newtype CellRendererToggle = CellRendererToggle (ManagedPtr CellRendererToggle)
foreign import ccall "gtk_cell_renderer_toggle_get_type"
c_gtk_cell_renderer_toggle_get_type :: IO GType
instance GObject CellRendererToggle where
gobjectType _ = c_gtk_cell_renderer_toggle_get_type
class GObject o => IsCellRendererToggle o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError CellRendererToggle a) =>
IsCellRendererToggle a
#endif
instance IsCellRendererToggle CellRendererToggle
instance Gtk.CellRenderer.IsCellRenderer CellRendererToggle
instance GObject.Object.IsObject CellRendererToggle
toCellRendererToggle :: (MonadIO m, IsCellRendererToggle o) => o -> m CellRendererToggle
toCellRendererToggle = liftIO . unsafeCastTo CellRendererToggle
noCellRendererToggle :: Maybe CellRendererToggle
noCellRendererToggle = Nothing
#if ENABLE_OVERLOADING
type family ResolveCellRendererToggleMethod (t :: Symbol) (o :: *) :: * where
ResolveCellRendererToggleMethod "activate" o = Gtk.CellRenderer.CellRendererActivateMethodInfo
ResolveCellRendererToggleMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCellRendererToggleMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCellRendererToggleMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCellRendererToggleMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCellRendererToggleMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveCellRendererToggleMethod "isActivatable" o = Gtk.CellRenderer.CellRendererIsActivatableMethodInfo
ResolveCellRendererToggleMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveCellRendererToggleMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCellRendererToggleMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCellRendererToggleMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCellRendererToggleMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCellRendererToggleMethod "render" o = Gtk.CellRenderer.CellRendererRenderMethodInfo
ResolveCellRendererToggleMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCellRendererToggleMethod "startEditing" o = Gtk.CellRenderer.CellRendererStartEditingMethodInfo
ResolveCellRendererToggleMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCellRendererToggleMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCellRendererToggleMethod "stopEditing" o = Gtk.CellRenderer.CellRendererStopEditingMethodInfo
ResolveCellRendererToggleMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveCellRendererToggleMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveCellRendererToggleMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCellRendererToggleMethod "getActivatable" o = CellRendererToggleGetActivatableMethodInfo
ResolveCellRendererToggleMethod "getActive" o = CellRendererToggleGetActiveMethodInfo
ResolveCellRendererToggleMethod "getAlignedArea" o = Gtk.CellRenderer.CellRendererGetAlignedAreaMethodInfo
ResolveCellRendererToggleMethod "getAlignment" o = Gtk.CellRenderer.CellRendererGetAlignmentMethodInfo
ResolveCellRendererToggleMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCellRendererToggleMethod "getFixedSize" o = Gtk.CellRenderer.CellRendererGetFixedSizeMethodInfo
ResolveCellRendererToggleMethod "getPadding" o = Gtk.CellRenderer.CellRendererGetPaddingMethodInfo
ResolveCellRendererToggleMethod "getPreferredHeight" o = Gtk.CellRenderer.CellRendererGetPreferredHeightMethodInfo
ResolveCellRendererToggleMethod "getPreferredHeightForWidth" o = Gtk.CellRenderer.CellRendererGetPreferredHeightForWidthMethodInfo
ResolveCellRendererToggleMethod "getPreferredSize" o = Gtk.CellRenderer.CellRendererGetPreferredSizeMethodInfo
ResolveCellRendererToggleMethod "getPreferredWidth" o = Gtk.CellRenderer.CellRendererGetPreferredWidthMethodInfo
ResolveCellRendererToggleMethod "getPreferredWidthForHeight" o = Gtk.CellRenderer.CellRendererGetPreferredWidthForHeightMethodInfo
ResolveCellRendererToggleMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveCellRendererToggleMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveCellRendererToggleMethod "getRadio" o = CellRendererToggleGetRadioMethodInfo
ResolveCellRendererToggleMethod "getRequestMode" o = Gtk.CellRenderer.CellRendererGetRequestModeMethodInfo
ResolveCellRendererToggleMethod "getSensitive" o = Gtk.CellRenderer.CellRendererGetSensitiveMethodInfo
ResolveCellRendererToggleMethod "getSize" o = Gtk.CellRenderer.CellRendererGetSizeMethodInfo
ResolveCellRendererToggleMethod "getState" o = Gtk.CellRenderer.CellRendererGetStateMethodInfo
ResolveCellRendererToggleMethod "getVisible" o = Gtk.CellRenderer.CellRendererGetVisibleMethodInfo
ResolveCellRendererToggleMethod "setActivatable" o = CellRendererToggleSetActivatableMethodInfo
ResolveCellRendererToggleMethod "setActive" o = CellRendererToggleSetActiveMethodInfo
ResolveCellRendererToggleMethod "setAlignment" o = Gtk.CellRenderer.CellRendererSetAlignmentMethodInfo
ResolveCellRendererToggleMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCellRendererToggleMethod "setFixedSize" o = Gtk.CellRenderer.CellRendererSetFixedSizeMethodInfo
ResolveCellRendererToggleMethod "setPadding" o = Gtk.CellRenderer.CellRendererSetPaddingMethodInfo
ResolveCellRendererToggleMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCellRendererToggleMethod "setRadio" o = CellRendererToggleSetRadioMethodInfo
ResolveCellRendererToggleMethod "setSensitive" o = Gtk.CellRenderer.CellRendererSetSensitiveMethodInfo
ResolveCellRendererToggleMethod "setVisible" o = Gtk.CellRenderer.CellRendererSetVisibleMethodInfo
ResolveCellRendererToggleMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCellRendererToggleMethod t CellRendererToggle, O.MethodInfo info CellRendererToggle p) => O.IsLabelProxy t (CellRendererToggle -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveCellRendererToggleMethod t CellRendererToggle, O.MethodInfo info CellRendererToggle p) => O.IsLabel t (CellRendererToggle -> 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
type CellRendererToggleToggledCallback =
T.Text
-> IO ()
noCellRendererToggleToggledCallback :: Maybe CellRendererToggleToggledCallback
noCellRendererToggleToggledCallback = Nothing
type C_CellRendererToggleToggledCallback =
Ptr () ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CellRendererToggleToggledCallback :: C_CellRendererToggleToggledCallback -> IO (FunPtr C_CellRendererToggleToggledCallback)
genClosure_CellRendererToggleToggled :: CellRendererToggleToggledCallback -> IO Closure
genClosure_CellRendererToggleToggled cb = do
let cb' = wrap_CellRendererToggleToggledCallback cb
mk_CellRendererToggleToggledCallback cb' >>= newCClosure
wrap_CellRendererToggleToggledCallback ::
CellRendererToggleToggledCallback ->
C_CellRendererToggleToggledCallback
wrap_CellRendererToggleToggledCallback _cb _ path _ = do
path' <- cstringToText path
_cb path'
onCellRendererToggleToggled :: (IsCellRendererToggle a, MonadIO m) => a -> CellRendererToggleToggledCallback -> m SignalHandlerId
onCellRendererToggleToggled obj cb = liftIO $ do
let cb' = wrap_CellRendererToggleToggledCallback cb
cb'' <- mk_CellRendererToggleToggledCallback cb'
connectSignalFunPtr obj "toggled" cb'' SignalConnectBefore
afterCellRendererToggleToggled :: (IsCellRendererToggle a, MonadIO m) => a -> CellRendererToggleToggledCallback -> m SignalHandlerId
afterCellRendererToggleToggled obj cb = liftIO $ do
let cb' = wrap_CellRendererToggleToggledCallback cb
cb'' <- mk_CellRendererToggleToggledCallback cb'
connectSignalFunPtr obj "toggled" cb'' SignalConnectAfter
getCellRendererToggleActivatable :: (MonadIO m, IsCellRendererToggle o) => o -> m Bool
getCellRendererToggleActivatable obj = liftIO $ getObjectPropertyBool obj "activatable"
setCellRendererToggleActivatable :: (MonadIO m, IsCellRendererToggle o) => o -> Bool -> m ()
setCellRendererToggleActivatable obj val = liftIO $ setObjectPropertyBool obj "activatable" val
constructCellRendererToggleActivatable :: (IsCellRendererToggle o) => Bool -> IO (GValueConstruct o)
constructCellRendererToggleActivatable val = constructObjectPropertyBool "activatable" val
#if ENABLE_OVERLOADING
data CellRendererToggleActivatablePropertyInfo
instance AttrInfo CellRendererToggleActivatablePropertyInfo where
type AttrAllowedOps CellRendererToggleActivatablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CellRendererToggleActivatablePropertyInfo = (~) Bool
type AttrBaseTypeConstraint CellRendererToggleActivatablePropertyInfo = IsCellRendererToggle
type AttrGetType CellRendererToggleActivatablePropertyInfo = Bool
type AttrLabel CellRendererToggleActivatablePropertyInfo = "activatable"
type AttrOrigin CellRendererToggleActivatablePropertyInfo = CellRendererToggle
attrGet _ = getCellRendererToggleActivatable
attrSet _ = setCellRendererToggleActivatable
attrConstruct _ = constructCellRendererToggleActivatable
attrClear _ = undefined
#endif
getCellRendererToggleActive :: (MonadIO m, IsCellRendererToggle o) => o -> m Bool
getCellRendererToggleActive obj = liftIO $ getObjectPropertyBool obj "active"
setCellRendererToggleActive :: (MonadIO m, IsCellRendererToggle o) => o -> Bool -> m ()
setCellRendererToggleActive obj val = liftIO $ setObjectPropertyBool obj "active" val
constructCellRendererToggleActive :: (IsCellRendererToggle o) => Bool -> IO (GValueConstruct o)
constructCellRendererToggleActive val = constructObjectPropertyBool "active" val
#if ENABLE_OVERLOADING
data CellRendererToggleActivePropertyInfo
instance AttrInfo CellRendererToggleActivePropertyInfo where
type AttrAllowedOps CellRendererToggleActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CellRendererToggleActivePropertyInfo = (~) Bool
type AttrBaseTypeConstraint CellRendererToggleActivePropertyInfo = IsCellRendererToggle
type AttrGetType CellRendererToggleActivePropertyInfo = Bool
type AttrLabel CellRendererToggleActivePropertyInfo = "active"
type AttrOrigin CellRendererToggleActivePropertyInfo = CellRendererToggle
attrGet _ = getCellRendererToggleActive
attrSet _ = setCellRendererToggleActive
attrConstruct _ = constructCellRendererToggleActive
attrClear _ = undefined
#endif
getCellRendererToggleInconsistent :: (MonadIO m, IsCellRendererToggle o) => o -> m Bool
getCellRendererToggleInconsistent obj = liftIO $ getObjectPropertyBool obj "inconsistent"
setCellRendererToggleInconsistent :: (MonadIO m, IsCellRendererToggle o) => o -> Bool -> m ()
setCellRendererToggleInconsistent obj val = liftIO $ setObjectPropertyBool obj "inconsistent" val
constructCellRendererToggleInconsistent :: (IsCellRendererToggle o) => Bool -> IO (GValueConstruct o)
constructCellRendererToggleInconsistent val = constructObjectPropertyBool "inconsistent" val
#if ENABLE_OVERLOADING
data CellRendererToggleInconsistentPropertyInfo
instance AttrInfo CellRendererToggleInconsistentPropertyInfo where
type AttrAllowedOps CellRendererToggleInconsistentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CellRendererToggleInconsistentPropertyInfo = (~) Bool
type AttrBaseTypeConstraint CellRendererToggleInconsistentPropertyInfo = IsCellRendererToggle
type AttrGetType CellRendererToggleInconsistentPropertyInfo = Bool
type AttrLabel CellRendererToggleInconsistentPropertyInfo = "inconsistent"
type AttrOrigin CellRendererToggleInconsistentPropertyInfo = CellRendererToggle
attrGet _ = getCellRendererToggleInconsistent
attrSet _ = setCellRendererToggleInconsistent
attrConstruct _ = constructCellRendererToggleInconsistent
attrClear _ = undefined
#endif
getCellRendererToggleIndicatorSize :: (MonadIO m, IsCellRendererToggle o) => o -> m Int32
getCellRendererToggleIndicatorSize obj = liftIO $ getObjectPropertyInt32 obj "indicator-size"
setCellRendererToggleIndicatorSize :: (MonadIO m, IsCellRendererToggle o) => o -> Int32 -> m ()
setCellRendererToggleIndicatorSize obj val = liftIO $ setObjectPropertyInt32 obj "indicator-size" val
constructCellRendererToggleIndicatorSize :: (IsCellRendererToggle o) => Int32 -> IO (GValueConstruct o)
constructCellRendererToggleIndicatorSize val = constructObjectPropertyInt32 "indicator-size" val
#if ENABLE_OVERLOADING
data CellRendererToggleIndicatorSizePropertyInfo
instance AttrInfo CellRendererToggleIndicatorSizePropertyInfo where
type AttrAllowedOps CellRendererToggleIndicatorSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CellRendererToggleIndicatorSizePropertyInfo = (~) Int32
type AttrBaseTypeConstraint CellRendererToggleIndicatorSizePropertyInfo = IsCellRendererToggle
type AttrGetType CellRendererToggleIndicatorSizePropertyInfo = Int32
type AttrLabel CellRendererToggleIndicatorSizePropertyInfo = "indicator-size"
type AttrOrigin CellRendererToggleIndicatorSizePropertyInfo = CellRendererToggle
attrGet _ = getCellRendererToggleIndicatorSize
attrSet _ = setCellRendererToggleIndicatorSize
attrConstruct _ = constructCellRendererToggleIndicatorSize
attrClear _ = undefined
#endif
getCellRendererToggleRadio :: (MonadIO m, IsCellRendererToggle o) => o -> m Bool
getCellRendererToggleRadio obj = liftIO $ getObjectPropertyBool obj "radio"
setCellRendererToggleRadio :: (MonadIO m, IsCellRendererToggle o) => o -> Bool -> m ()
setCellRendererToggleRadio obj val = liftIO $ setObjectPropertyBool obj "radio" val
constructCellRendererToggleRadio :: (IsCellRendererToggle o) => Bool -> IO (GValueConstruct o)
constructCellRendererToggleRadio val = constructObjectPropertyBool "radio" val
#if ENABLE_OVERLOADING
data CellRendererToggleRadioPropertyInfo
instance AttrInfo CellRendererToggleRadioPropertyInfo where
type AttrAllowedOps CellRendererToggleRadioPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CellRendererToggleRadioPropertyInfo = (~) Bool
type AttrBaseTypeConstraint CellRendererToggleRadioPropertyInfo = IsCellRendererToggle
type AttrGetType CellRendererToggleRadioPropertyInfo = Bool
type AttrLabel CellRendererToggleRadioPropertyInfo = "radio"
type AttrOrigin CellRendererToggleRadioPropertyInfo = CellRendererToggle
attrGet _ = getCellRendererToggleRadio
attrSet _ = setCellRendererToggleRadio
attrConstruct _ = constructCellRendererToggleRadio
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList CellRendererToggle
type instance O.AttributeList CellRendererToggle = CellRendererToggleAttributeList
type CellRendererToggleAttributeList = ('[ '("activatable", CellRendererToggleActivatablePropertyInfo), '("active", CellRendererToggleActivePropertyInfo), '("cellBackground", Gtk.CellRenderer.CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", Gtk.CellRenderer.CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", Gtk.CellRenderer.CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", Gtk.CellRenderer.CellRendererCellBackgroundSetPropertyInfo), '("editing", Gtk.CellRenderer.CellRendererEditingPropertyInfo), '("height", Gtk.CellRenderer.CellRendererHeightPropertyInfo), '("inconsistent", CellRendererToggleInconsistentPropertyInfo), '("indicatorSize", CellRendererToggleIndicatorSizePropertyInfo), '("isExpanded", Gtk.CellRenderer.CellRendererIsExpandedPropertyInfo), '("isExpander", Gtk.CellRenderer.CellRendererIsExpanderPropertyInfo), '("mode", Gtk.CellRenderer.CellRendererModePropertyInfo), '("radio", CellRendererToggleRadioPropertyInfo), '("sensitive", Gtk.CellRenderer.CellRendererSensitivePropertyInfo), '("visible", Gtk.CellRenderer.CellRendererVisiblePropertyInfo), '("width", Gtk.CellRenderer.CellRendererWidthPropertyInfo), '("xalign", Gtk.CellRenderer.CellRendererXalignPropertyInfo), '("xpad", Gtk.CellRenderer.CellRendererXpadPropertyInfo), '("yalign", Gtk.CellRenderer.CellRendererYalignPropertyInfo), '("ypad", Gtk.CellRenderer.CellRendererYpadPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
cellRendererToggleActivatable :: AttrLabelProxy "activatable"
cellRendererToggleActivatable = AttrLabelProxy
cellRendererToggleActive :: AttrLabelProxy "active"
cellRendererToggleActive = AttrLabelProxy
cellRendererToggleInconsistent :: AttrLabelProxy "inconsistent"
cellRendererToggleInconsistent = AttrLabelProxy
cellRendererToggleIndicatorSize :: AttrLabelProxy "indicatorSize"
cellRendererToggleIndicatorSize = AttrLabelProxy
cellRendererToggleRadio :: AttrLabelProxy "radio"
cellRendererToggleRadio = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
data CellRendererToggleToggledSignalInfo
instance SignalInfo CellRendererToggleToggledSignalInfo where
type HaskellCallbackType CellRendererToggleToggledSignalInfo = CellRendererToggleToggledCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_CellRendererToggleToggledCallback cb
cb'' <- mk_CellRendererToggleToggledCallback cb'
connectSignalFunPtr obj "toggled" cb'' connectMode
type instance O.SignalList CellRendererToggle = CellRendererToggleSignalList
type CellRendererToggleSignalList = ('[ '("editingCanceled", Gtk.CellRenderer.CellRendererEditingCanceledSignalInfo), '("editingStarted", Gtk.CellRenderer.CellRendererEditingStartedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("toggled", CellRendererToggleToggledSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_cell_renderer_toggle_new" gtk_cell_renderer_toggle_new ::
IO (Ptr CellRendererToggle)
cellRendererToggleNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m CellRendererToggle
cellRendererToggleNew = liftIO $ do
result <- gtk_cell_renderer_toggle_new
checkUnexpectedReturnNULL "cellRendererToggleNew" result
result' <- (newObject CellRendererToggle) result
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "gtk_cell_renderer_toggle_get_activatable" gtk_cell_renderer_toggle_get_activatable ::
Ptr CellRendererToggle ->
IO CInt
cellRendererToggleGetActivatable ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRendererToggle a) =>
a
-> m Bool
cellRendererToggleGetActivatable toggle = liftIO $ do
toggle' <- unsafeManagedPtrCastPtr toggle
result <- gtk_cell_renderer_toggle_get_activatable toggle'
let result' = (/= 0) result
touchManagedPtr toggle
return result'
#if ENABLE_OVERLOADING
data CellRendererToggleGetActivatableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCellRendererToggle a) => O.MethodInfo CellRendererToggleGetActivatableMethodInfo a signature where
overloadedMethod _ = cellRendererToggleGetActivatable
#endif
foreign import ccall "gtk_cell_renderer_toggle_get_active" gtk_cell_renderer_toggle_get_active ::
Ptr CellRendererToggle ->
IO CInt
cellRendererToggleGetActive ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRendererToggle a) =>
a
-> m Bool
cellRendererToggleGetActive toggle = liftIO $ do
toggle' <- unsafeManagedPtrCastPtr toggle
result <- gtk_cell_renderer_toggle_get_active toggle'
let result' = (/= 0) result
touchManagedPtr toggle
return result'
#if ENABLE_OVERLOADING
data CellRendererToggleGetActiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCellRendererToggle a) => O.MethodInfo CellRendererToggleGetActiveMethodInfo a signature where
overloadedMethod _ = cellRendererToggleGetActive
#endif
foreign import ccall "gtk_cell_renderer_toggle_get_radio" gtk_cell_renderer_toggle_get_radio ::
Ptr CellRendererToggle ->
IO CInt
cellRendererToggleGetRadio ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRendererToggle a) =>
a
-> m Bool
cellRendererToggleGetRadio toggle = liftIO $ do
toggle' <- unsafeManagedPtrCastPtr toggle
result <- gtk_cell_renderer_toggle_get_radio toggle'
let result' = (/= 0) result
touchManagedPtr toggle
return result'
#if ENABLE_OVERLOADING
data CellRendererToggleGetRadioMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCellRendererToggle a) => O.MethodInfo CellRendererToggleGetRadioMethodInfo a signature where
overloadedMethod _ = cellRendererToggleGetRadio
#endif
foreign import ccall "gtk_cell_renderer_toggle_set_activatable" gtk_cell_renderer_toggle_set_activatable ::
Ptr CellRendererToggle ->
CInt ->
IO ()
cellRendererToggleSetActivatable ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRendererToggle a) =>
a
-> Bool
-> m ()
cellRendererToggleSetActivatable toggle setting = liftIO $ do
toggle' <- unsafeManagedPtrCastPtr toggle
let setting' = (fromIntegral . fromEnum) setting
gtk_cell_renderer_toggle_set_activatable toggle' setting'
touchManagedPtr toggle
return ()
#if ENABLE_OVERLOADING
data CellRendererToggleSetActivatableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsCellRendererToggle a) => O.MethodInfo CellRendererToggleSetActivatableMethodInfo a signature where
overloadedMethod _ = cellRendererToggleSetActivatable
#endif
foreign import ccall "gtk_cell_renderer_toggle_set_active" gtk_cell_renderer_toggle_set_active ::
Ptr CellRendererToggle ->
CInt ->
IO ()
cellRendererToggleSetActive ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRendererToggle a) =>
a
-> Bool
-> m ()
cellRendererToggleSetActive toggle setting = liftIO $ do
toggle' <- unsafeManagedPtrCastPtr toggle
let setting' = (fromIntegral . fromEnum) setting
gtk_cell_renderer_toggle_set_active toggle' setting'
touchManagedPtr toggle
return ()
#if ENABLE_OVERLOADING
data CellRendererToggleSetActiveMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsCellRendererToggle a) => O.MethodInfo CellRendererToggleSetActiveMethodInfo a signature where
overloadedMethod _ = cellRendererToggleSetActive
#endif
foreign import ccall "gtk_cell_renderer_toggle_set_radio" gtk_cell_renderer_toggle_set_radio ::
Ptr CellRendererToggle ->
CInt ->
IO ()
cellRendererToggleSetRadio ::
(B.CallStack.HasCallStack, MonadIO m, IsCellRendererToggle a) =>
a
-> Bool
-> m ()
cellRendererToggleSetRadio toggle radio = liftIO $ do
toggle' <- unsafeManagedPtrCastPtr toggle
let radio' = (fromIntegral . fromEnum) radio
gtk_cell_renderer_toggle_set_radio toggle' radio'
touchManagedPtr toggle
return ()
#if ENABLE_OVERLOADING
data CellRendererToggleSetRadioMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsCellRendererToggle a) => O.MethodInfo CellRendererToggleSetRadioMethodInfo a signature where
overloadedMethod _ = cellRendererToggleSetRadio
#endif