-- 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,
        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) => 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 43 "./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 50 "./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 60 "./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 67 "./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 77 "./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 84 "./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 94 "./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 101 "./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 109 "./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 117 "./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 125 "./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 134 "./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 142 "./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 151 "./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 159 "./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 168 "./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 174 "./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 182 "./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 188 "./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 196 "./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 204 "./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 211 "./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)))