-- 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/HTMLEmbedElement.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.HTMLEmbedElement(
setAlign,
getAlign,
setHeight,
getHeight,
setName,
getName,
setSrc,
getSrc,
setWidth,
getWidth,
HTMLEmbedElement,
castToHTMLEmbedElement,
gTypeHTMLEmbedElement,
HTMLEmbedElementClass,
toHTMLEmbedElement,
) 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 29 "./Graphics/UI/Gtk/WebKit/DOM/HTMLEmbedElement.chs" #-}
import Graphics.UI.Gtk.WebKit.DOM.Enums

 
setAlign ::
         (MonadIO m, HTMLEmbedElementClass self, GlibString string) =>
           self -> string -> m ()
setAlign self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLEmbedElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_set_align argPtr1 arg2)
{-# LINE 40 "./Graphics/UI/Gtk/WebKit/DOM/HTMLEmbedElement.chs" #-}
             (toHTMLEmbedElement self)
             valPtr)
 
getAlign ::
         (MonadIO m, HTMLEmbedElementClass self, GlibString string) =>
           self -> m string
getAlign self
  = liftIO
      (((\(HTMLEmbedElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_get_align argPtr1)
{-# LINE 49 "./Graphics/UI/Gtk/WebKit/DOM/HTMLEmbedElement.chs" #-}
          (toHTMLEmbedElement self))
         >>=
         readUTFString)
 
setHeight ::
          (MonadIO m, HTMLEmbedElementClass self) => self -> Int -> m ()
setHeight self val
  = liftIO
      ((\(HTMLEmbedElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_set_height argPtr1 arg2)
{-# LINE 58 "./Graphics/UI/Gtk/WebKit/DOM/HTMLEmbedElement.chs" #-}
         (toHTMLEmbedElement self)
         (fromIntegral val))
 
getHeight ::
          (MonadIO m, HTMLEmbedElementClass self) => self -> m Int
getHeight self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLEmbedElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_get_height argPtr1)
{-# LINE 67 "./Graphics/UI/Gtk/WebKit/DOM/HTMLEmbedElement.chs" #-}
            (toHTMLEmbedElement self)))
 
setName ::
        (MonadIO m, HTMLEmbedElementClass self, GlibString string) =>
          self -> string -> m ()
setName self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLEmbedElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_set_name argPtr1 arg2)
{-# LINE 77 "./Graphics/UI/Gtk/WebKit/DOM/HTMLEmbedElement.chs" #-}
             (toHTMLEmbedElement self)
             valPtr)
 
getName ::
        (MonadIO m, HTMLEmbedElementClass self, GlibString string) =>
          self -> m string
getName self
  = liftIO
      (((\(HTMLEmbedElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_get_name argPtr1)
{-# LINE 86 "./Graphics/UI/Gtk/WebKit/DOM/HTMLEmbedElement.chs" #-}
          (toHTMLEmbedElement self))
         >>=
         readUTFString)
 
setSrc ::
       (MonadIO m, HTMLEmbedElementClass self, GlibString string) =>
         self -> string -> m ()
setSrc self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLEmbedElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_set_src argPtr1 arg2)
{-# LINE 98 "./Graphics/UI/Gtk/WebKit/DOM/HTMLEmbedElement.chs" #-}
             (toHTMLEmbedElement self)
             valPtr)
 
getSrc ::
       (MonadIO m, HTMLEmbedElementClass self, GlibString string) =>
         self -> m string
getSrc self
  = liftIO
      (((\(HTMLEmbedElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_get_src argPtr1)
{-# LINE 107 "./Graphics/UI/Gtk/WebKit/DOM/HTMLEmbedElement.chs" #-}
          (toHTMLEmbedElement self))
         >>=
         readUTFString)
 
setWidth ::
         (MonadIO m, HTMLEmbedElementClass self) => self -> Int -> m ()
setWidth self val
  = liftIO
      ((\(HTMLEmbedElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_set_width argPtr1 arg2)
{-# LINE 116 "./Graphics/UI/Gtk/WebKit/DOM/HTMLEmbedElement.chs" #-}
         (toHTMLEmbedElement self)
         (fromIntegral val))
 
getWidth ::
         (MonadIO m, HTMLEmbedElementClass self) => self -> m Int
getWidth self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLEmbedElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_get_width argPtr1)
{-# LINE 125 "./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))