module Data.DOM.HTMLTableSectionElement
       (insertRow, deleteRow, set'align, get'align, getm'align, set'ch,
        get'ch, getm'ch, set'chOff, get'chOff, getm'chOff, set'vAlign,
        get'vAlign, getm'vAlign, get'rows, getm'rows)
       where
import Data.DOM.Html2
import Control.Monad
import BrownPLT.JavaScript
import Data.DOM.WBTypes
import Data.DOM.Dom
import Data.DOM.Document (createElement)
 
insertRow ::
          (Monad mn, CHTMLTableSectionElement this, CHTMLElement zz) =>
            Expression Double -> Expression this -> mn (Expression zz)
insertRow a thisp
  = do let et = undefined :: zz
       let r = DotRef et (thisp /\ et) (Id et "insertRow")
       return (CallExpr et r [a /\ et])
 
deleteRow ::
          (Monad mn, CHTMLTableSectionElement this) =>
            Expression Double -> Expression this -> mn (Expression ())
deleteRow a thisp
  = do let et = undefined :: ()
       let r = DotRef et (thisp /\ et) (Id et "deleteRow")
       return (CallExpr et r [a /\ et])
 
set'align ::
          (Monad mn, CHTMLTableSectionElement zz) =>
            Expression String -> Expression zz -> mn (Expression zz)
set'align = setjsProperty "align"
 
get'align ::
          (Monad mn, CHTMLTableSectionElement this) =>
            Expression this -> mn (Expression String)
get'align thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "align")
       return r
 
getm'align ::
           (Monad mn, CHTMLTableSectionElement this) =>
             Expression this -> mn (Expression String)
getm'align = get'align
 
set'ch ::
       (Monad mn, CHTMLTableSectionElement zz) =>
         Expression String -> Expression zz -> mn (Expression zz)
set'ch = setjsProperty "ch"
 
get'ch ::
       (Monad mn, CHTMLTableSectionElement this) =>
         Expression this -> mn (Expression String)
get'ch thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "ch")
       return r
 
getm'ch ::
        (Monad mn, CHTMLTableSectionElement this) =>
          Expression this -> mn (Expression String)
getm'ch = get'ch
 
set'chOff ::
          (Monad mn, CHTMLTableSectionElement zz) =>
            Expression String -> Expression zz -> mn (Expression zz)
set'chOff = setjsProperty "chOff"
 
get'chOff ::
          (Monad mn, CHTMLTableSectionElement this) =>
            Expression this -> mn (Expression String)
get'chOff thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "chOff")
       return r
 
getm'chOff ::
           (Monad mn, CHTMLTableSectionElement this) =>
             Expression this -> mn (Expression String)
getm'chOff = get'chOff
 
set'vAlign ::
           (Monad mn, CHTMLTableSectionElement zz) =>
             Expression String -> Expression zz -> mn (Expression zz)
set'vAlign = setjsProperty "vAlign"
 
get'vAlign ::
           (Monad mn, CHTMLTableSectionElement this) =>
             Expression this -> mn (Expression String)
get'vAlign thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "vAlign")
       return r
 
getm'vAlign ::
            (Monad mn, CHTMLTableSectionElement this) =>
              Expression this -> mn (Expression String)
getm'vAlign = get'vAlign
 
get'rows ::
         (Monad mn, CHTMLTableSectionElement this, CHTMLCollection zz) =>
           Expression this -> mn (Expression zz)
get'rows thisp
  = do let et = undefined :: zz
       let r = DotRef et (thisp /\ et) (Id et "rows")
       return r
 
getm'rows ::
          (Monad mn, CHTMLTableSectionElement this) =>
            Expression this -> mn (Expression THTMLCollection)
getm'rows = get'rows