-- GENERATED by C->Haskell Compiler, version 0.13.13 (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(
setFrameBorder,
getFrameBorder,
setLongDesc,
getLongDesc,
setMarginHeight,
getMarginHeight,
setMarginWidth,
getMarginWidth,
setName,
getName,
setNoResize,
getNoResize,
setScrolling,
getScrolling,
setSrc,
getSrc,
getContentDocument,
getContentWindow,
getWidth,
getHeight,
HTMLFrameElement,
castToHTMLFrameElement,
gTypeHTMLFrameElement,
HTMLFrameElementClass,
toHTMLFrameElement,
) where
import Prelude hiding (drop, error, print)
import Data.Typeable (Typeable)
import Foreign.Marshal (maybePeek, maybeWith)
import System.Glib.FFI (maybeNull, withForeignPtr, nullForeignPtr, Ptr, nullPtr, castPtr, Word, Int64, Word64, CChar(..), CInt(..), CUInt(..), CLong(..), CULong(..), CLLong(..), CULLong(..), CShort(..), CUShort(..), CFloat(..), CDouble(..), toBool, fromBool)
import System.Glib.UTFString (GlibString(..), readUTFString)
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventTargetClosures
import Graphics.UI.Gtk.WebKit.DOM.EventM
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 39 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
import Graphics.UI.Gtk.WebKit.DOM.Enums

 
setFrameBorder ::
               (MonadIO m, HTMLFrameElementClass self, GlibString string) =>
                 self -> string -> m ()
setFrameBorder self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLFrameElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_set_frame_border argPtr1 arg2)
{-# LINE 50 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
             (toHTMLFrameElement self)
             valPtr)
 
getFrameBorder ::
               (MonadIO m, HTMLFrameElementClass self, GlibString string) =>
                 self -> m string
getFrameBorder self
  = liftIO
      (((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_frame_border argPtr1)
{-# LINE 59 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
          (toHTMLFrameElement self))
         >>=
         readUTFString)
 
setLongDesc ::
            (MonadIO m, HTMLFrameElementClass self, GlibString string) =>
              self -> string -> m ()
setLongDesc self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLFrameElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_set_long_desc argPtr1 arg2)
{-# LINE 71 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
             (toHTMLFrameElement self)
             valPtr)
 
getLongDesc ::
            (MonadIO m, HTMLFrameElementClass self, GlibString string) =>
              self -> m string
getLongDesc self
  = liftIO
      (((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_long_desc argPtr1)
{-# LINE 80 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
          (toHTMLFrameElement self))
         >>=
         readUTFString)
 
setMarginHeight ::
                (MonadIO m, HTMLFrameElementClass self, GlibString string) =>
                  self -> string -> m ()
setMarginHeight self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLFrameElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_set_margin_height argPtr1 arg2)
{-# LINE 92 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
             (toHTMLFrameElement self)
             valPtr)
 
getMarginHeight ::
                (MonadIO m, HTMLFrameElementClass self, GlibString string) =>
                  self -> m string
getMarginHeight self
  = liftIO
      (((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_margin_height argPtr1)
{-# LINE 101 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
          (toHTMLFrameElement self))
         >>=
         readUTFString)
 
setMarginWidth ::
               (MonadIO m, HTMLFrameElementClass self, GlibString string) =>
                 self -> string -> m ()
setMarginWidth self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLFrameElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_set_margin_width argPtr1 arg2)
{-# LINE 113 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
             (toHTMLFrameElement self)
             valPtr)
 
getMarginWidth ::
               (MonadIO m, HTMLFrameElementClass self, GlibString string) =>
                 self -> m string
getMarginWidth self
  = liftIO
      (((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_margin_width argPtr1)
{-# LINE 122 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
          (toHTMLFrameElement self))
         >>=
         readUTFString)
 
setName ::
        (MonadIO m, HTMLFrameElementClass self, GlibString string) =>
          self -> string -> m ()
setName self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLFrameElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_set_name argPtr1 arg2)
{-# LINE 134 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
             (toHTMLFrameElement self)
             valPtr)
 
getName ::
        (MonadIO m, HTMLFrameElementClass self, GlibString string) =>
          self -> m string
getName self
  = liftIO
      (((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_name argPtr1)
{-# LINE 143 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
          (toHTMLFrameElement self))
         >>=
         readUTFString)
 
setNoResize ::
            (MonadIO m, HTMLFrameElementClass self) => self -> Bool -> m ()
setNoResize self val
  = liftIO
      ((\(HTMLFrameElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_set_no_resize argPtr1 arg2)
{-# LINE 152 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
         (toHTMLFrameElement self)
         (fromBool val))
 
getNoResize ::
            (MonadIO m, HTMLFrameElementClass self) => self -> m Bool
getNoResize self
  = liftIO
      (toBool <$>
         ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_no_resize argPtr1)
{-# LINE 161 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
            (toHTMLFrameElement self)))
 
setScrolling ::
             (MonadIO m, HTMLFrameElementClass self, GlibString string) =>
               self -> string -> m ()
setScrolling self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLFrameElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_set_scrolling argPtr1 arg2)
{-# LINE 171 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
             (toHTMLFrameElement self)
             valPtr)
 
getScrolling ::
             (MonadIO m, HTMLFrameElementClass self, GlibString string) =>
               self -> m string
getScrolling self
  = liftIO
      (((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_scrolling argPtr1)
{-# LINE 180 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
          (toHTMLFrameElement self))
         >>=
         readUTFString)
 
setSrc ::
       (MonadIO m, HTMLFrameElementClass self, GlibString string) =>
         self -> string -> m ()
setSrc self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLFrameElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_set_src argPtr1 arg2)
{-# LINE 192 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
             (toHTMLFrameElement self)
             valPtr)
 
getSrc ::
       (MonadIO m, HTMLFrameElementClass self, GlibString string) =>
         self -> m string
getSrc self
  = liftIO
      (((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_src argPtr1)
{-# LINE 201 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
          (toHTMLFrameElement self))
         >>=
         readUTFString)
 
getContentDocument ::
                   (MonadIO m, HTMLFrameElementClass self) =>
                     self -> m (Maybe Document)
getContentDocument self
  = liftIO
      (maybeNull (makeNewGObject mkDocument)
         ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_content_document argPtr1)
{-# LINE 212 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
            (toHTMLFrameElement self)))
 
getContentWindow ::
                 (MonadIO m, HTMLFrameElementClass self) => self -> m (Maybe Window)
getContentWindow self
  = liftIO
      (maybeNull (makeNewGObject mkWindow)
         ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_content_window argPtr1)
{-# LINE 220 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
            (toHTMLFrameElement self)))
 
getWidth ::
         (MonadIO m, HTMLFrameElementClass self) => self -> m Int
getWidth self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_width argPtr1)
{-# LINE 228 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFrameElement.chs" #-}
            (toHTMLFrameElement self)))
 
getHeight ::
          (MonadIO m, HTMLFrameElementClass self) => self -> m Int
getHeight self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLFrameElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_frame_element_get_height argPtr1)
{-# LINE 236 "./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 Window)))

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))