-- GENERATED by C->Haskell Compiler, version 0.13.12 (gtk2hs branch) "Bin IO", 27 May 2012 (Haskell)
-- Edit the ORIGNAL .chs file instead!


{-# LINE 1 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
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
{-# LINE 18 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
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 ->
        (\(HTMLFrameElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_set_frame_border argPtr1 arg2)
{-# LINE 28 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
          (toHTMLFrameElement self)
          valPtr
 
htmlFrameElementGetFrameBorder ::
                               (HTMLFrameElementClass self, GlibString string) =>
                                 self -> IO string
htmlFrameElementGetFrameBorder self
  = ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_frame_border argPtr1)
{-# LINE 36 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
       (toHTMLFrameElement self))
      >>=
      readUTFString
 
htmlFrameElementSetLongDesc ::
                            (HTMLFrameElementClass self, GlibString string) =>
                              self -> string -> IO ()
htmlFrameElementSetLongDesc self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLFrameElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_set_long_desc argPtr1 arg2)
{-# LINE 47 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
          (toHTMLFrameElement self)
          valPtr
 
htmlFrameElementGetLongDesc ::
                            (HTMLFrameElementClass self, GlibString string) =>
                              self -> IO string
htmlFrameElementGetLongDesc self
  = ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_long_desc argPtr1)
{-# LINE 55 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
       (toHTMLFrameElement self))
      >>=
      readUTFString
 
htmlFrameElementSetMarginHeight ::
                                (HTMLFrameElementClass self, GlibString string) =>
                                  self -> string -> IO ()
htmlFrameElementSetMarginHeight self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLFrameElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_set_margin_height argPtr1 arg2)
{-# LINE 66 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
          (toHTMLFrameElement self)
          valPtr
 
htmlFrameElementGetMarginHeight ::
                                (HTMLFrameElementClass self, GlibString string) =>
                                  self -> IO string
htmlFrameElementGetMarginHeight self
  = ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_margin_height argPtr1)
{-# LINE 74 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
       (toHTMLFrameElement self))
      >>=
      readUTFString
 
htmlFrameElementSetMarginWidth ::
                               (HTMLFrameElementClass self, GlibString string) =>
                                 self -> string -> IO ()
htmlFrameElementSetMarginWidth self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLFrameElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_set_margin_width argPtr1 arg2)
{-# LINE 85 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
          (toHTMLFrameElement self)
          valPtr
 
htmlFrameElementGetMarginWidth ::
                               (HTMLFrameElementClass self, GlibString string) =>
                                 self -> IO string
htmlFrameElementGetMarginWidth self
  = ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_margin_width argPtr1)
{-# LINE 93 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
       (toHTMLFrameElement self))
      >>=
      readUTFString
 
htmlFrameElementSetName ::
                        (HTMLFrameElementClass self, GlibString string) =>
                          self -> string -> IO ()
htmlFrameElementSetName self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLFrameElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_set_name argPtr1 arg2)
{-# LINE 104 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
          (toHTMLFrameElement self)
          valPtr
 
htmlFrameElementGetName ::
                        (HTMLFrameElementClass self, GlibString string) =>
                          self -> IO string
htmlFrameElementGetName self
  = ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_name argPtr1)
{-# LINE 112 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
       (toHTMLFrameElement self))
      >>=
      readUTFString
 
htmlFrameElementSetNoResize ::
                            (HTMLFrameElementClass self) => self -> Bool -> IO ()
htmlFrameElementSetNoResize self val
  = (\(HTMLFrameElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_set_no_resize argPtr1 arg2)
{-# LINE 120 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
      (toHTMLFrameElement self)
      (fromBool val)
 
htmlFrameElementGetNoResize ::
                            (HTMLFrameElementClass self) => self -> IO Bool
htmlFrameElementGetNoResize self
  = toBool <$>
      ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_no_resize argPtr1)
{-# LINE 128 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
         (toHTMLFrameElement self))
 
htmlFrameElementSetScrolling ::
                             (HTMLFrameElementClass self, GlibString string) =>
                               self -> string -> IO ()
htmlFrameElementSetScrolling self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLFrameElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_set_scrolling argPtr1 arg2)
{-# LINE 137 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
          (toHTMLFrameElement self)
          valPtr
 
htmlFrameElementGetScrolling ::
                             (HTMLFrameElementClass self, GlibString string) =>
                               self -> IO string
htmlFrameElementGetScrolling self
  = ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_scrolling argPtr1)
{-# LINE 145 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
       (toHTMLFrameElement self))
      >>=
      readUTFString
 
htmlFrameElementSetSrc ::
                       (HTMLFrameElementClass self, GlibString string) =>
                         self -> string -> IO ()
