-- GENERATED by C->Haskell Compiler, version 0.13.9 (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)
       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/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 26 "./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 32 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
      (toHTMLMarqueeElement self)
 
htmlMarqueeElementSetBehavior ::
                              (HTMLMarqueeElementClass self) => 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 40 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
          (toHTMLMarqueeElement self)
          valPtr
 
htmlMarqueeElementGetBehavior ::
                              (HTMLMarqueeElementClass self) => self -> IO String
htmlMarqueeElementGetBehavior self
  = ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_behavior argPtr1)
{-# LINE 47 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
       (toHTMLMarqueeElement self))
      >>=
      readUTFString
 
htmlMarqueeElementSetBgColor ::
                             (HTMLMarqueeElementClass self) => 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 57 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
          (toHTMLMarqueeElement self)
          valPtr
 
htmlMarqueeElementGetBgColor ::
                             (HTMLMarqueeElementClass self) => self -> IO String
htmlMarqueeElementGetBgColor self
  = ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_bg_color argPtr1)
{-# LINE 64 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
       (toHTMLMarqueeElement self))
      >>=
      readUTFString
 
htmlMarqueeElementSetDirection ::
                               (HTMLMarqueeElementClass self) => 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 74 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
          (toHTMLMarqueeElement self)
          valPtr
 
htmlMarqueeElementGetDirection ::
                               (HTMLMarqueeElementClass self) => self -> IO String
htmlMarqueeElementGetDirection self
  = ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_direction argPtr1)
{-# LINE 81 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
       (toHTMLMarqueeElement self))
      >>=
      readUTFString
 
htmlMarqueeElementSetHeight ::
                            (HTMLMarqueeElementClass self) => 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 91 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
          (toHTMLMarqueeElement self)
          valPtr
 
htmlMarqueeElementGetHeight ::
                            (HTMLMarqueeElementClass self) => self -> IO String
htmlMarqueeElementGetHeight self
  = ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_height argPtr1)
{-# LINE 98 "./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 106 "./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 114 "./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 122 "./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 131 "./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 139 "./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 148 "./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 156 "./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 165 "./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 171 "./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 179 "./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 185 "./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 193 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
         (toHTMLMarqueeElement self))
 
htmlMarqueeElementSetWidth ::
                           (HTMLMarqueeElementClass self) => 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 201 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
          (toHTMLMarqueeElement self)
          valPtr
 
htmlMarqueeElementGetWidth ::
                           (HTMLMarqueeElementClass self) => self -> IO String
htmlMarqueeElementGetWidth self
  = ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_width argPtr1)
{-# LINE 208 "./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)))