{-# 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)
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 Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.Cairo.Structs.FontOptions as Cairo.FontOptions
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Interfaces.Paintable as Gdk.Paintable
import qualified GI.Gdk.Objects.Clipboard as Gdk.Clipboard
import qualified GI.Gdk.Objects.Cursor as Gdk.Cursor
import qualified GI.Gdk.Objects.Device as Gdk.Device
import qualified GI.Gdk.Objects.Display as Gdk.Display
import qualified GI.Gdk.Objects.Event as Gdk.Event
import qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock
import qualified GI.Gdk.Objects.Snapshot as Gdk.Snapshot
import qualified GI.Gdk.Objects.Surface as Gdk.Surface
import qualified GI.Gdk.Objects.Texture as Gdk.Texture
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import qualified GI.Graphene.Structs.Matrix as Graphene.Matrix
import qualified GI.Graphene.Structs.Point as Graphene.Point
import qualified GI.Graphene.Structs.Point3D as Graphene.Point3D
import qualified GI.Graphene.Structs.Rect as Graphene.Rect
import qualified GI.Graphene.Structs.Size as Graphene.Size
import qualified GI.Graphene.Structs.Vec3 as Graphene.Vec3
import qualified GI.Graphene.Structs.Vec4 as Graphene.Vec4
import qualified GI.Gsk.Enums as Gsk.Enums
import qualified GI.Gsk.Objects.GLShader as Gsk.GLShader
import qualified GI.Gsk.Objects.RenderNode as Gsk.RenderNode
import qualified GI.Gsk.Objects.Renderer as Gsk.Renderer
import qualified GI.Gsk.Structs.ColorStop as Gsk.ColorStop
import qualified GI.Gsk.Structs.Path as Gsk.Path
import qualified GI.Gsk.Structs.RoundedRect as Gsk.RoundedRect
import qualified GI.Gsk.Structs.Shadow as Gsk.Shadow
import qualified GI.Gsk.Structs.Stroke as Gsk.Stroke
import qualified GI.Gsk.Structs.Transform as Gsk.Transform
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.CellEditable as Gtk.CellEditable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Native as Gtk.Native
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Root as Gtk.Root
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.StyleProvider as Gtk.StyleProvider
import {-# SOURCE #-} qualified GI.Gtk.Objects.ATContext as Gtk.ATContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellRenderer as Gtk.CellRenderer
import {-# SOURCE #-} qualified GI.Gtk.Objects.EventController as Gtk.EventController
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutChild as Gtk.LayoutChild
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutManager as Gtk.LayoutManager
import {-# SOURCE #-} qualified GI.Gtk.Objects.Settings as Gtk.Settings
import {-# SOURCE #-} qualified GI.Gtk.Objects.Snapshot as Gtk.Snapshot
import {-# SOURCE #-} qualified GI.Gtk.Objects.StyleContext as Gtk.StyleContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.Tooltip as Gtk.Tooltip
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.Border as Gtk.Border
import {-# SOURCE #-} qualified GI.Gtk.Structs.Requisition as Gtk.Requisition
import qualified GI.Pango.Enums as Pango.Enums
import qualified GI.Pango.Objects.Context as Pango.Context
import qualified GI.Pango.Objects.FontMap as Pango.FontMap
import qualified GI.Pango.Objects.Layout as Pango.Layout
#else
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellRenderer as Gtk.CellRenderer
#endif
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 "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCellRendererToggleMethod "snapshot" o = Gtk.CellRenderer.CellRendererSnapshotMethodInfo
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 "getIsExpanded" o = Gtk.CellRenderer.CellRendererGetIsExpandedMethodInfo
ResolveCellRendererToggleMethod "getIsExpander" o = Gtk.CellRenderer.CellRendererGetIsExpanderMethodInfo
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 "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 "setIsExpanded" o = Gtk.CellRenderer.CellRendererSetIsExpandedMethodInfo
ResolveCellRendererToggleMethod "setIsExpander" o = Gtk.CellRenderer.CellRendererSetIsExpanderMethodInfo
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 o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject 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-4.0.9/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-4.0.9/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-4.0.9/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-4.0.9/docs/GI-Gtk-Objects-CellRendererToggle.html#g:attr:inconsistent"
})
#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-4.0.9/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), '("cellBackgroundRgba", Gtk.CellRenderer.CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", Gtk.CellRenderer.CellRendererCellBackgroundSetPropertyInfo), '("editing", Gtk.CellRenderer.CellRendererEditingPropertyInfo), '("height", Gtk.CellRenderer.CellRendererHeightPropertyInfo), '("inconsistent", CellRendererToggleInconsistentPropertyInfo), '("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
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)
{-# DEPRECATED cellRendererToggleNew ["(Since version 4.10)"] #-}
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
{-# DEPRECATED cellRendererToggleGetActivatable ["(Since version 4.10)"] #-}
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-4.0.9/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
{-# DEPRECATED cellRendererToggleGetActive ["(Since version 4.10)"] #-}
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-4.0.9/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
{-# DEPRECATED cellRendererToggleGetRadio ["(Since version 4.10)"] #-}
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-4.0.9/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 ()
{-# DEPRECATED cellRendererToggleSetActivatable ["(Since version 4.10)"] #-}
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-4.0.9/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 ()
{-# DEPRECATED cellRendererToggleSetActive ["(Since version 4.10)"] #-}
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-4.0.9/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 ()
{-# DEPRECATED cellRendererToggleSetRadio ["(Since version 4.10)"] #-}
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-4.0.9/docs/GI-Gtk-Objects-CellRendererToggle.html#v:cellRendererToggleSetRadio"
})
#endif