-- 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/HTMLMarqueeElement.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.HTMLMarqueeElement(
start,
stop,
setBehavior,
getBehavior,
setBgColor,
getBgColor,
setDirection,
getDirection,
setHeight,
getHeight,
setHspace,
getHspace,
setLoop,
getLoop,
setScrollAmount,
getScrollAmount,
setScrollDelay,
getScrollDelay,
setTrueSpeed,
getTrueSpeed,
setVspace,
getVspace,
setWidth,
getWidth,
HTMLMarqueeElement,
castToHTMLMarqueeElement,
gTypeHTMLMarqueeElement,
HTMLMarqueeElementClass,
toHTMLMarqueeElement,
) 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 43 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
import Graphics.UI.Gtk.WebKit.DOM.Enums

 
start :: (MonadIO m, HTMLMarqueeElementClass self) => self -> m ()
start self
  = liftIO
      ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_start argPtr1)
{-# LINE 50 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
         (toHTMLMarqueeElement self))
 
stop :: (MonadIO m, HTMLMarqueeElementClass self) => self -> m ()
stop self
  = liftIO
      ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_stop argPtr1)
{-# LINE 56 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
         (toHTMLMarqueeElement self))
 
setBehavior ::
            (MonadIO m, HTMLMarqueeElementClass self, GlibString string) =>
              self -> string -> m ()
setBehavior self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLMarqueeElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_set_behavior argPtr1 arg2)
{-# LINE 66 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
             (toHTMLMarqueeElement self)
             valPtr)
 
getBehavior ::
            (MonadIO m, HTMLMarqueeElementClass self, GlibString string) =>
              self -> m string
getBehavior self
  = liftIO
      (((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_behavior argPtr1)
{-# LINE 75 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
          (toHTMLMarqueeElement self))
         >>=
         readUTFString)
 
setBgColor ::
           (MonadIO m, HTMLMarqueeElementClass self, GlibString string) =>
             self -> string -> m ()
setBgColor self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLMarqueeElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_set_bg_color argPtr1 arg2)
{-# LINE 87 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
             (toHTMLMarqueeElement self)
             valPtr)
 
getBgColor ::
           (MonadIO m, HTMLMarqueeElementClass self, GlibString string) =>
             self -> m string
getBgColor self
  = liftIO
      (((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_bg_color argPtr1)
{-# LINE 96 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
          (toHTMLMarqueeElement self))
         >>=
         readUTFString)
 
setDirection ::
             (MonadIO m, HTMLMarqueeElementClass self, GlibString string) =>
               self -> string -> m ()
setDirection self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLMarqueeElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_set_direction argPtr1 arg2)
{-# LINE 108 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
             (toHTMLMarqueeElement self)
             valPtr)
 
getDirection ::
             (MonadIO m, HTMLMarqueeElementClass self, GlibString string) =>
               self -> m string
getDirection self
  = liftIO
      (((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_direction argPtr1)
{-# LINE 117 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
          (toHTMLMarqueeElement self))
         >>=
         readUTFString)
 
setHeight ::
          (MonadIO m, HTMLMarqueeElementClass self, GlibString string) =>
            self -> string -> m ()
setHeight self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLMarqueeElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_set_height argPtr1 arg2)
{-# LINE 129 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
             (toHTMLMarqueeElement self)
             valPtr)
 
getHeight ::
          (MonadIO m, HTMLMarqueeElementClass self, GlibString string) =>
            self -> m string
