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, HTMLFrameElement, HTMLFrameElementClass,
castToHTMLFrameElement, gTypeHTMLFrameElement, toHTMLFrameElement)
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, GlibString string) =>
self -> string -> IO ()
htmlFrameElementSetFrameBorder self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_frame_element_set_frame_border #}
(toHTMLFrameElement self)
valPtr
htmlFrameElementGetFrameBorder ::
(HTMLFrameElementClass self, GlibString string) =>
self -> IO string
htmlFrameElementGetFrameBorder self
= ({# call webkit_dom_html_frame_element_get_frame_border #}
(toHTMLFrameElement self))
>>=
readUTFString
htmlFrameElementSetLongDesc ::
(HTMLFrameElementClass self, GlibString string) =>
self -> string -> IO ()
htmlFrameElementSetLongDesc self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_frame_element_set_long_desc #}
(toHTMLFrameElement self)
valPtr
htmlFrameElementGetLongDesc ::
(HTMLFrameElementClass self, GlibString string) =>
self -> IO string
htmlFrameElementGetLongDesc self
= ({# call webkit_dom_html_frame_element_get_long_desc #}
(toHTMLFrameElement self))
>>=
readUTFString
htmlFrameElementSetMarginHeight ::
(HTMLFrameElementClass self, GlibString string) =>
self -> string -> IO ()
htmlFrameElementSetMarginHeight self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_frame_element_set_margin_height #}
(toHTMLFrameElement self)
valPtr
htmlFrameElementGetMarginHeight ::
(HTMLFrameElementClass self, GlibString string) =>
self -> IO string
htmlFrameElementGetMarginHeight self
= ({# call webkit_dom_html_frame_element_get_margin_height #}
(toHTMLFrameElement self))
>>=
readUTFString
htmlFrameElementSetMarginWidth ::
(HTMLFrameElementClass self, GlibString string) =>
self -> string -> IO ()
htmlFrameElementSetMarginWidth self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_frame_element_set_margin_width #}
(toHTMLFrameElement self)
valPtr
htmlFrameElementGetMarginWidth ::
(HTMLFrameElementClass self, GlibString string) =>
self -> IO string
htmlFrameElementGetMarginWidth self
= ({# call webkit_dom_html_frame_element_get_margin_width #}
(toHTMLFrameElement self))
>>=
readUTFString
htmlFrameElementSetName ::
(HTMLFrameElementClass self, GlibString string) =>
self -> string -> IO ()
htmlFrameElementSetName self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_frame_element_set_name #}
(toHTMLFrameElement self)
valPtr
htmlFrameElementGetName ::
(HTMLFrameElementClass self, GlibString string) =>
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, GlibString string) =>
self -> string -> IO ()
htmlFrameElementSetScrolling self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_frame_element_set_scrolling #}
(toHTMLFrameElement self)
valPtr
htmlFrameElementGetScrolling ::
(HTMLFrameElementClass self, GlibString string) =>
self -> IO string
htmlFrameElementGetScrolling self
= ({# call webkit_dom_html_frame_element_get_scrolling #}
(toHTMLFrameElement self))
>>=
readUTFString
htmlFrameElementSetSrc ::
(HTMLFrameElementClass self, GlibString string) =>
self -> string -> IO ()
htmlFrameElementSetSrc self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_frame_element_set_src #}
(toHTMLFrameElement self)
valPtr
htmlFrameElementGetSrc ::
(HTMLFrameElementClass self, GlibString string) =>
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))