module Graphics.UI.Gtk.WebKit.DOM.HTMLFrameElement
(htmlFrameElementSetFrameBorder, htmlFrameElementGetFrameBorder,
htmlFrameElementSetLongDesc, htmlFrameElementGetLongDesc,
htmlFrameElementSetMarginHeight, htmlFrameElementGetMarginHeight,
htmlFrameElementSetMarginWidth, htmlFrameElementGetMarginWidth,
htmlFrameElementSetName, htmlFrameElementGetName,
htmlFrameElementSetNoResize, htmlFrameElementGetNoResize,
htmlFrameElementSetScrolling, htmlFrameElementGetScrolling,
htmlFrameElementSetSrc, htmlFrameElementGetSrc,
htmlFrameElementGetContentDocument,
htmlFrameElementGetContentWindow, htmlFrameElementGetWidth,
htmlFrameElementGetHeight)
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
htmlFrameElementSetFrameBorder ::
(HTMLFrameElementClass self) => self -> String -> IO ()
htmlFrameElementSetFrameBorder self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_frame_element_set_frame_border #}
(toHTMLFrameElement self)
valPtr
htmlFrameElementGetFrameBorder ::
(HTMLFrameElementClass self) => self -> IO String
htmlFrameElementGetFrameBorder self
= ({# call webkit_dom_html_frame_element_get_frame_border #}
(toHTMLFrameElement self))
>>=
readUTFString
htmlFrameElementSetLongDesc ::
(HTMLFrameElementClass self) => self -> String -> IO ()
htmlFrameElementSetLongDesc self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_frame_element_set_long_desc #}
(toHTMLFrameElement self)
valPtr
htmlFrameElementGetLongDesc ::
(HTMLFrameElementClass self) => self -> IO String
htmlFrameElementGetLongDesc self
= ({# call webkit_dom_html_frame_element_get_long_desc #}
(toHTMLFrameElement self))
>>=
readUTFString
htmlFrameElementSetMarginHeight ::
(HTMLFrameElementClass self) => self -> String -> IO ()
htmlFrameElementSetMarginHeight self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_frame_element_set_margin_height #}
(toHTMLFrameElement self)
valPtr
htmlFrameElementGetMarginHeight ::
(HTMLFrameElementClass self) => self -> IO String
htmlFrameElementGetMarginHeight self
= ({# call webkit_dom_html_frame_element_get_margin_height #}
(toHTMLFrameElement self))
>>=
readUTFString
htmlFrameElementSetMarginWidth ::
(HTMLFrameElementClass self) => self -> String -> IO ()
htmlFrameElementSetMarginWidth self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_frame_element_set_margin_width #}
(toHTMLFrameElement self)
valPtr
htmlFrameElementGetMarginWidth ::
(HTMLFrameElementClass self) => self -> IO String
htmlFrameElementGetMarginWidth self
= ({# call webkit_dom_html_frame_element_get_margin_width #}
(toHTMLFrameElement self))
>>=
readUTFString
htmlFrameElementSetName ::
(HTMLFrameElementClass self) => self -> String -> IO ()
htmlFrameElementSetName self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_frame_element_set_name #}
(toHTMLFrameElement self)
valPtr
htmlFrameElementGetName ::
(HTMLFrameElementClass self) => self -> IO String
htmlFrameElementGetName self
= ({# call webkit_dom_html_frame_element_get_name #}
(toHTMLFrameElement self))
>>=
readUTFString
htmlFrameElementSetNoResize ::
(HTMLFrameElementClass self) => self -> Bool -> IO ()
htmlFrameElementSetNoResize self val
= {# call webkit_dom_html_frame_element_set_no_resize #}
(toHTMLFrameElement self)
(fromBool val)
htmlFrameElementGetNoResize ::
(HTMLFrameElementClass self) => self -> IO Bool
htmlFrameElementGetNoResize self
= toBool <$>
({# call webkit_dom_html_frame_element_get_no_resize #}
(toHTMLFrameElement self))
htmlFrameElementSetScrolling ::
(HTMLFrameElementClass self) => self -> String -> IO ()
htmlFrameElementSetScrolling self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_frame_element_set_scrolling #}
(toHTMLFrameElement self)
valPtr
htmlFrameElementGetScrolling ::
(HTMLFrameElementClass self) => self -> IO String
htmlFrameElementGetScrolling self
= ({# call webkit_dom_html_frame_element_get_scrolling #}
(toHTMLFrameElement self))
>>=
readUTFString
htmlFrameElementSetSrc ::
(HTMLFrameElementClass self) => self -> String -> IO ()
htmlFrameElementSetSrc self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_frame_element_set_src #}
(toHTMLFrameElement self)
valPtr
htmlFrameElementGetSrc ::
(HTMLFrameElementClass self) => self -> IO String
htmlFrameElementGetSrc self
= ({# call webkit_dom_html_frame_element_get_src #}
(toHTMLFrameElement self))
>>=
readUTFString
htmlFrameElementGetContentDocument ::
(HTMLFrameElementClass self) => self -> IO (Maybe Document)
htmlFrameElementGetContentDocument self
= maybeNull (makeNewGObject mkDocument)
({# call webkit_dom_html_frame_element_get_content_document #}
(toHTMLFrameElement self))
htmlFrameElementGetContentWindow ::
(HTMLFrameElementClass self) => self -> IO (Maybe DOMWindow)
htmlFrameElementGetContentWindow self
= maybeNull (makeNewGObject mkDOMWindow)
({# call webkit_dom_html_frame_element_get_content_window #}
(toHTMLFrameElement self))
htmlFrameElementGetWidth ::
(HTMLFrameElementClass self) => self -> IO Int
htmlFrameElementGetWidth self
= fromIntegral <$>
({# call webkit_dom_html_frame_element_get_width #}
(toHTMLFrameElement self))
htmlFrameElementGetHeight ::
(HTMLFrameElementClass self) => self -> IO Int
htmlFrameElementGetHeight self
= fromIntegral <$>
({# call webkit_dom_html_frame_element_get_height #}
(toHTMLFrameElement self))