{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.FileFilter
(
FileFilter(..) ,
IsFileFilter ,
toFileFilter ,
#if defined(ENABLE_OVERLOADING)
ResolveFileFilterMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
FileFilterAddMimeTypeMethodInfo ,
#endif
fileFilterAddMimeType ,
#if defined(ENABLE_OVERLOADING)
FileFilterAddPatternMethodInfo ,
#endif
fileFilterAddPattern ,
#if defined(ENABLE_OVERLOADING)
FileFilterAddPixbufFormatsMethodInfo ,
#endif
fileFilterAddPixbufFormats ,
#if defined(ENABLE_OVERLOADING)
FileFilterAddSuffixMethodInfo ,
#endif
fileFilterAddSuffix ,
#if defined(ENABLE_OVERLOADING)
FileFilterGetAttributesMethodInfo ,
#endif
fileFilterGetAttributes ,
#if defined(ENABLE_OVERLOADING)
FileFilterGetNameMethodInfo ,
#endif
fileFilterGetName ,
fileFilterNew ,
fileFilterNewFromGvariant ,
#if defined(ENABLE_OVERLOADING)
FileFilterSetNameMethodInfo ,
#endif
fileFilterSetName ,
#if defined(ENABLE_OVERLOADING)
FileFilterToGvariantMethodInfo ,
#endif
fileFilterToGvariant ,
#if defined(ENABLE_OVERLOADING)
FileFilterNamePropertyInfo ,
#endif
clearFileFilterName ,
constructFileFilterName ,
#if defined(ENABLE_OVERLOADING)
fileFilterName ,
#endif
getFileFilterName ,
setFileFilterName ,
) 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.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Filter as Gtk.Filter
newtype FileFilter = FileFilter (SP.ManagedPtr FileFilter)
deriving (FileFilter -> FileFilter -> Bool
(FileFilter -> FileFilter -> Bool)
-> (FileFilter -> FileFilter -> Bool) -> Eq FileFilter
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: FileFilter -> FileFilter -> Bool
== :: FileFilter -> FileFilter -> Bool
$c/= :: FileFilter -> FileFilter -> Bool
/= :: FileFilter -> FileFilter -> Bool
Eq)
instance SP.ManagedPtrNewtype FileFilter where
toManagedPtr :: FileFilter -> ManagedPtr FileFilter
toManagedPtr (FileFilter ManagedPtr FileFilter
p) = ManagedPtr FileFilter
p
foreign import ccall "gtk_file_filter_get_type"
c_gtk_file_filter_get_type :: IO B.Types.GType
instance B.Types.TypedObject FileFilter where
glibType :: IO GType
glibType = IO GType
c_gtk_file_filter_get_type
instance B.Types.GObject FileFilter
class (SP.GObject o, O.IsDescendantOf FileFilter o) => IsFileFilter o
instance (SP.GObject o, O.IsDescendantOf FileFilter o) => IsFileFilter o
instance O.HasParentTypes FileFilter
type instance O.ParentTypes FileFilter = '[Gtk.Filter.Filter, GObject.Object.Object, Gtk.Buildable.Buildable]
toFileFilter :: (MIO.MonadIO m, IsFileFilter o) => o -> m FileFilter
toFileFilter :: forall (m :: * -> *) o.
(MonadIO m, IsFileFilter o) =>
o -> m FileFilter
toFileFilter = IO FileFilter -> m FileFilter
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO FileFilter -> m FileFilter)
-> (o -> IO FileFilter) -> o -> m FileFilter
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr FileFilter -> FileFilter) -> o -> IO FileFilter
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr FileFilter -> FileFilter
FileFilter
instance B.GValue.IsGValue (Maybe FileFilter) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_file_filter_get_type
gvalueSet_ :: Ptr GValue -> Maybe FileFilter -> IO ()
gvalueSet_ Ptr GValue
gv Maybe FileFilter
P.Nothing = Ptr GValue -> Ptr FileFilter -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr FileFilter
forall a. Ptr a
FP.nullPtr :: FP.Ptr FileFilter)
gvalueSet_ Ptr GValue
gv (P.Just FileFilter
obj) = FileFilter -> (Ptr FileFilter -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr FileFilter
obj (Ptr GValue -> Ptr FileFilter -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe FileFilter)
gvalueGet_ Ptr GValue
gv = do
Ptr FileFilter
ptr <- Ptr GValue -> IO (Ptr FileFilter)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr FileFilter)
if Ptr FileFilter
ptr Ptr FileFilter -> Ptr FileFilter -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr FileFilter
forall a. Ptr a
FP.nullPtr
then FileFilter -> Maybe FileFilter
forall a. a -> Maybe a
P.Just (FileFilter -> Maybe FileFilter)
-> IO FileFilter -> IO (Maybe FileFilter)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr FileFilter -> FileFilter)
-> Ptr FileFilter -> IO FileFilter
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr FileFilter -> FileFilter
FileFilter Ptr FileFilter
ptr
else Maybe FileFilter -> IO (Maybe FileFilter)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe FileFilter
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveFileFilterMethod (t :: Symbol) (o :: *) :: * where
ResolveFileFilterMethod "addMimeType" o = FileFilterAddMimeTypeMethodInfo
ResolveFileFilterMethod "addPattern" o = FileFilterAddPatternMethodInfo
ResolveFileFilterMethod "addPixbufFormats" o = FileFilterAddPixbufFormatsMethodInfo
ResolveFileFilterMethod "addSuffix" o = FileFilterAddSuffixMethodInfo
ResolveFileFilterMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveFileFilterMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveFileFilterMethod "changed" o = Gtk.Filter.FilterChangedMethodInfo
ResolveFileFilterMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveFileFilterMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveFileFilterMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveFileFilterMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveFileFilterMethod "match" o = Gtk.Filter.FilterMatchMethodInfo
ResolveFileFilterMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveFileFilterMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveFileFilterMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveFileFilterMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveFileFilterMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveFileFilterMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveFileFilterMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveFileFilterMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveFileFilterMethod "toGvariant" o = FileFilterToGvariantMethodInfo
ResolveFileFilterMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveFileFilterMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveFileFilterMethod "getAttributes" o = FileFilterGetAttributesMethodInfo
ResolveFileFilterMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveFileFilterMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveFileFilterMethod "getName" o = FileFilterGetNameMethodInfo
ResolveFileFilterMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveFileFilterMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveFileFilterMethod "getStrictness" o = Gtk.Filter.FilterGetStrictnessMethodInfo
ResolveFileFilterMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveFileFilterMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveFileFilterMethod "setName" o = FileFilterSetNameMethodInfo
ResolveFileFilterMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveFileFilterMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveFileFilterMethod t FileFilter, O.OverloadedMethod info FileFilter p) => OL.IsLabel t (FileFilter -> 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 ~ ResolveFileFilterMethod t FileFilter, O.OverloadedMethod info FileFilter p, R.HasField t FileFilter p) => R.HasField t FileFilter p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveFileFilterMethod t FileFilter, O.OverloadedMethodInfo info FileFilter) => OL.IsLabel t (O.MethodProxy info FileFilter) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getFileFilterName :: (MonadIO m, IsFileFilter o) => o -> m (Maybe T.Text)
getFileFilterName :: forall (m :: * -> *) o.
(MonadIO m, IsFileFilter o) =>
o -> m (Maybe Text)
getFileFilterName o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"name"
setFileFilterName :: (MonadIO m, IsFileFilter o) => o -> T.Text -> m ()
setFileFilterName :: forall (m :: * -> *) o.
(MonadIO m, IsFileFilter o) =>
o -> Text -> m ()
setFileFilterName o
obj Text
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 Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructFileFilterName :: (IsFileFilter o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructFileFilterName :: forall o (m :: * -> *).
(IsFileFilter o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructFileFilterName Text
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 Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearFileFilterName :: (MonadIO m, IsFileFilter o) => o -> m ()
clearFileFilterName :: forall (m :: * -> *) o. (MonadIO m, IsFileFilter o) => o -> m ()
clearFileFilterName 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 Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"name" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data FileFilterNamePropertyInfo
instance AttrInfo FileFilterNamePropertyInfo where
type AttrAllowedOps FileFilterNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint FileFilterNamePropertyInfo = IsFileFilter
type AttrSetTypeConstraint FileFilterNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint FileFilterNamePropertyInfo = (~) T.Text
type AttrTransferType FileFilterNamePropertyInfo = T.Text
type AttrGetType FileFilterNamePropertyInfo = (Maybe T.Text)
type AttrLabel FileFilterNamePropertyInfo = "name"
type AttrOrigin FileFilterNamePropertyInfo = FileFilter
attrGet = getFileFilterName
attrSet = setFileFilterName
attrTransfer _ v = do
return v
attrConstruct = constructFileFilterName
attrClear = clearFileFilterName
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileFilter.name"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-FileFilter.html#g:attr:name"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList FileFilter
type instance O.AttributeList FileFilter = FileFilterAttributeList
type FileFilterAttributeList = ('[ '("name", FileFilterNamePropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
fileFilterName :: AttrLabelProxy "name"
fileFilterName = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList FileFilter = FileFilterSignalList
type FileFilterSignalList = ('[ '("changed", Gtk.Filter.FilterChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_file_filter_new" gtk_file_filter_new ::
IO (Ptr FileFilter)
fileFilterNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m FileFilter
fileFilterNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m FileFilter
fileFilterNew = IO FileFilter -> m FileFilter
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FileFilter -> m FileFilter) -> IO FileFilter -> m FileFilter
forall a b. (a -> b) -> a -> b
$ do
Ptr FileFilter
result <- IO (Ptr FileFilter)
gtk_file_filter_new
Text -> Ptr FileFilter -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"fileFilterNew" Ptr FileFilter
result
FileFilter
result' <- ((ManagedPtr FileFilter -> FileFilter)
-> Ptr FileFilter -> IO FileFilter
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr FileFilter -> FileFilter
FileFilter) Ptr FileFilter
result
FileFilter -> IO FileFilter
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FileFilter
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_file_filter_new_from_gvariant" gtk_file_filter_new_from_gvariant ::
Ptr GVariant ->
IO (Ptr FileFilter)
fileFilterNewFromGvariant ::
(B.CallStack.HasCallStack, MonadIO m) =>
GVariant
-> m FileFilter
fileFilterNewFromGvariant :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
GVariant -> m FileFilter
fileFilterNewFromGvariant GVariant
variant = IO FileFilter -> m FileFilter
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FileFilter -> m FileFilter) -> IO FileFilter -> m FileFilter
forall a b. (a -> b) -> a -> b
$ do
Ptr GVariant
variant' <- GVariant -> IO (Ptr GVariant)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
variant
Ptr FileFilter
result <- Ptr GVariant -> IO (Ptr FileFilter)
gtk_file_filter_new_from_gvariant Ptr GVariant
variant'
Text -> Ptr FileFilter -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"fileFilterNewFromGvariant" Ptr FileFilter
result
FileFilter
result' <- ((ManagedPtr FileFilter -> FileFilter)
-> Ptr FileFilter -> IO FileFilter
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr FileFilter -> FileFilter
FileFilter) Ptr FileFilter
result
GVariant -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GVariant
variant
FileFilter -> IO FileFilter
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FileFilter
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_file_filter_add_mime_type" gtk_file_filter_add_mime_type ::
Ptr FileFilter ->
CString ->
IO ()
fileFilterAddMimeType ::
(B.CallStack.HasCallStack, MonadIO m, IsFileFilter a) =>
a
-> T.Text
-> m ()
fileFilterAddMimeType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileFilter a) =>
a -> Text -> m ()
fileFilterAddMimeType a
filter Text
mimeType = 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 FileFilter
filter' <- a -> IO (Ptr FileFilter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
filter
CString
mimeType' <- Text -> IO CString
textToCString Text
mimeType
Ptr FileFilter -> CString -> IO ()
gtk_file_filter_add_mime_type Ptr FileFilter
filter' CString
mimeType'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
filter
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
mimeType'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FileFilterAddMimeTypeMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsFileFilter a) => O.OverloadedMethod FileFilterAddMimeTypeMethodInfo a signature where
overloadedMethod = fileFilterAddMimeType
instance O.OverloadedMethodInfo FileFilterAddMimeTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileFilter.fileFilterAddMimeType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-FileFilter.html#v:fileFilterAddMimeType"
})
#endif
foreign import ccall "gtk_file_filter_add_pattern" gtk_file_filter_add_pattern ::
Ptr FileFilter ->
CString ->
IO ()
fileFilterAddPattern ::
(B.CallStack.HasCallStack, MonadIO m, IsFileFilter a) =>
a
-> T.Text
-> m ()
fileFilterAddPattern :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileFilter a) =>
a -> Text -> m ()
fileFilterAddPattern a
filter Text
pattern = 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 FileFilter
filter' <- a -> IO (Ptr FileFilter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
filter
CString
pattern' <- Text -> IO CString
textToCString Text
pattern
Ptr FileFilter -> CString -> IO ()
gtk_file_filter_add_pattern Ptr FileFilter
filter' CString
pattern'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
filter
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
pattern'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FileFilterAddPatternMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsFileFilter a) => O.OverloadedMethod FileFilterAddPatternMethodInfo a signature where
overloadedMethod = fileFilterAddPattern
instance O.OverloadedMethodInfo FileFilterAddPatternMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileFilter.fileFilterAddPattern",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-FileFilter.html#v:fileFilterAddPattern"
})
#endif
foreign import ccall "gtk_file_filter_add_pixbuf_formats" gtk_file_filter_add_pixbuf_formats ::
Ptr FileFilter ->
IO ()
fileFilterAddPixbufFormats ::
(B.CallStack.HasCallStack, MonadIO m, IsFileFilter a) =>
a
-> m ()
fileFilterAddPixbufFormats :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileFilter a) =>
a -> m ()
fileFilterAddPixbufFormats a
filter = 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 FileFilter
filter' <- a -> IO (Ptr FileFilter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
filter
Ptr FileFilter -> IO ()
gtk_file_filter_add_pixbuf_formats Ptr FileFilter
filter'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
filter
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FileFilterAddPixbufFormatsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsFileFilter a) => O.OverloadedMethod FileFilterAddPixbufFormatsMethodInfo a signature where
overloadedMethod = fileFilterAddPixbufFormats
instance O.OverloadedMethodInfo FileFilterAddPixbufFormatsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileFilter.fileFilterAddPixbufFormats",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-FileFilter.html#v:fileFilterAddPixbufFormats"
})
#endif
foreign import ccall "gtk_file_filter_add_suffix" gtk_file_filter_add_suffix ::
Ptr FileFilter ->
CString ->
IO ()
fileFilterAddSuffix ::
(B.CallStack.HasCallStack, MonadIO m, IsFileFilter a) =>
a
-> T.Text
-> m ()
fileFilterAddSuffix :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileFilter a) =>
a -> Text -> m ()
fileFilterAddSuffix a
filter Text
suffix = 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 FileFilter
filter' <- a -> IO (Ptr FileFilter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
filter
CString
suffix' <- Text -> IO CString
textToCString Text
suffix
Ptr FileFilter -> CString -> IO ()
gtk_file_filter_add_suffix Ptr FileFilter
filter' CString
suffix'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
filter
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
suffix'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FileFilterAddSuffixMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsFileFilter a) => O.OverloadedMethod FileFilterAddSuffixMethodInfo a signature where
overloadedMethod = fileFilterAddSuffix
instance O.OverloadedMethodInfo FileFilterAddSuffixMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileFilter.fileFilterAddSuffix",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-FileFilter.html#v:fileFilterAddSuffix"
})
#endif
foreign import ccall "gtk_file_filter_get_attributes" gtk_file_filter_get_attributes ::
Ptr FileFilter ->
IO (Ptr CString)
fileFilterGetAttributes ::
(B.CallStack.HasCallStack, MonadIO m, IsFileFilter a) =>
a
-> m [T.Text]
fileFilterGetAttributes :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileFilter a) =>
a -> m [Text]
fileFilterGetAttributes a
filter = IO [Text] -> m [Text]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Text] -> m [Text]) -> IO [Text] -> m [Text]
forall a b. (a -> b) -> a -> b
$ do
Ptr FileFilter
filter' <- a -> IO (Ptr FileFilter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
filter
Ptr CString
result <- Ptr FileFilter -> IO (Ptr CString)
gtk_file_filter_get_attributes Ptr FileFilter
filter'
Text -> Ptr CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"fileFilterGetAttributes" Ptr CString
result
[Text]
result' <- HasCallStack => Ptr CString -> IO [Text]
Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
filter
[Text] -> IO [Text]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Text]
result'
#if defined(ENABLE_OVERLOADING)
data FileFilterGetAttributesMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsFileFilter a) => O.OverloadedMethod FileFilterGetAttributesMethodInfo a signature where
overloadedMethod = fileFilterGetAttributes
instance O.OverloadedMethodInfo FileFilterGetAttributesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileFilter.fileFilterGetAttributes",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-FileFilter.html#v:fileFilterGetAttributes"
})
#endif
foreign import ccall "gtk_file_filter_get_name" gtk_file_filter_get_name ::
Ptr FileFilter ->
IO CString
fileFilterGetName ::
(B.CallStack.HasCallStack, MonadIO m, IsFileFilter a) =>
a
-> m (Maybe T.Text)
fileFilterGetName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileFilter a) =>
a -> m (Maybe Text)
fileFilterGetName a
filter = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr FileFilter
filter' <- a -> IO (Ptr FileFilter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
filter
CString
result <- Ptr FileFilter -> IO CString
gtk_file_filter_get_name Ptr FileFilter
filter'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
filter
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data FileFilterGetNameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsFileFilter a) => O.OverloadedMethod FileFilterGetNameMethodInfo a signature where
overloadedMethod = fileFilterGetName
instance O.OverloadedMethodInfo FileFilterGetNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileFilter.fileFilterGetName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-FileFilter.html#v:fileFilterGetName"
})
#endif
foreign import ccall "gtk_file_filter_set_name" gtk_file_filter_set_name ::
Ptr FileFilter ->
CString ->
IO ()
fileFilterSetName ::
(B.CallStack.HasCallStack, MonadIO m, IsFileFilter a) =>
a
-> Maybe (T.Text)
-> m ()
fileFilterSetName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileFilter a) =>
a -> Maybe Text -> m ()
fileFilterSetName a
filter Maybe Text
name = 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 FileFilter
filter' <- a -> IO (Ptr FileFilter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
filter
CString
maybeName <- case Maybe Text
name of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jName -> do
CString
jName' <- Text -> IO CString
textToCString Text
jName
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jName'
Ptr FileFilter -> CString -> IO ()
gtk_file_filter_set_name Ptr FileFilter
filter' CString
maybeName
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
filter
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeName
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FileFilterSetNameMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsFileFilter a) => O.OverloadedMethod FileFilterSetNameMethodInfo a signature where
overloadedMethod = fileFilterSetName
instance O.OverloadedMethodInfo FileFilterSetNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileFilter.fileFilterSetName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-FileFilter.html#v:fileFilterSetName"
})
#endif
foreign import ccall "gtk_file_filter_to_gvariant" gtk_file_filter_to_gvariant ::
Ptr FileFilter ->
IO (Ptr GVariant)
fileFilterToGvariant ::
(B.CallStack.HasCallStack, MonadIO m, IsFileFilter a) =>
a
-> m GVariant
fileFilterToGvariant :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFileFilter a) =>
a -> m GVariant
fileFilterToGvariant a
filter = IO GVariant -> m GVariant
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GVariant -> m GVariant) -> IO GVariant -> m GVariant
forall a b. (a -> b) -> a -> b
$ do
Ptr FileFilter
filter' <- a -> IO (Ptr FileFilter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
filter
Ptr GVariant
result <- Ptr FileFilter -> IO (Ptr GVariant)
gtk_file_filter_to_gvariant Ptr FileFilter
filter'
Text -> Ptr GVariant -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"fileFilterToGvariant" Ptr GVariant
result
GVariant
result' <- Ptr GVariant -> IO GVariant
B.GVariant.newGVariantFromPtr Ptr GVariant
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
filter
GVariant -> IO GVariant
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
result'
#if defined(ENABLE_OVERLOADING)
data FileFilterToGvariantMethodInfo
instance (signature ~ (m GVariant), MonadIO m, IsFileFilter a) => O.OverloadedMethod FileFilterToGvariantMethodInfo a signature where
overloadedMethod = fileFilterToGvariant
instance O.OverloadedMethodInfo FileFilterToGvariantMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.FileFilter.fileFilterToGvariant",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-FileFilter.html#v:fileFilterToGvariant"
})
#endif