-- 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/HTMLMarqueeElement.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.HTMLMarqueeElement
       (htmlMarqueeElementStart, htmlMarqueeElementStop,
        htmlMarqueeElementSetBehavior, htmlMarqueeElementGetBehavior,
        htmlMarqueeElementSetBgColor, htmlMarqueeElementGetBgColor,
        htmlMarqueeElementSetDirection, htmlMarqueeElementGetDirection,
        htmlMarqueeElementSetHeight, htmlMarqueeElementGetHeight,
        htmlMarqueeElementSetHspace, htmlMarqueeElementGetHspace,
        htmlMarqueeElementSetLoop, htmlMarqueeElementGetLoop,
        htmlMarqueeElementSetScrollAmount,
        htmlMarqueeElementGetScrollAmount,
        htmlMarqueeElementSetScrollDelay, htmlMarqueeElementGetScrollDelay,
        htmlMarqueeElementSetTrueSpeed, htmlMarqueeElementGetTrueSpeed,
        htmlMarqueeElementSetVspace, htmlMarqueeElementGetVspace,
        htmlMarqueeElementSetWidth, htmlMarqueeElementGetWidth,
        HTMLMarqueeElement, HTMLMarqueeElementClass,
        castToHTMLMarqueeElement, gTypeHTMLMarqueeElement,
        toHTMLMarqueeElement)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 22 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
htmlMarqueeElementStart ::
                        (HTMLMarqueeElementClass self) => self -> IO ()
htmlMarqueeElementStart self
  = (\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_start argPtr1)
{-# LINE 29 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
      (toHTMLMarqueeElement self)
 
htmlMarqueeElementStop ::
                       (HTMLMarqueeElementClass self) => self -> IO ()
htmlMarqueeElementStop self
  = (\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_stop argPtr1)
{-# LINE 35 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
      (toHTMLMarqueeElement self)
 
htmlMarqueeElementSetBehavior ::
                              (HTMLMarqueeElementClass self, GlibString string) =>
                                self -> string -> IO ()
htmlMarqueeElementSetBehavior self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLMarqueeElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_set_behavior argPtr1 arg2)
{-# LINE 44 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
          (toHTMLMarqueeElement self)
          valPtr
 
htmlMarqueeElementGetBehavior ::
                              (HTMLMarqueeElementClass self, GlibString string) =>
                                self -> IO string
htmlMarqueeElementGetBehavior self
  = ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_behavior argPtr1)
{-# LINE 52 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
       (toHTMLMarqueeElement self))
      >>=
      readUTFString
 
htmlMarqueeElementSetBgColor ::
                             (HTMLMarqueeElementClass self, GlibString string) =>
                               self -> string -> IO ()
htmlMarqueeElementSetBgColor self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLMarqueeElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_set_bg_color argPtr1 arg2)
{-# LINE 63 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
          (toHTMLMarqueeElement self)
          valPtr
 
htmlMarqueeElementGetBgColor ::
                             (HTMLMarqueeElementClass self, GlibString string) =>
                               self -> IO string
htmlMarqueeElementGetBgColor self
  = ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_bg_color argPtr1)
{-# LINE 71 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
       (toHTMLMarqueeElement self))
      >>=
      readUTFString
 
htmlMarqueeElementSetDirection ::
                               (HTMLMarqueeElementClass self, GlibString string) =>
                                 self -> string -> IO ()
htmlMarqueeElementSetDirection self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLMarqueeElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_set_direction argPtr1 arg2)
{-# LINE 82 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
          (toHTMLMarqueeElement self)
          valPtr
 
htmlMarqueeElementGetDirection ::
                               (HTMLMarqueeElementClass self, GlibString string) =>
                                 self -> IO string
htmlMarqueeElementGetDirection self
  = ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_direction argPtr1)
{-# LINE 90 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
       (toHTMLMarqueeElement self))
      >>=
      readUTFString
 
htmlMarqueeElementSetHeight ::
                            (HTMLMarqueeElementClass self, GlibString string) =>
                              self -> string -> IO ()
htmlMarqueeElementSetHeight self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLMarqueeElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_set_height argPtr1 arg2)
{-# LINE 101 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
          (toHTMLMarqueeElement self)
          valPtr
 
htmlMarqueeElementGetHeight ::
                            (HTMLMarqueeElementClass self, GlibString string) =>
                              self -> IO string
htmlMarqueeElementGetHeight self
  = ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_height argPtr1)
{-# LINE 109 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
       (toHTMLMarqueeElement self))
      >>=
      readUTFString
 
htmlMarqueeElementSetHspace ::
                            (HTMLMarqueeElementClass self) => self -> Word -> IO ()
