-- GENERATED by C->Haskell Compiler, version 0.13.9 (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)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 17 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
htmlFrameElementSetFrameBorder ::
                               (HTMLFrameElementClass self) => 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 26 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
          (toHTMLFrameElement self)
          valPtr
 
htmlFrameElementGetFrameBorder ::
                               (HTMLFrameElementClass self) => self -> IO String
htmlFrameElementGetFrameBorder self
  = ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_frame_border argPtr1)
{-# LINE 33 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
       (toHTMLFrameElement self))
      >>=
      readUTFString
 
htmlFrameElementSetLongDesc ::
                            (HTMLFrameElementClass self) => 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 43 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
          (toHTMLFrameElement self)
          valPtr
 
htmlFrameElementGetLongDesc ::
                            (HTMLFrameElementClass self) => self -> IO String
htmlFrameElementGetLongDesc self
  = ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_long_desc argPtr1)
{-# LINE 50 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
       (toHTMLFrameElement self))
      >>=
      readUTFString
 
htmlFrameElementSetMarginHeight ::
                                (HTMLFrameElementClass self) => 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 60 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
          (toHTMLFrameElement self)
          valPtr
 
htmlFrameElementGetMarginHeight ::
                                (HTMLFrameElementClass self) => self -> IO String
htmlFrameElementGetMarginHeight self
  = ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_margin_height argPtr1)
{-# LINE 67 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
       (toHTMLFrameElement self))
      >>=
      readUTFString
 
htmlFrameElementSetMarginWidth ::
                               (HTMLFrameElementClass self) => 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 77 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
          (toHTMLFrameElement self)
          valPtr
 
htmlFrameElementGetMarginWidth ::
                               (HTMLFrameElementClass self) => self -> IO String
htmlFrameElementGetMarginWidth self
  = ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_margin_width argPtr1)
{-# LINE 84 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
       (toHTMLFrameElement self))
      >>=
      readUTFString
 
htmlFrameElementSetName ::
                        (HTMLFrameElementClass self) => 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 94 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
          (toHTMLFrameElement self)
          valPtr
 
htmlFrameElementGetName ::
                        (HTMLFrameElementClass self) => self -> IO String
htmlFrameElementGetName self
  = ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_name argPtr1)
{-# LINE 101 "./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 109 "./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 117 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
         (toHTMLFrameElement self))
 
htmlFrameElementSetScrolling ::
                             (HTMLFrameElementClass self) => 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 125 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
          (toHTMLFrameElement self)
          valPtr
 
htmlFrameElementGetScrolling ::
                             (HTMLFrameElementClass self) => self -> IO String
htmlFrameElementGetScrolling self
  = ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_scrolling argPtr1)
{-# LINE 132 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
       (toHTMLFrameElement self))
      >>=
      readUTFString
 
htmlFrameElementSetSrc ::
                       (HTMLFrameElementClass self) => 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 142 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
          (toHTMLFrameElement self)
          valPtr
 
htmlFrameElementGetSrc ::
                       (HTMLFrameElementClass self) => self -> IO String
htmlFrameElementGetSrc self
  = ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_src argPtr1)
{-# LINE 149 "./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 158 "./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 165 "./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 172 "./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 179 "./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))