{-# 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
(CellRendererToggle -> CellRendererToggle -> Bool)
-> (CellRendererToggle -> CellRendererToggle -> Bool)
-> Eq CellRendererToggle
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CellRendererToggle -> CellRendererToggle -> Bool
== :: CellRendererToggle -> CellRendererToggle -> Bool
$c/= :: CellRendererToggle -> CellRendererToggle -> Bool
/= :: 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 = IO CellRendererToggle -> m CellRendererToggle
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CellRendererToggle -> m CellRendererToggle)
-> (o -> IO CellRendererToggle) -> o -> m CellRendererToggle
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr CellRendererToggle -> CellRendererToggle)
-> o -> IO CellRendererToggle
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 = Ptr GValue -> Ptr CellRendererToggle -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr CellRendererToggle
forall a. Ptr a
FP.nullPtr :: FP.Ptr CellRendererToggle)
gvalueSet_ Ptr GValue
gv (P.Just CellRendererToggle
obj) = CellRendererToggle -> (Ptr CellRendererToggle -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr CellRendererToggle
obj (Ptr GValue -> Ptr CellRendererToggle -> IO ()
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 <- Ptr GValue -> IO (Ptr CellRendererToggle)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr CellRendererToggle)
if Ptr CellRendererToggle
ptr Ptr CellRendererToggle -> Ptr CellRendererToggle -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr CellRendererToggle
forall a. Ptr a
FP.nullPtr
then CellRendererToggle -> Maybe CellRendererToggle
forall a. a -> Maybe a
P.Just (CellRendererToggle -> Maybe CellRendererToggle)
-> IO CellRendererToggle -> IO (Maybe CellRendererToggle)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr CellRendererToggle -> CellRendererToggle)
-> Ptr CellRendererToggle -> IO CellRendererToggle
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 Maybe CellRendererToggle -> IO (Maybe CellRendererToggle)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CellRendererToggle
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
CString -> IO Text
cstringToText CString
path
Ptr CellRendererToggle -> (CellRendererToggle -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr CellRendererToggle
gi'selfPtr ((CellRendererToggle -> IO ()) -> IO ())
-> (CellRendererToggle -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \CellRendererToggle
gi'self -> a -> CellRendererToggleToggledCallback
gi'cb (CellRendererToggle -> a
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 = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> CellRendererToggleToggledCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => CellRendererToggleToggledCallback
CellRendererToggleToggledCallback
cb
let wrapped' :: C_CellRendererToggleToggledCallback
wrapped' = (a -> CellRendererToggleToggledCallback)
-> C_CellRendererToggleToggledCallback
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'
a
-> Text
-> FunPtr C_CellRendererToggleToggledCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
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 Maybe Text
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 = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> CellRendererToggleToggledCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => CellRendererToggleToggledCallback
CellRendererToggleToggledCallback
cb
let wrapped' :: C_CellRendererToggleToggledCallback
wrapped' = (a -> CellRendererToggleToggledCallback)
-> C_CellRendererToggleToggledCallback
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'
a
-> Text
-> FunPtr C_CellRendererToggleToggledCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
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 Maybe Text
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.41/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 = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
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 = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
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.41/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 = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
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 = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
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.41/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 = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
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 = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
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.41/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 = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
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 = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
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.41/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 = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
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 = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
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.41/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 = IO CellRendererToggle -> m CellRendererToggle
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CellRendererToggle -> m CellRendererToggle)
-> IO CellRendererToggle -> m CellRendererToggle
forall a b. (a -> b) -> a -> b
$ do
Ptr CellRendererToggle
result <- IO (Ptr CellRendererToggle)
gtk_cell_renderer_toggle_new
Text -> Ptr CellRendererToggle -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"cellRendererToggleNew" Ptr CellRendererToggle
result
CellRendererToggle
result' <- ((ManagedPtr CellRendererToggle -> CellRendererToggle)
-> Ptr CellRendererToggle -> IO CellRendererToggle
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellRendererToggle -> CellRendererToggle
CellRendererToggle) Ptr CellRendererToggle
result
CellRendererToggle -> IO CellRendererToggle
forall a. a -> IO a
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 = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr CellRendererToggle
toggle' <- a -> IO (Ptr CellRendererToggle)
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' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toggle
Bool -> IO Bool
forall a. a -> IO a
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.41/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 = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr CellRendererToggle
toggle' <- a -> IO (Ptr CellRendererToggle)
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' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toggle
Bool -> IO Bool
forall a. a -> IO a
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.41/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 = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr CellRendererToggle
toggle' <- a -> IO (Ptr CellRendererToggle)
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' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toggle
Bool -> IO Bool
forall a. a -> IO a
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.41/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CellRendererToggle
toggle' <- a -> IO (Ptr CellRendererToggle)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toggle
let setting' :: CInt
setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
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'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toggle
() -> IO ()
forall a. a -> IO a
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.41/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CellRendererToggle
toggle' <- a -> IO (Ptr CellRendererToggle)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toggle
let setting' :: CInt
setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
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'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toggle
() -> IO ()
forall a. a -> IO a
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.41/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CellRendererToggle
toggle' <- a -> IO (Ptr CellRendererToggle)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toggle
let radio' :: CInt
radio' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
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'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toggle
() -> IO ()
forall a. a -> IO a
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.41/docs/GI-Gtk-Objects-CellRendererToggle.html#v:cellRendererToggleSetRadio"
})
#endif