#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.GtkSource.Objects.SearchSettings
(
SearchSettings(..) ,
IsSearchSettings ,
toSearchSettings ,
noSearchSettings ,
#if ENABLE_OVERLOADING
SearchSettingsGetAtWordBoundariesMethodInfo,
#endif
searchSettingsGetAtWordBoundaries ,
#if ENABLE_OVERLOADING
SearchSettingsGetCaseSensitiveMethodInfo,
#endif
searchSettingsGetCaseSensitive ,
#if ENABLE_OVERLOADING
SearchSettingsGetRegexEnabledMethodInfo ,
#endif
searchSettingsGetRegexEnabled ,
#if ENABLE_OVERLOADING
SearchSettingsGetSearchTextMethodInfo ,
#endif
searchSettingsGetSearchText ,
#if ENABLE_OVERLOADING
SearchSettingsGetWrapAroundMethodInfo ,
#endif
searchSettingsGetWrapAround ,
searchSettingsNew ,
#if ENABLE_OVERLOADING
SearchSettingsSetAtWordBoundariesMethodInfo,
#endif
searchSettingsSetAtWordBoundaries ,
#if ENABLE_OVERLOADING
SearchSettingsSetCaseSensitiveMethodInfo,
#endif
searchSettingsSetCaseSensitive ,
#if ENABLE_OVERLOADING
SearchSettingsSetRegexEnabledMethodInfo ,
#endif
searchSettingsSetRegexEnabled ,
#if ENABLE_OVERLOADING
SearchSettingsSetSearchTextMethodInfo ,
#endif
searchSettingsSetSearchText ,
#if ENABLE_OVERLOADING
SearchSettingsSetWrapAroundMethodInfo ,
#endif
searchSettingsSetWrapAround ,
#if ENABLE_OVERLOADING
SearchSettingsAtWordBoundariesPropertyInfo,
#endif
constructSearchSettingsAtWordBoundaries ,
getSearchSettingsAtWordBoundaries ,
#if ENABLE_OVERLOADING
searchSettingsAtWordBoundaries ,
#endif
setSearchSettingsAtWordBoundaries ,
#if ENABLE_OVERLOADING
SearchSettingsCaseSensitivePropertyInfo ,
#endif
constructSearchSettingsCaseSensitive ,
getSearchSettingsCaseSensitive ,
#if ENABLE_OVERLOADING
searchSettingsCaseSensitive ,
#endif
setSearchSettingsCaseSensitive ,
#if ENABLE_OVERLOADING
SearchSettingsRegexEnabledPropertyInfo ,
#endif
constructSearchSettingsRegexEnabled ,
getSearchSettingsRegexEnabled ,
#if ENABLE_OVERLOADING
searchSettingsRegexEnabled ,
#endif
setSearchSettingsRegexEnabled ,
#if ENABLE_OVERLOADING
SearchSettingsSearchTextPropertyInfo ,
#endif
clearSearchSettingsSearchText ,
constructSearchSettingsSearchText ,
getSearchSettingsSearchText ,
#if ENABLE_OVERLOADING
searchSettingsSearchText ,
#endif
setSearchSettingsSearchText ,
#if ENABLE_OVERLOADING
SearchSettingsWrapAroundPropertyInfo ,
#endif
constructSearchSettingsWrapAround ,
getSearchSettingsWrapAround ,
#if 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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
newtype SearchSettings = SearchSettings (ManagedPtr SearchSettings)
foreign import ccall "gtk_source_search_settings_get_type"
c_gtk_source_search_settings_get_type :: IO GType
instance GObject SearchSettings where
gobjectType = c_gtk_source_search_settings_get_type
class (GObject o, O.IsDescendantOf SearchSettings o) => IsSearchSettings o
instance (GObject o, O.IsDescendantOf SearchSettings o) => IsSearchSettings o
instance O.HasParentTypes SearchSettings
type instance O.ParentTypes SearchSettings = '[GObject.Object.Object]
toSearchSettings :: (MonadIO m, IsSearchSettings o) => o -> m SearchSettings
toSearchSettings = liftIO . unsafeCastTo SearchSettings
noSearchSettings :: Maybe SearchSettings
noSearchSettings = Nothing
#if 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 "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.MethodInfo info SearchSettings p) => OL.IsLabel t (SearchSettings -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
getSearchSettingsAtWordBoundaries :: (MonadIO m, IsSearchSettings o) => o -> m Bool
getSearchSettingsAtWordBoundaries obj = liftIO $ B.Properties.getObjectPropertyBool obj "at-word-boundaries"
setSearchSettingsAtWordBoundaries :: (MonadIO m, IsSearchSettings o) => o -> Bool -> m ()
setSearchSettingsAtWordBoundaries obj val = liftIO $ B.Properties.setObjectPropertyBool obj "at-word-boundaries" val
constructSearchSettingsAtWordBoundaries :: (IsSearchSettings o) => Bool -> IO (GValueConstruct o)
constructSearchSettingsAtWordBoundaries val = B.Properties.constructObjectPropertyBool "at-word-boundaries" val
#if ENABLE_OVERLOADING
data SearchSettingsAtWordBoundariesPropertyInfo
instance AttrInfo SearchSettingsAtWordBoundariesPropertyInfo where
type AttrAllowedOps SearchSettingsAtWordBoundariesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SearchSettingsAtWordBoundariesPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SearchSettingsAtWordBoundariesPropertyInfo = IsSearchSettings
type AttrGetType SearchSettingsAtWordBoundariesPropertyInfo = Bool
type AttrLabel SearchSettingsAtWordBoundariesPropertyInfo = "at-word-boundaries"
type AttrOrigin SearchSettingsAtWordBoundariesPropertyInfo = SearchSettings
attrGet _ = getSearchSettingsAtWordBoundaries
attrSet _ = setSearchSettingsAtWordBoundaries
attrConstruct _ = constructSearchSettingsAtWordBoundaries
attrClear _ = undefined
#endif
getSearchSettingsCaseSensitive :: (MonadIO m, IsSearchSettings o) => o -> m Bool
getSearchSettingsCaseSensitive obj = liftIO $ B.Properties.getObjectPropertyBool obj "case-sensitive"
setSearchSettingsCaseSensitive :: (MonadIO m, IsSearchSettings o) => o -> Bool -> m ()
setSearchSettingsCaseSensitive obj val = liftIO $ B.Properties.setObjectPropertyBool obj "case-sensitive" val
constructSearchSettingsCaseSensitive :: (IsSearchSettings o) => Bool -> IO (GValueConstruct o)
constructSearchSettingsCaseSensitive val = B.Properties.constructObjectPropertyBool "case-sensitive" val
#if ENABLE_OVERLOADING
data SearchSettingsCaseSensitivePropertyInfo
instance AttrInfo SearchSettingsCaseSensitivePropertyInfo where
type AttrAllowedOps SearchSettingsCaseSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SearchSettingsCaseSensitivePropertyInfo = (~) Bool
type AttrBaseTypeConstraint SearchSettingsCaseSensitivePropertyInfo = IsSearchSettings
type AttrGetType SearchSettingsCaseSensitivePropertyInfo = Bool
type AttrLabel SearchSettingsCaseSensitivePropertyInfo = "case-sensitive"
type AttrOrigin SearchSettingsCaseSensitivePropertyInfo = SearchSettings
attrGet _ = getSearchSettingsCaseSensitive
attrSet _ = setSearchSettingsCaseSensitive
attrConstruct _ = constructSearchSettingsCaseSensitive
attrClear _ = undefined
#endif
getSearchSettingsRegexEnabled :: (MonadIO m, IsSearchSettings o) => o -> m Bool
getSearchSettingsRegexEnabled obj = liftIO $ B.Properties.getObjectPropertyBool obj "regex-enabled"
setSearchSettingsRegexEnabled :: (MonadIO m, IsSearchSettings o) => o -> Bool -> m ()
setSearchSettingsRegexEnabled obj val = liftIO $ B.Properties.setObjectPropertyBool obj "regex-enabled" val
constructSearchSettingsRegexEnabled :: (IsSearchSettings o) => Bool -> IO (GValueConstruct o)
constructSearchSettingsRegexEnabled val = B.Properties.constructObjectPropertyBool "regex-enabled" val
#if ENABLE_OVERLOADING
data SearchSettingsRegexEnabledPropertyInfo
instance AttrInfo SearchSettingsRegexEnabledPropertyInfo where
type AttrAllowedOps SearchSettingsRegexEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SearchSettingsRegexEnabledPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SearchSettingsRegexEnabledPropertyInfo = IsSearchSettings
type AttrGetType SearchSettingsRegexEnabledPropertyInfo = Bool
type AttrLabel SearchSettingsRegexEnabledPropertyInfo = "regex-enabled"
type AttrOrigin SearchSettingsRegexEnabledPropertyInfo = SearchSettings
attrGet _ = getSearchSettingsRegexEnabled
attrSet _ = setSearchSettingsRegexEnabled
attrConstruct _ = constructSearchSettingsRegexEnabled
attrClear _ = undefined
#endif
getSearchSettingsSearchText :: (MonadIO m, IsSearchSettings o) => o -> m (Maybe T.Text)
getSearchSettingsSearchText obj = liftIO $ B.Properties.getObjectPropertyString obj "search-text"
setSearchSettingsSearchText :: (MonadIO m, IsSearchSettings o) => o -> T.Text -> m ()
setSearchSettingsSearchText obj val = liftIO $ B.Properties.setObjectPropertyString obj "search-text" (Just val)
constructSearchSettingsSearchText :: (IsSearchSettings o) => T.Text -> IO (GValueConstruct o)
constructSearchSettingsSearchText val = B.Properties.constructObjectPropertyString "search-text" (Just val)
clearSearchSettingsSearchText :: (MonadIO m, IsSearchSettings o) => o -> m ()
clearSearchSettingsSearchText obj = liftIO $ B.Properties.setObjectPropertyString obj "search-text" (Nothing :: Maybe T.Text)
#if ENABLE_OVERLOADING
data SearchSettingsSearchTextPropertyInfo
instance AttrInfo SearchSettingsSearchTextPropertyInfo where
type AttrAllowedOps SearchSettingsSearchTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint SearchSettingsSearchTextPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SearchSettingsSearchTextPropertyInfo = IsSearchSettings
type AttrGetType SearchSettingsSearchTextPropertyInfo = (Maybe T.Text)
type AttrLabel SearchSettingsSearchTextPropertyInfo = "search-text"
type AttrOrigin SearchSettingsSearchTextPropertyInfo = SearchSettings
attrGet _ = getSearchSettingsSearchText
attrSet _ = setSearchSettingsSearchText
attrConstruct _ = constructSearchSettingsSearchText
attrClear _ = clearSearchSettingsSearchText
#endif
getSearchSettingsWrapAround :: (MonadIO m, IsSearchSettings o) => o -> m Bool
getSearchSettingsWrapAround obj = liftIO $ B.Properties.getObjectPropertyBool obj "wrap-around"
setSearchSettingsWrapAround :: (MonadIO m, IsSearchSettings o) => o -> Bool -> m ()
setSearchSettingsWrapAround obj val = liftIO $ B.Properties.setObjectPropertyBool obj "wrap-around" val
constructSearchSettingsWrapAround :: (IsSearchSettings o) => Bool -> IO (GValueConstruct o)
constructSearchSettingsWrapAround val = B.Properties.constructObjectPropertyBool "wrap-around" val
#if ENABLE_OVERLOADING
data SearchSettingsWrapAroundPropertyInfo
instance AttrInfo SearchSettingsWrapAroundPropertyInfo where
type AttrAllowedOps SearchSettingsWrapAroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SearchSettingsWrapAroundPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SearchSettingsWrapAroundPropertyInfo = IsSearchSettings
type AttrGetType SearchSettingsWrapAroundPropertyInfo = Bool
type AttrLabel SearchSettingsWrapAroundPropertyInfo = "wrap-around"
type AttrOrigin SearchSettingsWrapAroundPropertyInfo = SearchSettings
attrGet _ = getSearchSettingsWrapAround
attrSet _ = setSearchSettingsWrapAround
attrConstruct _ = constructSearchSettingsWrapAround
attrClear _ = undefined
#endif
#if 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 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 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 = liftIO $ do
result <- gtk_source_search_settings_new
checkUnexpectedReturnNULL "searchSettingsNew" result
result' <- (wrapObject SearchSettings) result
return result'
#if 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 settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- gtk_source_search_settings_get_at_word_boundaries settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SearchSettingsGetAtWordBoundariesMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSearchSettings a) => O.MethodInfo SearchSettingsGetAtWordBoundariesMethodInfo a signature where
overloadedMethod _ = 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 settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- gtk_source_search_settings_get_case_sensitive settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SearchSettingsGetCaseSensitiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSearchSettings a) => O.MethodInfo SearchSettingsGetCaseSensitiveMethodInfo a signature where
overloadedMethod _ = 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 settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- gtk_source_search_settings_get_regex_enabled settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SearchSettingsGetRegexEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSearchSettings a) => O.MethodInfo SearchSettingsGetRegexEnabledMethodInfo a signature where
overloadedMethod _ = 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 settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- gtk_source_search_settings_get_search_text settings'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr settings
return maybeResult
#if ENABLE_OVERLOADING
data SearchSettingsGetSearchTextMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsSearchSettings a) => O.MethodInfo SearchSettingsGetSearchTextMethodInfo a signature where
overloadedMethod _ = 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 settings = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
result <- gtk_source_search_settings_get_wrap_around settings'
let result' = (/= 0) result
touchManagedPtr settings
return result'
#if ENABLE_OVERLOADING
data SearchSettingsGetWrapAroundMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSearchSettings a) => O.MethodInfo SearchSettingsGetWrapAroundMethodInfo a signature where
overloadedMethod _ = 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 settings atWordBoundaries = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let atWordBoundaries' = (fromIntegral . fromEnum) atWordBoundaries
gtk_source_search_settings_set_at_word_boundaries settings' atWordBoundaries'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SearchSettingsSetAtWordBoundariesMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSearchSettings a) => O.MethodInfo SearchSettingsSetAtWordBoundariesMethodInfo a signature where
overloadedMethod _ = 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 settings caseSensitive = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let caseSensitive' = (fromIntegral . fromEnum) caseSensitive
gtk_source_search_settings_set_case_sensitive settings' caseSensitive'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SearchSettingsSetCaseSensitiveMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSearchSettings a) => O.MethodInfo SearchSettingsSetCaseSensitiveMethodInfo a signature where
overloadedMethod _ = 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 settings regexEnabled = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let regexEnabled' = (fromIntegral . fromEnum) regexEnabled
gtk_source_search_settings_set_regex_enabled settings' regexEnabled'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SearchSettingsSetRegexEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSearchSettings a) => O.MethodInfo SearchSettingsSetRegexEnabledMethodInfo a signature where
overloadedMethod _ = 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 settings searchText = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
maybeSearchText <- case searchText of
Nothing -> return nullPtr
Just jSearchText -> do
jSearchText' <- textToCString jSearchText
return jSearchText'
gtk_source_search_settings_set_search_text settings' maybeSearchText
touchManagedPtr settings
freeMem maybeSearchText
return ()
#if ENABLE_OVERLOADING
data SearchSettingsSetSearchTextMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsSearchSettings a) => O.MethodInfo SearchSettingsSetSearchTextMethodInfo a signature where
overloadedMethod _ = 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 settings wrapAround = liftIO $ do
settings' <- unsafeManagedPtrCastPtr settings
let wrapAround' = (fromIntegral . fromEnum) wrapAround
gtk_source_search_settings_set_wrap_around settings' wrapAround'
touchManagedPtr settings
return ()
#if ENABLE_OVERLOADING
data SearchSettingsSetWrapAroundMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSearchSettings a) => O.MethodInfo SearchSettingsSetWrapAroundMethodInfo a signature where
overloadedMethod _ = searchSettingsSetWrapAround
#endif