#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2.Objects.FindController
(
FindController(..) ,
IsFindController ,
toFindController ,
noFindController ,
#if ENABLE_OVERLOADING
FindControllerCountMatchesMethodInfo ,
#endif
findControllerCountMatches ,
#if ENABLE_OVERLOADING
FindControllerGetMaxMatchCountMethodInfo,
#endif
findControllerGetMaxMatchCount ,
#if ENABLE_OVERLOADING
FindControllerGetOptionsMethodInfo ,
#endif
findControllerGetOptions ,
#if ENABLE_OVERLOADING
FindControllerGetSearchTextMethodInfo ,
#endif
findControllerGetSearchText ,
#if ENABLE_OVERLOADING
FindControllerGetWebViewMethodInfo ,
#endif
findControllerGetWebView ,
#if ENABLE_OVERLOADING
FindControllerSearchMethodInfo ,
#endif
findControllerSearch ,
#if ENABLE_OVERLOADING
FindControllerSearchFinishMethodInfo ,
#endif
findControllerSearchFinish ,
#if ENABLE_OVERLOADING
FindControllerSearchNextMethodInfo ,
#endif
findControllerSearchNext ,
#if ENABLE_OVERLOADING
FindControllerSearchPreviousMethodInfo ,
#endif
findControllerSearchPrevious ,
#if ENABLE_OVERLOADING
FindControllerMaxMatchCountPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
findControllerMaxMatchCount ,
#endif
getFindControllerMaxMatchCount ,
#if ENABLE_OVERLOADING
FindControllerOptionsPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
findControllerOptions ,
#endif
getFindControllerOptions ,
#if ENABLE_OVERLOADING
FindControllerTextPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
findControllerText ,
#endif
getFindControllerText ,
#if ENABLE_OVERLOADING
FindControllerWebViewPropertyInfo ,
#endif
constructFindControllerWebView ,
#if ENABLE_OVERLOADING
findControllerWebView ,
#endif
getFindControllerWebView ,
C_FindControllerCountedMatchesCallback ,
FindControllerCountedMatchesCallback ,
#if ENABLE_OVERLOADING
FindControllerCountedMatchesSignalInfo ,
#endif
afterFindControllerCountedMatches ,
genClosure_FindControllerCountedMatches ,
mk_FindControllerCountedMatchesCallback ,
noFindControllerCountedMatchesCallback ,
onFindControllerCountedMatches ,
wrap_FindControllerCountedMatchesCallback,
C_FindControllerFailedToFindTextCallback,
FindControllerFailedToFindTextCallback ,
#if ENABLE_OVERLOADING
FindControllerFailedToFindTextSignalInfo,
#endif
afterFindControllerFailedToFindText ,
genClosure_FindControllerFailedToFindText,
mk_FindControllerFailedToFindTextCallback,
noFindControllerFailedToFindTextCallback,
onFindControllerFailedToFindText ,
wrap_FindControllerFailedToFindTextCallback,
C_FindControllerFoundTextCallback ,
FindControllerFoundTextCallback ,
#if ENABLE_OVERLOADING
FindControllerFoundTextSignalInfo ,
#endif
afterFindControllerFoundText ,
genClosure_FindControllerFoundText ,
mk_FindControllerFoundTextCallback ,
noFindControllerFoundTextCallback ,
onFindControllerFoundText ,
wrap_FindControllerFoundTextCallback ,
) 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
import {-# SOURCE #-} qualified GI.WebKit2.Flags as WebKit2.Flags
import {-# SOURCE #-} qualified GI.WebKit2.Objects.WebView as WebKit2.WebView
newtype FindController = FindController (ManagedPtr FindController)
foreign import ccall "webkit_find_controller_get_type"
c_webkit_find_controller_get_type :: IO GType
instance GObject FindController where
gobjectType = c_webkit_find_controller_get_type
class (GObject o, O.IsDescendantOf FindController o) => IsFindController o
instance (GObject o, O.IsDescendantOf FindController o) => IsFindController o
instance O.HasParentTypes FindController
type instance O.ParentTypes FindController = '[GObject.Object.Object]
toFindController :: (MonadIO m, IsFindController o) => o -> m FindController
toFindController = liftIO . unsafeCastTo FindController
noFindController :: Maybe FindController
noFindController = Nothing
#if ENABLE_OVERLOADING
type family ResolveFindControllerMethod (t :: Symbol) (o :: *) :: * where
ResolveFindControllerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveFindControllerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveFindControllerMethod "countMatches" o = FindControllerCountMatchesMethodInfo
ResolveFindControllerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveFindControllerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveFindControllerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveFindControllerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveFindControllerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveFindControllerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveFindControllerMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveFindControllerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveFindControllerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveFindControllerMethod "search" o = FindControllerSearchMethodInfo
ResolveFindControllerMethod "searchFinish" o = FindControllerSearchFinishMethodInfo
ResolveFindControllerMethod "searchNext" o = FindControllerSearchNextMethodInfo
ResolveFindControllerMethod "searchPrevious" o = FindControllerSearchPreviousMethodInfo
ResolveFindControllerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveFindControllerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveFindControllerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveFindControllerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveFindControllerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveFindControllerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveFindControllerMethod "getMaxMatchCount" o = FindControllerGetMaxMatchCountMethodInfo
ResolveFindControllerMethod "getOptions" o = FindControllerGetOptionsMethodInfo
ResolveFindControllerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveFindControllerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveFindControllerMethod "getSearchText" o = FindControllerGetSearchTextMethodInfo
ResolveFindControllerMethod "getWebView" o = FindControllerGetWebViewMethodInfo
ResolveFindControllerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveFindControllerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveFindControllerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveFindControllerMethod t FindController, O.MethodInfo info FindController p) => OL.IsLabel t (FindController -> 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
type FindControllerCountedMatchesCallback =
Word32
-> IO ()
noFindControllerCountedMatchesCallback :: Maybe FindControllerCountedMatchesCallback
noFindControllerCountedMatchesCallback = Nothing
type C_FindControllerCountedMatchesCallback =
Ptr () ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FindControllerCountedMatchesCallback :: C_FindControllerCountedMatchesCallback -> IO (FunPtr C_FindControllerCountedMatchesCallback)
genClosure_FindControllerCountedMatches :: MonadIO m => FindControllerCountedMatchesCallback -> m (GClosure C_FindControllerCountedMatchesCallback)
genClosure_FindControllerCountedMatches cb = liftIO $ do
let cb' = wrap_FindControllerCountedMatchesCallback cb
mk_FindControllerCountedMatchesCallback cb' >>= B.GClosure.newGClosure
wrap_FindControllerCountedMatchesCallback ::
FindControllerCountedMatchesCallback ->
C_FindControllerCountedMatchesCallback
wrap_FindControllerCountedMatchesCallback _cb _ matchCount _ = do
_cb matchCount
onFindControllerCountedMatches :: (IsFindController a, MonadIO m) => a -> FindControllerCountedMatchesCallback -> m SignalHandlerId
onFindControllerCountedMatches obj cb = liftIO $ do
let cb' = wrap_FindControllerCountedMatchesCallback cb
cb'' <- mk_FindControllerCountedMatchesCallback cb'
connectSignalFunPtr obj "counted-matches" cb'' SignalConnectBefore
afterFindControllerCountedMatches :: (IsFindController a, MonadIO m) => a -> FindControllerCountedMatchesCallback -> m SignalHandlerId
afterFindControllerCountedMatches obj cb = liftIO $ do
let cb' = wrap_FindControllerCountedMatchesCallback cb
cb'' <- mk_FindControllerCountedMatchesCallback cb'
connectSignalFunPtr obj "counted-matches" cb'' SignalConnectAfter
type FindControllerFailedToFindTextCallback =
IO ()
noFindControllerFailedToFindTextCallback :: Maybe FindControllerFailedToFindTextCallback
noFindControllerFailedToFindTextCallback = Nothing
type C_FindControllerFailedToFindTextCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FindControllerFailedToFindTextCallback :: C_FindControllerFailedToFindTextCallback -> IO (FunPtr C_FindControllerFailedToFindTextCallback)
genClosure_FindControllerFailedToFindText :: MonadIO m => FindControllerFailedToFindTextCallback -> m (GClosure C_FindControllerFailedToFindTextCallback)
genClosure_FindControllerFailedToFindText cb = liftIO $ do
let cb' = wrap_FindControllerFailedToFindTextCallback cb
mk_FindControllerFailedToFindTextCallback cb' >>= B.GClosure.newGClosure
wrap_FindControllerFailedToFindTextCallback ::
FindControllerFailedToFindTextCallback ->
C_FindControllerFailedToFindTextCallback
wrap_FindControllerFailedToFindTextCallback _cb _ _ = do
_cb
onFindControllerFailedToFindText :: (IsFindController a, MonadIO m) => a -> FindControllerFailedToFindTextCallback -> m SignalHandlerId
onFindControllerFailedToFindText obj cb = liftIO $ do
let cb' = wrap_FindControllerFailedToFindTextCallback cb
cb'' <- mk_FindControllerFailedToFindTextCallback cb'
connectSignalFunPtr obj "failed-to-find-text" cb'' SignalConnectBefore
afterFindControllerFailedToFindText :: (IsFindController a, MonadIO m) => a -> FindControllerFailedToFindTextCallback -> m SignalHandlerId
afterFindControllerFailedToFindText obj cb = liftIO $ do
let cb' = wrap_FindControllerFailedToFindTextCallback cb
cb'' <- mk_FindControllerFailedToFindTextCallback cb'
connectSignalFunPtr obj "failed-to-find-text" cb'' SignalConnectAfter
type FindControllerFoundTextCallback =
Word32
-> IO ()
noFindControllerFoundTextCallback :: Maybe FindControllerFoundTextCallback
noFindControllerFoundTextCallback = Nothing
type C_FindControllerFoundTextCallback =
Ptr () ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FindControllerFoundTextCallback :: C_FindControllerFoundTextCallback -> IO (FunPtr C_FindControllerFoundTextCallback)
genClosure_FindControllerFoundText :: MonadIO m => FindControllerFoundTextCallback -> m (GClosure C_FindControllerFoundTextCallback)
genClosure_FindControllerFoundText cb = liftIO $ do
let cb' = wrap_FindControllerFoundTextCallback cb
mk_FindControllerFoundTextCallback cb' >>= B.GClosure.newGClosure
wrap_FindControllerFoundTextCallback ::
FindControllerFoundTextCallback ->
C_FindControllerFoundTextCallback
wrap_FindControllerFoundTextCallback _cb _ matchCount _ = do
_cb matchCount
onFindControllerFoundText :: (IsFindController a, MonadIO m) => a -> FindControllerFoundTextCallback -> m SignalHandlerId
onFindControllerFoundText obj cb = liftIO $ do
let cb' = wrap_FindControllerFoundTextCallback cb
cb'' <- mk_FindControllerFoundTextCallback cb'
connectSignalFunPtr obj "found-text" cb'' SignalConnectBefore
afterFindControllerFoundText :: (IsFindController a, MonadIO m) => a -> FindControllerFoundTextCallback -> m SignalHandlerId
afterFindControllerFoundText obj cb = liftIO $ do
let cb' = wrap_FindControllerFoundTextCallback cb
cb'' <- mk_FindControllerFoundTextCallback cb'
connectSignalFunPtr obj "found-text" cb'' SignalConnectAfter
getFindControllerMaxMatchCount :: (MonadIO m, IsFindController o) => o -> m Word32
getFindControllerMaxMatchCount obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "max-match-count"
#if ENABLE_OVERLOADING
data FindControllerMaxMatchCountPropertyInfo
instance AttrInfo FindControllerMaxMatchCountPropertyInfo where
type AttrAllowedOps FindControllerMaxMatchCountPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint FindControllerMaxMatchCountPropertyInfo = (~) ()
type AttrBaseTypeConstraint FindControllerMaxMatchCountPropertyInfo = IsFindController
type AttrGetType FindControllerMaxMatchCountPropertyInfo = Word32
type AttrLabel FindControllerMaxMatchCountPropertyInfo = "max-match-count"
type AttrOrigin FindControllerMaxMatchCountPropertyInfo = FindController
attrGet _ = getFindControllerMaxMatchCount
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getFindControllerOptions :: (MonadIO m, IsFindController o) => o -> m [WebKit2.Flags.FindOptions]
getFindControllerOptions obj = liftIO $ B.Properties.getObjectPropertyFlags obj "options"
#if ENABLE_OVERLOADING
data FindControllerOptionsPropertyInfo
instance AttrInfo FindControllerOptionsPropertyInfo where
type AttrAllowedOps FindControllerOptionsPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint FindControllerOptionsPropertyInfo = (~) ()
type AttrBaseTypeConstraint FindControllerOptionsPropertyInfo = IsFindController
type AttrGetType FindControllerOptionsPropertyInfo = [WebKit2.Flags.FindOptions]
type AttrLabel FindControllerOptionsPropertyInfo = "options"
type AttrOrigin FindControllerOptionsPropertyInfo = FindController
attrGet _ = getFindControllerOptions
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getFindControllerText :: (MonadIO m, IsFindController o) => o -> m (Maybe T.Text)
getFindControllerText obj = liftIO $ B.Properties.getObjectPropertyString obj "text"
#if ENABLE_OVERLOADING
data FindControllerTextPropertyInfo
instance AttrInfo FindControllerTextPropertyInfo where
type AttrAllowedOps FindControllerTextPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint FindControllerTextPropertyInfo = (~) ()
type AttrBaseTypeConstraint FindControllerTextPropertyInfo = IsFindController
type AttrGetType FindControllerTextPropertyInfo = (Maybe T.Text)
type AttrLabel FindControllerTextPropertyInfo = "text"
type AttrOrigin FindControllerTextPropertyInfo = FindController
attrGet _ = getFindControllerText
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getFindControllerWebView :: (MonadIO m, IsFindController o) => o -> m WebKit2.WebView.WebView
getFindControllerWebView obj = liftIO $ checkUnexpectedNothing "getFindControllerWebView" $ B.Properties.getObjectPropertyObject obj "web-view" WebKit2.WebView.WebView
constructFindControllerWebView :: (IsFindController o, WebKit2.WebView.IsWebView a) => a -> IO (GValueConstruct o)
constructFindControllerWebView val = B.Properties.constructObjectPropertyObject "web-view" (Just val)
#if ENABLE_OVERLOADING
data FindControllerWebViewPropertyInfo
instance AttrInfo FindControllerWebViewPropertyInfo where
type AttrAllowedOps FindControllerWebViewPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint FindControllerWebViewPropertyInfo = WebKit2.WebView.IsWebView
type AttrBaseTypeConstraint FindControllerWebViewPropertyInfo = IsFindController
type AttrGetType FindControllerWebViewPropertyInfo = WebKit2.WebView.WebView
type AttrLabel FindControllerWebViewPropertyInfo = "web-view"
type AttrOrigin FindControllerWebViewPropertyInfo = FindController
attrGet _ = getFindControllerWebView
attrSet _ = undefined
attrConstruct _ = constructFindControllerWebView
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList FindController
type instance O.AttributeList FindController = FindControllerAttributeList
type FindControllerAttributeList = ('[ '("maxMatchCount", FindControllerMaxMatchCountPropertyInfo), '("options", FindControllerOptionsPropertyInfo), '("text", FindControllerTextPropertyInfo), '("webView", FindControllerWebViewPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
findControllerMaxMatchCount :: AttrLabelProxy "maxMatchCount"
findControllerMaxMatchCount = AttrLabelProxy
findControllerOptions :: AttrLabelProxy "options"
findControllerOptions = AttrLabelProxy
findControllerText :: AttrLabelProxy "text"
findControllerText = AttrLabelProxy
findControllerWebView :: AttrLabelProxy "webView"
findControllerWebView = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
data FindControllerCountedMatchesSignalInfo
instance SignalInfo FindControllerCountedMatchesSignalInfo where
type HaskellCallbackType FindControllerCountedMatchesSignalInfo = FindControllerCountedMatchesCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_FindControllerCountedMatchesCallback cb
cb'' <- mk_FindControllerCountedMatchesCallback cb'
connectSignalFunPtr obj "counted-matches" cb'' connectMode
data FindControllerFailedToFindTextSignalInfo
instance SignalInfo FindControllerFailedToFindTextSignalInfo where
type HaskellCallbackType FindControllerFailedToFindTextSignalInfo = FindControllerFailedToFindTextCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_FindControllerFailedToFindTextCallback cb
cb'' <- mk_FindControllerFailedToFindTextCallback cb'
connectSignalFunPtr obj "failed-to-find-text" cb'' connectMode
data FindControllerFoundTextSignalInfo
instance SignalInfo FindControllerFoundTextSignalInfo where
type HaskellCallbackType FindControllerFoundTextSignalInfo = FindControllerFoundTextCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_FindControllerFoundTextCallback cb
cb'' <- mk_FindControllerFoundTextCallback cb'
connectSignalFunPtr obj "found-text" cb'' connectMode
type instance O.SignalList FindController = FindControllerSignalList
type FindControllerSignalList = ('[ '("countedMatches", FindControllerCountedMatchesSignalInfo), '("failedToFindText", FindControllerFailedToFindTextSignalInfo), '("foundText", FindControllerFoundTextSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_find_controller_count_matches" webkit_find_controller_count_matches ::
Ptr FindController ->
CString ->
Word32 ->
Word32 ->
IO ()
findControllerCountMatches ::
(B.CallStack.HasCallStack, MonadIO m, IsFindController a) =>
a
-> T.Text
-> Word32
-> Word32
-> m ()
findControllerCountMatches findController searchText findOptions maxMatchCount = liftIO $ do
findController' <- unsafeManagedPtrCastPtr findController
searchText' <- textToCString searchText
webkit_find_controller_count_matches findController' searchText' findOptions maxMatchCount
touchManagedPtr findController
freeMem searchText'
return ()
#if ENABLE_OVERLOADING
data FindControllerCountMatchesMethodInfo
instance (signature ~ (T.Text -> Word32 -> Word32 -> m ()), MonadIO m, IsFindController a) => O.MethodInfo FindControllerCountMatchesMethodInfo a signature where
overloadedMethod _ = findControllerCountMatches
#endif
foreign import ccall "webkit_find_controller_get_max_match_count" webkit_find_controller_get_max_match_count ::
Ptr FindController ->
IO Word32
findControllerGetMaxMatchCount ::
(B.CallStack.HasCallStack, MonadIO m, IsFindController a) =>
a
-> m Word32
findControllerGetMaxMatchCount findController = liftIO $ do
findController' <- unsafeManagedPtrCastPtr findController
result <- webkit_find_controller_get_max_match_count findController'
touchManagedPtr findController
return result
#if ENABLE_OVERLOADING
data FindControllerGetMaxMatchCountMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsFindController a) => O.MethodInfo FindControllerGetMaxMatchCountMethodInfo a signature where
overloadedMethod _ = findControllerGetMaxMatchCount
#endif
foreign import ccall "webkit_find_controller_get_options" webkit_find_controller_get_options ::
Ptr FindController ->
IO Word32
findControllerGetOptions ::
(B.CallStack.HasCallStack, MonadIO m, IsFindController a) =>
a
-> m Word32
findControllerGetOptions findController = liftIO $ do
findController' <- unsafeManagedPtrCastPtr findController
result <- webkit_find_controller_get_options findController'
touchManagedPtr findController
return result
#if ENABLE_OVERLOADING
data FindControllerGetOptionsMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsFindController a) => O.MethodInfo FindControllerGetOptionsMethodInfo a signature where
overloadedMethod _ = findControllerGetOptions
#endif
foreign import ccall "webkit_find_controller_get_search_text" webkit_find_controller_get_search_text ::
Ptr FindController ->
IO CString
findControllerGetSearchText ::
(B.CallStack.HasCallStack, MonadIO m, IsFindController a) =>
a
-> m T.Text
findControllerGetSearchText findController = liftIO $ do
findController' <- unsafeManagedPtrCastPtr findController
result <- webkit_find_controller_get_search_text findController'
checkUnexpectedReturnNULL "findControllerGetSearchText" result
result' <- cstringToText result
touchManagedPtr findController
return result'
#if ENABLE_OVERLOADING
data FindControllerGetSearchTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsFindController a) => O.MethodInfo FindControllerGetSearchTextMethodInfo a signature where
overloadedMethod _ = findControllerGetSearchText
#endif
foreign import ccall "webkit_find_controller_get_web_view" webkit_find_controller_get_web_view ::
Ptr FindController ->
IO (Ptr WebKit2.WebView.WebView)
findControllerGetWebView ::
(B.CallStack.HasCallStack, MonadIO m, IsFindController a) =>
a
-> m WebKit2.WebView.WebView
findControllerGetWebView findController = liftIO $ do
findController' <- unsafeManagedPtrCastPtr findController
result <- webkit_find_controller_get_web_view findController'
checkUnexpectedReturnNULL "findControllerGetWebView" result
result' <- (newObject WebKit2.WebView.WebView) result
touchManagedPtr findController
return result'
#if ENABLE_OVERLOADING
data FindControllerGetWebViewMethodInfo
instance (signature ~ (m WebKit2.WebView.WebView), MonadIO m, IsFindController a) => O.MethodInfo FindControllerGetWebViewMethodInfo a signature where
overloadedMethod _ = findControllerGetWebView
#endif
foreign import ccall "webkit_find_controller_search" webkit_find_controller_search ::
Ptr FindController ->
CString ->
Word32 ->
Word32 ->
IO ()
findControllerSearch ::
(B.CallStack.HasCallStack, MonadIO m, IsFindController a) =>
a
-> T.Text
-> Word32
-> Word32
-> m ()
findControllerSearch findController searchText findOptions maxMatchCount = liftIO $ do
findController' <- unsafeManagedPtrCastPtr findController
searchText' <- textToCString searchText
webkit_find_controller_search findController' searchText' findOptions maxMatchCount
touchManagedPtr findController
freeMem searchText'
return ()
#if ENABLE_OVERLOADING
data FindControllerSearchMethodInfo
instance (signature ~ (T.Text -> Word32 -> Word32 -> m ()), MonadIO m, IsFindController a) => O.MethodInfo FindControllerSearchMethodInfo a signature where
overloadedMethod _ = findControllerSearch
#endif
foreign import ccall "webkit_find_controller_search_finish" webkit_find_controller_search_finish ::
Ptr FindController ->
IO ()
findControllerSearchFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsFindController a) =>
a
-> m ()
findControllerSearchFinish findController = liftIO $ do
findController' <- unsafeManagedPtrCastPtr findController
webkit_find_controller_search_finish findController'
touchManagedPtr findController
return ()
#if ENABLE_OVERLOADING
data FindControllerSearchFinishMethodInfo
instance (signature ~ (m ()), MonadIO m, IsFindController a) => O.MethodInfo FindControllerSearchFinishMethodInfo a signature where
overloadedMethod _ = findControllerSearchFinish
#endif
foreign import ccall "webkit_find_controller_search_next" webkit_find_controller_search_next ::
Ptr FindController ->
IO ()
findControllerSearchNext ::
(B.CallStack.HasCallStack, MonadIO m, IsFindController a) =>
a
-> m ()
findControllerSearchNext findController = liftIO $ do
findController' <- unsafeManagedPtrCastPtr findController
webkit_find_controller_search_next findController'
touchManagedPtr findController
return ()
#if ENABLE_OVERLOADING
data FindControllerSearchNextMethodInfo
instance (signature ~ (m ()), MonadIO m, IsFindController a) => O.MethodInfo FindControllerSearchNextMethodInfo a signature where
overloadedMethod _ = findControllerSearchNext
#endif
foreign import ccall "webkit_find_controller_search_previous" webkit_find_controller_search_previous ::
Ptr FindController ->
IO ()
findControllerSearchPrevious ::
(B.CallStack.HasCallStack, MonadIO m, IsFindController a) =>
a
-> m ()
findControllerSearchPrevious findController = liftIO $ do
findController' <- unsafeManagedPtrCastPtr findController
webkit_find_controller_search_previous findController'
touchManagedPtr findController
return ()
#if ENABLE_OVERLOADING
data FindControllerSearchPreviousMethodInfo
instance (signature ~ (m ()), MonadIO m, IsFindController a) => O.MethodInfo FindControllerSearchPreviousMethodInfo a signature where
overloadedMethod _ = findControllerSearchPrevious
#endif