module GI.WebKit2.Objects.EditorState
(
EditorState(..) ,
IsEditorState ,
toEditorState ,
noEditorState ,
EditorStateGetTypingAttributesMethodInfo,
editorStateGetTypingAttributes ,
EditorStateTypingAttributesPropertyInfo ,
editorStateTypingAttributes ,
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.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 (GObject a, O.UnknownAncestorError EditorState a) =>
IsEditorState a
#endif
instance IsEditorState EditorState
instance GObject.Object.IsObject EditorState
toEditorState :: IsEditorState o => o -> IO EditorState
toEditorState = unsafeCastTo EditorState
noEditorState :: Maybe EditorState
noEditorState = Nothing
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 "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
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
getEditorStateTypingAttributes :: (MonadIO m, IsEditorState o) => o -> m Word32
getEditorStateTypingAttributes obj = liftIO $ getObjectPropertyUInt32 obj "typing-attributes"
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
instance O.HasAttributeList EditorState
type instance O.AttributeList EditorState = EditorStateAttributeList
type EditorStateAttributeList = ('[ '("typingAttributes", EditorStateTypingAttributesPropertyInfo)] :: [(Symbol, *)])
editorStateTypingAttributes :: AttrLabelProxy "typingAttributes"
editorStateTypingAttributes = AttrLabelProxy
type instance O.SignalList EditorState = EditorStateSignalList
type EditorStateSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
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
data EditorStateGetTypingAttributesMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsEditorState a) => O.MethodInfo EditorStateGetTypingAttributesMethodInfo a signature where
overloadedMethod _ = editorStateGetTypingAttributes