htmlFrameElementSetSrc self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLFrameElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_set_src argPtr1 arg2)
{-# LINE 156 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
          (toHTMLFrameElement self)
          valPtr
 
htmlFrameElementGetSrc ::
                       (HTMLFrameElementClass self, GlibString string) =>
                         self -> IO string
htmlFrameElementGetSrc self
  = ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_src argPtr1)
{-# LINE 164 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
       (toHTMLFrameElement self))
      >>=
      readUTFString
 
htmlFrameElementGetContentDocument ::
                                   (HTMLFrameElementClass self) => self -> IO (Maybe Document)
htmlFrameElementGetContentDocument self
  = maybeNull (makeNewGObject mkDocument)
      ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_content_document argPtr1)
{-# LINE 173 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
         (toHTMLFrameElement self))
 
htmlFrameElementGetContentWindow ::
                                 (HTMLFrameElementClass self) => self -> IO (Maybe DOMWindow)
htmlFrameElementGetContentWindow self
  = maybeNull (makeNewGObject mkDOMWindow)
      ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_content_window argPtr1)
{-# LINE 180 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
         (toHTMLFrameElement self))
 
htmlFrameElementGetWidth ::
                         (HTMLFrameElementClass self) => self -> IO Int
htmlFrameElementGetWidth self
  = fromIntegral <$>
      ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_width argPtr1)
{-# LINE 187 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
         (toHTMLFrameElement self))
 
htmlFrameElementGetHeight ::
                          (HTMLFrameElementClass self) => self -> IO Int
htmlFrameElementGetHeight self
  = fromIntegral <$>
      ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_height argPtr1)
{-# LINE 194 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
         (toHTMLFrameElement self))

foreign import ccall safe "webkit_dom_html_frame_element_set_frame_border"
  webkit_dom_html_frame_element_set_frame_border :: ((Ptr HTMLFrameElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_frame_element_get_frame_border"
  webkit_dom_html_frame_element_get_frame_border :: ((Ptr HTMLFrameElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_frame_element_set_long_desc"
  webkit_dom_html_frame_element_set_long_desc :: ((Ptr HTMLFrameElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_frame_element_get_long_desc"
  webkit_dom_html_frame_element_get_long_desc :: ((Ptr HTMLFrameElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_frame_element_set_margin_height"
  webkit_dom_html_frame_element_set_margin_height :: ((Ptr HTMLFrameElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_frame_element_get_margin_height"
  webkit_dom_html_frame_element_get_margin_height :: ((Ptr HTMLFrameElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_frame_element_set_margin_width"
  webkit_dom_html_frame_element_set_margin_width :: ((Ptr HTMLFrameElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_frame_element_get_margin_width"
  webkit_dom_html_frame_element_get_margin_width :: ((Ptr HTMLFrameElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_frame_element_set_name"
  webkit_dom_html_frame_element_set_name :: ((Ptr HTMLFrameElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_frame_element_get_name"
  webkit_dom_html_frame_element_get_name :: ((Ptr HTMLFrameElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_frame_element_set_no_resize"
  webkit_dom_html_frame_element_set_no_resize :: ((Ptr HTMLFrameElement) -> (CInt -> (IO ())))

foreign import ccall safe "webkit_dom_html_frame_element_get_no_resize"
  webkit_dom_html_frame_element_get_no_resize :: ((Ptr HTMLFrameElement) -> (IO CInt))

foreign import ccall safe "webkit_dom_html_frame_element_set_scrolling"
  webkit_dom_html_frame_element_set_scrolling :: ((Ptr HTMLFrameElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_frame_element_get_scrolling"
  webkit_dom_html_frame_element_get_scrolling :: ((Ptr HTMLFrameElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_frame_element_set_src"
  webkit_dom_html_frame_element_set_src :: ((Ptr HTMLFrameElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_frame_element_get_src"
  webkit_dom_html_frame_element_get_src :: ((Ptr HTMLFrameElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_frame_element_get_content_document"
  webkit_dom_html_frame_element_get_content_document :: ((Ptr HTMLFrameElement) -> (IO (Ptr Document)))

foreign import ccall safe "webkit_dom_html_frame_element_get_content_window"
  webkit_dom_html_frame_element_get_content_window :: ((Ptr HTMLFrameElement) -> (IO (Ptr DOMWindow)))

foreign import ccall safe "webkit_dom_html_frame_element_get_width"
  webkit_dom_html_frame_element_get_width :: ((Ptr HTMLFrameElement) -> (IO CLong))

foreign import ccall safe "webkit_dom_html_frame_element_get_height"
  webkit_dom_html_frame_element_get_height :: ((Ptr HTMLFrameElement) -> (IO CLong))