{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.SingleSelection
(
SingleSelection(..) ,
IsSingleSelection ,
toSingleSelection ,
#if defined(ENABLE_OVERLOADING)
ResolveSingleSelectionMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SingleSelectionGetAutoselectMethodInfo ,
#endif
singleSelectionGetAutoselect ,
#if defined(ENABLE_OVERLOADING)
SingleSelectionGetCanUnselectMethodInfo ,
#endif
singleSelectionGetCanUnselect ,
#if defined(ENABLE_OVERLOADING)
SingleSelectionGetModelMethodInfo ,
#endif
singleSelectionGetModel ,
#if defined(ENABLE_OVERLOADING)
SingleSelectionGetSelectedMethodInfo ,
#endif
singleSelectionGetSelected ,
#if defined(ENABLE_OVERLOADING)
SingleSelectionGetSelectedItemMethodInfo,
#endif
singleSelectionGetSelectedItem ,
singleSelectionNew ,
#if defined(ENABLE_OVERLOADING)
SingleSelectionSetAutoselectMethodInfo ,
#endif
singleSelectionSetAutoselect ,
#if defined(ENABLE_OVERLOADING)
SingleSelectionSetCanUnselectMethodInfo ,
#endif
singleSelectionSetCanUnselect ,
#if defined(ENABLE_OVERLOADING)
SingleSelectionSetSelectedMethodInfo ,
#endif
singleSelectionSetSelected ,
#if defined(ENABLE_OVERLOADING)
SingleSelectionAutoselectPropertyInfo ,
#endif
constructSingleSelectionAutoselect ,
getSingleSelectionAutoselect ,
setSingleSelectionAutoselect ,
#if defined(ENABLE_OVERLOADING)
singleSelectionAutoselect ,
#endif
#if defined(ENABLE_OVERLOADING)
SingleSelectionCanUnselectPropertyInfo ,
#endif
constructSingleSelectionCanUnselect ,
getSingleSelectionCanUnselect ,
setSingleSelectionCanUnselect ,
#if defined(ENABLE_OVERLOADING)
singleSelectionCanUnselect ,
#endif
#if defined(ENABLE_OVERLOADING)
SingleSelectionModelPropertyInfo ,
#endif
constructSingleSelectionModel ,
getSingleSelectionModel ,
#if defined(ENABLE_OVERLOADING)
singleSelectionModel ,
#endif
#if defined(ENABLE_OVERLOADING)
SingleSelectionSelectedPropertyInfo ,
#endif
constructSingleSelectionSelected ,
getSingleSelectionSelected ,
setSingleSelectionSelected ,
#if defined(ENABLE_OVERLOADING)
singleSelectionSelected ,
#endif
#if defined(ENABLE_OVERLOADING)
SingleSelectionSelectedItemPropertyInfo ,
#endif
getSingleSelectionSelectedItem ,
#if defined(ENABLE_OVERLOADING)
singleSelectionSelectedItem ,
#endif
) 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.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.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.Text as T
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 GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.SelectionModel as Gtk.SelectionModel
newtype SingleSelection = SingleSelection (SP.ManagedPtr SingleSelection)
deriving (SingleSelection -> SingleSelection -> Bool
(SingleSelection -> SingleSelection -> Bool)
-> (SingleSelection -> SingleSelection -> Bool)
-> Eq SingleSelection
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SingleSelection -> SingleSelection -> Bool
$c/= :: SingleSelection -> SingleSelection -> Bool
== :: SingleSelection -> SingleSelection -> Bool
$c== :: SingleSelection -> SingleSelection -> Bool
Eq)
instance SP.ManagedPtrNewtype SingleSelection where
toManagedPtr :: SingleSelection -> ManagedPtr SingleSelection
toManagedPtr (SingleSelection ManagedPtr SingleSelection
p) = ManagedPtr SingleSelection
p
foreign import ccall "gtk_single_selection_get_type"
c_gtk_single_selection_get_type :: IO B.Types.GType
instance B.Types.TypedObject SingleSelection where
glibType :: IO GType
glibType = IO GType
c_gtk_single_selection_get_type
instance B.Types.GObject SingleSelection
instance B.GValue.IsGValue SingleSelection where
toGValue :: SingleSelection -> IO GValue
toGValue SingleSelection
o = do
GType
gtype <- IO GType
c_gtk_single_selection_get_type
SingleSelection -> (Ptr SingleSelection -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr SingleSelection
o (GType
-> (GValue -> Ptr SingleSelection -> IO ())
-> Ptr SingleSelection
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr SingleSelection -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO SingleSelection
fromGValue GValue
gv = do
Ptr SingleSelection
ptr <- GValue -> IO (Ptr SingleSelection)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr SingleSelection)
(ManagedPtr SingleSelection -> SingleSelection)
-> Ptr SingleSelection -> IO SingleSelection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr SingleSelection -> SingleSelection
SingleSelection Ptr SingleSelection
ptr
class (SP.GObject o, O.IsDescendantOf SingleSelection o) => IsSingleSelection o
instance (SP.GObject o, O.IsDescendantOf SingleSelection o) => IsSingleSelection o
instance O.HasParentTypes SingleSelection
type instance O.ParentTypes SingleSelection = '[GObject.Object.Object, Gio.ListModel.ListModel, Gtk.SelectionModel.SelectionModel]
toSingleSelection :: (MonadIO m, IsSingleSelection o) => o -> m SingleSelection
toSingleSelection :: o -> m SingleSelection
toSingleSelection = IO SingleSelection -> m SingleSelection
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SingleSelection -> m SingleSelection)
-> (o -> IO SingleSelection) -> o -> m SingleSelection
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr SingleSelection -> SingleSelection)
-> o -> IO SingleSelection
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr SingleSelection -> SingleSelection
SingleSelection
#if defined(ENABLE_OVERLOADING)
type family ResolveSingleSelectionMethod (t :: Symbol) (o :: *) :: * where
ResolveSingleSelectionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSingleSelectionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSingleSelectionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSingleSelectionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSingleSelectionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveSingleSelectionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSingleSelectionMethod "isSelected" o = Gtk.SelectionModel.SelectionModelIsSelectedMethodInfo
ResolveSingleSelectionMethod "itemsChanged" o = Gio.ListModel.ListModelItemsChangedMethodInfo
ResolveSingleSelectionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSingleSelectionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSingleSelectionMethod "queryRange" o = Gtk.SelectionModel.SelectionModelQueryRangeMethodInfo
ResolveSingleSelectionMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSingleSelectionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSingleSelectionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSingleSelectionMethod "selectAll" o = Gtk.SelectionModel.SelectionModelSelectAllMethodInfo
ResolveSingleSelectionMethod "selectItem" o = Gtk.SelectionModel.SelectionModelSelectItemMethodInfo
ResolveSingleSelectionMethod "selectRange" o = Gtk.SelectionModel.SelectionModelSelectRangeMethodInfo
ResolveSingleSelectionMethod "selectionChanged" o = Gtk.SelectionModel.SelectionModelSelectionChangedMethodInfo
ResolveSingleSelectionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSingleSelectionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSingleSelectionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSingleSelectionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSingleSelectionMethod "unselectAll" o = Gtk.SelectionModel.SelectionModelUnselectAllMethodInfo
ResolveSingleSelectionMethod "unselectItem" o = Gtk.SelectionModel.SelectionModelUnselectItemMethodInfo
ResolveSingleSelectionMethod "unselectRange" o = Gtk.SelectionModel.SelectionModelUnselectRangeMethodInfo
ResolveSingleSelectionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSingleSelectionMethod "getAutoselect" o = SingleSelectionGetAutoselectMethodInfo
ResolveSingleSelectionMethod "getCanUnselect" o = SingleSelectionGetCanUnselectMethodInfo
ResolveSingleSelectionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSingleSelectionMethod "getItem" o = Gio.ListModel.ListModelGetItemMethodInfo
ResolveSingleSelectionMethod "getItemType" o = Gio.ListModel.ListModelGetItemTypeMethodInfo
ResolveSingleSelectionMethod "getModel" o = SingleSelectionGetModelMethodInfo
ResolveSingleSelectionMethod "getNItems" o = Gio.ListModel.ListModelGetNItemsMethodInfo
ResolveSingleSelectionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSingleSelectionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSingleSelectionMethod "getSelected" o = SingleSelectionGetSelectedMethodInfo
ResolveSingleSelectionMethod "getSelectedItem" o = SingleSelectionGetSelectedItemMethodInfo
ResolveSingleSelectionMethod "setAutoselect" o = SingleSelectionSetAutoselectMethodInfo
ResolveSingleSelectionMethod "setCanUnselect" o = SingleSelectionSetCanUnselectMethodInfo
ResolveSingleSelectionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSingleSelectionMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveSingleSelectionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSingleSelectionMethod "setSelected" o = SingleSelectionSetSelectedMethodInfo
ResolveSingleSelectionMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSingleSelectionMethod t SingleSelection, O.MethodInfo info SingleSelection p) => OL.IsLabel t (SingleSelection -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getSingleSelectionAutoselect :: (MonadIO m, IsSingleSelection o) => o -> m Bool
getSingleSelectionAutoselect :: o -> m Bool
getSingleSelectionAutoselect o
obj = IO Bool -> m Bool
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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"autoselect"
setSingleSelectionAutoselect :: (MonadIO m, IsSingleSelection o) => o -> Bool -> m ()
setSingleSelectionAutoselect :: o -> Bool -> m ()
setSingleSelectionAutoselect o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"autoselect" Bool
val
constructSingleSelectionAutoselect :: (IsSingleSelection o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSingleSelectionAutoselect :: Bool -> m (GValueConstruct o)
constructSingleSelectionAutoselect Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"autoselect" Bool
val
#if defined(ENABLE_OVERLOADING)
data SingleSelectionAutoselectPropertyInfo
instance AttrInfo SingleSelectionAutoselectPropertyInfo where
type AttrAllowedOps SingleSelectionAutoselectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SingleSelectionAutoselectPropertyInfo = IsSingleSelection
type AttrSetTypeConstraint SingleSelectionAutoselectPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SingleSelectionAutoselectPropertyInfo = (~) Bool
type AttrTransferType SingleSelectionAutoselectPropertyInfo = Bool
type AttrGetType SingleSelectionAutoselectPropertyInfo = Bool
type AttrLabel SingleSelectionAutoselectPropertyInfo = "autoselect"
type AttrOrigin SingleSelectionAutoselectPropertyInfo = SingleSelection
attrGet = getSingleSelectionAutoselect
attrSet = setSingleSelectionAutoselect
attrTransfer _ v = do
return v
attrConstruct = constructSingleSelectionAutoselect
attrClear = undefined
#endif
getSingleSelectionCanUnselect :: (MonadIO m, IsSingleSelection o) => o -> m Bool
getSingleSelectionCanUnselect :: o -> m Bool
getSingleSelectionCanUnselect o
obj = IO Bool -> m Bool
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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"can-unselect"
setSingleSelectionCanUnselect :: (MonadIO m, IsSingleSelection o) => o -> Bool -> m ()
setSingleSelectionCanUnselect :: o -> Bool -> m ()
setSingleSelectionCanUnselect o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"can-unselect" Bool
val
constructSingleSelectionCanUnselect :: (IsSingleSelection o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSingleSelectionCanUnselect :: Bool -> m (GValueConstruct o)
constructSingleSelectionCanUnselect Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"can-unselect" Bool
val
#if defined(ENABLE_OVERLOADING)
data SingleSelectionCanUnselectPropertyInfo
instance AttrInfo SingleSelectionCanUnselectPropertyInfo where
type AttrAllowedOps SingleSelectionCanUnselectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SingleSelectionCanUnselectPropertyInfo = IsSingleSelection
type AttrSetTypeConstraint SingleSelectionCanUnselectPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SingleSelectionCanUnselectPropertyInfo = (~) Bool
type AttrTransferType SingleSelectionCanUnselectPropertyInfo = Bool
type AttrGetType SingleSelectionCanUnselectPropertyInfo = Bool
type AttrLabel SingleSelectionCanUnselectPropertyInfo = "can-unselect"
type AttrOrigin SingleSelectionCanUnselectPropertyInfo = SingleSelection
attrGet = getSingleSelectionCanUnselect
attrSet = setSingleSelectionCanUnselect
attrTransfer _ v = do
return v
attrConstruct = constructSingleSelectionCanUnselect
attrClear = undefined
#endif
getSingleSelectionModel :: (MonadIO m, IsSingleSelection o) => o -> m Gio.ListModel.ListModel
getSingleSelectionModel :: o -> m ListModel
getSingleSelectionModel o
obj = IO ListModel -> m ListModel
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ListModel -> m ListModel) -> IO ListModel -> m ListModel
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe ListModel) -> IO ListModel
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getSingleSelectionModel" (IO (Maybe ListModel) -> IO ListModel)
-> IO (Maybe ListModel) -> IO ListModel
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr ListModel -> ListModel)
-> IO (Maybe ListModel)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"model" ManagedPtr ListModel -> ListModel
Gio.ListModel.ListModel
constructSingleSelectionModel :: (IsSingleSelection o, MIO.MonadIO m, Gio.ListModel.IsListModel a) => a -> m (GValueConstruct o)
constructSingleSelectionModel :: a -> m (GValueConstruct o)
constructSingleSelectionModel a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"model" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data SingleSelectionModelPropertyInfo
instance AttrInfo SingleSelectionModelPropertyInfo where
type AttrAllowedOps SingleSelectionModelPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SingleSelectionModelPropertyInfo = IsSingleSelection
type AttrSetTypeConstraint SingleSelectionModelPropertyInfo = Gio.ListModel.IsListModel
type AttrTransferTypeConstraint SingleSelectionModelPropertyInfo = Gio.ListModel.IsListModel
type AttrTransferType SingleSelectionModelPropertyInfo = Gio.ListModel.ListModel
type AttrGetType SingleSelectionModelPropertyInfo = Gio.ListModel.ListModel
type AttrLabel SingleSelectionModelPropertyInfo = "model"
type AttrOrigin SingleSelectionModelPropertyInfo = SingleSelection
attrGet = getSingleSelectionModel
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo Gio.ListModel.ListModel v
attrConstruct = constructSingleSelectionModel
attrClear = undefined
#endif
getSingleSelectionSelected :: (MonadIO m, IsSingleSelection o) => o -> m Word32
getSingleSelectionSelected :: o -> m Word32
getSingleSelectionSelected o
obj = IO Word32 -> m Word32
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
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"selected"
setSingleSelectionSelected :: (MonadIO m, IsSingleSelection o) => o -> Word32 -> m ()
setSingleSelectionSelected :: o -> Word32 -> m ()
setSingleSelectionSelected o
obj Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"selected" Word32
val
constructSingleSelectionSelected :: (IsSingleSelection o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructSingleSelectionSelected :: Word32 -> m (GValueConstruct o)
constructSingleSelectionSelected Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"selected" Word32
val
#if defined(ENABLE_OVERLOADING)
data SingleSelectionSelectedPropertyInfo
instance AttrInfo SingleSelectionSelectedPropertyInfo where
type AttrAllowedOps SingleSelectionSelectedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SingleSelectionSelectedPropertyInfo = IsSingleSelection
type AttrSetTypeConstraint SingleSelectionSelectedPropertyInfo = (~) Word32
type AttrTransferTypeConstraint SingleSelectionSelectedPropertyInfo = (~) Word32
type AttrTransferType SingleSelectionSelectedPropertyInfo = Word32
type AttrGetType SingleSelectionSelectedPropertyInfo = Word32
type AttrLabel SingleSelectionSelectedPropertyInfo = "selected"
type AttrOrigin SingleSelectionSelectedPropertyInfo = SingleSelection
attrGet = getSingleSelectionSelected
attrSet = setSingleSelectionSelected
attrTransfer _ v = do
return v
attrConstruct = constructSingleSelectionSelected
attrClear = undefined
#endif
getSingleSelectionSelectedItem :: (MonadIO m, IsSingleSelection o) => o -> m (Maybe GObject.Object.Object)
getSingleSelectionSelectedItem :: o -> m (Maybe Object)
getSingleSelectionSelectedItem o
obj = IO (Maybe Object) -> m (Maybe Object)
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
$ 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
"selected-item" ManagedPtr Object -> Object
GObject.Object.Object
#if defined(ENABLE_OVERLOADING)
data SingleSelectionSelectedItemPropertyInfo
instance AttrInfo SingleSelectionSelectedItemPropertyInfo where
type AttrAllowedOps SingleSelectionSelectedItemPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SingleSelectionSelectedItemPropertyInfo = IsSingleSelection
type AttrSetTypeConstraint SingleSelectionSelectedItemPropertyInfo = (~) ()
type AttrTransferTypeConstraint SingleSelectionSelectedItemPropertyInfo = (~) ()
type AttrTransferType SingleSelectionSelectedItemPropertyInfo = ()
type AttrGetType SingleSelectionSelectedItemPropertyInfo = (Maybe GObject.Object.Object)
type AttrLabel SingleSelectionSelectedItemPropertyInfo = "selected-item"
type AttrOrigin SingleSelectionSelectedItemPropertyInfo = SingleSelection
attrGet = getSingleSelectionSelectedItem
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList SingleSelection
type instance O.AttributeList SingleSelection = SingleSelectionAttributeList
type SingleSelectionAttributeList = ('[ '("autoselect", SingleSelectionAutoselectPropertyInfo), '("canUnselect", SingleSelectionCanUnselectPropertyInfo), '("model", SingleSelectionModelPropertyInfo), '("selected", SingleSelectionSelectedPropertyInfo), '("selectedItem", SingleSelectionSelectedItemPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
singleSelectionAutoselect :: AttrLabelProxy "autoselect"
singleSelectionAutoselect = AttrLabelProxy
singleSelectionCanUnselect :: AttrLabelProxy "canUnselect"
singleSelectionCanUnselect = AttrLabelProxy
singleSelectionModel :: AttrLabelProxy "model"
singleSelectionModel = AttrLabelProxy
singleSelectionSelected :: AttrLabelProxy "selected"
singleSelectionSelected = AttrLabelProxy
singleSelectionSelectedItem :: AttrLabelProxy "selectedItem"
singleSelectionSelectedItem = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList SingleSelection = SingleSelectionSignalList
type SingleSelectionSignalList = ('[ '("itemsChanged", Gio.ListModel.ListModelItemsChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("selectionChanged", Gtk.SelectionModel.SelectionModelSelectionChangedSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_single_selection_new" gtk_single_selection_new ::
Ptr Gio.ListModel.ListModel ->
IO (Ptr SingleSelection)
singleSelectionNew ::
(B.CallStack.HasCallStack, MonadIO m, Gio.ListModel.IsListModel a) =>
a
-> m SingleSelection
singleSelectionNew :: a -> m SingleSelection
singleSelectionNew a
model = IO SingleSelection -> m SingleSelection
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SingleSelection -> m SingleSelection)
-> IO SingleSelection -> m SingleSelection
forall a b. (a -> b) -> a -> b
$ do
Ptr ListModel
model' <- a -> IO (Ptr ListModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
model
Ptr SingleSelection
result <- Ptr ListModel -> IO (Ptr SingleSelection)
gtk_single_selection_new Ptr ListModel
model'
Text -> Ptr SingleSelection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"singleSelectionNew" Ptr SingleSelection
result
SingleSelection
result' <- ((ManagedPtr SingleSelection -> SingleSelection)
-> Ptr SingleSelection -> IO SingleSelection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr SingleSelection -> SingleSelection
SingleSelection) Ptr SingleSelection
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
model
SingleSelection -> IO SingleSelection
forall (m :: * -> *) a. Monad m => a -> m a
return SingleSelection
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_single_selection_get_autoselect" gtk_single_selection_get_autoselect ::
Ptr SingleSelection ->
IO CInt
singleSelectionGetAutoselect ::
(B.CallStack.HasCallStack, MonadIO m, IsSingleSelection a) =>
a
-> m Bool
singleSelectionGetAutoselect :: a -> m Bool
singleSelectionGetAutoselect a
self = IO Bool -> m Bool
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 SingleSelection
self' <- a -> IO (Ptr SingleSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr SingleSelection -> IO CInt
gtk_single_selection_get_autoselect Ptr SingleSelection
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 (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SingleSelectionGetAutoselectMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSingleSelection a) => O.MethodInfo SingleSelectionGetAutoselectMethodInfo a signature where
overloadedMethod = singleSelectionGetAutoselect
#endif
foreign import ccall "gtk_single_selection_get_can_unselect" gtk_single_selection_get_can_unselect ::
Ptr SingleSelection ->
IO CInt
singleSelectionGetCanUnselect ::
(B.CallStack.HasCallStack, MonadIO m, IsSingleSelection a) =>
a
-> m Bool
singleSelectionGetCanUnselect :: a -> m Bool
singleSelectionGetCanUnselect a
self = IO Bool -> m Bool
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 SingleSelection
self' <- a -> IO (Ptr SingleSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr SingleSelection -> IO CInt
gtk_single_selection_get_can_unselect Ptr SingleSelection
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 (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SingleSelectionGetCanUnselectMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSingleSelection a) => O.MethodInfo SingleSelectionGetCanUnselectMethodInfo a signature where
overloadedMethod = singleSelectionGetCanUnselect
#endif
foreign import ccall "gtk_single_selection_get_model" gtk_single_selection_get_model ::
Ptr SingleSelection ->
IO (Ptr Gio.ListModel.ListModel)
singleSelectionGetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsSingleSelection a) =>
a
-> m Gio.ListModel.ListModel
singleSelectionGetModel :: a -> m ListModel
singleSelectionGetModel a
self = IO ListModel -> m ListModel
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ListModel -> m ListModel) -> IO ListModel -> m ListModel
forall a b. (a -> b) -> a -> b
$ do
Ptr SingleSelection
self' <- a -> IO (Ptr SingleSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr ListModel
result <- Ptr SingleSelection -> IO (Ptr ListModel)
gtk_single_selection_get_model Ptr SingleSelection
self'
Text -> Ptr ListModel -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"singleSelectionGetModel" Ptr ListModel
result
ListModel
result' <- ((ManagedPtr ListModel -> ListModel)
-> Ptr ListModel -> IO ListModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ListModel -> ListModel
Gio.ListModel.ListModel) Ptr ListModel
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
ListModel -> IO ListModel
forall (m :: * -> *) a. Monad m => a -> m a
return ListModel
result'
#if defined(ENABLE_OVERLOADING)
data SingleSelectionGetModelMethodInfo
instance (signature ~ (m Gio.ListModel.ListModel), MonadIO m, IsSingleSelection a) => O.MethodInfo SingleSelectionGetModelMethodInfo a signature where
overloadedMethod = singleSelectionGetModel
#endif
foreign import ccall "gtk_single_selection_get_selected" gtk_single_selection_get_selected ::
Ptr SingleSelection ->
IO Word32
singleSelectionGetSelected ::
(B.CallStack.HasCallStack, MonadIO m, IsSingleSelection a) =>
a
-> m Word32
singleSelectionGetSelected :: a -> m Word32
singleSelectionGetSelected a
self = IO Word32 -> m Word32
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 SingleSelection
self' <- a -> IO (Ptr SingleSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr SingleSelection -> IO Word32
gtk_single_selection_get_selected Ptr SingleSelection
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data SingleSelectionGetSelectedMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsSingleSelection a) => O.MethodInfo SingleSelectionGetSelectedMethodInfo a signature where
overloadedMethod = singleSelectionGetSelected
#endif
foreign import ccall "gtk_single_selection_get_selected_item" gtk_single_selection_get_selected_item ::
Ptr SingleSelection ->
IO (Ptr ())
singleSelectionGetSelectedItem ::
(B.CallStack.HasCallStack, MonadIO m, IsSingleSelection a) =>
a
-> m (Ptr ())
singleSelectionGetSelectedItem :: a -> m (Ptr ())
singleSelectionGetSelectedItem a
self = IO (Ptr ()) -> m (Ptr ())
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ do
Ptr SingleSelection
self' <- a -> IO (Ptr SingleSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr ()
result <- Ptr SingleSelection -> IO (Ptr ())
gtk_single_selection_get_selected_item Ptr SingleSelection
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Ptr () -> IO (Ptr ())
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ()
result
#if defined(ENABLE_OVERLOADING)
data SingleSelectionGetSelectedItemMethodInfo
instance (signature ~ (m (Ptr ())), MonadIO m, IsSingleSelection a) => O.MethodInfo SingleSelectionGetSelectedItemMethodInfo a signature where
overloadedMethod = singleSelectionGetSelectedItem
#endif
foreign import ccall "gtk_single_selection_set_autoselect" gtk_single_selection_set_autoselect ::
Ptr SingleSelection ->
CInt ->
IO ()
singleSelectionSetAutoselect ::
(B.CallStack.HasCallStack, MonadIO m, IsSingleSelection a) =>
a
-> Bool
-> m ()
singleSelectionSetAutoselect :: a -> Bool -> m ()
singleSelectionSetAutoselect a
self Bool
autoselect = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SingleSelection
self' <- a -> IO (Ptr SingleSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let autoselect' :: CInt
autoselect' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
autoselect
Ptr SingleSelection -> CInt -> IO ()
gtk_single_selection_set_autoselect Ptr SingleSelection
self' CInt
autoselect'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SingleSelectionSetAutoselectMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSingleSelection a) => O.MethodInfo SingleSelectionSetAutoselectMethodInfo a signature where
overloadedMethod = singleSelectionSetAutoselect
#endif
foreign import ccall "gtk_single_selection_set_can_unselect" gtk_single_selection_set_can_unselect ::
Ptr SingleSelection ->
CInt ->
IO ()
singleSelectionSetCanUnselect ::
(B.CallStack.HasCallStack, MonadIO m, IsSingleSelection a) =>
a
-> Bool
-> m ()
singleSelectionSetCanUnselect :: a -> Bool -> m ()
singleSelectionSetCanUnselect a
self Bool
canUnselect = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SingleSelection
self' <- a -> IO (Ptr SingleSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let canUnselect' :: CInt
canUnselect' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
canUnselect
Ptr SingleSelection -> CInt -> IO ()
gtk_single_selection_set_can_unselect Ptr SingleSelection
self' CInt
canUnselect'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SingleSelectionSetCanUnselectMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSingleSelection a) => O.MethodInfo SingleSelectionSetCanUnselectMethodInfo a signature where
overloadedMethod = singleSelectionSetCanUnselect
#endif
foreign import ccall "gtk_single_selection_set_selected" gtk_single_selection_set_selected ::
Ptr SingleSelection ->
Word32 ->
IO ()
singleSelectionSetSelected ::
(B.CallStack.HasCallStack, MonadIO m, IsSingleSelection a) =>
a
-> Word32
-> m ()
singleSelectionSetSelected :: a -> Word32 -> m ()
singleSelectionSetSelected a
self Word32
position = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SingleSelection
self' <- a -> IO (Ptr SingleSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr SingleSelection -> Word32 -> IO ()
gtk_single_selection_set_selected Ptr SingleSelection
self' Word32
position
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SingleSelectionSetSelectedMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsSingleSelection a) => O.MethodInfo SingleSelectionSetSelectedMethodInfo a signature where
overloadedMethod = singleSelectionSetSelected
#endif