{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.CellRendererToggle
(
CellRendererToggle(..) ,
IsCellRendererToggle ,
toCellRendererToggle ,
#if defined(ENABLE_OVERLOADING)
ResolveCellRendererToggleMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
CellRendererToggleGetActivatableMethodInfo,
#endif
cellRendererToggleGetActivatable ,
#if defined(ENABLE_OVERLOADING)
CellRendererToggleGetActiveMethodInfo ,
#endif
cellRendererToggleGetActive ,
#if defined(ENABLE_OVERLOADING)
CellRendererToggleGetRadioMethodInfo ,
#endif
cellRendererToggleGetRadio ,
cellRendererToggleNew ,
#if defined(ENABLE_OVERLOADING)
CellRendererToggleSetActivatableMethodInfo,
#endif
cellRendererToggleSetActivatable ,
#if defined(ENABLE_OVERLOADING)
CellRendererToggleSetActiveMethodInfo ,
#endif
cellRendererToggleSetActive ,
#if defined(ENABLE_OVERLOADING)
CellRendererToggleSetRadioMethodInfo ,
#endif
cellRendererToggleSetRadio ,
#if defined(ENABLE_OVERLOADING)
CellRendererToggleActivatablePropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererToggleActivatable ,
#endif
constructCellRendererToggleActivatable ,
getCellRendererToggleActivatable ,
setCellRendererToggleActivatable ,
#if defined(ENABLE_OVERLOADING)
CellRendererToggleActivePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererToggleActive ,
#endif
constructCellRendererToggleActive ,
getCellRendererToggleActive ,
setCellRendererToggleActive ,
#if defined(ENABLE_OVERLOADING)
CellRendererToggleInconsistentPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererToggleInconsistent ,
#endif
constructCellRendererToggleInconsistent ,
getCellRendererToggleInconsistent ,
setCellRendererToggleInconsistent ,
#if defined(ENABLE_OVERLOADING)
CellRendererToggleIndicatorSizePropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererToggleIndicatorSize ,
#endif
constructCellRendererToggleIndicatorSize,
getCellRendererToggleIndicatorSize ,
setCellRendererToggleIndicatorSize ,
#if defined(ENABLE_OVERLOADING)
CellRendererToggleRadioPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cellRendererToggleRadio ,
#endif
constructCellRendererToggleRadio ,
getCellRendererToggleRadio ,
setCellRendererToggleRadio ,
CellRendererToggleToggledCallback ,
#if defined(ENABLE_OVERLOADING)
CellRendererToggleToggledSignalInfo ,
#endif
afterCellRendererToggleToggled ,
onCellRendererToggleToggled ,
) 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 qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellRenderer as Gtk.CellRenderer
newtype CellRendererToggle = CellRendererToggle (SP.ManagedPtr CellRendererToggle)
deriving (CellRendererToggle -> CellRendererToggle -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CellRendererToggle -> CellRendererToggle -> Bool
$c/= :: CellRendererToggle -> CellRendererToggle -> Bool
== :: CellRendererToggle -> CellRendererToggle -> Bool
$c== :: CellRendererToggle -> CellRendererToggle -> Bool
Eq)
instance SP.ManagedPtrNewtype CellRendererToggle where
toManagedPtr :: CellRendererToggle -> ManagedPtr CellRendererToggle
toManagedPtr (CellRendererToggle ManagedPtr CellRendererToggle
p) = ManagedPtr CellRendererToggle
p
foreign import ccall "gtk_cell_renderer_toggle_get_type"
c_gtk_cell_renderer_toggle_get_type :: IO B.Types.GType
instance B.Types.TypedObject CellRendererToggle where
glibType :: IO GType
glibType = IO GType
c_gtk_cell_renderer_toggle_get_type
instance B.Types.GObject CellRendererToggle
class (SP.GObject o, O.IsDescendantOf CellRendererToggle o) => IsCellRendererToggle o
instance (SP.GObject o, O.IsDescendantOf CellRendererToggle o) => IsCellRendererToggle o
instance O.HasParentTypes CellRendererToggle
type instance O.ParentTypes CellRendererToggle = '[Gtk.CellRenderer.CellRenderer, GObject.Object.Object]
toCellRendererToggle :: (MIO.MonadIO m, IsCellRendererToggle o) => o -> m CellRendererToggle
toCellRendererToggle :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererToggle o) =>
o -> m CellRendererToggle
toCellRendererToggle = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr CellRendererToggle -> CellRendererToggle
CellRendererToggle
instance B.GValue.IsGValue (Maybe CellRendererToggle) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_cell_renderer_toggle_get_type
gvalueSet_ :: Ptr GValue -> Maybe CellRendererToggle -> IO ()
gvalueSet_ Ptr GValue
gv Maybe CellRendererToggle
P.Nothing = forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr CellRendererToggle)
gvalueSet_ Ptr GValue
gv (P.Just CellRendererToggle
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr CellRendererToggle
obj (forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe CellRendererToggle)
gvalueGet_ Ptr GValue
gv = do
Ptr CellRendererToggle
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr CellRendererToggle)
if Ptr CellRendererToggle
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr CellRendererToggle -> CellRendererToggle
CellRendererToggle Ptr CellRendererToggle
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveCellRendererToggleMethod (t :: Symbol) (o :: DK.Type) :: DK.Type 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 "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
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.OverloadedMethod info CellRendererToggle p) => OL.IsLabel t (CellRendererToggle -> 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 ~ ResolveCellRendererToggleMethod t CellRendererToggle, O.OverloadedMethod info CellRendererToggle p, R.HasField t CellRendererToggle p) => R.HasField t CellRendererToggle p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveCellRendererToggleMethod t CellRendererToggle, O.OverloadedMethodInfo info CellRendererToggle) => OL.IsLabel t (O.MethodProxy info CellRendererToggle) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type CellRendererToggleToggledCallback =
T.Text
-> IO ()
type C_CellRendererToggleToggledCallback =
Ptr CellRendererToggle ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CellRendererToggleToggledCallback :: C_CellRendererToggleToggledCallback -> IO (FunPtr C_CellRendererToggleToggledCallback)
wrap_CellRendererToggleToggledCallback ::
GObject a => (a -> CellRendererToggleToggledCallback) ->
C_CellRendererToggleToggledCallback
wrap_CellRendererToggleToggledCallback :: forall a.
GObject a =>
(a -> CellRendererToggleToggledCallback)
-> C_CellRendererToggleToggledCallback
wrap_CellRendererToggleToggledCallback a -> CellRendererToggleToggledCallback
gi'cb Ptr CellRendererToggle
gi'selfPtr CString
path Ptr ()
_ = do
Text
path' <- HasCallStack => CString -> IO Text
cstringToText CString
path
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr CellRendererToggle
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \CellRendererToggle
gi'self -> a -> CellRendererToggleToggledCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce CellRendererToggle
gi'self) Text
path'
onCellRendererToggleToggled :: (IsCellRendererToggle a, MonadIO m) => a -> ((?self :: a) => CellRendererToggleToggledCallback) -> m SignalHandlerId
onCellRendererToggleToggled :: forall a (m :: * -> *).
(IsCellRendererToggle a, MonadIO m) =>
a
-> ((?self::a) => CellRendererToggleToggledCallback)
-> m SignalHandlerId
onCellRendererToggleToggled a
obj (?self::a) => CellRendererToggleToggledCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> CellRendererToggleToggledCallback
wrapped a
self = let ?self = a
self in (?self::a) => CellRendererToggleToggledCallback
cb
let wrapped' :: C_CellRendererToggleToggledCallback
wrapped' = forall a.
GObject a =>
(a -> CellRendererToggleToggledCallback)
-> C_CellRendererToggleToggledCallback
wrap_CellRendererToggleToggledCallback a -> CellRendererToggleToggledCallback
wrapped
FunPtr C_CellRendererToggleToggledCallback
wrapped'' <- C_CellRendererToggleToggledCallback
-> IO (FunPtr C_CellRendererToggleToggledCallback)
mk_CellRendererToggleToggledCallback C_CellRendererToggleToggledCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"toggled" FunPtr C_CellRendererToggleToggledCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterCellRendererToggleToggled :: (IsCellRendererToggle a, MonadIO m) => a -> ((?self :: a) => CellRendererToggleToggledCallback) -> m SignalHandlerId
afterCellRendererToggleToggled :: forall a (m :: * -> *).
(IsCellRendererToggle a, MonadIO m) =>
a
-> ((?self::a) => CellRendererToggleToggledCallback)
-> m SignalHandlerId
afterCellRendererToggleToggled a
obj (?self::a) => CellRendererToggleToggledCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> CellRendererToggleToggledCallback
wrapped a
self = let ?self = a
self in (?self::a) => CellRendererToggleToggledCallback
cb
let wrapped' :: C_CellRendererToggleToggledCallback
wrapped' = forall a.
GObject a =>
(a -> CellRendererToggleToggledCallback)
-> C_CellRendererToggleToggledCallback
wrap_CellRendererToggleToggledCallback a -> CellRendererToggleToggledCallback
wrapped
FunPtr C_CellRendererToggleToggledCallback
wrapped'' <- C_CellRendererToggleToggledCallback
-> IO (FunPtr C_CellRendererToggleToggledCallback)
mk_CellRendererToggleToggledCallback C_CellRendererToggleToggledCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"toggled" FunPtr C_CellRendererToggleToggledCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data CellRendererToggleToggledSignalInfo
instance SignalInfo CellRendererToggleToggledSignalInfo where
type HaskellCallbackType CellRendererToggleToggledSignalInfo = CellRendererToggleToggledCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CellRendererToggleToggledCallback cb
cb'' <- mk_CellRendererToggleToggledCallback cb'
connectSignalFunPtr obj "toggled" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellRendererToggle::toggled"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-CellRendererToggle.html#g:signal:toggled"})
#endif
getCellRendererToggleActivatable :: (MonadIO m, IsCellRendererToggle o) => o -> m Bool
getCellRendererToggleActivatable :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererToggle o) =>
o -> m Bool
getCellRendererToggleActivatable o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"activatable"
setCellRendererToggleActivatable :: (MonadIO m, IsCellRendererToggle o) => o -> Bool -> m ()
setCellRendererToggleActivatable :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererToggle o) =>
o -> Bool -> m ()
setCellRendererToggleActivatable o
obj Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"activatable" Bool
val
constructCellRendererToggleActivatable :: (IsCellRendererToggle o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererToggleActivatable :: forall o (m :: * -> *).
(IsCellRendererToggle o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererToggleActivatable Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"activatable" Bool
val
#if defined(ENABLE_OVERLOADING)
data CellRendererToggleActivatablePropertyInfo
instance AttrInfo CellRendererToggleActivatablePropertyInfo where
type AttrAllowedOps CellRendererToggleActivatablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererToggleActivatablePropertyInfo = IsCellRendererToggle
type AttrSetTypeConstraint CellRendererToggleActivatablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererToggleActivatablePropertyInfo = (~) Bool
type AttrTransferType CellRendererToggleActivatablePropertyInfo = Bool
type AttrGetType CellRendererToggleActivatablePropertyInfo = Bool
type AttrLabel CellRendererToggleActivatablePropertyInfo = "activatable"
type AttrOrigin CellRendererToggleActivatablePropertyInfo = CellRendererToggle
attrGet = getCellRendererToggleActivatable
attrSet = setCellRendererToggleActivatable
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererToggleActivatable
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellRendererToggle.activatable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-CellRendererToggle.html#g:attr:activatable"
})
#endif
getCellRendererToggleActive :: (MonadIO m, IsCellRendererToggle o) => o -> m Bool
getCellRendererToggleActive :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererToggle o) =>
o -> m Bool
getCellRendererToggleActive o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"active"
setCellRendererToggleActive :: (MonadIO m, IsCellRendererToggle o) => o -> Bool -> m ()
setCellRendererToggleActive :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererToggle o) =>
o -> Bool -> m ()
setCellRendererToggleActive o
obj Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"active" Bool
val
constructCellRendererToggleActive :: (IsCellRendererToggle o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererToggleActive :: forall o (m :: * -> *).
(IsCellRendererToggle o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererToggleActive Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"active" Bool
val
#if defined(ENABLE_OVERLOADING)
data CellRendererToggleActivePropertyInfo
instance AttrInfo CellRendererToggleActivePropertyInfo where
type AttrAllowedOps CellRendererToggleActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererToggleActivePropertyInfo = IsCellRendererToggle
type AttrSetTypeConstraint CellRendererToggleActivePropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererToggleActivePropertyInfo = (~) Bool
type AttrTransferType CellRendererToggleActivePropertyInfo = Bool
type AttrGetType CellRendererToggleActivePropertyInfo = Bool
type AttrLabel CellRendererToggleActivePropertyInfo = "active"
type AttrOrigin CellRendererToggleActivePropertyInfo = CellRendererToggle
attrGet = getCellRendererToggleActive
attrSet = setCellRendererToggleActive
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererToggleActive
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellRendererToggle.active"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-CellRendererToggle.html#g:attr:active"
})
#endif
getCellRendererToggleInconsistent :: (MonadIO m, IsCellRendererToggle o) => o -> m Bool
getCellRendererToggleInconsistent :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererToggle o) =>
o -> m Bool
getCellRendererToggleInconsistent o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"inconsistent"
setCellRendererToggleInconsistent :: (MonadIO m, IsCellRendererToggle o) => o -> Bool -> m ()
setCellRendererToggleInconsistent :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererToggle o) =>
o -> Bool -> m ()
setCellRendererToggleInconsistent o
obj Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"inconsistent" Bool
val
constructCellRendererToggleInconsistent :: (IsCellRendererToggle o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererToggleInconsistent :: forall o (m :: * -> *).
(IsCellRendererToggle o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererToggleInconsistent Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"inconsistent" Bool
val
#if defined(ENABLE_OVERLOADING)
data CellRendererToggleInconsistentPropertyInfo
instance AttrInfo CellRendererToggleInconsistentPropertyInfo where
type AttrAllowedOps CellRendererToggleInconsistentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererToggleInconsistentPropertyInfo = IsCellRendererToggle
type AttrSetTypeConstraint CellRendererToggleInconsistentPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererToggleInconsistentPropertyInfo = (~) Bool
type AttrTransferType CellRendererToggleInconsistentPropertyInfo = Bool
type AttrGetType CellRendererToggleInconsistentPropertyInfo = Bool
type AttrLabel CellRendererToggleInconsistentPropertyInfo = "inconsistent"
type AttrOrigin CellRendererToggleInconsistentPropertyInfo = CellRendererToggle
attrGet = getCellRendererToggleInconsistent
attrSet = setCellRendererToggleInconsistent
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererToggleInconsistent
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellRendererToggle.inconsistent"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-CellRendererToggle.html#g:attr:inconsistent"
})
#endif
getCellRendererToggleIndicatorSize :: (MonadIO m, IsCellRendererToggle o) => o -> m Int32
getCellRendererToggleIndicatorSize :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererToggle o) =>
o -> m Int32
getCellRendererToggleIndicatorSize o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"indicator-size"
setCellRendererToggleIndicatorSize :: (MonadIO m, IsCellRendererToggle o) => o -> Int32 -> m ()
setCellRendererToggleIndicatorSize :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererToggle o) =>
o -> Int32 -> m ()
setCellRendererToggleIndicatorSize o
obj Int32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"indicator-size" Int32
val
constructCellRendererToggleIndicatorSize :: (IsCellRendererToggle o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructCellRendererToggleIndicatorSize :: forall o (m :: * -> *).
(IsCellRendererToggle o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructCellRendererToggleIndicatorSize Int32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"indicator-size" Int32
val
#if defined(ENABLE_OVERLOADING)
data CellRendererToggleIndicatorSizePropertyInfo
instance AttrInfo CellRendererToggleIndicatorSizePropertyInfo where
type AttrAllowedOps CellRendererToggleIndicatorSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererToggleIndicatorSizePropertyInfo = IsCellRendererToggle
type AttrSetTypeConstraint CellRendererToggleIndicatorSizePropertyInfo = (~) Int32
type AttrTransferTypeConstraint CellRendererToggleIndicatorSizePropertyInfo = (~) Int32
type AttrTransferType CellRendererToggleIndicatorSizePropertyInfo = Int32
type AttrGetType CellRendererToggleIndicatorSizePropertyInfo = Int32
type AttrLabel CellRendererToggleIndicatorSizePropertyInfo = "indicator-size"
type AttrOrigin CellRendererToggleIndicatorSizePropertyInfo = CellRendererToggle
attrGet = getCellRendererToggleIndicatorSize
attrSet = setCellRendererToggleIndicatorSize
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererToggleIndicatorSize
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellRendererToggle.indicatorSize"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-CellRendererToggle.html#g:attr:indicatorSize"
})
#endif
getCellRendererToggleRadio :: (MonadIO m, IsCellRendererToggle o) => o -> m Bool
getCellRendererToggleRadio :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererToggle o) =>
o -> m Bool
getCellRendererToggleRadio o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"radio"
setCellRendererToggleRadio :: (MonadIO m, IsCellRendererToggle o) => o -> Bool -> m ()
setCellRendererToggleRadio :: forall (m :: * -> *) o.
(MonadIO m, IsCellRendererToggle o) =>
o -> Bool -> m ()
setCellRendererToggleRadio o
obj Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"radio" Bool
val
constructCellRendererToggleRadio :: (IsCellRendererToggle o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCellRendererToggleRadio :: forall o (m :: * -> *).
(IsCellRendererToggle o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCellRendererToggleRadio Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"radio" Bool
val
#if defined(ENABLE_OVERLOADING)
data CellRendererToggleRadioPropertyInfo
instance AttrInfo CellRendererToggleRadioPropertyInfo where
type AttrAllowedOps CellRendererToggleRadioPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CellRendererToggleRadioPropertyInfo = IsCellRendererToggle
type AttrSetTypeConstraint CellRendererToggleRadioPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CellRendererToggleRadioPropertyInfo = (~) Bool
type AttrTransferType CellRendererToggleRadioPropertyInfo = Bool
type AttrGetType CellRendererToggleRadioPropertyInfo = Bool
type AttrLabel CellRendererToggleRadioPropertyInfo = "radio"
type AttrOrigin CellRendererToggleRadioPropertyInfo = CellRendererToggle
attrGet = getCellRendererToggleRadio
attrSet = setCellRendererToggleRadio
attrTransfer _ v = do
return v
attrConstruct = constructCellRendererToggleRadio
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellRendererToggle.radio"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-CellRendererToggle.html#g:attr:radio"
})
#endif
#if defined(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, DK.Type)])
#endif
#if defined(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 defined(ENABLE_OVERLOADING)
type instance O.SignalList CellRendererToggle = CellRendererToggleSignalList
type CellRendererToggleSignalList = ('[ '("editingCanceled", Gtk.CellRenderer.CellRendererEditingCanceledSignalInfo), '("editingStarted", Gtk.CellRenderer.CellRendererEditingStartedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("toggled", CellRendererToggleToggledSignalInfo)] :: [(Symbol, DK.Type)])
#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 :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
m CellRendererToggle
cellRendererToggleNew = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellRendererToggle
result <- IO (Ptr CellRendererToggle)
gtk_cell_renderer_toggle_new
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cellRendererToggleNew" Ptr CellRendererToggle
result
CellRendererToggle
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellRendererToggle -> CellRendererToggle
CellRendererToggle) Ptr CellRendererToggle
result
forall (m :: * -> *) a. Monad m => a -> m a
return CellRendererToggle
result'
#if defined(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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellRendererToggle a) =>
a -> m Bool
cellRendererToggleGetActivatable a
toggle = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellRendererToggle
toggle' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toggle
CInt
result <- Ptr CellRendererToggle -> IO CInt
gtk_cell_renderer_toggle_get_activatable Ptr CellRendererToggle
toggle'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toggle
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CellRendererToggleGetActivatableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCellRendererToggle a) => O.OverloadedMethod CellRendererToggleGetActivatableMethodInfo a signature where
overloadedMethod = cellRendererToggleGetActivatable
instance O.OverloadedMethodInfo CellRendererToggleGetActivatableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellRendererToggle.cellRendererToggleGetActivatable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-CellRendererToggle.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellRendererToggle a) =>
a -> m Bool
cellRendererToggleGetActive a
toggle = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellRendererToggle
toggle' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toggle
CInt
result <- Ptr CellRendererToggle -> IO CInt
gtk_cell_renderer_toggle_get_active Ptr CellRendererToggle
toggle'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toggle
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CellRendererToggleGetActiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCellRendererToggle a) => O.OverloadedMethod CellRendererToggleGetActiveMethodInfo a signature where
overloadedMethod = cellRendererToggleGetActive
instance O.OverloadedMethodInfo CellRendererToggleGetActiveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellRendererToggle.cellRendererToggleGetActive",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-CellRendererToggle.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellRendererToggle a) =>
a -> m Bool
cellRendererToggleGetRadio a
toggle = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellRendererToggle
toggle' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toggle
CInt
result <- Ptr CellRendererToggle -> IO CInt
gtk_cell_renderer_toggle_get_radio Ptr CellRendererToggle
toggle'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toggle
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CellRendererToggleGetRadioMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCellRendererToggle a) => O.OverloadedMethod CellRendererToggleGetRadioMethodInfo a signature where
overloadedMethod = cellRendererToggleGetRadio
instance O.OverloadedMethodInfo CellRendererToggleGetRadioMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellRendererToggle.cellRendererToggleGetRadio",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-CellRendererToggle.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellRendererToggle a) =>
a -> Bool -> m ()
cellRendererToggleSetActivatable a
toggle Bool
setting = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellRendererToggle
toggle' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toggle
let setting' :: CInt
setting' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
setting
Ptr CellRendererToggle -> CInt -> IO ()
gtk_cell_renderer_toggle_set_activatable Ptr CellRendererToggle
toggle' CInt
setting'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toggle
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CellRendererToggleSetActivatableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsCellRendererToggle a) => O.OverloadedMethod CellRendererToggleSetActivatableMethodInfo a signature where
overloadedMethod = cellRendererToggleSetActivatable
instance O.OverloadedMethodInfo CellRendererToggleSetActivatableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellRendererToggle.cellRendererToggleSetActivatable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-CellRendererToggle.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellRendererToggle a) =>
a -> Bool -> m ()
cellRendererToggleSetActive a
toggle Bool
setting = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellRendererToggle
toggle' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toggle
let setting' :: CInt
setting' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
setting
Ptr CellRendererToggle -> CInt -> IO ()
gtk_cell_renderer_toggle_set_active Ptr CellRendererToggle
toggle' CInt
setting'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toggle
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CellRendererToggleSetActiveMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsCellRendererToggle a) => O.OverloadedMethod CellRendererToggleSetActiveMethodInfo a signature where
overloadedMethod = cellRendererToggleSetActive
instance O.OverloadedMethodInfo CellRendererToggleSetActiveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellRendererToggle.cellRendererToggleSetActive",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-CellRendererToggle.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellRendererToggle a) =>
a -> Bool -> m ()
cellRendererToggleSetRadio a
toggle Bool
radio = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CellRendererToggle
toggle' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toggle
let radio' :: CInt
radio' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
radio
Ptr CellRendererToggle -> CInt -> IO ()
gtk_cell_renderer_toggle_set_radio Ptr CellRendererToggle
toggle' CInt
radio'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toggle
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CellRendererToggleSetRadioMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsCellRendererToggle a) => O.OverloadedMethod CellRendererToggleSetRadioMethodInfo a signature where
overloadedMethod = cellRendererToggleSetRadio
instance O.OverloadedMethodInfo CellRendererToggleSetRadioMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CellRendererToggle.cellRendererToggleSetRadio",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-CellRendererToggle.html#v:cellRendererToggleSetRadio"
})
#endif