htmlMarqueeElementSetHspace self val
  = (\(HTMLMarqueeElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_set_hspace argPtr1 arg2)
{-# LINE 117 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
      (toHTMLMarqueeElement self)
      (fromIntegral val)
 
htmlMarqueeElementGetHspace ::
                            (HTMLMarqueeElementClass self) => self -> IO Word
htmlMarqueeElementGetHspace self
  = fromIntegral <$>
      ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_hspace argPtr1)
{-# LINE 125 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
         (toHTMLMarqueeElement self))
 
htmlMarqueeElementSetLoop ::
                          (HTMLMarqueeElementClass self) => self -> Int -> IO ()
htmlMarqueeElementSetLoop self val
  = propagateGError $
      \ errorPtr_ ->
        (\(HTMLMarqueeElement arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_set_loop argPtr1 arg2 arg3)
{-# LINE 133 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
          (toHTMLMarqueeElement self)
          (fromIntegral val)
          errorPtr_
 
htmlMarqueeElementGetLoop ::
                          (HTMLMarqueeElementClass self) => self -> IO Int
htmlMarqueeElementGetLoop self
  = fromIntegral <$>
      ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_loop argPtr1)
{-# LINE 142 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
         (toHTMLMarqueeElement self))
 
htmlMarqueeElementSetScrollAmount ::
                                  (HTMLMarqueeElementClass self) => self -> Int -> IO ()
htmlMarqueeElementSetScrollAmount self val
  = propagateGError $
      \ errorPtr_ ->
        (\(HTMLMarqueeElement arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_set_scroll_amount argPtr1 arg2 arg3)
{-# LINE 150 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
          (toHTMLMarqueeElement self)
          (fromIntegral val)
          errorPtr_
 
htmlMarqueeElementGetScrollAmount ::
                                  (HTMLMarqueeElementClass self) => self -> IO Int
htmlMarqueeElementGetScrollAmount self
  = fromIntegral <$>
      ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_scroll_amount argPtr1)
{-# LINE 159 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
         (toHTMLMarqueeElement self))
 
htmlMarqueeElementSetScrollDelay ::
                                 (HTMLMarqueeElementClass self) => self -> Int -> IO ()
htmlMarqueeElementSetScrollDelay self val
  = propagateGError $
      \ errorPtr_ ->
        (\(HTMLMarqueeElement arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_set_scroll_delay argPtr1 arg2 arg3)
{-# LINE 167 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
          (toHTMLMarqueeElement self)
          (fromIntegral val)
          errorPtr_
 
htmlMarqueeElementGetScrollDelay ::
                                 (HTMLMarqueeElementClass self) => self -> IO Int
htmlMarqueeElementGetScrollDelay self
  = fromIntegral <$>
      ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_scroll_delay argPtr1)
{-# LINE 176 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
         (toHTMLMarqueeElement self))
 
htmlMarqueeElementSetTrueSpeed ::
                               (HTMLMarqueeElementClass self) => self -> Bool -> IO ()
htmlMarqueeElementSetTrueSpeed self val
  = (\(HTMLMarqueeElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_set_true_speed argPtr1 arg2)
{-# LINE 182 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
      (toHTMLMarqueeElement self)
      (fromBool val)
 
htmlMarqueeElementGetTrueSpeed ::
                               (HTMLMarqueeElementClass self) => self -> IO Bool
htmlMarqueeElementGetTrueSpeed self
  = toBool <$>
      ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_true_speed argPtr1)
{-# LINE 190 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
         (toHTMLMarqueeElement self))
 
htmlMarqueeElementSetVspace ::
                            (HTMLMarqueeElementClass self) => self -> Word -> IO ()
htmlMarqueeElementSetVspace self val
  = (\(HTMLMarqueeElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_set_vspace argPtr1 arg2)
{-# LINE 196 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
      (toHTMLMarqueeElement self)
      (fromIntegral val)
 
htmlMarqueeElementGetVspace ::
                            (HTMLMarqueeElementClass self) => self -> IO Word
htmlMarqueeElementGetVspace self
  = fromIntegral <$>
      ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_vspace argPtr1)
{-# LINE 204 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
         (toHTMLMarqueeElement self))
 
htmlMarqueeElementSetWidth ::
                           (HTMLMarqueeElementClass self, GlibString string) =>
                             self -> string -> IO ()
htmlMarqueeElementSetWidth self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLMarqueeElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_set_width argPtr1 arg2)
{-# LINE 213 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
          (toHTMLMarqueeElement self)
          valPtr
 
htmlMarqueeElementGetWidth ::
                           (HTMLMarqueeElementClass self, GlibString string) =>
                             self -> IO string
htmlMarqueeElementGetWidth self
  = ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_width argPtr1)
{-# LINE 221 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
       (toHTMLMarqueeElement self))
      >>=
      readUTFString

foreign import ccall safe "webkit_dom_html_marquee_element_start"
  webkit_dom_html_marquee_element_start :: ((Ptr HTMLMarqueeElement) -> (IO ()))

foreign import ccall safe "webkit_dom_html_marquee_element_stop"
  webkit_dom_html_marquee_element_stop :: ((Ptr HTMLMarqueeElement) -> (IO ()))

foreign import ccall safe "webkit_dom_html_marquee_element_set_behavior"
  webkit_dom_html_marquee_element_set_behavior :: ((Ptr HTMLMarqueeElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_marquee_element_get_behavior"
  webkit_dom_html_marquee_element_get_behavior :: ((Ptr HTMLMarqueeElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_marquee_element_set_bg_color"
  webkit_dom_html_marquee_element_set_bg_color :: ((Ptr HTMLMarqueeElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_marquee_element_get_bg_color"
  webkit_dom_html_marquee_element_get_bg_color :: ((Ptr HTMLMarqueeElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_marquee_element_set_direction"
  webkit_dom_html_marquee_element_set_direction :: ((Ptr HTMLMarqueeElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_marquee_element_get_direction"
  webkit_dom_html_marquee_element_get_direction :: ((Ptr HTMLMarqueeElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_marquee_element_set_height"
  webkit_dom_html_marquee_element_set_height :: ((Ptr HTMLMarqueeElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_marquee_element_get_height"
  webkit_dom_html_marquee_element_get_height :: ((Ptr HTMLMarqueeElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_marquee_element_set_hspace"
  webkit_dom_html_marquee_element_set_hspace :: ((Ptr HTMLMarqueeElement) -> (CULong -> (IO ())))

foreign import ccall safe "webkit_dom_html_marquee_element_get_hspace"
  webkit_dom_html_marquee_element_get_hspace :: ((Ptr HTMLMarqueeElement) -> (IO CULong))

foreign import ccall safe "webkit_dom_html_marquee_element_set_loop"
  webkit_dom_html_marquee_element_set_loop :: ((Ptr HTMLMarqueeElement) -> (CLong -> ((Ptr (Ptr ())) -> (IO ()))))

foreign import ccall safe "webkit_dom_html_marquee_element_get_loop"
  webkit_dom_html_marquee_element_get_loop :: ((Ptr HTMLMarqueeElement) -> (IO CLong))

foreign import ccall safe "webkit_dom_html_marquee_element_set_scroll_amount"
  webkit_dom_html_marquee_element_set_scroll_amount :: ((Ptr HTMLMarqueeElement) -> (CLong -> ((Ptr (Ptr ())) -> (IO ()))))

foreign import ccall safe "webkit_dom_html_marquee_element_get_scroll_amount"
  webkit_dom_html_marquee_element_get_scroll_amount :: ((Ptr HTMLMarqueeElement) -> (IO CLong))

foreign import ccall safe "webkit_dom_html_marquee_element_set_scroll_delay"
  webkit_dom_html_marquee_element_set_scroll_delay :: ((Ptr HTMLMarqueeElement) -> (CLong -> ((Ptr (Ptr ())) -> (IO ()))))

foreign import ccall safe "webkit_dom_html_marquee_element_get_scroll_delay"
  webkit_dom_html_marquee_element_get_scroll_delay :: ((Ptr HTMLMarqueeElement) -> (IO CLong))

foreign import ccall safe "webkit_dom_html_marquee_element_set_true_speed"
  webkit_dom_html_marquee_element_set_true_speed :: ((Ptr HTMLMarqueeElement) -> (CInt -> (IO ())))

foreign import ccall safe "webkit_dom_html_marquee_element_get_true_speed"
  webkit_dom_html_marquee_element_get_true_speed :: ((Ptr HTMLMarqueeElement) -> (IO CInt))

foreign import ccall safe "webkit_dom_html_marquee_element_set_vspace"
  webkit_dom_html_marquee_element_set_vspace :: ((Ptr HTMLMarqueeElement) -> (CULong -> (IO ())))

foreign import ccall safe "webkit_dom_html_marquee_element_get_vspace"
  webkit_dom_html_marquee_element_get_vspace :: ((Ptr HTMLMarqueeElement) -> (IO CULong))

foreign import ccall safe "webkit_dom_html_marquee_element_set_width"
  webkit_dom_html_marquee_element_set_width :: ((Ptr HTMLMarqueeElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_marquee_element_get_width"
  webkit_dom_html_marquee_element_get_width :: ((Ptr HTMLMarqueeElement) -> (IO (Ptr CChar)))