module Data.DOM.HTMLTableColElement
(set'align, get'align, getm'align, set'ch, get'ch, getm'ch,
set'chOff, get'chOff, getm'chOff, set'span, get'span, getm'span,
set'vAlign, get'vAlign, getm'vAlign, set'width, get'width,
getm'width, mkCol)
where
import Data.DOM.Html2
import Control.Monad
import BrownPLT.JavaScript
import Data.DOM.WBTypes
import Data.DOM.Dom
import Data.DOM.Document (createElement)
set'align ::
(Monad mn, CHTMLTableColElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'align = setjsProperty "align"
get'align ::
(Monad mn, CHTMLTableColElement 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, CHTMLTableColElement this) =>
Expression this -> mn (Expression String)
getm'align = get'align
set'ch ::
(Monad mn, CHTMLTableColElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'ch = setjsProperty "ch"
get'ch ::
(Monad mn, CHTMLTableColElement 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, CHTMLTableColElement this) =>
Expression this -> mn (Expression String)
getm'ch = get'ch
set'chOff ::
(Monad mn, CHTMLTableColElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'chOff = setjsProperty "chOff"
get'chOff ::
(Monad mn, CHTMLTableColElement 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, CHTMLTableColElement this) =>
Expression this -> mn (Expression String)
getm'chOff = get'chOff
set'span ::
(Monad mn, CHTMLTableColElement zz) =>
Expression Double -> Expression zz -> mn (Expression zz)
set'span = setjsProperty "span"
get'span ::
(Monad mn, CHTMLTableColElement this) =>
Expression this -> mn (Expression Double)
get'span thisp
= do let et = undefined :: Double
let r = DotRef et (thisp /\ et) (Id et "span")
return r
getm'span ::
(Monad mn, CHTMLTableColElement this) =>
Expression this -> mn (Expression Double)
getm'span = get'span
set'vAlign ::
(Monad mn, CHTMLTableColElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'vAlign = setjsProperty "vAlign"
get'vAlign ::
(Monad mn, CHTMLTableColElement 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, CHTMLTableColElement this) =>
Expression this -> mn (Expression String)
getm'vAlign = get'vAlign
set'width ::
(Monad mn, CHTMLTableColElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'width = setjsProperty "width"
get'width ::
(Monad mn, CHTMLTableColElement this) =>
Expression this -> mn (Expression String)
get'width thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "width")
return r
getm'width ::
(Monad mn, CHTMLTableColElement this) =>
Expression this -> mn (Expression String)
getm'width = get'width
mkCol ::
(Monad mn, CHTMLDocument a) =>
Expression a -> mn (Expression THTMLTableColElement)
mkCol = createElement (StringLit "col" "col")