{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GtkSource.Objects.SearchSettings
(
SearchSettings(..) ,
IsSearchSettings ,
toSearchSettings ,
#if defined(ENABLE_OVERLOADING)
ResolveSearchSettingsMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SearchSettingsGetAtWordBoundariesMethodInfo,
#endif
searchSettingsGetAtWordBoundaries ,
#if defined(ENABLE_OVERLOADING)
SearchSettingsGetCaseSensitiveMethodInfo,
#endif
searchSettingsGetCaseSensitive ,
#if defined(ENABLE_OVERLOADING)
SearchSettingsGetRegexEnabledMethodInfo ,
#endif
searchSettingsGetRegexEnabled ,
#if defined(ENABLE_OVERLOADING)
SearchSettingsGetSearchTextMethodInfo ,
#endif
searchSettingsGetSearchText ,
#if defined(ENABLE_OVERLOADING)
SearchSettingsGetWrapAroundMethodInfo ,
#endif
searchSettingsGetWrapAround ,
searchSettingsNew ,
#if defined(ENABLE_OVERLOADING)
SearchSettingsSetAtWordBoundariesMethodInfo,
#endif
searchSettingsSetAtWordBoundaries ,
#if defined(ENABLE_OVERLOADING)
SearchSettingsSetCaseSensitiveMethodInfo,
#endif
searchSettingsSetCaseSensitive ,
#if defined(ENABLE_OVERLOADING)
SearchSettingsSetRegexEnabledMethodInfo ,
#endif
searchSettingsSetRegexEnabled ,
#if defined(ENABLE_OVERLOADING)
SearchSettingsSetSearchTextMethodInfo ,
#endif
searchSettingsSetSearchText ,
#if defined(ENABLE_OVERLOADING)
SearchSettingsSetWrapAroundMethodInfo ,
#endif
searchSettingsSetWrapAround ,
#if defined(ENABLE_OVERLOADING)
SearchSettingsAtWordBoundariesPropertyInfo,
#endif
constructSearchSettingsAtWordBoundaries ,
getSearchSettingsAtWordBoundaries ,
#if defined(ENABLE_OVERLOADING)
searchSettingsAtWordBoundaries ,
#endif
setSearchSettingsAtWordBoundaries ,
#if defined(ENABLE_OVERLOADING)
SearchSettingsCaseSensitivePropertyInfo ,
#endif
constructSearchSettingsCaseSensitive ,
getSearchSettingsCaseSensitive ,
#if defined(ENABLE_OVERLOADING)
searchSettingsCaseSensitive ,
#endif
setSearchSettingsCaseSensitive ,
#if defined(ENABLE_OVERLOADING)
SearchSettingsRegexEnabledPropertyInfo ,
#endif
constructSearchSettingsRegexEnabled ,
getSearchSettingsRegexEnabled ,
#if defined(ENABLE_OVERLOADING)
searchSettingsRegexEnabled ,
#endif
setSearchSettingsRegexEnabled ,
#if defined(ENABLE_OVERLOADING)
SearchSettingsSearchTextPropertyInfo ,
#endif
clearSearchSettingsSearchText ,
constructSearchSettingsSearchText ,
getSearchSettingsSearchText ,
#if defined(ENABLE_OVERLOADING)
searchSettingsSearchText ,
#endif
setSearchSettingsSearchText ,
#if defined(ENABLE_OVERLOADING)
SearchSettingsWrapAroundPropertyInfo ,
#endif
constructSearchSettingsWrapAround ,
getSearchSettingsWrapAround ,
#if defined(ENABLE_OVERLOADING)
searchSettingsWrapAround ,
#endif
setSearchSettingsWrapAround ,
) 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.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
newtype SearchSettings = SearchSettings (SP.ManagedPtr SearchSettings)
deriving (SearchSettings -> SearchSettings -> Bool
(SearchSettings -> SearchSettings -> Bool)
-> (SearchSettings -> SearchSettings -> Bool) -> Eq SearchSettings
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SearchSettings -> SearchSettings -> Bool
$c/= :: SearchSettings -> SearchSettings -> Bool
== :: SearchSettings -> SearchSettings -> Bool
$c== :: SearchSettings -> SearchSettings -> Bool
Eq)
instance SP.ManagedPtrNewtype SearchSettings where
toManagedPtr :: SearchSettings -> ManagedPtr SearchSettings
toManagedPtr (SearchSettings ManagedPtr SearchSettings
p) = ManagedPtr SearchSettings
p
foreign import ccall "gtk_source_search_settings_get_type"
c_gtk_source_search_settings_get_type :: IO B.Types.GType
instance B.Types.TypedObject SearchSettings where
glibType :: IO GType
glibType = IO GType
c_gtk_source_search_settings_get_type
instance B.Types.GObject SearchSettings
class (SP.GObject o, O.IsDescendantOf SearchSettings o) => IsSearchSettings o
instance (SP.GObject o, O.IsDescendantOf SearchSettings o) => IsSearchSettings o
instance O.HasParentTypes SearchSettings
type instance O.ParentTypes SearchSettings = '[GObject.Object.Object]
toSearchSettings :: (MIO.MonadIO m, IsSearchSettings o) => o -> m SearchSettings
toSearchSettings :: forall (m :: * -> *) o.
(MonadIO m, IsSearchSettings o) =>
o -> m SearchSettings
toSearchSettings = IO SearchSettings -> m SearchSettings
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SearchSettings -> m SearchSettings)
-> (o -> IO SearchSettings) -> o -> m SearchSettings
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr SearchSettings -> SearchSettings)
-> o -> IO SearchSettings
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr SearchSettings -> SearchSettings
SearchSettings
instance B.GValue.IsGValue (Maybe SearchSettings) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_source_search_settings_get_type
gvalueSet_ :: Ptr GValue -> Maybe SearchSettings -> IO ()
gvalueSet_ Ptr GValue
gv Maybe SearchSettings
P.Nothing = Ptr GValue -> Ptr SearchSettings -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr SearchSettings
forall a. Ptr a
FP.nullPtr :: FP.Ptr SearchSettings)
gvalueSet_ Ptr GValue
gv (P.Just SearchSettings
obj) = SearchSettings -> (Ptr SearchSettings -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr SearchSettings
obj (Ptr GValue -> Ptr SearchSettings -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe SearchSettings)
gvalueGet_ Ptr GValue
gv = do
Ptr SearchSettings
ptr <- Ptr GValue -> IO (Ptr SearchSettings)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr SearchSettings)
if Ptr SearchSettings
ptr Ptr SearchSettings -> Ptr SearchSettings -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr SearchSettings
forall a. Ptr a
FP.nullPtr
then SearchSettings -> Maybe SearchSettings
forall a. a -> Maybe a
P.Just (SearchSettings -> Maybe SearchSettings)
-> IO SearchSettings -> IO (Maybe SearchSettings)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr SearchSettings -> SearchSettings)
-> Ptr SearchSettings -> IO SearchSettings
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr SearchSettings -> SearchSettings
SearchSettings Ptr SearchSettings
ptr
else Maybe SearchSettings -> IO (Maybe SearchSettings)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SearchSettings
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveSearchSettingsMethod (t :: Symbol) (o :: *) :: * where
ResolveSearchSettingsMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSearchSettingsMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSearchSettingsMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSearchSettingsMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSearchSettingsMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveSearchSettingsMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSearchSettingsMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSearchSettingsMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSearchSettingsMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSearchSettingsMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSearchSettingsMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSearchSettingsMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSearchSettingsMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSearchSettingsMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSearchSettingsMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSearchSettingsMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSearchSettingsMethod "getAtWordBoundaries" o = SearchSettingsGetAtWordBoundariesMethodInfo
ResolveSearchSettingsMethod "getCaseSensitive" o = SearchSettingsGetCaseSensitiveMethodInfo
ResolveSearchSettingsMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSearchSettingsMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSearchSettingsMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSearchSettingsMethod "getRegexEnabled" o = SearchSettingsGetRegexEnabledMethodInfo
ResolveSearchSettingsMethod "getSearchText" o = SearchSettingsGetSearchTextMethodInfo
ResolveSearchSettingsMethod "getWrapAround" o = SearchSettingsGetWrapAroundMethodInfo
ResolveSearchSettingsMethod "setAtWordBoundaries" o = SearchSettingsSetAtWordBoundariesMethodInfo
ResolveSearchSettingsMethod "setCaseSensitive" o = SearchSettingsSetCaseSensitiveMethodInfo
ResolveSearchSettingsMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSearchSettingsMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveSearchSettingsMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSearchSettingsMethod "setRegexEnabled" o = SearchSettingsSetRegexEnabledMethodInfo
ResolveSearchSettingsMethod "setSearchText" o = SearchSettingsSetSearchTextMethodInfo
ResolveSearchSettingsMethod "setWrapAround" o = SearchSettingsSetWrapAroundMethodInfo
ResolveSearchSettingsMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSearchSettingsMethod t SearchSettings, O.OverloadedMethod info SearchSettings p) => OL.IsLabel t (SearchSettings -> 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 ~ ResolveSearchSettingsMethod t SearchSettings, O.OverloadedMethod info SearchSettings p, R.HasField t SearchSettings p) => R.HasField t SearchSettings p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSearchSettingsMethod t SearchSettings, O.OverloadedMethodInfo info SearchSettings) => OL.IsLabel t (O.MethodProxy info SearchSettings) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getSearchSettingsAtWordBoundaries :: (MonadIO m, IsSearchSettings o) => o -> m Bool
getSearchSettingsAtWordBoundaries :: forall (m :: * -> *) o.
(MonadIO m, IsSearchSettings o) =>
o -> m Bool
getSearchSettingsAtWordBoundaries o
obj = IO Bool -> m Bool
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
"at-word-boundaries"
setSearchSettingsAtWordBoundaries :: (MonadIO m, IsSearchSettings o) => o -> Bool -> m ()
setSearchSettingsAtWordBoundaries :: forall (m :: * -> *) o.
(MonadIO m, IsSearchSettings o) =>
o -> Bool -> m ()
setSearchSettingsAtWordBoundaries o
obj Bool
val = IO () -> m ()
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
"at-word-boundaries" Bool
val
constructSearchSettingsAtWordBoundaries :: (IsSearchSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSearchSettingsAtWordBoundaries :: forall o (m :: * -> *).
(IsSearchSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSearchSettingsAtWordBoundaries 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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
"at-word-boundaries" Bool
val
#if defined(ENABLE_OVERLOADING)
data SearchSettingsAtWordBoundariesPropertyInfo
instance AttrInfo SearchSettingsAtWordBoundariesPropertyInfo where
type AttrAllowedOps SearchSettingsAtWordBoundariesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SearchSettingsAtWordBoundariesPropertyInfo = IsSearchSettings
type AttrSetTypeConstraint SearchSettingsAtWordBoundariesPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SearchSettingsAtWordBoundariesPropertyInfo = (~) Bool
type AttrTransferType SearchSettingsAtWordBoundariesPropertyInfo = Bool
type AttrGetType SearchSettingsAtWordBoundariesPropertyInfo = Bool
type AttrLabel SearchSettingsAtWordBoundariesPropertyInfo = "at-word-boundaries"
type AttrOrigin SearchSettingsAtWordBoundariesPropertyInfo = SearchSettings
attrGet = getSearchSettingsAtWordBoundaries
attrSet = setSearchSettingsAtWordBoundaries
attrTransfer _ v = do
return v
attrConstruct = constructSearchSettingsAtWordBoundaries
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchSettings.atWordBoundaries"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchSettings.html#g:attr:atWordBoundaries"
})
#endif
getSearchSettingsCaseSensitive :: (MonadIO m, IsSearchSettings o) => o -> m Bool
getSearchSettingsCaseSensitive :: forall (m :: * -> *) o.
(MonadIO m, IsSearchSettings o) =>
o -> m Bool
getSearchSettingsCaseSensitive o
obj = IO Bool -> m Bool
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
"case-sensitive"
setSearchSettingsCaseSensitive :: (MonadIO m, IsSearchSettings o) => o -> Bool -> m ()
setSearchSettingsCaseSensitive :: forall (m :: * -> *) o.
(MonadIO m, IsSearchSettings o) =>
o -> Bool -> m ()
setSearchSettingsCaseSensitive o
obj Bool
val = IO () -> m ()
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
"case-sensitive" Bool
val
constructSearchSettingsCaseSensitive :: (IsSearchSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSearchSettingsCaseSensitive :: forall o (m :: * -> *).
(IsSearchSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSearchSettingsCaseSensitive 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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
"case-sensitive" Bool
val
#if defined(ENABLE_OVERLOADING)
data SearchSettingsCaseSensitivePropertyInfo
instance AttrInfo SearchSettingsCaseSensitivePropertyInfo where
type AttrAllowedOps SearchSettingsCaseSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SearchSettingsCaseSensitivePropertyInfo = IsSearchSettings
type AttrSetTypeConstraint SearchSettingsCaseSensitivePropertyInfo = (~) Bool
type AttrTransferTypeConstraint SearchSettingsCaseSensitivePropertyInfo = (~) Bool
type AttrTransferType SearchSettingsCaseSensitivePropertyInfo = Bool
type AttrGetType SearchSettingsCaseSensitivePropertyInfo = Bool
type AttrLabel SearchSettingsCaseSensitivePropertyInfo = "case-sensitive"
type AttrOrigin SearchSettingsCaseSensitivePropertyInfo = SearchSettings
attrGet = getSearchSettingsCaseSensitive
attrSet = setSearchSettingsCaseSensitive
attrTransfer _ v = do
return v
attrConstruct = constructSearchSettingsCaseSensitive
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchSettings.caseSensitive"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchSettings.html#g:attr:caseSensitive"
})
#endif
getSearchSettingsRegexEnabled :: (MonadIO m, IsSearchSettings o) => o -> m Bool
getSearchSettingsRegexEnabled :: forall (m :: * -> *) o.
(MonadIO m, IsSearchSettings o) =>
o -> m Bool
getSearchSettingsRegexEnabled o
obj = IO Bool -> m Bool
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
"regex-enabled"
setSearchSettingsRegexEnabled :: (MonadIO m, IsSearchSettings o) => o -> Bool -> m ()
setSearchSettingsRegexEnabled :: forall (m :: * -> *) o.
(MonadIO m, IsSearchSettings o) =>
o -> Bool -> m ()
setSearchSettingsRegexEnabled o
obj Bool
val = IO () -> m ()
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
"regex-enabled" Bool
val
constructSearchSettingsRegexEnabled :: (IsSearchSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSearchSettingsRegexEnabled :: forall o (m :: * -> *).
(IsSearchSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSearchSettingsRegexEnabled 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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
"regex-enabled" Bool
val
#if defined(ENABLE_OVERLOADING)
data SearchSettingsRegexEnabledPropertyInfo
instance AttrInfo SearchSettingsRegexEnabledPropertyInfo where
type AttrAllowedOps SearchSettingsRegexEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SearchSettingsRegexEnabledPropertyInfo = IsSearchSettings
type AttrSetTypeConstraint SearchSettingsRegexEnabledPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SearchSettingsRegexEnabledPropertyInfo = (~) Bool
type AttrTransferType SearchSettingsRegexEnabledPropertyInfo = Bool
type AttrGetType SearchSettingsRegexEnabledPropertyInfo = Bool
type AttrLabel SearchSettingsRegexEnabledPropertyInfo = "regex-enabled"
type AttrOrigin SearchSettingsRegexEnabledPropertyInfo = SearchSettings
attrGet = getSearchSettingsRegexEnabled
attrSet = setSearchSettingsRegexEnabled
attrTransfer _ v = do
return v
attrConstruct = constructSearchSettingsRegexEnabled
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchSettings.regexEnabled"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchSettings.html#g:attr:regexEnabled"
})
#endif
getSearchSettingsSearchText :: (MonadIO m, IsSearchSettings o) => o -> m (Maybe T.Text)
getSearchSettingsSearchText :: forall (m :: * -> *) o.
(MonadIO m, IsSearchSettings o) =>
o -> m (Maybe Text)
getSearchSettingsSearchText o
obj = IO (Maybe Text) -> m (Maybe Text)
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
"search-text"
setSearchSettingsSearchText :: (MonadIO m, IsSearchSettings o) => o -> T.Text -> m ()
setSearchSettingsSearchText :: forall (m :: * -> *) o.
(MonadIO m, IsSearchSettings o) =>
o -> Text -> m ()
setSearchSettingsSearchText o
obj Text
val = IO () -> m ()
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
"search-text" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSearchSettingsSearchText :: (IsSearchSettings o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSearchSettingsSearchText :: forall o (m :: * -> *).
(IsSearchSettings o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructSearchSettingsSearchText Text
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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
"search-text" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearSearchSettingsSearchText :: (MonadIO m, IsSearchSettings o) => o -> m ()
clearSearchSettingsSearchText :: forall (m :: * -> *) o.
(MonadIO m, IsSearchSettings o) =>
o -> m ()
clearSearchSettingsSearchText o
obj = 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 -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"search-text" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data SearchSettingsSearchTextPropertyInfo
instance AttrInfo SearchSettingsSearchTextPropertyInfo where
type AttrAllowedOps SearchSettingsSearchTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SearchSettingsSearchTextPropertyInfo = IsSearchSettings
type AttrSetTypeConstraint SearchSettingsSearchTextPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint SearchSettingsSearchTextPropertyInfo = (~) T.Text
type AttrTransferType SearchSettingsSearchTextPropertyInfo = T.Text
type AttrGetType SearchSettingsSearchTextPropertyInfo = (Maybe T.Text)
type AttrLabel SearchSettingsSearchTextPropertyInfo = "search-text"
type AttrOrigin SearchSettingsSearchTextPropertyInfo = SearchSettings
attrGet = getSearchSettingsSearchText
attrSet = setSearchSettingsSearchText
attrTransfer _ v = do
return v
attrConstruct = constructSearchSettingsSearchText
attrClear = clearSearchSettingsSearchText
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchSettings.searchText"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchSettings.html#g:attr:searchText"
})
#endif
getSearchSettingsWrapAround :: (MonadIO m, IsSearchSettings o) => o -> m Bool
getSearchSettingsWrapAround :: forall (m :: * -> *) o.
(MonadIO m, IsSearchSettings o) =>
o -> m Bool
getSearchSettingsWrapAround o
obj = IO Bool -> m Bool
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
"wrap-around"
setSearchSettingsWrapAround :: (MonadIO m, IsSearchSettings o) => o -> Bool -> m ()
setSearchSettingsWrapAround :: forall (m :: * -> *) o.
(MonadIO m, IsSearchSettings o) =>
o -> Bool -> m ()
setSearchSettingsWrapAround o
obj Bool
val = IO () -> m ()
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
"wrap-around" Bool
val
constructSearchSettingsWrapAround :: (IsSearchSettings o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSearchSettingsWrapAround :: forall o (m :: * -> *).
(IsSearchSettings o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSearchSettingsWrapAround 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
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
"wrap-around" Bool
val
#if defined(ENABLE_OVERLOADING)
data SearchSettingsWrapAroundPropertyInfo
instance AttrInfo SearchSettingsWrapAroundPropertyInfo where
type AttrAllowedOps SearchSettingsWrapAroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SearchSettingsWrapAroundPropertyInfo = IsSearchSettings
type AttrSetTypeConstraint SearchSettingsWrapAroundPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SearchSettingsWrapAroundPropertyInfo = (~) Bool
type AttrTransferType SearchSettingsWrapAroundPropertyInfo = Bool
type AttrGetType SearchSettingsWrapAroundPropertyInfo = Bool
type AttrLabel SearchSettingsWrapAroundPropertyInfo = "wrap-around"
type AttrOrigin SearchSettingsWrapAroundPropertyInfo = SearchSettings
attrGet = getSearchSettingsWrapAround
attrSet = setSearchSettingsWrapAround
attrTransfer _ v = do
return v
attrConstruct = constructSearchSettingsWrapAround
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchSettings.wrapAround"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchSettings.html#g:attr:wrapAround"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList SearchSettings
type instance O.AttributeList SearchSettings = SearchSettingsAttributeList
type SearchSettingsAttributeList = ('[ '("atWordBoundaries", SearchSettingsAtWordBoundariesPropertyInfo), '("caseSensitive", SearchSettingsCaseSensitivePropertyInfo), '("regexEnabled", SearchSettingsRegexEnabledPropertyInfo), '("searchText", SearchSettingsSearchTextPropertyInfo), '("wrapAround", SearchSettingsWrapAroundPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
searchSettingsAtWordBoundaries :: AttrLabelProxy "atWordBoundaries"
searchSettingsAtWordBoundaries = AttrLabelProxy
searchSettingsCaseSensitive :: AttrLabelProxy "caseSensitive"
searchSettingsCaseSensitive = AttrLabelProxy
searchSettingsRegexEnabled :: AttrLabelProxy "regexEnabled"
searchSettingsRegexEnabled = AttrLabelProxy
searchSettingsSearchText :: AttrLabelProxy "searchText"
searchSettingsSearchText = AttrLabelProxy
searchSettingsWrapAround :: AttrLabelProxy "wrapAround"
searchSettingsWrapAround = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList SearchSettings = SearchSettingsSignalList
type SearchSettingsSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_source_search_settings_new" gtk_source_search_settings_new ::
IO (Ptr SearchSettings)
searchSettingsNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m SearchSettings
searchSettingsNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m SearchSettings
searchSettingsNew = IO SearchSettings -> m SearchSettings
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SearchSettings -> m SearchSettings)
-> IO SearchSettings -> m SearchSettings
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchSettings
result <- IO (Ptr SearchSettings)
gtk_source_search_settings_new
Text -> Ptr SearchSettings -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"searchSettingsNew" Ptr SearchSettings
result
SearchSettings
result' <- ((ManagedPtr SearchSettings -> SearchSettings)
-> Ptr SearchSettings -> IO SearchSettings
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr SearchSettings -> SearchSettings
SearchSettings) Ptr SearchSettings
result
SearchSettings -> IO SearchSettings
forall (m :: * -> *) a. Monad m => a -> m a
return SearchSettings
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_source_search_settings_get_at_word_boundaries" gtk_source_search_settings_get_at_word_boundaries ::
Ptr SearchSettings ->
IO CInt
searchSettingsGetAtWordBoundaries ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchSettings a) =>
a
-> m Bool
searchSettingsGetAtWordBoundaries :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchSettings a) =>
a -> m Bool
searchSettingsGetAtWordBoundaries a
settings = 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 SearchSettings
settings' <- a -> IO (Ptr SearchSettings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
CInt
result <- Ptr SearchSettings -> IO CInt
gtk_source_search_settings_get_at_word_boundaries Ptr SearchSettings
settings'
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
settings
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SearchSettingsGetAtWordBoundariesMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSearchSettings a) => O.OverloadedMethod SearchSettingsGetAtWordBoundariesMethodInfo a signature where
overloadedMethod = searchSettingsGetAtWordBoundaries
instance O.OverloadedMethodInfo SearchSettingsGetAtWordBoundariesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchSettings.searchSettingsGetAtWordBoundaries",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchSettings.html#v:searchSettingsGetAtWordBoundaries"
})
#endif
foreign import ccall "gtk_source_search_settings_get_case_sensitive" gtk_source_search_settings_get_case_sensitive ::
Ptr SearchSettings ->
IO CInt
searchSettingsGetCaseSensitive ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchSettings a) =>
a
-> m Bool
searchSettingsGetCaseSensitive :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchSettings a) =>
a -> m Bool
searchSettingsGetCaseSensitive a
settings = 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 SearchSettings
settings' <- a -> IO (Ptr SearchSettings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
CInt
result <- Ptr SearchSettings -> IO CInt
gtk_source_search_settings_get_case_sensitive Ptr SearchSettings
settings'
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
settings
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SearchSettingsGetCaseSensitiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSearchSettings a) => O.OverloadedMethod SearchSettingsGetCaseSensitiveMethodInfo a signature where
overloadedMethod = searchSettingsGetCaseSensitive
instance O.OverloadedMethodInfo SearchSettingsGetCaseSensitiveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchSettings.searchSettingsGetCaseSensitive",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchSettings.html#v:searchSettingsGetCaseSensitive"
})
#endif
foreign import ccall "gtk_source_search_settings_get_regex_enabled" gtk_source_search_settings_get_regex_enabled ::
Ptr SearchSettings ->
IO CInt
searchSettingsGetRegexEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchSettings a) =>
a
-> m Bool
searchSettingsGetRegexEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchSettings a) =>
a -> m Bool
searchSettingsGetRegexEnabled a
settings = 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 SearchSettings
settings' <- a -> IO (Ptr SearchSettings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
CInt
result <- Ptr SearchSettings -> IO CInt
gtk_source_search_settings_get_regex_enabled Ptr SearchSettings
settings'
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
settings
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SearchSettingsGetRegexEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSearchSettings a) => O.OverloadedMethod SearchSettingsGetRegexEnabledMethodInfo a signature where
overloadedMethod = searchSettingsGetRegexEnabled
instance O.OverloadedMethodInfo SearchSettingsGetRegexEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchSettings.searchSettingsGetRegexEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchSettings.html#v:searchSettingsGetRegexEnabled"
})
#endif
foreign import ccall "gtk_source_search_settings_get_search_text" gtk_source_search_settings_get_search_text ::
Ptr SearchSettings ->
IO CString
searchSettingsGetSearchText ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchSettings a) =>
a
-> m (Maybe T.Text)
searchSettingsGetSearchText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchSettings a) =>
a -> m (Maybe Text)
searchSettingsGetSearchText a
settings = IO (Maybe Text) -> m (Maybe Text)
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 SearchSettings
settings' <- a -> IO (Ptr SearchSettings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
CString
result <- Ptr SearchSettings -> IO CString
gtk_source_search_settings_get_search_text Ptr SearchSettings
settings'
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 (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data SearchSettingsGetSearchTextMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsSearchSettings a) => O.OverloadedMethod SearchSettingsGetSearchTextMethodInfo a signature where
overloadedMethod = searchSettingsGetSearchText
instance O.OverloadedMethodInfo SearchSettingsGetSearchTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchSettings.searchSettingsGetSearchText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchSettings.html#v:searchSettingsGetSearchText"
})
#endif
foreign import ccall "gtk_source_search_settings_get_wrap_around" gtk_source_search_settings_get_wrap_around ::
Ptr SearchSettings ->
IO CInt
searchSettingsGetWrapAround ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchSettings a) =>
a
-> m Bool
searchSettingsGetWrapAround :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchSettings a) =>
a -> m Bool
searchSettingsGetWrapAround a
settings = 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 SearchSettings
settings' <- a -> IO (Ptr SearchSettings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
CInt
result <- Ptr SearchSettings -> IO CInt
gtk_source_search_settings_get_wrap_around Ptr SearchSettings
settings'
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
settings
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SearchSettingsGetWrapAroundMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSearchSettings a) => O.OverloadedMethod SearchSettingsGetWrapAroundMethodInfo a signature where
overloadedMethod = searchSettingsGetWrapAround
instance O.OverloadedMethodInfo SearchSettingsGetWrapAroundMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchSettings.searchSettingsGetWrapAround",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchSettings.html#v:searchSettingsGetWrapAround"
})
#endif
foreign import ccall "gtk_source_search_settings_set_at_word_boundaries" gtk_source_search_settings_set_at_word_boundaries ::
Ptr SearchSettings ->
CInt ->
IO ()
searchSettingsSetAtWordBoundaries ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchSettings a) =>
a
-> Bool
-> m ()
searchSettingsSetAtWordBoundaries :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchSettings a) =>
a -> Bool -> m ()
searchSettingsSetAtWordBoundaries a
settings Bool
atWordBoundaries = 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 SearchSettings
settings' <- a -> IO (Ptr SearchSettings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
let atWordBoundaries' :: CInt
atWordBoundaries' = (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
atWordBoundaries
Ptr SearchSettings -> CInt -> IO ()
gtk_source_search_settings_set_at_word_boundaries Ptr SearchSettings
settings' CInt
atWordBoundaries'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SearchSettingsSetAtWordBoundariesMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSearchSettings a) => O.OverloadedMethod SearchSettingsSetAtWordBoundariesMethodInfo a signature where
overloadedMethod = searchSettingsSetAtWordBoundaries
instance O.OverloadedMethodInfo SearchSettingsSetAtWordBoundariesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchSettings.searchSettingsSetAtWordBoundaries",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchSettings.html#v:searchSettingsSetAtWordBoundaries"
})
#endif
foreign import ccall "gtk_source_search_settings_set_case_sensitive" gtk_source_search_settings_set_case_sensitive ::
Ptr SearchSettings ->
CInt ->
IO ()
searchSettingsSetCaseSensitive ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchSettings a) =>
a
-> Bool
-> m ()
searchSettingsSetCaseSensitive :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchSettings a) =>
a -> Bool -> m ()
searchSettingsSetCaseSensitive a
settings Bool
caseSensitive = 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 SearchSettings
settings' <- a -> IO (Ptr SearchSettings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
let caseSensitive' :: CInt
caseSensitive' = (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
caseSensitive
Ptr SearchSettings -> CInt -> IO ()
gtk_source_search_settings_set_case_sensitive Ptr SearchSettings
settings' CInt
caseSensitive'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SearchSettingsSetCaseSensitiveMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSearchSettings a) => O.OverloadedMethod SearchSettingsSetCaseSensitiveMethodInfo a signature where
overloadedMethod = searchSettingsSetCaseSensitive
instance O.OverloadedMethodInfo SearchSettingsSetCaseSensitiveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchSettings.searchSettingsSetCaseSensitive",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchSettings.html#v:searchSettingsSetCaseSensitive"
})
#endif
foreign import ccall "gtk_source_search_settings_set_regex_enabled" gtk_source_search_settings_set_regex_enabled ::
Ptr SearchSettings ->
CInt ->
IO ()
searchSettingsSetRegexEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchSettings a) =>
a
-> Bool
-> m ()
searchSettingsSetRegexEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchSettings a) =>
a -> Bool -> m ()
searchSettingsSetRegexEnabled a
settings Bool
regexEnabled = 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 SearchSettings
settings' <- a -> IO (Ptr SearchSettings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
let regexEnabled' :: CInt
regexEnabled' = (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
regexEnabled
Ptr SearchSettings -> CInt -> IO ()
gtk_source_search_settings_set_regex_enabled Ptr SearchSettings
settings' CInt
regexEnabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SearchSettingsSetRegexEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSearchSettings a) => O.OverloadedMethod SearchSettingsSetRegexEnabledMethodInfo a signature where
overloadedMethod = searchSettingsSetRegexEnabled
instance O.OverloadedMethodInfo SearchSettingsSetRegexEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchSettings.searchSettingsSetRegexEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchSettings.html#v:searchSettingsSetRegexEnabled"
})
#endif
foreign import ccall "gtk_source_search_settings_set_search_text" gtk_source_search_settings_set_search_text ::
Ptr SearchSettings ->
CString ->
IO ()
searchSettingsSetSearchText ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchSettings a) =>
a
-> Maybe (T.Text)
-> m ()
searchSettingsSetSearchText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchSettings a) =>
a -> Maybe Text -> m ()
searchSettingsSetSearchText a
settings Maybe Text
searchText = 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 SearchSettings
settings' <- a -> IO (Ptr SearchSettings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
CString
maybeSearchText <- case Maybe Text
searchText of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jSearchText -> do
CString
jSearchText' <- Text -> IO CString
textToCString Text
jSearchText
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jSearchText'
Ptr SearchSettings -> CString -> IO ()
gtk_source_search_settings_set_search_text Ptr SearchSettings
settings' CString
maybeSearchText
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeSearchText
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SearchSettingsSetSearchTextMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsSearchSettings a) => O.OverloadedMethod SearchSettingsSetSearchTextMethodInfo a signature where
overloadedMethod = searchSettingsSetSearchText
instance O.OverloadedMethodInfo SearchSettingsSetSearchTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchSettings.searchSettingsSetSearchText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchSettings.html#v:searchSettingsSetSearchText"
})
#endif
foreign import ccall "gtk_source_search_settings_set_wrap_around" gtk_source_search_settings_set_wrap_around ::
Ptr SearchSettings ->
CInt ->
IO ()
searchSettingsSetWrapAround ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchSettings a) =>
a
-> Bool
-> m ()
searchSettingsSetWrapAround :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchSettings a) =>
a -> Bool -> m ()
searchSettingsSetWrapAround a
settings Bool
wrapAround = 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 SearchSettings
settings' <- a -> IO (Ptr SearchSettings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
settings
let wrapAround' :: CInt
wrapAround' = (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
wrapAround
Ptr SearchSettings -> CInt -> IO ()
gtk_source_search_settings_set_wrap_around Ptr SearchSettings
settings' CInt
wrapAround'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
settings
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SearchSettingsSetWrapAroundMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSearchSettings a) => O.OverloadedMethod SearchSettingsSetWrapAroundMethodInfo a signature where
overloadedMethod = searchSettingsSetWrapAround
instance O.OverloadedMethodInfo SearchSettingsSetWrapAroundMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchSettings.searchSettingsSetWrapAround",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchSettings.html#v:searchSettingsSetWrapAround"
})
#endif