module Graphics.UI.Gtk.WebKit.DOM.HTMLElement
(htmlElementInsertAdjacentElement, htmlElementInsertAdjacentHTML,
htmlElementInsertAdjacentText, htmlElementClick,
htmlElementSetTitle, htmlElementGetTitle, htmlElementSetLang,
htmlElementGetLang, htmlElementSetTranslate,
htmlElementGetTranslate, htmlElementSetDir, htmlElementGetDir,
htmlElementSetTabIndex, htmlElementGetTabIndex,
htmlElementSetDraggable, htmlElementGetDraggable,
htmlElementSetWebkitdropzone, htmlElementGetWebkitdropzone,
htmlElementSetHidden, htmlElementGetHidden,
htmlElementSetAccessKey, htmlElementGetAccessKey,
htmlElementSetInnerHTML, htmlElementGetInnerHTML,
htmlElementSetInnerText, htmlElementGetInnerText,
htmlElementSetOuterHTML, htmlElementGetOuterHTML,
htmlElementSetOuterText, htmlElementGetOuterText,
htmlElementGetChildren, htmlElementSetContentEditable,
htmlElementGetContentEditable, htmlElementGetIsContentEditable,
htmlElementSetSpellcheck, htmlElementGetSpellcheck, HTMLElement,
HTMLElementClass, castToHTMLElement, gTypeHTMLElement,
toHTMLElement)
where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
htmlElementInsertAdjacentElement ::
(HTMLElementClass self, ElementClass element, GlibString string) =>
self -> string -> Maybe element -> IO (Maybe Element)
htmlElementInsertAdjacentElement self where' element
= maybeNull (makeNewGObject mkElement)
(propagateGError $
\ errorPtr_ ->
withUTFString where' $
\ wherePtr ->
(\(HTMLElement arg1) arg2 (Element arg3) arg4 -> withForeignPtr arg1 $ \argPtr1 ->withForeignPtr arg3 $ \argPtr3 ->webkit_dom_html_element_insert_adjacent_element argPtr1 arg2 argPtr3 arg4)
(toHTMLElement self)
wherePtr
(maybe (Element nullForeignPtr) toElement element)
errorPtr_)
htmlElementInsertAdjacentHTML ::
(HTMLElementClass self, GlibString string) =>
self -> string -> string -> IO ()
htmlElementInsertAdjacentHTML self where' html
= propagateGError $
\ errorPtr_ ->
withUTFString html $
\ htmlPtr ->
withUTFString where' $
\ wherePtr ->
(\(HTMLElement arg1) arg2 arg3 arg4 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_insert_adjacent_html argPtr1 arg2 arg3 arg4)
(toHTMLElement self)
wherePtr
htmlPtr
errorPtr_
htmlElementInsertAdjacentText ::
(HTMLElementClass self, GlibString string) =>
self -> string -> string -> IO ()
htmlElementInsertAdjacentText self where' text
= propagateGError $
\ errorPtr_ ->
withUTFString text $
\ textPtr ->
withUTFString where' $
\ wherePtr ->
(\(HTMLElement arg1) arg2 arg3 arg4 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_insert_adjacent_text argPtr1 arg2 arg3 arg4)
(toHTMLElement self)
wherePtr
textPtr
errorPtr_
htmlElementClick :: (HTMLElementClass self) => self -> IO ()
htmlElementClick self
= (\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_click argPtr1) (toHTMLElement self)
htmlElementSetTitle ::
(HTMLElementClass self, GlibString string) =>
self -> string -> IO ()
htmlElementSetTitle self val
= withUTFString val $
\ valPtr ->
(\(HTMLElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_set_title argPtr1 arg2) (toHTMLElement self)
valPtr
htmlElementGetTitle ::
(HTMLElementClass self, GlibString string) => self -> IO string
htmlElementGetTitle self
= ((\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_get_title argPtr1)
(toHTMLElement self))
>>=
readUTFString
htmlElementSetLang ::
(HTMLElementClass self, GlibString string) =>
self -> string -> IO ()
htmlElementSetLang self val
= withUTFString val $
\ valPtr ->
(\(HTMLElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_set_lang argPtr1 arg2) (toHTMLElement self)
valPtr
htmlElementGetLang ::
(HTMLElementClass self, GlibString string) => self -> IO string
htmlElementGetLang self
= ((\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_get_lang argPtr1)
(toHTMLElement self))
>>=
readUTFString
htmlElementSetTranslate ::
(HTMLElementClass self) => self -> Bool -> IO ()
htmlElementSetTranslate self val
= (\(HTMLElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_set_translate argPtr1 arg2)
(toHTMLElement self)
(fromBool val)
htmlElementGetTranslate ::
(HTMLElementClass self) => self -> IO Bool
htmlElementGetTranslate self
= toBool <$>
((\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_get_translate argPtr1)
(toHTMLElement self))
htmlElementSetDir ::
(HTMLElementClass self, GlibString string) =>
self -> string -> IO ()
htmlElementSetDir self val
= withUTFString val $
\ valPtr ->
(\(HTMLElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_set_dir argPtr1 arg2) (toHTMLElement self)
valPtr
htmlElementGetDir ::
(HTMLElementClass self, GlibString string) => self -> IO string
htmlElementGetDir self
= ((\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_get_dir argPtr1) (toHTMLElement self))
>>=
readUTFString
htmlElementSetTabIndex ::
(HTMLElementClass self) => self -> Int -> IO ()
htmlElementSetTabIndex self val
= (\(HTMLElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_set_tab_index argPtr1 arg2)
(toHTMLElement self)
(fromIntegral val)
htmlElementGetTabIndex :: (HTMLElementClass self) => self -> IO Int
htmlElementGetTabIndex self
= fromIntegral <$>
((\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_get_tab_index argPtr1)
(toHTMLElement self))
htmlElementSetDraggable ::
(HTMLElementClass self) => self -> Bool -> IO ()
htmlElementSetDraggable self val
= (\(HTMLElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_set_draggable argPtr1 arg2)
(toHTMLElement self)
(fromBool val)
htmlElementGetDraggable ::
(HTMLElementClass self) => self -> IO Bool
htmlElementGetDraggable self
= toBool <$>
((\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_get_draggable argPtr1)
(toHTMLElement self))
htmlElementSetWebkitdropzone ::
(HTMLElementClass self, GlibString string) =>
self -> string -> IO ()
htmlElementSetWebkitdropzone self val
= withUTFString val $
\ valPtr ->
(\(HTMLElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_set_webkitdropzone argPtr1 arg2)
(toHTMLElement self)
valPtr
htmlElementGetWebkitdropzone ::
(HTMLElementClass self, GlibString string) => self -> IO string
htmlElementGetWebkitdropzone self
= ((\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_get_webkitdropzone argPtr1)
(toHTMLElement self))
>>=
readUTFString
htmlElementSetHidden ::
(HTMLElementClass self) => self -> Bool -> IO ()
htmlElementSetHidden self val
= (\(HTMLElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_set_hidden argPtr1 arg2)
(toHTMLElement self)
(fromBool val)
htmlElementGetHidden :: (HTMLElementClass self) => self -> IO Bool
htmlElementGetHidden self
= toBool <$>
((\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_get_hidden argPtr1)
(toHTMLElement self))
htmlElementSetAccessKey ::
(HTMLElementClass self, GlibString string) =>
self -> string -> IO ()
htmlElementSetAccessKey self val
= withUTFString val $
\ valPtr ->
(\(HTMLElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_set_access_key argPtr1 arg2)
(toHTMLElement self)
valPtr
htmlElementGetAccessKey ::
(HTMLElementClass self, GlibString string) => self -> IO string
htmlElementGetAccessKey self
= ((\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_get_access_key argPtr1)
(toHTMLElement self))
>>=
readUTFString
htmlElementSetInnerHTML ::
(HTMLElementClass self, GlibString string) =>
self -> string -> IO ()
htmlElementSetInnerHTML self val
= propagateGError $
\ errorPtr_ ->
withUTFString val $
\ valPtr ->
(\(HTMLElement arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_set_inner_html argPtr1 arg2 arg3)
(toHTMLElement self)
valPtr
errorPtr_
htmlElementGetInnerHTML ::
(HTMLElementClass self, GlibString string) => self -> IO string
htmlElementGetInnerHTML self
= ((\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_get_inner_html argPtr1)
(toHTMLElement self))
>>=
readUTFString
htmlElementSetInnerText ::
(HTMLElementClass self, GlibString string) =>
self -> string -> IO ()
htmlElementSetInnerText self val
= propagateGError $
\ errorPtr_ ->
withUTFString val $
\ valPtr ->
(\(HTMLElement arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_set_inner_text argPtr1 arg2 arg3)
(toHTMLElement self)
valPtr
errorPtr_
htmlElementGetInnerText ::
(HTMLElementClass self, GlibString string) => self -> IO string
htmlElementGetInnerText self
= ((\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_get_inner_text argPtr1)
(toHTMLElement self))
>>=
readUTFString
htmlElementSetOuterHTML ::
(HTMLElementClass self, GlibString string) =>
self -> string -> IO ()
htmlElementSetOuterHTML self val
= propagateGError $
\ errorPtr_ ->
withUTFString val $
\ valPtr ->
(\(HTMLElement arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_set_outer_html argPtr1 arg2 arg3)
(toHTMLElement self)
valPtr
errorPtr_
htmlElementGetOuterHTML ::
(HTMLElementClass self, GlibString string) => self -> IO string
htmlElementGetOuterHTML self
= ((\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_get_outer_html argPtr1)
(toHTMLElement self))
>>=
readUTFString
htmlElementSetOuterText ::
(HTMLElementClass self, GlibString string) =>
self -> string -> IO ()
htmlElementSetOuterText self val
= propagateGError $
\ errorPtr_ ->
withUTFString val $
\ valPtr ->
(\(HTMLElement arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_set_outer_text argPtr1 arg2 arg3)
(toHTMLElement self)
valPtr
errorPtr_
htmlElementGetOuterText ::
(HTMLElementClass self, GlibString string) => self -> IO string
htmlElementGetOuterText self
= ((\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_get_outer_text argPtr1)
(toHTMLElement self))
>>=
readUTFString
htmlElementGetChildren ::
(HTMLElementClass self) => self -> IO (Maybe HTMLCollection)
htmlElementGetChildren self
= maybeNull (makeNewGObject mkHTMLCollection)
((\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_get_children argPtr1)
(toHTMLElement self))
htmlElementSetContentEditable ::
(HTMLElementClass self, GlibString string) =>
self -> string -> IO ()
htmlElementSetContentEditable self val
= propagateGError $
\ errorPtr_ ->
withUTFString val $
\ valPtr ->
(\(HTMLElement arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_set_content_editable argPtr1 arg2 arg3)
(toHTMLElement self)
valPtr
errorPtr_
htmlElementGetContentEditable ::
(HTMLElementClass self, GlibString string) => self -> IO string
htmlElementGetContentEditable self
= ((\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_get_content_editable argPtr1)
(toHTMLElement self))
>>=
readUTFString
htmlElementGetIsContentEditable ::
(HTMLElementClass self) => self -> IO Bool
htmlElementGetIsContentEditable self
= toBool <$>
((\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_get_is_content_editable argPtr1)
(toHTMLElement self))
htmlElementSetSpellcheck ::
(HTMLElementClass self) => self -> Bool -> IO ()
htmlElementSetSpellcheck self val
= (\(HTMLElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_set_spellcheck argPtr1 arg2)
(toHTMLElement self)
(fromBool val)
htmlElementGetSpellcheck ::
(HTMLElementClass self) => self -> IO Bool
htmlElementGetSpellcheck self
= toBool <$>
((\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_get_spellcheck argPtr1)
(toHTMLElement self))
foreign import ccall safe "webkit_dom_html_element_insert_adjacent_element"
webkit_dom_html_element_insert_adjacent_element :: ((Ptr HTMLElement) -> ((Ptr CChar) -> ((Ptr Element) -> ((Ptr (Ptr ())) -> (IO (Ptr Element))))))
foreign import ccall safe "webkit_dom_html_element_insert_adjacent_html"
webkit_dom_html_element_insert_adjacent_html :: ((Ptr HTMLElement) -> ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr (Ptr ())) -> (IO ())))))
foreign import ccall safe "webkit_dom_html_element_insert_adjacent_text"
webkit_dom_html_element_insert_adjacent_text :: ((Ptr HTMLElement) -> ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr (Ptr ())) -> (IO ())))))
foreign import ccall safe "webkit_dom_html_element_click"
webkit_dom_html_element_click :: ((Ptr HTMLElement) -> (IO ()))
foreign import ccall safe "webkit_dom_html_element_set_title"
webkit_dom_html_element_set_title :: ((Ptr HTMLElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "webkit_dom_html_element_get_title"
webkit_dom_html_element_get_title :: ((Ptr HTMLElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_element_set_lang"
webkit_dom_html_element_set_lang :: ((Ptr HTMLElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "webkit_dom_html_element_get_lang"
webkit_dom_html_element_get_lang :: ((Ptr HTMLElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_element_set_translate"
webkit_dom_html_element_set_translate :: ((Ptr HTMLElement) -> (CInt -> (IO ())))
foreign import ccall safe "webkit_dom_html_element_get_translate"
webkit_dom_html_element_get_translate :: ((Ptr HTMLElement) -> (IO CInt))
foreign import ccall safe "webkit_dom_html_element_set_dir"
webkit_dom_html_element_set_dir :: ((Ptr HTMLElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "webkit_dom_html_element_get_dir"
webkit_dom_html_element_get_dir :: ((Ptr HTMLElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_element_set_tab_index"
webkit_dom_html_element_set_tab_index :: ((Ptr HTMLElement) -> (CLong -> (IO ())))
foreign import ccall safe "webkit_dom_html_element_get_tab_index"
webkit_dom_html_element_get_tab_index :: ((Ptr HTMLElement) -> (IO CLong))
foreign import ccall safe "webkit_dom_html_element_set_draggable"
webkit_dom_html_element_set_draggable :: ((Ptr HTMLElement) -> (CInt -> (IO ())))
foreign import ccall safe "webkit_dom_html_element_get_draggable"
webkit_dom_html_element_get_draggable :: ((Ptr HTMLElement) -> (IO CInt))
foreign import ccall safe "webkit_dom_html_element_set_webkitdropzone"
webkit_dom_html_element_set_webkitdropzone :: ((Ptr HTMLElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "webkit_dom_html_element_get_webkitdropzone"
webkit_dom_html_element_get_webkitdropzone :: ((Ptr HTMLElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_element_set_hidden"
webkit_dom_html_element_set_hidden :: ((Ptr HTMLElement) -> (CInt -> (IO ())))
foreign import ccall safe "webkit_dom_html_element_get_hidden"
webkit_dom_html_element_get_hidden :: ((Ptr HTMLElement) -> (IO CInt))
foreign import ccall safe "webkit_dom_html_element_set_access_key"
webkit_dom_html_element_set_access_key :: ((Ptr HTMLElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "webkit_dom_html_element_get_access_key"
webkit_dom_html_element_get_access_key :: ((Ptr HTMLElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_element_set_inner_html"
webkit_dom_html_element_set_inner_html :: ((Ptr HTMLElement) -> ((Ptr CChar) -> ((Ptr (Ptr ())) -> (IO ()))))
foreign import ccall safe "webkit_dom_html_element_get_inner_html"
webkit_dom_html_element_get_inner_html :: ((Ptr HTMLElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_element_set_inner_text"
webkit_dom_html_element_set_inner_text :: ((Ptr HTMLElement) -> ((Ptr CChar) -> ((Ptr (Ptr ())) -> (IO ()))))
foreign import ccall safe "webkit_dom_html_element_get_inner_text"
webkit_dom_html_element_get_inner_text :: ((Ptr HTMLElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_element_set_outer_html"
webkit_dom_html_element_set_outer_html :: ((Ptr HTMLElement) -> ((Ptr CChar) -> ((Ptr (Ptr ())) -> (IO ()))))
foreign import ccall safe "webkit_dom_html_element_get_outer_html"
webkit_dom_html_element_get_outer_html :: ((Ptr HTMLElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_element_set_outer_text"
webkit_dom_html_element_set_outer_text :: ((Ptr HTMLElement) -> ((Ptr CChar) -> ((Ptr (Ptr ())) -> (IO ()))))
foreign import ccall safe "webkit_dom_html_element_get_outer_text"
webkit_dom_html_element_get_outer_text :: ((Ptr HTMLElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_element_get_children"
webkit_dom_html_element_get_children :: ((Ptr HTMLElement) -> (IO (Ptr HTMLCollection)))
foreign import ccall safe "webkit_dom_html_element_set_content_editable"
webkit_dom_html_element_set_content_editable :: ((Ptr HTMLElement) -> ((Ptr CChar) -> ((Ptr (Ptr ())) -> (IO ()))))
foreign import ccall safe "webkit_dom_html_element_get_content_editable"
webkit_dom_html_element_get_content_editable :: ((Ptr HTMLElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_element_get_is_content_editable"
webkit_dom_html_element_get_is_content_editable :: ((Ptr HTMLElement) -> (IO CInt))
foreign import ccall safe "webkit_dom_html_element_set_spellcheck"
webkit_dom_html_element_set_spellcheck :: ((Ptr HTMLElement) -> (CInt -> (IO ())))
foreign import ccall safe "webkit_dom_html_element_get_spellcheck"
webkit_dom_html_element_get_spellcheck :: ((Ptr HTMLElement) -> (IO CInt))