-- 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/HTMLEmbedElement.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.HTMLEmbedElement
       (htmlEmbedElementSetAlign, htmlEmbedElementGetAlign,
        htmlEmbedElementSetHeight, htmlEmbedElementGetHeight,
        htmlEmbedElementSetName, htmlEmbedElementGetName,
        htmlEmbedElementSetSrc, htmlEmbedElementGetSrc,
        htmlEmbedElementSetWidth, htmlEmbedElementGetWidth,
        HTMLEmbedElement, HTMLEmbedElementClass, castToHTMLEmbedElement,
        gTypeHTMLEmbedElement, toHTMLEmbedElement)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 13 "./Graphics/UI/Gtk/WebKit/DOM/HTMLEmbedElement.chs" #-}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
htmlEmbedElementSetAlign ::
                         (HTMLEmbedElementClass self, GlibString string) =>
                           self -> string -> IO ()
htmlEmbedElementSetAlign self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLEmbedElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_set_align argPtr1 arg2)
{-# LINE 23 "./Graphics/UI/Gtk/WebKit/DOM/HTMLEmbedElement.chs" #-}
          (toHTMLEmbedElement self)
          valPtr
 
htmlEmbedElementGetAlign ::
                         (HTMLEmbedElementClass self, GlibString string) =>
                           self -> IO string
htmlEmbedElementGetAlign self
  = ((\(HTMLEmbedElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_get_align argPtr1)
{-# LINE 31 "./Graphics/UI/Gtk/WebKit/DOM/HTMLEmbedElement.chs" #-}
       (toHTMLEmbedElement self))
      >>=
      readUTFString
 
htmlEmbedElementSetHeight ::
                          (HTMLEmbedElementClass self) => self -> Int -> IO ()
htmlEmbedElementSetHeight self val
  = (\(HTMLEmbedElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_set_height argPtr1 arg2)
{-# LINE 39 "./Graphics/UI/Gtk/WebKit/DOM/HTMLEmbedElement.chs" #-}
      (toHTMLEmbedElement self)
      (fromIntegral val)
 
htmlEmbedElementGetHeight ::
                          (HTMLEmbedElementClass self) => self -> IO Int
htmlEmbedElementGetHeight self
  = fromIntegral <$>
      ((\(HTMLEmbedElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_get_height argPtr1)
{-# LINE 47 "./Graphics/UI/Gtk/WebKit/DOM/HTMLEmbedElement.chs" #-}
         (toHTMLEmbedElement self))
 
htmlEmbedElementSetName ::
                        (HTMLEmbedElementClass self, GlibString string) =>
                          self -> string -> IO ()
htmlEmbedElementSetName self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLEmbedElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_set_name argPtr1 arg2)
{-# LINE 56 "./Graphics/UI/Gtk/WebKit/DOM/HTMLEmbedElement.chs" #-}
          (toHTMLEmbedElement self)
          valPtr
 
htmlEmbedElementGetName ::
                        (HTMLEmbedElementClass self, GlibString string) =>
                          self -> IO string
htmlEmbedElementGetName self
  = ((\(HTMLEmbedElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_get_name argPtr1)
{-# LINE 64 "./Graphics/UI/Gtk/WebKit/DOM/HTMLEmbedElement.chs" #-}
       (toHTMLEmbedElement self))
      >>=
      readUTFString
 
htmlEmbedElementSetSrc ::
                       (HTMLEmbedElementClass self, GlibString string) =>
                         self -> string -> IO ()
htmlEmbedElementSetSrc self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLEmbedElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_set_src argPtr1 arg2)
{-# LINE 75 "./Graphics/UI/Gtk/WebKit/DOM/HTMLEmbedElement.chs" #-}
          (toHTMLEmbedElement self)
          valPtr
 
htmlEmbedElementGetSrc ::
                       (HTMLEmbedElementClass self, GlibString string) =>
                         self -> IO string
htmlEmbedElementGetSrc self
  = ((\(HTMLEmbedElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_get_src argPtr1)
{-# LINE 83 "./Graphics/UI/Gtk/WebKit/DOM/HTMLEmbedElement.chs" #-}
       (toHTMLEmbedElement self))
      >>=
      readUTFString
 
htmlEmbedElementSetWidth ::
                         (HTMLEmbedElementClass self) => self -> Int -> IO ()
htmlEmbedElementSetWidth self val
  = (\(HTMLEmbedElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_set_width argPtr1 arg2)
{-# LINE 91 "./Graphics/UI/Gtk/WebKit/DOM/HTMLEmbedElement.chs" #-}
      (toHTMLEmbedElement self)
      (fromIntegral val)
 
htmlEmbedElementGetWidth ::
                         (HTMLEmbedElementClass self) => self -> IO Int
htmlEmbedElementGetWidth self
  = fromIntegral <$>
      ((\(HTMLEmbedElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_get_width argPtr1)
{-# LINE 99 "./Graphics/UI/Gtk/WebKit/DOM/HTMLEmbedElement.chs" #-}
         (toHTMLEmbedElement self))

foreign import ccall safe "webkit_dom_html_embed_element_set_align"
  webkit_dom_html_embed_element_set_align :: ((Ptr HTMLEmbedElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_embed_element_get_align"
  webkit_dom_html_embed_element_get_align :: ((Ptr HTMLEmbedElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_embed_element_set_height"
  webkit_dom_html_embed_element_set_height :: ((Ptr HTMLEmbedElement) -> (CLong -> (IO ())))

foreign import ccall safe "webkit_dom_html_embed_element_get_height"
  webkit_dom_html_embed_element_get_height :: ((Ptr HTMLEmbedElement) -> (IO CLong))

foreign import ccall safe "webkit_dom_html_embed_element_set_name"
  webkit_dom_html_embed_element_set_name :: ((Ptr HTMLEmbedElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_embed_element_get_name"
  webkit_dom_html_embed_element_get_name :: ((Ptr HTMLEmbedElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_embed_element_set_src"
  webkit_dom_html_embed_element_set_src :: ((Ptr HTMLEmbedElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_embed_element_get_src"
  webkit_dom_html_embed_element_get_src :: ((Ptr HTMLEmbedElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_embed_element_set_width"
  webkit_dom_html_embed_element_set_width :: ((Ptr HTMLEmbedElement) -> (CLong -> (IO ())))

foreign import ccall safe "webkit_dom_html_embed_element_get_width"
  webkit_dom_html_embed_element_get_width :: ((Ptr HTMLEmbedElement) -> (IO CLong))