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