-- 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/HTMLTableColElement.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.HTMLTableColElement
       (htmlTableColElementSetAlign, htmlTableColElementGetAlign,
        htmlTableColElementSetCh, htmlTableColElementGetCh,
        htmlTableColElementSetChOff, htmlTableColElementGetChOff,
        htmlTableColElementSetSpan, htmlTableColElementGetSpan,
        htmlTableColElementSetVAlign, htmlTableColElementGetVAlign,
        htmlTableColElementSetWidth, htmlTableColElementGetWidth,
        HTMLTableColElement, HTMLTableColElementClass,
        castToHTMLTableColElement, gTypeHTMLTableColElement,
        toHTMLTableColElement)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 15 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
htmlTableColElementSetAlign ::
                            (HTMLTableColElementClass self, GlibString string) =>
                              self -> string -> IO ()
htmlTableColElementSetAlign self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLTableColElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_set_align argPtr1 arg2)
{-# LINE 25 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
          (toHTMLTableColElement self)
          valPtr
 
htmlTableColElementGetAlign ::
                            (HTMLTableColElementClass self, GlibString string) =>
                              self -> IO string
htmlTableColElementGetAlign self
  = ((\(HTMLTableColElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_get_align argPtr1)
{-# LINE 33 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
       (toHTMLTableColElement self))
      >>=
      readUTFString
 
htmlTableColElementSetCh ::
                         (HTMLTableColElementClass self, GlibString string) =>
                           self -> string -> IO ()
htmlTableColElementSetCh self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLTableColElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_set_ch argPtr1 arg2)
{-# LINE 44 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
          (toHTMLTableColElement self)
          valPtr
 
htmlTableColElementGetCh ::
                         (HTMLTableColElementClass self, GlibString string) =>
                           self -> IO string
htmlTableColElementGetCh self
  = ((\(HTMLTableColElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_get_ch argPtr1)
{-# LINE 52 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
       (toHTMLTableColElement self))
      >>=
      readUTFString
 
htmlTableColElementSetChOff ::
                            (HTMLTableColElementClass self, GlibString string) =>
                              self -> string -> IO ()
htmlTableColElementSetChOff self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLTableColElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_set_ch_off argPtr1 arg2)
{-# LINE 63 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
          (toHTMLTableColElement self)
          valPtr
 
htmlTableColElementGetChOff ::
                            (HTMLTableColElementClass self, GlibString string) =>
                              self -> IO string
htmlTableColElementGetChOff self
  = ((\(HTMLTableColElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_get_ch_off argPtr1)
{-# LINE 71 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
       (toHTMLTableColElement self))
      >>=
      readUTFString
 
htmlTableColElementSetSpan ::
                           (HTMLTableColElementClass self) => self -> Int -> IO ()
htmlTableColElementSetSpan self val
  = (\(HTMLTableColElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_set_span argPtr1 arg2)
{-# LINE 79 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
      (toHTMLTableColElement self)
      (fromIntegral val)
 
htmlTableColElementGetSpan ::
                           (HTMLTableColElementClass self) => self -> IO Int
htmlTableColElementGetSpan self
  = fromIntegral <$>
      ((\(HTMLTableColElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_get_span argPtr1)
{-# LINE 87 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
         (toHTMLTableColElement self))
 
htmlTableColElementSetVAlign ::
                             (HTMLTableColElementClass self, GlibString string) =>
                               self -> string -> IO ()
htmlTableColElementSetVAlign self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLTableColElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_set_v_align argPtr1 arg2)
{-# LINE 96 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
          (toHTMLTableColElement self)
          valPtr
 
htmlTableColElementGetVAlign ::
                             (HTMLTableColElementClass self, GlibString string) =>
                               self -> IO string
htmlTableColElementGetVAlign self
  = ((\(HTMLTableColElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_get_v_align argPtr1)
{-# LINE 104 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
       (toHTMLTableColElement self))
      >>=
      readUTFString
 
htmlTableColElementSetWidth ::
                            (HTMLTableColElementClass self, GlibString string) =>
                              self -> string -> IO ()
htmlTableColElementSetWidth self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLTableColElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_set_width argPtr1 arg2)
{-# LINE 115 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTableColElement.chs" #-}
          (toHTMLTableColElement self)
          valPtr
 
htmlTableColElementGetWidth ::
                            (HTMLTableColElementClass self, GlibString string) =>
                              self -> IO string
htmlTableColElementGetWidth self
  = ((\(HTMLTableColElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_table_col_element_get_width argPtr1)
{-# LINE 123 "./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)))