#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2.Objects.EditorState
(
EditorState(..) ,
IsEditorState ,
toEditorState ,
noEditorState ,
#if ENABLE_OVERLOADING
EditorStateGetTypingAttributesMethodInfo,
#endif
editorStateGetTypingAttributes ,
#if ENABLE_OVERLOADING
EditorStateTypingAttributesPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
editorStateTypingAttributes ,
#endif
getEditorStateTypingAttributes ,
) 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GObject.Objects.Object as GObject.Object
newtype EditorState = EditorState (ManagedPtr EditorState)
foreign import ccall "webkit_editor_state_get_type"
c_webkit_editor_state_get_type :: IO GType
instance GObject EditorState where
gobjectType _ = c_webkit_editor_state_get_type
class GObject o => IsEditorState o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError EditorState a) =>
IsEditorState a
#endif
instance IsEditorState EditorState
instance GObject.Object.IsObject EditorState
toEditorState :: (MonadIO m, IsEditorState o) => o -> m EditorState
toEditorState = liftIO . unsafeCastTo EditorState
noEditorState :: Maybe EditorState
noEditorState = Nothing
#if ENABLE_OVERLOADING
type family ResolveEditorStateMethod (t :: Symbol) (o :: *) :: * where
ResolveEditorStateMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveEditorStateMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveEditorStateMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveEditorStateMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveEditorStateMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveEditorStateMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveEditorStateMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveEditorStateMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveEditorStateMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveEditorStateMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveEditorStateMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveEditorStateMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveEditorStateMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveEditorStateMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveEditorStateMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveEditorStateMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveEditorStateMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveEditorStateMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveEditorStateMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveEditorStateMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveEditorStateMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveEditorStateMethod "getTypingAttributes" o = EditorStateGetTypingAttributesMethodInfo
ResolveEditorStateMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveEditorStateMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveEditorStateMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEditorStateMethod t EditorState, O.MethodInfo info EditorState p) => O.IsLabelProxy t (EditorState -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveEditorStateMethod t EditorState, O.MethodInfo info EditorState p) => O.IsLabel t (EditorState -> 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
#endif
getEditorStateTypingAttributes :: (MonadIO m, IsEditorState o) => o -> m Word32
getEditorStateTypingAttributes obj = liftIO $ getObjectPropertyUInt32 obj "typing-attributes"
#if ENABLE_OVERLOADING
data EditorStateTypingAttributesPropertyInfo
instance AttrInfo EditorStateTypingAttributesPropertyInfo where
type AttrAllowedOps EditorStateTypingAttributesPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EditorStateTypingAttributesPropertyInfo = (~) ()
type AttrBaseTypeConstraint EditorStateTypingAttributesPropertyInfo = IsEditorState
type AttrGetType EditorStateTypingAttributesPropertyInfo = Word32
type AttrLabel EditorStateTypingAttributesPropertyInfo = "typing-attributes"
type AttrOrigin EditorStateTypingAttributesPropertyInfo = EditorState
attrGet _ = getEditorStateTypingAttributes
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList EditorState
type instance O.AttributeList EditorState = EditorStateAttributeList
type EditorStateAttributeList = ('[ '("typingAttributes", EditorStateTypingAttributesPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
editorStateTypingAttributes :: AttrLabelProxy "typingAttributes"
editorStateTypingAttributes = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList EditorState = EditorStateSignalList
type EditorStateSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_editor_state_get_typing_attributes" webkit_editor_state_get_typing_attributes ::
Ptr EditorState ->
IO Word32
editorStateGetTypingAttributes ::
(B.CallStack.HasCallStack, MonadIO m, IsEditorState a) =>
a
-> m Word32
editorStateGetTypingAttributes editorState = liftIO $ do
editorState' <- unsafeManagedPtrCastPtr editorState
result <- webkit_editor_state_get_typing_attributes editorState'
touchManagedPtr editorState
return result
#if ENABLE_OVERLOADING
data EditorStateGetTypingAttributesMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsEditorState a) => O.MethodInfo EditorStateGetTypingAttributesMethodInfo a signature where
overloadedMethod _ = editorStateGetTypingAttributes
#endif