{-# 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 ,
noSearchSettings ,
#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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified 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)
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)
foreign import ccall "gtk_source_search_settings_get_type"
c_gtk_source_search_settings_get_type :: IO GType
instance GObject SearchSettings where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_source_search_settings_get_type
instance B.GValue.IsGValue SearchSettings where
toGValue :: SearchSettings -> IO GValue
toGValue o :: SearchSettings
o = do
GType
gtype <- IO GType
c_gtk_source_search_settings_get_type
SearchSettings -> (Ptr SearchSettings -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr SearchSettings
o (GType
-> (GValue -> Ptr SearchSettings -> IO ())
-> Ptr SearchSettings
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr SearchSettings -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO SearchSettings
fromGValue gv :: GValue
gv = do
Ptr SearchSettings
ptr <- GValue -> IO (Ptr SearchSettings)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr SearchSettings)
(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
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 :: o -> m SearchSettings
toSearchSettings = IO SearchSettings -> m SearchSettings
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr SearchSettings -> SearchSettings
SearchSettings
noSearchSettings :: Maybe SearchSettings
noSearchSettings :: Maybe SearchSettings
noSearchSettings = Maybe SearchSettings
forall a. Maybe a
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.MethodInfo 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
#endif
getSearchSettingsAtWordBoundaries :: (MonadIO m, IsSearchSettings o) => o -> m Bool
getSearchSettingsAtWordBoundaries :: o -> m Bool
getSearchSettingsAtWordBoundaries obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "at-word-boundaries"
setSearchSettingsAtWordBoundaries :: (MonadIO m, IsSearchSettings o) => o -> Bool -> m ()
setSearchSettingsAtWordBoundaries :: o -> Bool -> m ()
setSearchSettingsAtWordBoundaries obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "at-word-boundaries" Bool
val
constructSearchSettingsAtWordBoundaries :: (IsSearchSettings o) => Bool -> IO (GValueConstruct o)
constructSearchSettingsAtWordBoundaries :: Bool -> IO (GValueConstruct o)
constructSearchSettingsAtWordBoundaries val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
getSearchSettingsCaseSensitive :: (MonadIO m, IsSearchSettings o) => o -> m Bool
getSearchSettingsCaseSensitive :: o -> m Bool
getSearchSettingsCaseSensitive obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "case-sensitive"
setSearchSettingsCaseSensitive :: (MonadIO m, IsSearchSettings o) => o -> Bool -> m ()
setSearchSettingsCaseSensitive :: o -> Bool -> m ()
setSearchSettingsCaseSensitive obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "case-sensitive" Bool
val
constructSearchSettingsCaseSensitive :: (IsSearchSettings o) => Bool -> IO (GValueConstruct o)
constructSearchSettingsCaseSensitive :: Bool -> IO (GValueConstruct o)
constructSearchSettingsCaseSensitive val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
getSearchSettingsRegexEnabled :: (MonadIO m, IsSearchSettings o) => o -> m Bool
getSearchSettingsRegexEnabled :: o -> m Bool
getSearchSettingsRegexEnabled obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "regex-enabled"
setSearchSettingsRegexEnabled :: (MonadIO m, IsSearchSettings o) => o -> Bool -> m ()
setSearchSettingsRegexEnabled :: o -> Bool -> m ()
setSearchSettingsRegexEnabled obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "regex-enabled" Bool
val
constructSearchSettingsRegexEnabled :: (IsSearchSettings o) => Bool -> IO (GValueConstruct o)
constructSearchSettingsRegexEnabled :: Bool -> IO (GValueConstruct o)
constructSearchSettingsRegexEnabled val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
getSearchSettingsSearchText :: (MonadIO m, IsSearchSettings o) => o -> m (Maybe T.Text)
getSearchSettingsSearchText :: o -> m (Maybe Text)
getSearchSettingsSearchText obj :: o
obj = 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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "search-text"
setSearchSettingsSearchText :: (MonadIO m, IsSearchSettings o) => o -> T.Text -> m ()
setSearchSettingsSearchText :: o -> Text -> m ()
setSearchSettingsSearchText obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "search-text" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructSearchSettingsSearchText :: (IsSearchSettings o) => T.Text -> IO (GValueConstruct o)
constructSearchSettingsSearchText :: Text -> IO (GValueConstruct o)
constructSearchSettingsSearchText val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "search-text" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearSearchSettingsSearchText :: (MonadIO m, IsSearchSettings o) => o -> m ()
clearSearchSettingsSearchText :: o -> m ()
clearSearchSettingsSearchText obj :: 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 "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
#endif
getSearchSettingsWrapAround :: (MonadIO m, IsSearchSettings o) => o -> m Bool
getSearchSettingsWrapAround :: o -> m Bool
getSearchSettingsWrapAround obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "wrap-around"
setSearchSettingsWrapAround :: (MonadIO m, IsSearchSettings o) => o -> Bool -> m ()
setSearchSettingsWrapAround :: o -> Bool -> m ()
setSearchSettingsWrapAround obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "wrap-around" Bool
val
constructSearchSettingsWrapAround :: (IsSearchSettings o) => Bool -> IO (GValueConstruct o)
constructSearchSettingsWrapAround :: Bool -> IO (GValueConstruct o)
constructSearchSettingsWrapAround val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#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 :: 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 "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 :: a -> m Bool
searchSettingsGetAtWordBoundaries settings :: 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
/= 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.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 :: a -> m Bool
searchSettingsGetCaseSensitive settings :: 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
/= 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.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 :: a -> m Bool
searchSettingsGetRegexEnabled settings :: 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
/= 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.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 :: a -> m (Maybe Text)
searchSettingsGetSearchText settings :: 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
$ \result' :: 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.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 :: a -> m Bool
searchSettingsGetWrapAround settings :: 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
/= 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.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 :: a -> Bool -> m ()
searchSettingsSetAtWordBoundaries settings :: a
settings atWordBoundaries :: 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.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 :: a -> Bool -> m ()
searchSettingsSetCaseSensitive settings :: a
settings caseSensitive :: 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.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 :: a -> Bool -> m ()
searchSettingsSetRegexEnabled settings :: a
settings regexEnabled :: 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.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 :: a -> Maybe Text -> m ()
searchSettingsSetSearchText settings :: a
settings searchText :: 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
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jSearchText :: 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.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 :: a -> Bool -> m ()
searchSettingsSetWrapAround settings :: a
settings wrapAround :: 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.MethodInfo SearchSettingsSetWrapAroundMethodInfo a signature where
overloadedMethod = searchSettingsSetWrapAround
#endif