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) =>
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) => 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) => 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) => 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) => self -> IO String
htmlElementGetTitle self
= ((\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_get_title argPtr1)
(toHTMLElement self))
>>=
readUTFString
htmlElementSetLang ::
(HTMLElementClass self) => 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) => 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) => 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) => 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) => 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) => 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) => 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) => self -> IO String
htmlElementGetAccessKey self
= ((\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_get_access_key argPtr1)
(toHTMLElement self))
>>=
readUTFString
htmlElementSetInnerHTML ::
(HTMLElementClass self) => 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) => self -> IO String
htmlElementGetInnerHTML self
= ((\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_get_inner_html argPtr1)
(toHTMLElement self))
>>=
readUTFString
htmlElementSetInnerText ::
(HTMLElementClass self) => 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) => self -> IO String
htmlElementGetInnerText self
= ((\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_get_inner_text argPtr1)
(toHTMLElement self))
>>=
readUTFString
htmlElementSetOuterHTML ::
(HTMLElementClass self) => 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) => self -> IO String
htmlElementGetOuterHTML self
= ((\(HTMLElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_element_get_outer_html argPtr1)
(toHTMLElement self))
>>=
readUTFString
htmlElementSetOuterText ::
(HTMLElementClass self) => 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) => 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) => 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) => 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))