{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.ColumnViewCell
(
ColumnViewCell(..) ,
IsColumnViewCell ,
toColumnViewCell ,
#if defined(ENABLE_OVERLOADING)
ResolveColumnViewCellMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ColumnViewCellGetChildMethodInfo ,
#endif
columnViewCellGetChild ,
#if defined(ENABLE_OVERLOADING)
ColumnViewCellGetFocusableMethodInfo ,
#endif
columnViewCellGetFocusable ,
#if defined(ENABLE_OVERLOADING)
ColumnViewCellGetItemMethodInfo ,
#endif
columnViewCellGetItem ,
#if defined(ENABLE_OVERLOADING)
ColumnViewCellGetPositionMethodInfo ,
#endif
columnViewCellGetPosition ,
#if defined(ENABLE_OVERLOADING)
ColumnViewCellGetSelectedMethodInfo ,
#endif
columnViewCellGetSelected ,
#if defined(ENABLE_OVERLOADING)
ColumnViewCellSetChildMethodInfo ,
#endif
columnViewCellSetChild ,
#if defined(ENABLE_OVERLOADING)
ColumnViewCellSetFocusableMethodInfo ,
#endif
columnViewCellSetFocusable ,
#if defined(ENABLE_OVERLOADING)
ColumnViewCellChildPropertyInfo ,
#endif
clearColumnViewCellChild ,
#if defined(ENABLE_OVERLOADING)
columnViewCellChild ,
#endif
constructColumnViewCellChild ,
getColumnViewCellChild ,
setColumnViewCellChild ,
#if defined(ENABLE_OVERLOADING)
ColumnViewCellFocusablePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
columnViewCellFocusable ,
#endif
constructColumnViewCellFocusable ,
getColumnViewCellFocusable ,
setColumnViewCellFocusable ,
#if defined(ENABLE_OVERLOADING)
ColumnViewCellItemPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
columnViewCellItem ,
#endif
getColumnViewCellItem ,
#if defined(ENABLE_OVERLOADING)
ColumnViewCellPositionPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
columnViewCellPosition ,
#endif
getColumnViewCellPosition ,
#if defined(ENABLE_OVERLOADING)
ColumnViewCellSelectedPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
columnViewCellSelected ,
#endif
getColumnViewCellSelected ,
) 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.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.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.ListItem as Gtk.ListItem
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.ListItem as Gtk.ListItem
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
#endif
newtype ColumnViewCell = ColumnViewCell (SP.ManagedPtr ColumnViewCell)
deriving (ColumnViewCell -> ColumnViewCell -> Bool
(ColumnViewCell -> ColumnViewCell -> Bool)
-> (ColumnViewCell -> ColumnViewCell -> Bool) -> Eq ColumnViewCell
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ColumnViewCell -> ColumnViewCell -> Bool
== :: ColumnViewCell -> ColumnViewCell -> Bool
$c/= :: ColumnViewCell -> ColumnViewCell -> Bool
/= :: ColumnViewCell -> ColumnViewCell -> Bool
Eq)
instance SP.ManagedPtrNewtype ColumnViewCell where
toManagedPtr :: ColumnViewCell -> ManagedPtr ColumnViewCell
toManagedPtr (ColumnViewCell ManagedPtr ColumnViewCell
p) = ManagedPtr ColumnViewCell
p
foreign import ccall "gtk_column_view_cell_get_type"
c_gtk_column_view_cell_get_type :: IO B.Types.GType
instance B.Types.TypedObject ColumnViewCell where
glibType :: IO GType
glibType = IO GType
c_gtk_column_view_cell_get_type
instance B.Types.GObject ColumnViewCell
class (SP.GObject o, O.IsDescendantOf ColumnViewCell o) => IsColumnViewCell o
instance (SP.GObject o, O.IsDescendantOf ColumnViewCell o) => IsColumnViewCell o
instance O.HasParentTypes ColumnViewCell
type instance O.ParentTypes ColumnViewCell = '[Gtk.ListItem.ListItem, GObject.Object.Object]
toColumnViewCell :: (MIO.MonadIO m, IsColumnViewCell o) => o -> m ColumnViewCell
toColumnViewCell :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewCell o) =>
o -> m ColumnViewCell
toColumnViewCell = IO ColumnViewCell -> m ColumnViewCell
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ColumnViewCell -> m ColumnViewCell)
-> (o -> IO ColumnViewCell) -> o -> m ColumnViewCell
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ColumnViewCell -> ColumnViewCell)
-> o -> IO ColumnViewCell
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr ColumnViewCell -> ColumnViewCell
ColumnViewCell
instance B.GValue.IsGValue (Maybe ColumnViewCell) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_column_view_cell_get_type
gvalueSet_ :: Ptr GValue -> Maybe ColumnViewCell -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ColumnViewCell
P.Nothing = Ptr GValue -> Ptr ColumnViewCell -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr ColumnViewCell
forall a. Ptr a
FP.nullPtr :: FP.Ptr ColumnViewCell)
gvalueSet_ Ptr GValue
gv (P.Just ColumnViewCell
obj) = ColumnViewCell -> (Ptr ColumnViewCell -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ColumnViewCell
obj (Ptr GValue -> Ptr ColumnViewCell -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ColumnViewCell)
gvalueGet_ Ptr GValue
gv = do
Ptr ColumnViewCell
ptr <- Ptr GValue -> IO (Ptr ColumnViewCell)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr ColumnViewCell)
if Ptr ColumnViewCell
ptr Ptr ColumnViewCell -> Ptr ColumnViewCell -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ColumnViewCell
forall a. Ptr a
FP.nullPtr
then ColumnViewCell -> Maybe ColumnViewCell
forall a. a -> Maybe a
P.Just (ColumnViewCell -> Maybe ColumnViewCell)
-> IO ColumnViewCell -> IO (Maybe ColumnViewCell)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ColumnViewCell -> ColumnViewCell)
-> Ptr ColumnViewCell -> IO ColumnViewCell
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ColumnViewCell -> ColumnViewCell
ColumnViewCell Ptr ColumnViewCell
ptr
else Maybe ColumnViewCell -> IO (Maybe ColumnViewCell)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ColumnViewCell
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveColumnViewCellMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveColumnViewCellMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveColumnViewCellMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveColumnViewCellMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveColumnViewCellMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveColumnViewCellMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveColumnViewCellMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveColumnViewCellMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveColumnViewCellMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveColumnViewCellMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveColumnViewCellMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveColumnViewCellMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveColumnViewCellMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveColumnViewCellMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveColumnViewCellMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveColumnViewCellMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveColumnViewCellMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveColumnViewCellMethod "getAccessibleDescription" o = Gtk.ListItem.ListItemGetAccessibleDescriptionMethodInfo
ResolveColumnViewCellMethod "getAccessibleLabel" o = Gtk.ListItem.ListItemGetAccessibleLabelMethodInfo
ResolveColumnViewCellMethod "getActivatable" o = Gtk.ListItem.ListItemGetActivatableMethodInfo
ResolveColumnViewCellMethod "getChild" o = ColumnViewCellGetChildMethodInfo
ResolveColumnViewCellMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveColumnViewCellMethod "getFocusable" o = ColumnViewCellGetFocusableMethodInfo
ResolveColumnViewCellMethod "getItem" o = ColumnViewCellGetItemMethodInfo
ResolveColumnViewCellMethod "getPosition" o = ColumnViewCellGetPositionMethodInfo
ResolveColumnViewCellMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveColumnViewCellMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveColumnViewCellMethod "getSelectable" o = Gtk.ListItem.ListItemGetSelectableMethodInfo
ResolveColumnViewCellMethod "getSelected" o = ColumnViewCellGetSelectedMethodInfo
ResolveColumnViewCellMethod "setAccessibleDescription" o = Gtk.ListItem.ListItemSetAccessibleDescriptionMethodInfo
ResolveColumnViewCellMethod "setAccessibleLabel" o = Gtk.ListItem.ListItemSetAccessibleLabelMethodInfo
ResolveColumnViewCellMethod "setActivatable" o = Gtk.ListItem.ListItemSetActivatableMethodInfo
ResolveColumnViewCellMethod "setChild" o = ColumnViewCellSetChildMethodInfo
ResolveColumnViewCellMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveColumnViewCellMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveColumnViewCellMethod "setFocusable" o = ColumnViewCellSetFocusableMethodInfo
ResolveColumnViewCellMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveColumnViewCellMethod "setSelectable" o = Gtk.ListItem.ListItemSetSelectableMethodInfo
ResolveColumnViewCellMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveColumnViewCellMethod t ColumnViewCell, O.OverloadedMethod info ColumnViewCell p) => OL.IsLabel t (ColumnViewCell -> 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 ~ ResolveColumnViewCellMethod t ColumnViewCell, O.OverloadedMethod info ColumnViewCell p, R.HasField t ColumnViewCell p) => R.HasField t ColumnViewCell p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveColumnViewCellMethod t ColumnViewCell, O.OverloadedMethodInfo info ColumnViewCell) => OL.IsLabel t (O.MethodProxy info ColumnViewCell) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getColumnViewCellChild :: (MonadIO m, IsColumnViewCell o) => o -> m (Maybe Gtk.Widget.Widget)
getColumnViewCellChild :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewCell o) =>
o -> m (Maybe Widget)
getColumnViewCellChild o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"child" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setColumnViewCellChild :: (MonadIO m, IsColumnViewCell o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setColumnViewCellChild :: forall (m :: * -> *) o a.
(MonadIO m, IsColumnViewCell o, IsWidget a) =>
o -> a -> m ()
setColumnViewCellChild o
obj a
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 -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"child" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructColumnViewCellChild :: (IsColumnViewCell o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructColumnViewCellChild :: forall o (m :: * -> *) a.
(IsColumnViewCell o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructColumnViewCellChild a
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 -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"child" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearColumnViewCellChild :: (MonadIO m, IsColumnViewCell o) => o -> m ()
clearColumnViewCellChild :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewCell o) =>
o -> m ()
clearColumnViewCellChild o
obj = 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
$ o -> String -> Maybe Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"child" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data ColumnViewCellChildPropertyInfo
instance AttrInfo ColumnViewCellChildPropertyInfo where
type AttrAllowedOps ColumnViewCellChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ColumnViewCellChildPropertyInfo = IsColumnViewCell
type AttrSetTypeConstraint ColumnViewCellChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint ColumnViewCellChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType ColumnViewCellChildPropertyInfo = Gtk.Widget.Widget
type AttrGetType ColumnViewCellChildPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel ColumnViewCellChildPropertyInfo = "child"
type AttrOrigin ColumnViewCellChildPropertyInfo = ColumnViewCell
attrGet = getColumnViewCellChild
attrSet = setColumnViewCellChild
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructColumnViewCellChild
attrClear = clearColumnViewCellChild
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewCell.child"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ColumnViewCell.html#g:attr:child"
})
#endif
getColumnViewCellFocusable :: (MonadIO m, IsColumnViewCell o) => o -> m Bool
getColumnViewCellFocusable :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewCell o) =>
o -> m Bool
getColumnViewCellFocusable 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
"focusable"
setColumnViewCellFocusable :: (MonadIO m, IsColumnViewCell o) => o -> Bool -> m ()
setColumnViewCellFocusable :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewCell o) =>
o -> Bool -> m ()
setColumnViewCellFocusable 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
"focusable" Bool
val
constructColumnViewCellFocusable :: (IsColumnViewCell o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructColumnViewCellFocusable :: forall o (m :: * -> *).
(IsColumnViewCell o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructColumnViewCellFocusable 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
"focusable" Bool
val
#if defined(ENABLE_OVERLOADING)
data ColumnViewCellFocusablePropertyInfo
instance AttrInfo ColumnViewCellFocusablePropertyInfo where
type AttrAllowedOps ColumnViewCellFocusablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ColumnViewCellFocusablePropertyInfo = IsColumnViewCell
type AttrSetTypeConstraint ColumnViewCellFocusablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint ColumnViewCellFocusablePropertyInfo = (~) Bool
type AttrTransferType ColumnViewCellFocusablePropertyInfo = Bool
type AttrGetType ColumnViewCellFocusablePropertyInfo = Bool
type AttrLabel ColumnViewCellFocusablePropertyInfo = "focusable"
type AttrOrigin ColumnViewCellFocusablePropertyInfo = ColumnViewCell
attrGet = getColumnViewCellFocusable
attrSet = setColumnViewCellFocusable
attrTransfer _ v = do
return v
attrConstruct = constructColumnViewCellFocusable
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewCell.focusable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ColumnViewCell.html#g:attr:focusable"
})
#endif
getColumnViewCellItem :: (MonadIO m, IsColumnViewCell o) => o -> m (Maybe GObject.Object.Object)
getColumnViewCellItem :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewCell o) =>
o -> m (Maybe Object)
getColumnViewCellItem o
obj = IO (Maybe Object) -> m (Maybe Object)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Object) -> m (Maybe Object))
-> IO (Maybe Object) -> m (Maybe Object)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Object -> Object) -> IO (Maybe Object)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"item" ManagedPtr Object -> Object
GObject.Object.Object
#if defined(ENABLE_OVERLOADING)
data ColumnViewCellItemPropertyInfo
instance AttrInfo ColumnViewCellItemPropertyInfo where
type AttrAllowedOps ColumnViewCellItemPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ColumnViewCellItemPropertyInfo = IsColumnViewCell
type AttrSetTypeConstraint ColumnViewCellItemPropertyInfo = (~) ()
type AttrTransferTypeConstraint ColumnViewCellItemPropertyInfo = (~) ()
type AttrTransferType ColumnViewCellItemPropertyInfo = ()
type AttrGetType ColumnViewCellItemPropertyInfo = (Maybe GObject.Object.Object)
type AttrLabel ColumnViewCellItemPropertyInfo = "item"
type AttrOrigin ColumnViewCellItemPropertyInfo = ColumnViewCell
attrGet = getColumnViewCellItem
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewCell.item"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ColumnViewCell.html#g:attr:item"
})
#endif
getColumnViewCellPosition :: (MonadIO m, IsColumnViewCell o) => o -> m Word32
getColumnViewCellPosition :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewCell o) =>
o -> m Word32
getColumnViewCellPosition o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"position"
#if defined(ENABLE_OVERLOADING)
data ColumnViewCellPositionPropertyInfo
instance AttrInfo ColumnViewCellPositionPropertyInfo where
type AttrAllowedOps ColumnViewCellPositionPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ColumnViewCellPositionPropertyInfo = IsColumnViewCell
type AttrSetTypeConstraint ColumnViewCellPositionPropertyInfo = (~) ()
type AttrTransferTypeConstraint ColumnViewCellPositionPropertyInfo = (~) ()
type AttrTransferType ColumnViewCellPositionPropertyInfo = ()
type AttrGetType ColumnViewCellPositionPropertyInfo = Word32
type AttrLabel ColumnViewCellPositionPropertyInfo = "position"
type AttrOrigin ColumnViewCellPositionPropertyInfo = ColumnViewCell
attrGet = getColumnViewCellPosition
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewCell.position"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ColumnViewCell.html#g:attr:position"
})
#endif
getColumnViewCellSelected :: (MonadIO m, IsColumnViewCell o) => o -> m Bool
getColumnViewCellSelected :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewCell o) =>
o -> m Bool
getColumnViewCellSelected 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
"selected"
#if defined(ENABLE_OVERLOADING)
data ColumnViewCellSelectedPropertyInfo
instance AttrInfo ColumnViewCellSelectedPropertyInfo where
type AttrAllowedOps ColumnViewCellSelectedPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ColumnViewCellSelectedPropertyInfo = IsColumnViewCell
type AttrSetTypeConstraint ColumnViewCellSelectedPropertyInfo = (~) ()
type AttrTransferTypeConstraint ColumnViewCellSelectedPropertyInfo = (~) ()
type AttrTransferType ColumnViewCellSelectedPropertyInfo = ()
type AttrGetType ColumnViewCellSelectedPropertyInfo = Bool
type AttrLabel ColumnViewCellSelectedPropertyInfo = "selected"
type AttrOrigin ColumnViewCellSelectedPropertyInfo = ColumnViewCell
attrGet = getColumnViewCellSelected
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewCell.selected"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ColumnViewCell.html#g:attr:selected"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ColumnViewCell
type instance O.AttributeList ColumnViewCell = ColumnViewCellAttributeList
type ColumnViewCellAttributeList = ('[ '("accessibleDescription", Gtk.ListItem.ListItemAccessibleDescriptionPropertyInfo), '("accessibleLabel", Gtk.ListItem.ListItemAccessibleLabelPropertyInfo), '("activatable", Gtk.ListItem.ListItemActivatablePropertyInfo), '("child", ColumnViewCellChildPropertyInfo), '("focusable", ColumnViewCellFocusablePropertyInfo), '("item", ColumnViewCellItemPropertyInfo), '("position", ColumnViewCellPositionPropertyInfo), '("selectable", Gtk.ListItem.ListItemSelectablePropertyInfo), '("selected", ColumnViewCellSelectedPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
columnViewCellChild :: AttrLabelProxy "child"
columnViewCellChild = AttrLabelProxy
columnViewCellFocusable :: AttrLabelProxy "focusable"
columnViewCellFocusable = AttrLabelProxy
columnViewCellItem :: AttrLabelProxy "item"
columnViewCellItem = AttrLabelProxy
columnViewCellPosition :: AttrLabelProxy "position"
columnViewCellPosition = AttrLabelProxy
columnViewCellSelected :: AttrLabelProxy "selected"
columnViewCellSelected = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ColumnViewCell = ColumnViewCellSignalList
type ColumnViewCellSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_column_view_cell_get_child" gtk_column_view_cell_get_child ::
Ptr ColumnViewCell ->
IO (Ptr Gtk.Widget.Widget)
columnViewCellGetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewCell a) =>
a
-> m (Maybe Gtk.Widget.Widget)
columnViewCellGetChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnViewCell a) =>
a -> m (Maybe Widget)
columnViewCellGetChild a
self = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnViewCell
self' <- a -> IO (Ptr ColumnViewCell)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
result <- Ptr ColumnViewCell -> IO (Ptr Widget)
gtk_column_view_cell_get_child Ptr ColumnViewCell
self'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Widget -> IO (Maybe Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data ColumnViewCellGetChildMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsColumnViewCell a) => O.OverloadedMethod ColumnViewCellGetChildMethodInfo a signature where
overloadedMethod = columnViewCellGetChild
instance O.OverloadedMethodInfo ColumnViewCellGetChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewCell.columnViewCellGetChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ColumnViewCell.html#v:columnViewCellGetChild"
})
#endif
foreign import ccall "gtk_column_view_cell_get_focusable" gtk_column_view_cell_get_focusable ::
Ptr ColumnViewCell ->
IO CInt
columnViewCellGetFocusable ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewCell a) =>
a
-> m Bool
columnViewCellGetFocusable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnViewCell a) =>
a -> m Bool
columnViewCellGetFocusable a
self = 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 ColumnViewCell
self' <- a -> IO (Ptr ColumnViewCell)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr ColumnViewCell -> IO CInt
gtk_column_view_cell_get_focusable Ptr ColumnViewCell
self'
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
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ColumnViewCellGetFocusableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsColumnViewCell a) => O.OverloadedMethod ColumnViewCellGetFocusableMethodInfo a signature where
overloadedMethod = columnViewCellGetFocusable
instance O.OverloadedMethodInfo ColumnViewCellGetFocusableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewCell.columnViewCellGetFocusable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ColumnViewCell.html#v:columnViewCellGetFocusable"
})
#endif
foreign import ccall "gtk_column_view_cell_get_item" gtk_column_view_cell_get_item ::
Ptr ColumnViewCell ->
IO (Ptr GObject.Object.Object)
columnViewCellGetItem ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewCell a) =>
a
-> m (Maybe GObject.Object.Object)
columnViewCellGetItem :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnViewCell a) =>
a -> m (Maybe Object)
columnViewCellGetItem a
self = IO (Maybe Object) -> m (Maybe Object)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Object) -> m (Maybe Object))
-> IO (Maybe Object) -> m (Maybe Object)
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnViewCell
self' <- a -> IO (Ptr ColumnViewCell)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Object
result <- Ptr ColumnViewCell -> IO (Ptr Object)
gtk_column_view_cell_get_item Ptr ColumnViewCell
self'
Maybe Object
maybeResult <- Ptr Object -> (Ptr Object -> IO Object) -> IO (Maybe Object)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Object
result ((Ptr Object -> IO Object) -> IO (Maybe Object))
-> (Ptr Object -> IO Object) -> IO (Maybe Object)
forall a b. (a -> b) -> a -> b
$ \Ptr Object
result' -> do
Object
result'' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
GObject.Object.Object) Ptr Object
result'
Object -> IO Object
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Object
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Object -> IO (Maybe Object)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Object
maybeResult
#if defined(ENABLE_OVERLOADING)
data ColumnViewCellGetItemMethodInfo
instance (signature ~ (m (Maybe GObject.Object.Object)), MonadIO m, IsColumnViewCell a) => O.OverloadedMethod ColumnViewCellGetItemMethodInfo a signature where
overloadedMethod = columnViewCellGetItem
instance O.OverloadedMethodInfo ColumnViewCellGetItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewCell.columnViewCellGetItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ColumnViewCell.html#v:columnViewCellGetItem"
})
#endif
foreign import ccall "gtk_column_view_cell_get_position" gtk_column_view_cell_get_position ::
Ptr ColumnViewCell ->
IO Word32
columnViewCellGetPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewCell a) =>
a
-> m Word32
columnViewCellGetPosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnViewCell a) =>
a -> m Word32
columnViewCellGetPosition a
self = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnViewCell
self' <- a -> IO (Ptr ColumnViewCell)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr ColumnViewCell -> IO Word32
gtk_column_view_cell_get_position Ptr ColumnViewCell
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data ColumnViewCellGetPositionMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsColumnViewCell a) => O.OverloadedMethod ColumnViewCellGetPositionMethodInfo a signature where
overloadedMethod = columnViewCellGetPosition
instance O.OverloadedMethodInfo ColumnViewCellGetPositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewCell.columnViewCellGetPosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ColumnViewCell.html#v:columnViewCellGetPosition"
})
#endif
foreign import ccall "gtk_column_view_cell_get_selected" gtk_column_view_cell_get_selected ::
Ptr ColumnViewCell ->
IO CInt
columnViewCellGetSelected ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewCell a) =>
a
-> m Bool
columnViewCellGetSelected :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnViewCell a) =>
a -> m Bool
columnViewCellGetSelected a
self = 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 ColumnViewCell
self' <- a -> IO (Ptr ColumnViewCell)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr ColumnViewCell -> IO CInt
gtk_column_view_cell_get_selected Ptr ColumnViewCell
self'
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
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ColumnViewCellGetSelectedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsColumnViewCell a) => O.OverloadedMethod ColumnViewCellGetSelectedMethodInfo a signature where
overloadedMethod = columnViewCellGetSelected
instance O.OverloadedMethodInfo ColumnViewCellGetSelectedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewCell.columnViewCellGetSelected",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ColumnViewCell.html#v:columnViewCellGetSelected"
})
#endif
foreign import ccall "gtk_column_view_cell_set_child" gtk_column_view_cell_set_child ::
Ptr ColumnViewCell ->
Ptr Gtk.Widget.Widget ->
IO ()
columnViewCellSetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewCell a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
columnViewCellSetChild :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsColumnViewCell a, IsWidget b) =>
a -> Maybe b -> m ()
columnViewCellSetChild a
self Maybe b
child = 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 ColumnViewCell
self' <- a -> IO (Ptr ColumnViewCell)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
maybeChild <- case Maybe b
child of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jChild -> do
Ptr Widget
jChild' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jChild
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jChild'
Ptr ColumnViewCell -> Ptr Widget -> IO ()
gtk_column_view_cell_set_child Ptr ColumnViewCell
self' Ptr Widget
maybeChild
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
child b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColumnViewCellSetChildMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsColumnViewCell a, Gtk.Widget.IsWidget b) => O.OverloadedMethod ColumnViewCellSetChildMethodInfo a signature where
overloadedMethod = columnViewCellSetChild
instance O.OverloadedMethodInfo ColumnViewCellSetChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewCell.columnViewCellSetChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ColumnViewCell.html#v:columnViewCellSetChild"
})
#endif
foreign import ccall "gtk_column_view_cell_set_focusable" gtk_column_view_cell_set_focusable ::
Ptr ColumnViewCell ->
CInt ->
IO ()
columnViewCellSetFocusable ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewCell a) =>
a
-> Bool
-> m ()
columnViewCellSetFocusable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnViewCell a) =>
a -> Bool -> m ()
columnViewCellSetFocusable a
self Bool
focusable = 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 ColumnViewCell
self' <- a -> IO (Ptr ColumnViewCell)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let focusable' :: CInt
focusable' = (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
focusable
Ptr ColumnViewCell -> CInt -> IO ()
gtk_column_view_cell_set_focusable Ptr ColumnViewCell
self' CInt
focusable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColumnViewCellSetFocusableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsColumnViewCell a) => O.OverloadedMethod ColumnViewCellSetFocusableMethodInfo a signature where
overloadedMethod = columnViewCellSetFocusable
instance O.OverloadedMethodInfo ColumnViewCellSetFocusableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewCell.columnViewCellSetFocusable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ColumnViewCell.html#v:columnViewCellSetFocusable"
})
#endif