getHeight self
  = liftIO
      (((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_height argPtr1)
{-# LINE 138 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
          (toHTMLMarqueeElement self))
         >>=
         readUTFString)
 
setHspace ::
          (MonadIO m, HTMLMarqueeElementClass self) => self -> Word -> m ()
setHspace self val
  = liftIO
      ((\(HTMLMarqueeElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_set_hspace argPtr1 arg2)
{-# LINE 147 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
         (toHTMLMarqueeElement self)
         (fromIntegral val))
 
getHspace ::
          (MonadIO m, HTMLMarqueeElementClass self) => self -> m Word
getHspace self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_hspace argPtr1)
{-# LINE 156 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
            (toHTMLMarqueeElement self)))
 
setLoop ::
        (MonadIO m, HTMLMarqueeElementClass self) => self -> Int -> m ()
setLoop self val
  = liftIO
      (propagateGError $
         \ errorPtr_ ->
           (\(HTMLMarqueeElement arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_set_loop argPtr1 arg2 arg3)
{-# LINE 165 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
             (toHTMLMarqueeElement self)
             (fromIntegral val)
             errorPtr_)
 
getLoop ::
        (MonadIO m, HTMLMarqueeElementClass self) => self -> m Int
getLoop self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_loop argPtr1)
{-# LINE 175 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
            (toHTMLMarqueeElement self)))
 
setScrollAmount ::
                (MonadIO m, HTMLMarqueeElementClass self) => self -> Int -> m ()
setScrollAmount self val
  = liftIO
      (propagateGError $
         \ errorPtr_ ->
           (\(HTMLMarqueeElement arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_set_scroll_amount argPtr1 arg2 arg3)
{-# LINE 184 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
             (toHTMLMarqueeElement self)
             (fromIntegral val)
             errorPtr_)
 
getScrollAmount ::
                (MonadIO m, HTMLMarqueeElementClass self) => self -> m Int
getScrollAmount self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_scroll_amount argPtr1)
{-# LINE 194 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
            (toHTMLMarqueeElement self)))
 
setScrollDelay ::
               (MonadIO m, HTMLMarqueeElementClass self) => self -> Int -> m ()
setScrollDelay self val
  = liftIO
      (propagateGError $
         \ errorPtr_ ->
           (\(HTMLMarqueeElement arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_set_scroll_delay argPtr1 arg2 arg3)
{-# LINE 203 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
             (toHTMLMarqueeElement self)
             (fromIntegral val)
             errorPtr_)
 
getScrollDelay ::
               (MonadIO m, HTMLMarqueeElementClass self) => self -> m Int
getScrollDelay self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_scroll_delay argPtr1)
{-# LINE 213 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
            (toHTMLMarqueeElement self)))
 
setTrueSpeed ::
             (MonadIO m, HTMLMarqueeElementClass self) => self -> Bool -> m ()
setTrueSpeed self val
  = liftIO
      ((\(HTMLMarqueeElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_set_true_speed argPtr1 arg2)
{-# LINE 220 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
         (toHTMLMarqueeElement self)
         (fromBool val))
 
getTrueSpeed ::
             (MonadIO m, HTMLMarqueeElementClass self) => self -> m Bool
getTrueSpeed self
  = liftIO
      (toBool <$>
         ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_true_speed argPtr1)
{-# LINE 229 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
            (toHTMLMarqueeElement self)))
 
setVspace ::
          (MonadIO m, HTMLMarqueeElementClass self) => self -> Word -> m ()
setVspace self val
  = liftIO
      ((\(HTMLMarqueeElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_set_vspace argPtr1 arg2)
{-# LINE 236 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
         (toHTMLMarqueeElement self)
         (fromIntegral val))
 
getVspace ::
          (MonadIO m, HTMLMarqueeElementClass self) => self -> m Word
getVspace self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_vspace argPtr1)
{-# LINE 245 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
            (toHTMLMarqueeElement self)))
 
setWidth ::
         (MonadIO m, HTMLMarqueeElementClass self, GlibString string) =>
           self -> string -> m ()
setWidth self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLMarqueeElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_set_width argPtr1 arg2)
{-# LINE 255 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMarqueeElement.chs" #-}
             (toHTMLMarqueeElement self)
             valPtr)
 
getWidth ::
         (MonadIO m, HTMLMarqueeElementClass self, GlibString string) =>
           self -> m string
getWidth self
  = liftIO
      (((\(HTMLMarqueeElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_marquee_element_get_width argPtr1)
{-# LINE 264 "./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)))