#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2WebExtension.Objects.WebEditor
(
WebEditor(..) ,
IsWebEditor ,
toWebEditor ,
noWebEditor ,
#if ENABLE_OVERLOADING
WebEditorGetPageMethodInfo ,
#endif
webEditorGetPage ,
C_WebEditorSelectionChangedCallback ,
WebEditorSelectionChangedCallback ,
#if ENABLE_OVERLOADING
WebEditorSelectionChangedSignalInfo ,
#endif
afterWebEditorSelectionChanged ,
genClosure_WebEditorSelectionChanged ,
mk_WebEditorSelectionChangedCallback ,
noWebEditorSelectionChangedCallback ,
onWebEditorSelectionChanged ,
wrap_WebEditorSelectionChangedCallback ,
) 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.WebKit2WebExtension.Objects.WebPage as WebKit2WebExtension.WebPage
newtype WebEditor = WebEditor (ManagedPtr WebEditor)
foreign import ccall "webkit_web_editor_get_type"
c_webkit_web_editor_get_type :: IO GType
instance GObject WebEditor where
gobjectType = c_webkit_web_editor_get_type
class (GObject o, O.IsDescendantOf WebEditor o) => IsWebEditor o
instance (GObject o, O.IsDescendantOf WebEditor o) => IsWebEditor o
instance O.HasParentTypes WebEditor
type instance O.ParentTypes WebEditor = '[GObject.Object.Object]
toWebEditor :: (MonadIO m, IsWebEditor o) => o -> m WebEditor
toWebEditor = liftIO . unsafeCastTo WebEditor
noWebEditor :: Maybe WebEditor
noWebEditor = Nothing
#if ENABLE_OVERLOADING
type family ResolveWebEditorMethod (t :: Symbol) (o :: *) :: * where
ResolveWebEditorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveWebEditorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveWebEditorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveWebEditorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveWebEditorMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveWebEditorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveWebEditorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveWebEditorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveWebEditorMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveWebEditorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveWebEditorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveWebEditorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveWebEditorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveWebEditorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveWebEditorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveWebEditorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveWebEditorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveWebEditorMethod "getPage" o = WebEditorGetPageMethodInfo
ResolveWebEditorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveWebEditorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveWebEditorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveWebEditorMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveWebEditorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveWebEditorMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveWebEditorMethod t WebEditor, O.MethodInfo info WebEditor p) => OL.IsLabel t (WebEditor -> 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 WebEditorSelectionChangedCallback =
IO ()
noWebEditorSelectionChangedCallback :: Maybe WebEditorSelectionChangedCallback
noWebEditorSelectionChangedCallback = Nothing
type C_WebEditorSelectionChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebEditorSelectionChangedCallback :: C_WebEditorSelectionChangedCallback -> IO (FunPtr C_WebEditorSelectionChangedCallback)
genClosure_WebEditorSelectionChanged :: MonadIO m => WebEditorSelectionChangedCallback -> m (GClosure C_WebEditorSelectionChangedCallback)
genClosure_WebEditorSelectionChanged cb = liftIO $ do
let cb' = wrap_WebEditorSelectionChangedCallback cb
mk_WebEditorSelectionChangedCallback cb' >>= B.GClosure.newGClosure
wrap_WebEditorSelectionChangedCallback ::
WebEditorSelectionChangedCallback ->
C_WebEditorSelectionChangedCallback
wrap_WebEditorSelectionChangedCallback _cb _ _ = do
_cb
onWebEditorSelectionChanged :: (IsWebEditor a, MonadIO m) => a -> WebEditorSelectionChangedCallback -> m SignalHandlerId
onWebEditorSelectionChanged obj cb = liftIO $ do
let cb' = wrap_WebEditorSelectionChangedCallback cb
cb'' <- mk_WebEditorSelectionChangedCallback cb'
connectSignalFunPtr obj "selection-changed" cb'' SignalConnectBefore
afterWebEditorSelectionChanged :: (IsWebEditor a, MonadIO m) => a -> WebEditorSelectionChangedCallback -> m SignalHandlerId
afterWebEditorSelectionChanged obj cb = liftIO $ do
let cb' = wrap_WebEditorSelectionChangedCallback cb
cb'' <- mk_WebEditorSelectionChangedCallback cb'
connectSignalFunPtr obj "selection-changed" cb'' SignalConnectAfter
#if ENABLE_OVERLOADING
instance O.HasAttributeList WebEditor
type instance O.AttributeList WebEditor = WebEditorAttributeList
type WebEditorAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
data WebEditorSelectionChangedSignalInfo
instance SignalInfo WebEditorSelectionChangedSignalInfo where
type HaskellCallbackType WebEditorSelectionChangedSignalInfo = WebEditorSelectionChangedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_WebEditorSelectionChangedCallback cb
cb'' <- mk_WebEditorSelectionChangedCallback cb'
connectSignalFunPtr obj "selection-changed" cb'' connectMode
type instance O.SignalList WebEditor = WebEditorSignalList
type WebEditorSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo), '("selectionChanged", WebEditorSelectionChangedSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_web_editor_get_page" webkit_web_editor_get_page ::
Ptr WebEditor ->
IO (Ptr WebKit2WebExtension.WebPage.WebPage)
webEditorGetPage ::
(B.CallStack.HasCallStack, MonadIO m, IsWebEditor a) =>
a
-> m WebKit2WebExtension.WebPage.WebPage
webEditorGetPage editor = liftIO $ do
editor' <- unsafeManagedPtrCastPtr editor
result <- webkit_web_editor_get_page editor'
checkUnexpectedReturnNULL "webEditorGetPage" result
result' <- (newObject WebKit2WebExtension.WebPage.WebPage) result
touchManagedPtr editor
return result'
#if ENABLE_OVERLOADING
data WebEditorGetPageMethodInfo
instance (signature ~ (m WebKit2WebExtension.WebPage.WebPage), MonadIO m, IsWebEditor a) => O.MethodInfo WebEditorGetPageMethodInfo a signature where
overloadedMethod _ = webEditorGetPage
#endif