HTMLTableSectionElement.chs

module Graphics.UI.Gtk.WebKit.DOM.HTMLTableSectionElement
       (htmlTableSectionElementInsertRow,
        htmlTableSectionElementDeleteRow, htmlTableSectionElementSetAlign,
        htmlTableSectionElementGetAlign, htmlTableSectionElementSetCh,
        htmlTableSectionElementGetCh, htmlTableSectionElementSetChOff,
        htmlTableSectionElementGetChOff, htmlTableSectionElementSetVAlign,
        htmlTableSectionElementGetVAlign, htmlTableSectionElementGetRows,
        HTMLTableSectionElement, HTMLTableSectionElementClass,
        castToHTMLTableSectionElement, gTypeHTMLTableSectionElement,
        toHTMLTableSectionElement)
       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
 
htmlTableSectionElementInsertRow ::
                                 (HTMLTableSectionElementClass self) =>
                                   self -> Int -> IO (Maybe HTMLElement)
htmlTableSectionElementInsertRow self index
  = maybeNull (makeNewGObject mkHTMLElement)
      (propagateGError $
         \ errorPtr_ ->
           {# call webkit_dom_html_table_section_element_insert_row #}
             (toHTMLTableSectionElement self)
             (fromIntegral index)
             errorPtr_)
 
htmlTableSectionElementDeleteRow ::
                                 (HTMLTableSectionElementClass self) => self -> Int -> IO ()
htmlTableSectionElementDeleteRow self index
  = propagateGError $
      \ errorPtr_ ->
        {# call webkit_dom_html_table_section_element_delete_row #}
          (toHTMLTableSectionElement self)
          (fromIntegral index)
          errorPtr_
 
htmlTableSectionElementSetAlign ::
                                (HTMLTableSectionElementClass self, GlibString string) =>
                                  self -> string -> IO ()
htmlTableSectionElementSetAlign self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_table_section_element_set_align #}
          (toHTMLTableSectionElement self)
          valPtr
 
htmlTableSectionElementGetAlign ::
                                (HTMLTableSectionElementClass self, GlibString string) =>
                                  self -> IO string
htmlTableSectionElementGetAlign self
  = ({# call webkit_dom_html_table_section_element_get_align #}
       (toHTMLTableSectionElement self))
      >>=
      readUTFString
 
htmlTableSectionElementSetCh ::
                             (HTMLTableSectionElementClass self, GlibString string) =>
                               self -> string -> IO ()
htmlTableSectionElementSetCh self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_table_section_element_set_ch #}
          (toHTMLTableSectionElement self)
          valPtr
 
htmlTableSectionElementGetCh ::
                             (HTMLTableSectionElementClass self, GlibString string) =>
                               self -> IO string
htmlTableSectionElementGetCh self
  = ({# call webkit_dom_html_table_section_element_get_ch #}
       (toHTMLTableSectionElement self))
      >>=
      readUTFString
 
htmlTableSectionElementSetChOff ::
                                (HTMLTableSectionElementClass self, GlibString string) =>
                                  self -> string -> IO ()
htmlTableSectionElementSetChOff self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_table_section_element_set_ch_off #}
          (toHTMLTableSectionElement self)
          valPtr
 
htmlTableSectionElementGetChOff ::
                                (HTMLTableSectionElementClass self, GlibString string) =>
                                  self -> IO string
htmlTableSectionElementGetChOff self
  = ({# call webkit_dom_html_table_section_element_get_ch_off #}
       (toHTMLTableSectionElement self))
      >>=
      readUTFString
 
htmlTableSectionElementSetVAlign ::
                                 (HTMLTableSectionElementClass self, GlibString string) =>
                                   self -> string -> IO ()
htmlTableSectionElementSetVAlign self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_table_section_element_set_v_align #}
          (toHTMLTableSectionElement self)
          valPtr
 
htmlTableSectionElementGetVAlign ::
                                 (HTMLTableSectionElementClass self, GlibString string) =>
                                   self -> IO string
htmlTableSectionElementGetVAlign self
  = ({# call webkit_dom_html_table_section_element_get_v_align #}
       (toHTMLTableSectionElement self))
      >>=
      readUTFString
 
htmlTableSectionElementGetRows ::
                               (HTMLTableSectionElementClass self) =>
                                 self -> IO (Maybe HTMLCollection)
htmlTableSectionElementGetRows self
  = maybeNull (makeNewGObject mkHTMLCollection)
      ({# call webkit_dom_html_table_section_element_get_rows #}
         (toHTMLTableSectionElement self))