gi-webkit2-0.2.8.12: GI/WebKit2/Objects/FindController.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.WebKit2.Objects.FindController
(
-- * Exported types
FindController(..) ,
FindControllerK ,
toFindController ,
noFindController ,
-- * Methods
-- ** findControllerCountMatches
findControllerCountMatches ,
-- ** findControllerGetMaxMatchCount
findControllerGetMaxMatchCount ,
-- ** findControllerGetOptions
findControllerGetOptions ,
-- ** findControllerGetSearchText
findControllerGetSearchText ,
-- ** findControllerGetWebView
findControllerGetWebView ,
-- ** findControllerSearch
findControllerSearch ,
-- ** findControllerSearchFinish
findControllerSearchFinish ,
-- ** findControllerSearchNext
findControllerSearchNext ,
-- ** findControllerSearchPrevious
findControllerSearchPrevious ,
-- * Properties
-- ** MaxMatchCount
FindControllerMaxMatchCountPropertyInfo ,
getFindControllerMaxMatchCount ,
-- ** Options
FindControllerOptionsPropertyInfo ,
getFindControllerOptions ,
-- ** Text
FindControllerTextPropertyInfo ,
getFindControllerText ,
-- ** WebView
FindControllerWebViewPropertyInfo ,
constructFindControllerWebView ,
getFindControllerWebView ,
-- * Signals
-- ** CountedMatches
FindControllerCountedMatchesCallback ,
FindControllerCountedMatchesCallbackC ,
FindControllerCountedMatchesSignalInfo ,
afterFindControllerCountedMatches ,
findControllerCountedMatchesCallbackWrapper,
findControllerCountedMatchesClosure ,
mkFindControllerCountedMatchesCallback ,
noFindControllerCountedMatchesCallback ,
onFindControllerCountedMatches ,
-- ** FailedToFindText
FindControllerFailedToFindTextCallback ,
FindControllerFailedToFindTextCallbackC ,
FindControllerFailedToFindTextSignalInfo,
afterFindControllerFailedToFindText ,
findControllerFailedToFindTextCallbackWrapper,
findControllerFailedToFindTextClosure ,
mkFindControllerFailedToFindTextCallback,
noFindControllerFailedToFindTextCallback,
onFindControllerFailedToFindText ,
-- ** FoundText
FindControllerFoundTextCallback ,
FindControllerFoundTextCallbackC ,
FindControllerFoundTextSignalInfo ,
afterFindControllerFoundText ,
findControllerFoundTextCallbackWrapper ,
findControllerFoundTextClosure ,
mkFindControllerFoundTextCallback ,
noFindControllerFoundTextCallback ,
onFindControllerFoundText ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.WebKit2.Types
import GI.WebKit2.Callbacks
import qualified GI.GObject as GObject
newtype FindController = FindController (ForeignPtr FindController)
foreign import ccall "webkit_find_controller_get_type"
c_webkit_find_controller_get_type :: IO GType
type instance ParentTypes FindController = FindControllerParentTypes
type FindControllerParentTypes = '[GObject.Object]
instance GObject FindController where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_find_controller_get_type
class GObject o => FindControllerK o
instance (GObject o, IsDescendantOf FindController o) => FindControllerK o
toFindController :: FindControllerK o => o -> IO FindController
toFindController = unsafeCastTo FindController
noFindController :: Maybe FindController
noFindController = Nothing
-- signal FindController::counted-matches
type FindControllerCountedMatchesCallback =
Word32 ->
IO ()
noFindControllerCountedMatchesCallback :: Maybe FindControllerCountedMatchesCallback
noFindControllerCountedMatchesCallback = Nothing
type FindControllerCountedMatchesCallbackC =
Ptr () -> -- object
Word32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFindControllerCountedMatchesCallback :: FindControllerCountedMatchesCallbackC -> IO (FunPtr FindControllerCountedMatchesCallbackC)
findControllerCountedMatchesClosure :: FindControllerCountedMatchesCallback -> IO Closure
findControllerCountedMatchesClosure cb = newCClosure =<< mkFindControllerCountedMatchesCallback wrapped
where wrapped = findControllerCountedMatchesCallbackWrapper cb
findControllerCountedMatchesCallbackWrapper ::
FindControllerCountedMatchesCallback ->
Ptr () ->
Word32 ->
Ptr () ->
IO ()
findControllerCountedMatchesCallbackWrapper _cb _ match_count _ = do
_cb match_count
onFindControllerCountedMatches :: (GObject a, MonadIO m) => a -> FindControllerCountedMatchesCallback -> m SignalHandlerId
onFindControllerCountedMatches obj cb = liftIO $ connectFindControllerCountedMatches obj cb SignalConnectBefore
afterFindControllerCountedMatches :: (GObject a, MonadIO m) => a -> FindControllerCountedMatchesCallback -> m SignalHandlerId
afterFindControllerCountedMatches obj cb = connectFindControllerCountedMatches obj cb SignalConnectAfter
connectFindControllerCountedMatches :: (GObject a, MonadIO m) =>
a -> FindControllerCountedMatchesCallback -> SignalConnectMode -> m SignalHandlerId
connectFindControllerCountedMatches obj cb after = liftIO $ do
cb' <- mkFindControllerCountedMatchesCallback (findControllerCountedMatchesCallbackWrapper cb)
connectSignalFunPtr obj "counted-matches" cb' after
-- signal FindController::failed-to-find-text
type FindControllerFailedToFindTextCallback =
IO ()
noFindControllerFailedToFindTextCallback :: Maybe FindControllerFailedToFindTextCallback
noFindControllerFailedToFindTextCallback = Nothing
type FindControllerFailedToFindTextCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFindControllerFailedToFindTextCallback :: FindControllerFailedToFindTextCallbackC -> IO (FunPtr FindControllerFailedToFindTextCallbackC)
findControllerFailedToFindTextClosure :: FindControllerFailedToFindTextCallback -> IO Closure
findControllerFailedToFindTextClosure cb = newCClosure =<< mkFindControllerFailedToFindTextCallback wrapped
where wrapped = findControllerFailedToFindTextCallbackWrapper cb
findControllerFailedToFindTextCallbackWrapper ::
FindControllerFailedToFindTextCallback ->
Ptr () ->
Ptr () ->
IO ()
findControllerFailedToFindTextCallbackWrapper _cb _ _ = do
_cb
onFindControllerFailedToFindText :: (GObject a, MonadIO m) => a -> FindControllerFailedToFindTextCallback -> m SignalHandlerId
onFindControllerFailedToFindText obj cb = liftIO $ connectFindControllerFailedToFindText obj cb SignalConnectBefore
afterFindControllerFailedToFindText :: (GObject a, MonadIO m) => a -> FindControllerFailedToFindTextCallback -> m SignalHandlerId
afterFindControllerFailedToFindText obj cb = connectFindControllerFailedToFindText obj cb SignalConnectAfter
connectFindControllerFailedToFindText :: (GObject a, MonadIO m) =>
a -> FindControllerFailedToFindTextCallback -> SignalConnectMode -> m SignalHandlerId
connectFindControllerFailedToFindText obj cb after = liftIO $ do
cb' <- mkFindControllerFailedToFindTextCallback (findControllerFailedToFindTextCallbackWrapper cb)
connectSignalFunPtr obj "failed-to-find-text" cb' after
-- signal FindController::found-text
type FindControllerFoundTextCallback =
Word32 ->
IO ()
noFindControllerFoundTextCallback :: Maybe FindControllerFoundTextCallback
noFindControllerFoundTextCallback = Nothing
type FindControllerFoundTextCallbackC =
Ptr () -> -- object
Word32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFindControllerFoundTextCallback :: FindControllerFoundTextCallbackC -> IO (FunPtr FindControllerFoundTextCallbackC)
findControllerFoundTextClosure :: FindControllerFoundTextCallback -> IO Closure
findControllerFoundTextClosure cb = newCClosure =<< mkFindControllerFoundTextCallback wrapped
where wrapped = findControllerFoundTextCallbackWrapper cb
findControllerFoundTextCallbackWrapper ::
FindControllerFoundTextCallback ->
Ptr () ->
Word32 ->
Ptr () ->
IO ()
findControllerFoundTextCallbackWrapper _cb _ match_count _ = do
_cb match_count
onFindControllerFoundText :: (GObject a, MonadIO m) => a -> FindControllerFoundTextCallback -> m SignalHandlerId
onFindControllerFoundText obj cb = liftIO $ connectFindControllerFoundText obj cb SignalConnectBefore
afterFindControllerFoundText :: (GObject a, MonadIO m) => a -> FindControllerFoundTextCallback -> m SignalHandlerId
afterFindControllerFoundText obj cb = connectFindControllerFoundText obj cb SignalConnectAfter
connectFindControllerFoundText :: (GObject a, MonadIO m) =>
a -> FindControllerFoundTextCallback -> SignalConnectMode -> m SignalHandlerId
connectFindControllerFoundText obj cb after = liftIO $ do
cb' <- mkFindControllerFoundTextCallback (findControllerFoundTextCallbackWrapper cb)
connectSignalFunPtr obj "found-text" cb' after
-- VVV Prop "max-match-count"
-- Type: TBasicType TUInt32
-- Flags: [PropertyReadable]
getFindControllerMaxMatchCount :: (MonadIO m, FindControllerK o) => o -> m Word32
getFindControllerMaxMatchCount obj = liftIO $ getObjectPropertyCUInt obj "max-match-count"
data FindControllerMaxMatchCountPropertyInfo
instance AttrInfo FindControllerMaxMatchCountPropertyInfo where
type AttrAllowedOps FindControllerMaxMatchCountPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint FindControllerMaxMatchCountPropertyInfo = (~) ()
type AttrBaseTypeConstraint FindControllerMaxMatchCountPropertyInfo = FindControllerK
type AttrGetType FindControllerMaxMatchCountPropertyInfo = Word32
type AttrLabel FindControllerMaxMatchCountPropertyInfo = "FindController::max-match-count"
attrGet _ = getFindControllerMaxMatchCount
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "options"
-- Type: TInterface "WebKit2" "FindOptions"
-- Flags: [PropertyReadable]
getFindControllerOptions :: (MonadIO m, FindControllerK o) => o -> m [FindOptions]
getFindControllerOptions obj = liftIO $ getObjectPropertyFlags obj "options"
data FindControllerOptionsPropertyInfo
instance AttrInfo FindControllerOptionsPropertyInfo where
type AttrAllowedOps FindControllerOptionsPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint FindControllerOptionsPropertyInfo = (~) ()
type AttrBaseTypeConstraint FindControllerOptionsPropertyInfo = FindControllerK
type AttrGetType FindControllerOptionsPropertyInfo = [FindOptions]
type AttrLabel FindControllerOptionsPropertyInfo = "FindController::options"
attrGet _ = getFindControllerOptions
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "text"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable]
getFindControllerText :: (MonadIO m, FindControllerK o) => o -> m T.Text
getFindControllerText obj = liftIO $ getObjectPropertyString obj "text"
data FindControllerTextPropertyInfo
instance AttrInfo FindControllerTextPropertyInfo where
type AttrAllowedOps FindControllerTextPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint FindControllerTextPropertyInfo = (~) ()
type AttrBaseTypeConstraint FindControllerTextPropertyInfo = FindControllerK
type AttrGetType FindControllerTextPropertyInfo = T.Text
type AttrLabel FindControllerTextPropertyInfo = "FindController::text"
attrGet _ = getFindControllerText
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "web-view"
-- Type: TInterface "WebKit2" "WebView"
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
getFindControllerWebView :: (MonadIO m, FindControllerK o) => o -> m WebView
getFindControllerWebView obj = liftIO $ getObjectPropertyObject obj "web-view" WebView
constructFindControllerWebView :: (WebViewK a) => a -> IO ([Char], GValue)
constructFindControllerWebView val = constructObjectPropertyObject "web-view" val
data FindControllerWebViewPropertyInfo
instance AttrInfo FindControllerWebViewPropertyInfo where
type AttrAllowedOps FindControllerWebViewPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint FindControllerWebViewPropertyInfo = WebViewK
type AttrBaseTypeConstraint FindControllerWebViewPropertyInfo = FindControllerK
type AttrGetType FindControllerWebViewPropertyInfo = WebView
type AttrLabel FindControllerWebViewPropertyInfo = "FindController::web-view"
attrGet _ = getFindControllerWebView
attrSet _ = undefined
attrConstruct _ = constructFindControllerWebView
type instance AttributeList FindController = FindControllerAttributeList
type FindControllerAttributeList = ('[ '("max-match-count", FindControllerMaxMatchCountPropertyInfo), '("options", FindControllerOptionsPropertyInfo), '("text", FindControllerTextPropertyInfo), '("web-view", FindControllerWebViewPropertyInfo)] :: [(Symbol, *)])
data FindControllerCountedMatchesSignalInfo
instance SignalInfo FindControllerCountedMatchesSignalInfo where
type HaskellCallbackType FindControllerCountedMatchesSignalInfo = FindControllerCountedMatchesCallback
connectSignal _ = connectFindControllerCountedMatches
data FindControllerFailedToFindTextSignalInfo
instance SignalInfo FindControllerFailedToFindTextSignalInfo where
type HaskellCallbackType FindControllerFailedToFindTextSignalInfo = FindControllerFailedToFindTextCallback
connectSignal _ = connectFindControllerFailedToFindText
data FindControllerFoundTextSignalInfo
instance SignalInfo FindControllerFoundTextSignalInfo where
type HaskellCallbackType FindControllerFoundTextSignalInfo = FindControllerFoundTextCallback
connectSignal _ = connectFindControllerFoundText
type instance SignalList FindController = FindControllerSignalList
type FindControllerSignalList = ('[ '("counted-matches", FindControllerCountedMatchesSignalInfo), '("failed-to-find-text", FindControllerFailedToFindTextSignalInfo), '("found-text", FindControllerFoundTextSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method FindController::count_matches
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "find_options", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_match_count", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "find_options", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_match_count", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_find_controller_count_matches" webkit_find_controller_count_matches ::
Ptr FindController -> -- _obj : TInterface "WebKit2" "FindController"
CString -> -- search_text : TBasicType TUTF8
Word32 -> -- find_options : TBasicType TUInt32
Word32 -> -- max_match_count : TBasicType TUInt32
IO ()
findControllerCountMatches ::
(MonadIO m, FindControllerK a) =>
a -> -- _obj
T.Text -> -- search_text
Word32 -> -- find_options
Word32 -> -- max_match_count
m ()
findControllerCountMatches _obj search_text find_options max_match_count = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
search_text' <- textToCString search_text
webkit_find_controller_count_matches _obj' search_text' find_options max_match_count
touchManagedPtr _obj
freeMem search_text'
return ()
-- method FindController::get_max_match_count
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "webkit_find_controller_get_max_match_count" webkit_find_controller_get_max_match_count ::
Ptr FindController -> -- _obj : TInterface "WebKit2" "FindController"
IO Word32
findControllerGetMaxMatchCount ::
(MonadIO m, FindControllerK a) =>
a -> -- _obj
m Word32
findControllerGetMaxMatchCount _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_find_controller_get_max_match_count _obj'
touchManagedPtr _obj
return result
-- method FindController::get_options
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "webkit_find_controller_get_options" webkit_find_controller_get_options ::
Ptr FindController -> -- _obj : TInterface "WebKit2" "FindController"
IO Word32
findControllerGetOptions ::
(MonadIO m, FindControllerK a) =>
a -> -- _obj
m Word32
findControllerGetOptions _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_find_controller_get_options _obj'
touchManagedPtr _obj
return result
-- method FindController::get_search_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_find_controller_get_search_text" webkit_find_controller_get_search_text ::
Ptr FindController -> -- _obj : TInterface "WebKit2" "FindController"
IO CString
findControllerGetSearchText ::
(MonadIO m, FindControllerK a) =>
a -> -- _obj
m T.Text
findControllerGetSearchText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_find_controller_get_search_text _obj'
checkUnexpectedReturnNULL "webkit_find_controller_get_search_text" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method FindController::get_web_view
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit2" "WebView"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_find_controller_get_web_view" webkit_find_controller_get_web_view ::
Ptr FindController -> -- _obj : TInterface "WebKit2" "FindController"
IO (Ptr WebView)
findControllerGetWebView ::
(MonadIO m, FindControllerK a) =>
a -> -- _obj
m WebView
findControllerGetWebView _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_find_controller_get_web_view _obj'
checkUnexpectedReturnNULL "webkit_find_controller_get_web_view" result
result' <- (newObject WebView) result
touchManagedPtr _obj
return result'
-- method FindController::search
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "find_options", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_match_count", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "find_options", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_match_count", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_find_controller_search" webkit_find_controller_search ::
Ptr FindController -> -- _obj : TInterface "WebKit2" "FindController"
CString -> -- search_text : TBasicType TUTF8
Word32 -> -- find_options : TBasicType TUInt32
Word32 -> -- max_match_count : TBasicType TUInt32
IO ()
findControllerSearch ::
(MonadIO m, FindControllerK a) =>
a -> -- _obj
T.Text -> -- search_text
Word32 -> -- find_options
Word32 -> -- max_match_count
m ()
findControllerSearch _obj search_text find_options max_match_count = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
search_text' <- textToCString search_text
webkit_find_controller_search _obj' search_text' find_options max_match_count
touchManagedPtr _obj
freeMem search_text'
return ()
-- method FindController::search_finish
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_find_controller_search_finish" webkit_find_controller_search_finish ::
Ptr FindController -> -- _obj : TInterface "WebKit2" "FindController"
IO ()
findControllerSearchFinish ::
(MonadIO m, FindControllerK a) =>
a -> -- _obj
m ()
findControllerSearchFinish _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_find_controller_search_finish _obj'
touchManagedPtr _obj
return ()
-- method FindController::search_next
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_find_controller_search_next" webkit_find_controller_search_next ::
Ptr FindController -> -- _obj : TInterface "WebKit2" "FindController"
IO ()
findControllerSearchNext ::
(MonadIO m, FindControllerK a) =>
a -> -- _obj
m ()
findControllerSearchNext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_find_controller_search_next _obj'
touchManagedPtr _obj
return ()
-- method FindController::search_previous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "FindController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_find_controller_search_previous" webkit_find_controller_search_previous ::
Ptr FindController -> -- _obj : TInterface "WebKit2" "FindController"
IO ()
findControllerSearchPrevious ::
(MonadIO m, FindControllerK a) =>
a -> -- _obj
m ()
findControllerSearchPrevious _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_find_controller_search_previous _obj'
touchManagedPtr _obj
return ()