-- 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/HTMLTableColElement.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.HTMLTableColElement(
setAlign,
getAlign,
setCh,
getCh,
setChOff,
getChOff,
setSpan,
getSpan,
setVAlign,
getVAlign,
setWidth,
getWidth,
HTMLTableColElement,
castToHTMLTableColElement,
gTypeHTMLTableColElement,
HTMLTableColElementClass,
toHTMLTableColElement,
) 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 31 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
import Graphics.UI.Gtk.WebKit.DOM.Enums

 
setAlign ::
         (MonadIO m, HTMLTableColElementClass self, GlibString string) =>
           self -> string -> m ()
setAlign self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLTableColElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_set_align argPtr1 arg2)
{-# LINE 42 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
             (toHTMLTableColElement self)
             valPtr)
 
getAlign ::
         (MonadIO m, HTMLTableColElementClass self, GlibString string) =>
           self -> m string
getAlign self
  = liftIO
      (((\(HTMLTableColElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_get_align argPtr1)
{-# LINE 51 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
          (toHTMLTableColElement self))
         >>=
         readUTFString)
 
setCh ::
      (MonadIO m, HTMLTableColElementClass self, GlibString string) =>
        self -> string -> m ()
setCh self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLTableColElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_set_ch argPtr1 arg2)
{-# LINE 63 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
             (toHTMLTableColElement self)
             valPtr)
 
getCh ::
      (MonadIO m, HTMLTableColElementClass self, GlibString string) =>
        self -> m string
getCh self
  = liftIO
      (((\(HTMLTableColElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_get_ch argPtr1)
{-# LINE 72 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
          (toHTMLTableColElement self))
         >>=
         readUTFString)
 
setChOff ::
         (MonadIO m, HTMLTableColElementClass self, GlibString string) =>
           self -> string -> m ()
setChOff self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLTableColElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_set_ch_off argPtr1 arg2)
{-# LINE 84 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
             (toHTMLTableColElement self)
             valPtr)
 
getChOff ::
         (MonadIO m, HTMLTableColElementClass self, GlibString string) =>
           self -> m string
getChOff self
  = liftIO
      (((\(HTMLTableColElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_get_ch_off argPtr1)
{-# LINE 93 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
          (toHTMLTableColElement self))
         >>=
         readUTFString)
 
setSpan ::
        (MonadIO m, HTMLTableColElementClass self) => self -> Int -> m ()
setSpan self val
  = liftIO
      ((\(HTMLTableColElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_set_span argPtr1 arg2)
{-# LINE 102 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
         (toHTMLTableColElement self)
         (fromIntegral val))
 
getSpan ::
        (MonadIO m, HTMLTableColElementClass self) => self -> m Int
getSpan self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLTableColElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_get_span argPtr1)
{-# LINE 111 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
            (toHTMLTableColElement self)))
 
setVAlign ::
          (MonadIO m, HTMLTableColElementClass self, GlibString string) =>
            self -> string -> m ()
setVAlign self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLTableColElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_set_v_align argPtr1 arg2)
{-# LINE 121 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
             (toHTMLTableColElement self)
             valPtr)
 
getVAlign ::
          (MonadIO m, HTMLTableColElementClass self, GlibString string) =>
            self -> m string
getVAlign self
  = liftIO
      (((\(HTMLTableColElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_get_v_align argPtr1)
{-# LINE 130 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
          (toHTMLTableColElement self))
         >>=
         readUTFString)
 
setWidth ::
         (MonadIO m, HTMLTableColElementClass self, GlibString string) =>
           self -> string -> m ()
setWidth self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLTableColElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_set_width argPtr1 arg2)
{-# LINE 142 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
             (toHTMLTableColElement self)
             valPtr)
 
getWidth ::
         (MonadIO m, HTMLTableColElementClass self, GlibString string) =>
           self -> m string
getWidth self
  = liftIO
      (((\(HTMLTableColElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_get_width argPtr1)
{-# LINE 151 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
          (toHTMLTableColElement self))
         >>=
         readUTFString)

foreign import ccall safe "webkit_dom_html_table_col_element_set_align"
  webkit_dom_html_table_col_element_set_align :: ((Ptr HTMLTableColElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_table_col_element_get_align"
  webkit_dom_html_table_col_element_get_align :: ((Ptr HTMLTableColElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_table_col_element_set_ch"
  webkit_dom_html_table_col_element_set_ch :: ((Ptr HTMLTableColElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_table_col_element_get_ch"
  webkit_dom_html_table_col_element_get_ch :: ((Ptr HTMLTableColElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_table_col_element_set_ch_off"
  webkit_dom_html_table_col_element_set_ch_off :: ((Ptr HTMLTableColElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_table_col_element_get_ch_off"
  webkit_dom_html_table_col_element_get_ch_off :: ((Ptr HTMLTableColElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_table_col_element_set_span"
  webkit_dom_html_table_col_element_set_span :: ((Ptr HTMLTableColElement) -> (CLong -> (IO ())))

foreign import ccall safe "webkit_dom_html_table_col_element_get_span"
  webkit_dom_html_table_col_element_get_span :: ((Ptr HTMLTableColElement) -> (IO CLong))

foreign import ccall safe "webkit_dom_html_table_col_element_set_v_align"
  webkit_dom_html_table_col_element_set_v_align :: ((Ptr HTMLTableColElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_table_col_element_get_v_align"
  webkit_dom_html_table_col_element_get_v_align :: ((Ptr HTMLTableColElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_table_col_element_set_width"
  webkit_dom_html_table_col_element_set_width :: ((Ptr HTMLTableColElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_table_col_element_get_width"
  webkit_dom_html_table_col_element_get_width :: ((Ptr HTMLTableColElement) -> (IO (Ptr CChar)))