webkit-0.13.0.0: Graphics/UI/Gtk/WebKit/DOM/HTMLTableCellElement.chs

module Graphics.UI.Gtk.WebKit.DOM.HTMLTableCellElement
       (htmlTableCellElementGetCellIndex, htmlTableCellElementSetAbbr,
        htmlTableCellElementGetAbbr, htmlTableCellElementSetAlign,
        htmlTableCellElementGetAlign, htmlTableCellElementSetAxis,
        htmlTableCellElementGetAxis, htmlTableCellElementSetBgColor,
        htmlTableCellElementGetBgColor, htmlTableCellElementSetCh,
        htmlTableCellElementGetCh, htmlTableCellElementSetChOff,
        htmlTableCellElementGetChOff, htmlTableCellElementSetColSpan,
        htmlTableCellElementGetColSpan, htmlTableCellElementSetHeaders,
        htmlTableCellElementGetHeaders, htmlTableCellElementSetHeight,
        htmlTableCellElementGetHeight, htmlTableCellElementSetNoWrap,
        htmlTableCellElementGetNoWrap, htmlTableCellElementSetRowSpan,
        htmlTableCellElementGetRowSpan, htmlTableCellElementSetScope,
        htmlTableCellElementGetScope, htmlTableCellElementSetVAlign,
        htmlTableCellElementGetVAlign, htmlTableCellElementSetWidth,
        htmlTableCellElementGetWidth, HTMLTableCellElement,
        HTMLTableCellElementClass, castToHTMLTableCellElement,
        gTypeHTMLTableCellElement, toHTMLTableCellElement)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
{#import Graphics.UI.Gtk.WebKit.Types#}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
htmlTableCellElementGetCellIndex ::
                                 (HTMLTableCellElementClass self) => self -> IO Int
htmlTableCellElementGetCellIndex self
  = fromIntegral <$>
      ({# call webkit_dom_html_table_cell_element_get_cell_index #}
         (toHTMLTableCellElement self))
 
htmlTableCellElementSetAbbr ::
                            (HTMLTableCellElementClass self, GlibString string) =>
                              self -> string -> IO ()
htmlTableCellElementSetAbbr self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_table_cell_element_set_abbr #}
          (toHTMLTableCellElement self)
          valPtr
 
htmlTableCellElementGetAbbr ::
                            (HTMLTableCellElementClass self, GlibString string) =>
                              self -> IO string
htmlTableCellElementGetAbbr self
  = ({# call webkit_dom_html_table_cell_element_get_abbr #}
       (toHTMLTableCellElement self))
      >>=
      readUTFString
 
htmlTableCellElementSetAlign ::
                             (HTMLTableCellElementClass self, GlibString string) =>
                               self -> string -> IO ()
htmlTableCellElementSetAlign self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_table_cell_element_set_align #}
          (toHTMLTableCellElement self)
          valPtr
 
htmlTableCellElementGetAlign ::
                             (HTMLTableCellElementClass self, GlibString string) =>
                               self -> IO string
htmlTableCellElementGetAlign self
  = ({# call webkit_dom_html_table_cell_element_get_align #}
       (toHTMLTableCellElement self))
      >>=
      readUTFString
 
htmlTableCellElementSetAxis ::
                            (HTMLTableCellElementClass self, GlibString string) =>
                              self -> string -> IO ()
htmlTableCellElementSetAxis self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_table_cell_element_set_axis #}
          (toHTMLTableCellElement self)
          valPtr
 
htmlTableCellElementGetAxis ::
                            (HTMLTableCellElementClass self, GlibString string) =>
                              self -> IO string
htmlTableCellElementGetAxis self
  = ({# call webkit_dom_html_table_cell_element_get_axis #}
       (toHTMLTableCellElement self))
      >>=
      readUTFString
 
htmlTableCellElementSetBgColor ::
                               (HTMLTableCellElementClass self, GlibString string) =>
                                 self -> string -> IO ()
htmlTableCellElementSetBgColor self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_table_cell_element_set_bg_color #}
          (toHTMLTableCellElement self)
          valPtr
 
htmlTableCellElementGetBgColor ::
                               (HTMLTableCellElementClass self, GlibString string) =>
                                 self -> IO string
htmlTableCellElementGetBgColor self
  = ({# call webkit_dom_html_table_cell_element_get_bg_color #}
       (toHTMLTableCellElement self))
      >>=
      readUTFString
 
htmlTableCellElementSetCh ::
                          (HTMLTableCellElementClass self, GlibString string) =>
                            self -> string -> IO ()
htmlTableCellElementSetCh self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_table_cell_element_set_ch #}
          (toHTMLTableCellElement self)
          valPtr
 
htmlTableCellElementGetCh ::
                          (HTMLTableCellElementClass self, GlibString string) =>
                            self -> IO string
htmlTableCellElementGetCh self
  = ({# call webkit_dom_html_table_cell_element_get_ch #}
       (toHTMLTableCellElement self))
      >>=
      readUTFString
 
htmlTableCellElementSetChOff ::
                             (HTMLTableCellElementClass self, GlibString string) =>
                               self -> string -> IO ()
htmlTableCellElementSetChOff self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_table_cell_element_set_ch_off #}
          (toHTMLTableCellElement self)
          valPtr
 
htmlTableCellElementGetChOff ::
                             (HTMLTableCellElementClass self, GlibString string) =>
                               self -> IO string
htmlTableCellElementGetChOff self
  = ({# call webkit_dom_html_table_cell_element_get_ch_off #}
       (toHTMLTableCellElement self))
      >>=
      readUTFString
 
htmlTableCellElementSetColSpan ::
                               (HTMLTableCellElementClass self) => self -> Int -> IO ()
htmlTableCellElementSetColSpan self val
  = {# call webkit_dom_html_table_cell_element_set_col_span #}
      (toHTMLTableCellElement self)
      (fromIntegral val)
 
htmlTableCellElementGetColSpan ::
                               (HTMLTableCellElementClass self) => self -> IO Int
htmlTableCellElementGetColSpan self
  = fromIntegral <$>
      ({# call webkit_dom_html_table_cell_element_get_col_span #}
         (toHTMLTableCellElement self))
 
htmlTableCellElementSetHeaders ::
                               (HTMLTableCellElementClass self, GlibString string) =>
                                 self -> string -> IO ()
htmlTableCellElementSetHeaders self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_table_cell_element_set_headers #}
          (toHTMLTableCellElement self)
          valPtr
 
htmlTableCellElementGetHeaders ::
                               (HTMLTableCellElementClass self, GlibString string) =>
                                 self -> IO string
htmlTableCellElementGetHeaders self
  = ({# call webkit_dom_html_table_cell_element_get_headers #}
       (toHTMLTableCellElement self))
      >>=
      readUTFString
 
htmlTableCellElementSetHeight ::
                              (HTMLTableCellElementClass self, GlibString string) =>
                                self -> string -> IO ()
htmlTableCellElementSetHeight self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_table_cell_element_set_height #}
          (toHTMLTableCellElement self)
          valPtr
 
htmlTableCellElementGetHeight ::
                              (HTMLTableCellElementClass self, GlibString string) =>
                                self -> IO string
htmlTableCellElementGetHeight self
  = ({# call webkit_dom_html_table_cell_element_get_height #}
       (toHTMLTableCellElement self))
      >>=
      readUTFString
 
htmlTableCellElementSetNoWrap ::
                              (HTMLTableCellElementClass self) => self -> Bool -> IO ()
htmlTableCellElementSetNoWrap self val
  = {# call webkit_dom_html_table_cell_element_set_no_wrap #}
      (toHTMLTableCellElement self)
      (fromBool val)
 
htmlTableCellElementGetNoWrap ::
                              (HTMLTableCellElementClass self) => self -> IO Bool
htmlTableCellElementGetNoWrap self
  = toBool <$>
      ({# call webkit_dom_html_table_cell_element_get_no_wrap #}
         (toHTMLTableCellElement self))
 
htmlTableCellElementSetRowSpan ::
                               (HTMLTableCellElementClass self) => self -> Int -> IO ()
htmlTableCellElementSetRowSpan self val
  = {# call webkit_dom_html_table_cell_element_set_row_span #}
      (toHTMLTableCellElement self)
      (fromIntegral val)
 
htmlTableCellElementGetRowSpan ::
                               (HTMLTableCellElementClass self) => self -> IO Int
htmlTableCellElementGetRowSpan self
  = fromIntegral <$>
      ({# call webkit_dom_html_table_cell_element_get_row_span #}
         (toHTMLTableCellElement self))
 
htmlTableCellElementSetScope ::
                             (HTMLTableCellElementClass self, GlibString string) =>
                               self -> string -> IO ()
htmlTableCellElementSetScope self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_table_cell_element_set_scope #}
          (toHTMLTableCellElement self)
          valPtr
 
htmlTableCellElementGetScope ::
                             (HTMLTableCellElementClass self, GlibString string) =>
                               self -> IO string
htmlTableCellElementGetScope self
  = ({# call webkit_dom_html_table_cell_element_get_scope #}
       (toHTMLTableCellElement self))
      >>=
      readUTFString
 
htmlTableCellElementSetVAlign ::
                              (HTMLTableCellElementClass self, GlibString string) =>
                                self -> string -> IO ()
htmlTableCellElementSetVAlign self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_table_cell_element_set_v_align #}
          (toHTMLTableCellElement self)
          valPtr
 
htmlTableCellElementGetVAlign ::
                              (HTMLTableCellElementClass self, GlibString string) =>
                                self -> IO string
htmlTableCellElementGetVAlign self
  = ({# call webkit_dom_html_table_cell_element_get_v_align #}
       (toHTMLTableCellElement self))
      >>=
      readUTFString
 
htmlTableCellElementSetWidth ::
                             (HTMLTableCellElementClass self, GlibString string) =>
                               self -> string -> IO ()
htmlTableCellElementSetWidth self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_table_cell_element_set_width #}
          (toHTMLTableCellElement self)
          valPtr
 
htmlTableCellElementGetWidth ::
                             (HTMLTableCellElementClass self, GlibString string) =>
                               self -> IO string
htmlTableCellElementGetWidth self
  = ({# call webkit_dom_html_table_cell_element_get_width #}
       (toHTMLTableCellElement self))
      >>=
      readUTFString