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


{-# LINE 1 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.HTMLAppletElement
       (htmlAppletElementSetAlign, htmlAppletElementGetAlign,
        htmlAppletElementSetAlt, htmlAppletElementGetAlt,
        htmlAppletElementSetArchive, htmlAppletElementGetArchive,
        htmlAppletElementSetCode, htmlAppletElementGetCode,
        htmlAppletElementSetCodeBase, htmlAppletElementGetCodeBase,
        htmlAppletElementSetHeight, htmlAppletElementGetHeight,
        htmlAppletElementSetHspace, htmlAppletElementGetHspace,
        htmlAppletElementSetName, htmlAppletElementGetName,
        htmlAppletElementSetObject, htmlAppletElementGetObject,
        htmlAppletElementSetVspace, htmlAppletElementGetVspace,
        htmlAppletElementSetWidth, htmlAppletElementGetWidth,
        HTMLAppletElement, HTMLAppletElementClass, castToHTMLAppletElement,
        gTypeHTMLAppletElement, toHTMLAppletElement)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 19 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
htmlAppletElementSetAlign ::
                          (HTMLAppletElementClass self, GlibString string) =>
                            self -> string -> IO ()
htmlAppletElementSetAlign self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLAppletElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_applet_element_set_align argPtr1 arg2)
{-# LINE 29 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
          (toHTMLAppletElement self)
          valPtr
 
htmlAppletElementGetAlign ::
                          (HTMLAppletElementClass self, GlibString string) =>
                            self -> IO string
htmlAppletElementGetAlign self
  = ((\(HTMLAppletElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_applet_element_get_align argPtr1)
{-# LINE 37 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
       (toHTMLAppletElement self))
      >>=
      readUTFString
 
htmlAppletElementSetAlt ::
                        (HTMLAppletElementClass self, GlibString string) =>
                          self -> string -> IO ()
htmlAppletElementSetAlt self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLAppletElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_applet_element_set_alt argPtr1 arg2)
{-# LINE 48 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
          (toHTMLAppletElement self)
          valPtr
 
htmlAppletElementGetAlt ::
                        (HTMLAppletElementClass self, GlibString string) =>
                          self -> IO string
htmlAppletElementGetAlt self
  = ((\(HTMLAppletElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_applet_element_get_alt argPtr1)
{-# LINE 56 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
       (toHTMLAppletElement self))
      >>=
      readUTFString
 
htmlAppletElementSetArchive ::
                            (HTMLAppletElementClass self, GlibString string) =>
                              self -> string -> IO ()
htmlAppletElementSetArchive self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLAppletElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_applet_element_set_archive argPtr1 arg2)
{-# LINE 67 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
          (toHTMLAppletElement self)
          valPtr
 
htmlAppletElementGetArchive ::
                            (HTMLAppletElementClass self, GlibString string) =>
                              self -> IO string
htmlAppletElementGetArchive self
  = ((\(HTMLAppletElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_applet_element_get_archive argPtr1)
{-# LINE 75 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
       (toHTMLAppletElement self))
      >>=
      readUTFString
 
htmlAppletElementSetCode ::
                         (HTMLAppletElementClass self, GlibString string) =>
                           self -> string -> IO ()
htmlAppletElementSetCode self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLAppletElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_applet_element_set_code argPtr1 arg2)
{-# LINE 86 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
          (toHTMLAppletElement self)
          valPtr
 
htmlAppletElementGetCode ::
                         (HTMLAppletElementClass self, GlibString string) =>
                           self -> IO string
htmlAppletElementGetCode self
  = ((\(HTMLAppletElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_applet_element_get_code argPtr1)
{-# LINE 94 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
       (toHTMLAppletElement self))
      >>=
      readUTFString
 
htmlAppletElementSetCodeBase ::
                             (HTMLAppletElementClass self, GlibString string) =>
                               self -> string -> IO ()
htmlAppletElementSetCodeBase self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLAppletElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_applet_element_set_code_base argPtr1 arg2)
{-# LINE 105 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
          (toHTMLAppletElement self)
          valPtr
 
htmlAppletElementGetCodeBase ::
                             (HTMLAppletElementClass self, GlibString string) =>
                               self -> IO string
htmlAppletElementGetCodeBase self
  = ((\(HTMLAppletElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_applet_element_get_code_base argPtr1)
{-# LINE 113 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
       (toHTMLAppletElement self))
      >>=
      readUTFString
 
htmlAppletElementSetHeight ::
                           (HTMLAppletElementClass self, GlibString string) =>
                             self -> string -> IO ()
htmlAppletElementSetHeight self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLAppletElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_applet_element_set_height argPtr1 arg2)
{-# LINE 124 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
          (toHTMLAppletElement self)
          valPtr
 
htmlAppletElementGetHeight ::
                           (HTMLAppletElementClass self, GlibString string) =>
                             self -> IO string
htmlAppletElementGetHeight self
  = ((\(HTMLAppletElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_applet_element_get_height argPtr1)
{-# LINE 132 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
       (toHTMLAppletElement self))
      >>=
      readUTFString
 
htmlAppletElementSetHspace ::
                           (HTMLAppletElementClass self) => self -> Int -> IO ()
htmlAppletElementSetHspace self val
  = (\(HTMLAppletElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_applet_element_set_hspace argPtr1 arg2)
{-# LINE 140 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
      (toHTMLAppletElement self)
      (fromIntegral val)
 
htmlAppletElementGetHspace ::
                           (HTMLAppletElementClass self) => self -> IO Int
htmlAppletElementGetHspace self
  = fromIntegral <$>
      ((\(HTMLAppletElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_applet_element_get_hspace argPtr1)
{-# LINE 148 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
         (toHTMLAppletElement self))
 
htmlAppletElementSetName ::
                         (HTMLAppletElementClass self, GlibString string) =>
                           self -> string -> IO ()
htmlAppletElementSetName self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLAppletElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_applet_element_set_name argPtr1 arg2)
{-# LINE 157 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
          (toHTMLAppletElement self)
          valPtr
 
htmlAppletElementGetName ::
                         (HTMLAppletElementClass self, GlibString string) =>
                           self -> IO string
htmlAppletElementGetName self
  = ((\(HTMLAppletElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_applet_element_get_name argPtr1)
{-# LINE 165 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
       (toHTMLAppletElement self))
      >>=
      readUTFString
 
htmlAppletElementSetObject ::
                           (HTMLAppletElementClass self, GlibString string) =>
                             self -> string -> IO ()
htmlAppletElementSetObject self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLAppletElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_applet_element_set_object argPtr1 arg2)
{-# LINE 176 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
          (toHTMLAppletElement self)
          valPtr
 
htmlAppletElementGetObject ::
                           (HTMLAppletElementClass self, GlibString string) =>
                             self -> IO string
htmlAppletElementGetObject self
  = ((\(HTMLAppletElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_applet_element_get_object argPtr1)
{-# LINE 184 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
       (toHTMLAppletElement self))
      >>=
      readUTFString
 
htmlAppletElementSetVspace ::
                           (HTMLAppletElementClass self) => self -> Int -> IO ()
htmlAppletElementSetVspace self val
  = (\(HTMLAppletElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_applet_element_set_vspace argPtr1 arg2)
{-# LINE 192 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
      (toHTMLAppletElement self)
      (fromIntegral val)
 
htmlAppletElementGetVspace ::
                           (HTMLAppletElementClass self) => self -> IO Int
htmlAppletElementGetVspace self
  = fromIntegral <$>
      ((\(HTMLAppletElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_applet_element_get_vspace argPtr1)
{-# LINE 200 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
         (toHTMLAppletElement self))
 
htmlAppletElementSetWidth ::
                          (HTMLAppletElementClass self, GlibString string) =>
                            self -> string -> IO ()
htmlAppletElementSetWidth self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLAppletElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_applet_element_set_width argPtr1 arg2)
{-# LINE 209 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
          (toHTMLAppletElement self)
          valPtr
 
htmlAppletElementGetWidth ::
                          (HTMLAppletElementClass self, GlibString string) =>
                            self -> IO string
htmlAppletElementGetWidth self
  = ((\(HTMLAppletElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_applet_element_get_width argPtr1)
{-# LINE 217 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAppletElement.chs" #-}
       (toHTMLAppletElement self))
      >>=
      readUTFString

foreign import ccall safe "webkit_dom_html_applet_element_set_align"
  webkit_dom_html_applet_element_set_align :: ((Ptr HTMLAppletElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_applet_element_get_align"
  webkit_dom_html_applet_element_get_align :: ((Ptr HTMLAppletElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_applet_element_set_alt"
  webkit_dom_html_applet_element_set_alt :: ((Ptr HTMLAppletElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_applet_element_get_alt"
  webkit_dom_html_applet_element_get_alt :: ((Ptr HTMLAppletElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_applet_element_set_archive"
  webkit_dom_html_applet_element_set_archive :: ((Ptr HTMLAppletElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_applet_element_get_archive"
  webkit_dom_html_applet_element_get_archive :: ((Ptr HTMLAppletElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_applet_element_set_code"
  webkit_dom_html_applet_element_set_code :: ((Ptr HTMLAppletElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_applet_element_get_code"
  webkit_dom_html_applet_element_get_code :: ((Ptr HTMLAppletElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_applet_element_set_code_base"
  webkit_dom_html_applet_element_set_code_base :: ((Ptr HTMLAppletElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_applet_element_get_code_base"
  webkit_dom_html_applet_element_get_code_base :: ((Ptr HTMLAppletElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_applet_element_set_height"
  webkit_dom_html_applet_element_set_height :: ((Ptr HTMLAppletElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_applet_element_get_height"
  webkit_dom_html_applet_element_get_height :: ((Ptr HTMLAppletElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_applet_element_set_hspace"
  webkit_dom_html_applet_element_set_hspace :: ((Ptr HTMLAppletElement) -> (CLong -> (IO ())))

foreign import ccall safe "webkit_dom_html_applet_element_get_hspace"
  webkit_dom_html_applet_element_get_hspace :: ((Ptr HTMLAppletElement) -> (IO CLong))

foreign import ccall safe "webkit_dom_html_applet_element_set_name"
  webkit_dom_html_applet_element_set_name :: ((Ptr HTMLAppletElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_applet_element_get_name"
  webkit_dom_html_applet_element_get_name :: ((Ptr HTMLAppletElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_applet_element_set_object"
  webkit_dom_html_applet_element_set_object :: ((Ptr HTMLAppletElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_applet_element_get_object"
  webkit_dom_html_applet_element_get_object :: ((Ptr HTMLAppletElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_applet_element_set_vspace"
  webkit_dom_html_applet_element_set_vspace :: ((Ptr HTMLAppletElement) -> (CLong -> (IO ())))

foreign import ccall safe "webkit_dom_html_applet_element_get_vspace"
  webkit_dom_html_applet_element_get_vspace :: ((Ptr HTMLAppletElement) -> (IO CLong))

foreign import ccall safe "webkit_dom_html_applet_element_set_width"
  webkit_dom_html_applet_element_set_width :: ((Ptr HTMLAppletElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_applet_element_get_width"
  webkit_dom_html_applet_element_get_width :: ((Ptr HTMLAppletElement) -> (IO (Ptr CChar)))