{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.EveryFilter
(
EveryFilter(..) ,
IsEveryFilter ,
toEveryFilter ,
#if defined(ENABLE_OVERLOADING)
ResolveEveryFilterMethod ,
#endif
everyFilterNew ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Filter as Gtk.Filter
import {-# SOURCE #-} qualified GI.Gtk.Objects.MultiFilter as Gtk.MultiFilter
newtype EveryFilter = EveryFilter (SP.ManagedPtr EveryFilter)
deriving (EveryFilter -> EveryFilter -> Bool
(EveryFilter -> EveryFilter -> Bool)
-> (EveryFilter -> EveryFilter -> Bool) -> Eq EveryFilter
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: EveryFilter -> EveryFilter -> Bool
== :: EveryFilter -> EveryFilter -> Bool
$c/= :: EveryFilter -> EveryFilter -> Bool
/= :: EveryFilter -> EveryFilter -> Bool
Eq)
instance SP.ManagedPtrNewtype EveryFilter where
toManagedPtr :: EveryFilter -> ManagedPtr EveryFilter
toManagedPtr (EveryFilter ManagedPtr EveryFilter
p) = ManagedPtr EveryFilter
p
foreign import ccall "gtk_every_filter_get_type"
c_gtk_every_filter_get_type :: IO B.Types.GType
instance B.Types.TypedObject EveryFilter where
glibType :: IO GType
glibType = IO GType
c_gtk_every_filter_get_type
instance B.Types.GObject EveryFilter
class (SP.GObject o, O.IsDescendantOf EveryFilter o) => IsEveryFilter o
instance (SP.GObject o, O.IsDescendantOf EveryFilter o) => IsEveryFilter o
instance O.HasParentTypes EveryFilter
type instance O.ParentTypes EveryFilter = '[Gtk.MultiFilter.MultiFilter, Gtk.Filter.Filter, GObject.Object.Object, Gio.ListModel.ListModel, Gtk.Buildable.Buildable]
toEveryFilter :: (MIO.MonadIO m, IsEveryFilter o) => o -> m EveryFilter
toEveryFilter :: forall (m :: * -> *) o.
(MonadIO m, IsEveryFilter o) =>
o -> m EveryFilter
toEveryFilter = IO EveryFilter -> m EveryFilter
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO EveryFilter -> m EveryFilter)
-> (o -> IO EveryFilter) -> o -> m EveryFilter
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr EveryFilter -> EveryFilter) -> o -> IO EveryFilter
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr EveryFilter -> EveryFilter
EveryFilter
instance B.GValue.IsGValue (Maybe EveryFilter) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_every_filter_get_type
gvalueSet_ :: Ptr GValue -> Maybe EveryFilter -> IO ()
gvalueSet_ Ptr GValue
gv Maybe EveryFilter
P.Nothing = Ptr GValue -> Ptr EveryFilter -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr EveryFilter
forall a. Ptr a
FP.nullPtr :: FP.Ptr EveryFilter)
gvalueSet_ Ptr GValue
gv (P.Just EveryFilter
obj) = EveryFilter -> (Ptr EveryFilter -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr EveryFilter
obj (Ptr GValue -> Ptr EveryFilter -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe EveryFilter)
gvalueGet_ Ptr GValue
gv = do
Ptr EveryFilter
ptr <- Ptr GValue -> IO (Ptr EveryFilter)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr EveryFilter)
if Ptr EveryFilter
ptr Ptr EveryFilter -> Ptr EveryFilter -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr EveryFilter
forall a. Ptr a
FP.nullPtr
then EveryFilter -> Maybe EveryFilter
forall a. a -> Maybe a
P.Just (EveryFilter -> Maybe EveryFilter)
-> IO EveryFilter -> IO (Maybe EveryFilter)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr EveryFilter -> EveryFilter)
-> Ptr EveryFilter -> IO EveryFilter
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr EveryFilter -> EveryFilter
EveryFilter Ptr EveryFilter
ptr
else Maybe EveryFilter -> IO (Maybe EveryFilter)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe EveryFilter
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveEveryFilterMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveEveryFilterMethod "append" o = Gtk.MultiFilter.MultiFilterAppendMethodInfo
ResolveEveryFilterMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveEveryFilterMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveEveryFilterMethod "changed" o = Gtk.Filter.FilterChangedMethodInfo
ResolveEveryFilterMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveEveryFilterMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveEveryFilterMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveEveryFilterMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveEveryFilterMethod "itemsChanged" o = Gio.ListModel.ListModelItemsChangedMethodInfo
ResolveEveryFilterMethod "match" o = Gtk.Filter.FilterMatchMethodInfo
ResolveEveryFilterMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveEveryFilterMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveEveryFilterMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveEveryFilterMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveEveryFilterMethod "remove" o = Gtk.MultiFilter.MultiFilterRemoveMethodInfo
ResolveEveryFilterMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveEveryFilterMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveEveryFilterMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveEveryFilterMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveEveryFilterMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveEveryFilterMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveEveryFilterMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveEveryFilterMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveEveryFilterMethod "getItem" o = Gio.ListModel.ListModelGetItemMethodInfo
ResolveEveryFilterMethod "getItemType" o = Gio.ListModel.ListModelGetItemTypeMethodInfo
ResolveEveryFilterMethod "getNItems" o = Gio.ListModel.ListModelGetNItemsMethodInfo
ResolveEveryFilterMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveEveryFilterMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveEveryFilterMethod "getStrictness" o = Gtk.Filter.FilterGetStrictnessMethodInfo
ResolveEveryFilterMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveEveryFilterMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveEveryFilterMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveEveryFilterMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEveryFilterMethod t EveryFilter, O.OverloadedMethod info EveryFilter p) => OL.IsLabel t (EveryFilter -> 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 ~ ResolveEveryFilterMethod t EveryFilter, O.OverloadedMethod info EveryFilter p, R.HasField t EveryFilter p) => R.HasField t EveryFilter p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveEveryFilterMethod t EveryFilter, O.OverloadedMethodInfo info EveryFilter) => OL.IsLabel t (O.MethodProxy info EveryFilter) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList EveryFilter
type instance O.AttributeList EveryFilter = EveryFilterAttributeList
type EveryFilterAttributeList = ('[ '("itemType", Gtk.MultiFilter.MultiFilterItemTypePropertyInfo), '("nItems", Gtk.MultiFilter.MultiFilterNItemsPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList EveryFilter = EveryFilterSignalList
type EveryFilterSignalList = ('[ '("changed", Gtk.Filter.FilterChangedSignalInfo), '("itemsChanged", Gio.ListModel.ListModelItemsChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_every_filter_new" gtk_every_filter_new ::
IO (Ptr EveryFilter)
everyFilterNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m EveryFilter
everyFilterNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m EveryFilter
everyFilterNew = IO EveryFilter -> m EveryFilter
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO EveryFilter -> m EveryFilter)
-> IO EveryFilter -> m EveryFilter
forall a b. (a -> b) -> a -> b
$ do
Ptr EveryFilter
result <- IO (Ptr EveryFilter)
gtk_every_filter_new
Text -> Ptr EveryFilter -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"everyFilterNew" Ptr EveryFilter
result
EveryFilter
result' <- ((ManagedPtr EveryFilter -> EveryFilter)
-> Ptr EveryFilter -> IO EveryFilter
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr EveryFilter -> EveryFilter
EveryFilter) Ptr EveryFilter
result
EveryFilter -> IO EveryFilter
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return EveryFilter
result'
#if defined(ENABLE_OVERLOADING)
#endif