module Data.DOM.HTMLTableCellElement (get'cellIndex, getm'cellIndex, set'abbr, get'abbr, getm'abbr, set'align, get'align, getm'align, set'axis, get'axis, getm'axis, set'bgColor, get'bgColor, getm'bgColor, set'ch, get'ch, getm'ch, set'chOff, get'chOff, getm'chOff, set'colSpan, get'colSpan, getm'colSpan, set'headers, get'headers, getm'headers, set'height, get'height, getm'height, set'noWrap, get'noWrap, getm'noWrap, set'rowSpan, get'rowSpan, getm'rowSpan, set'scope, get'scope, getm'scope, set'vAlign, get'vAlign, getm'vAlign, set'width, get'width, getm'width, mkTd) where import Data.DOM.Html2 import Control.Monad import BrownPLT.JavaScript import Data.DOM.WBTypes import Data.DOM.Dom import Data.DOM.Document (createElement) get'cellIndex :: (Monad mn, CHTMLTableCellElement this) => Expression this -> mn (Expression Double) get'cellIndex thisp = do let et = undefined :: Double let r = DotRef et (thisp /\ et) (Id et "cellIndex") return r getm'cellIndex :: (Monad mn, CHTMLTableCellElement this) => Expression this -> mn (Expression Double) getm'cellIndex = get'cellIndex set'abbr :: (Monad mn, CHTMLTableCellElement zz) => Expression String -> Expression zz -> mn (Expression zz) set'abbr = setjsProperty "abbr" get'abbr :: (Monad mn, CHTMLTableCellElement this) => Expression this -> mn (Expression String) get'abbr thisp = do let et = undefined :: String let r = DotRef et (thisp /\ et) (Id et "abbr") return r getm'abbr :: (Monad mn, CHTMLTableCellElement this) => Expression this -> mn (Expression String) getm'abbr = get'abbr set'align :: (Monad mn, CHTMLTableCellElement zz) => Expression String -> Expression zz -> mn (Expression zz) set'align = setjsProperty "align" get'align :: (Monad mn, CHTMLTableCellElement 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, CHTMLTableCellElement this) => Expression this -> mn (Expression String) getm'align = get'align set'axis :: (Monad mn, CHTMLTableCellElement zz) => Expression String -> Expression zz -> mn (Expression zz) set'axis = setjsProperty "axis" get'axis :: (Monad mn, CHTMLTableCellElement this) => Expression this -> mn (Expression String) get'axis thisp = do let et = undefined :: String let r = DotRef et (thisp /\ et) (Id et "axis") return r getm'axis :: (Monad mn, CHTMLTableCellElement this) => Expression this -> mn (Expression String) getm'axis = get'axis set'bgColor :: (Monad mn, CHTMLTableCellElement zz) => Expression String -> Expression zz -> mn (Expression zz) set'bgColor = setjsProperty "bgColor" get'bgColor :: (Monad mn, CHTMLTableCellElement this) => Expression this -> mn (Expression String) get'bgColor thisp = do let et = undefined :: String let r = DotRef et (thisp /\ et) (Id et "bgColor") return r getm'bgColor :: (Monad mn, CHTMLTableCellElement this) => Expression this -> mn (Expression String) getm'bgColor = get'bgColor set'ch :: (Monad mn, CHTMLTableCellElement zz) => Expression String -> Expression zz -> mn (Expression zz) set'ch = setjsProperty "ch" get'ch :: (Monad mn, CHTMLTableCellElement 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, CHTMLTableCellElement this) => Expression this -> mn (Expression String) getm'ch = get'ch set'chOff :: (Monad mn, CHTMLTableCellElement zz) => Expression String -> Expression zz -> mn (Expression zz) set'chOff = setjsProperty "chOff" get'chOff :: (Monad mn, CHTMLTableCellElement 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, CHTMLTableCellElement this) => Expression this -> mn (Expression String) getm'chOff = get'chOff set'colSpan :: (Monad mn, CHTMLTableCellElement zz) => Expression Double -> Expression zz -> mn (Expression zz) set'colSpan = setjsProperty "colSpan" get'colSpan :: (Monad mn, CHTMLTableCellElement this) => Expression this -> mn (Expression Double) get'colSpan thisp = do let et = undefined :: Double let r = DotRef et (thisp /\ et) (Id et "colSpan") return r getm'colSpan :: (Monad mn, CHTMLTableCellElement this) => Expression this -> mn (Expression Double) getm'colSpan = get'colSpan set'headers :: (Monad mn, CHTMLTableCellElement zz) => Expression String -> Expression zz -> mn (Expression zz) set'headers = setjsProperty "headers" get'headers :: (Monad mn, CHTMLTableCellElement this) => Expression this -> mn (Expression String) get'headers thisp = do let et = undefined :: String let r = DotRef et (thisp /\ et) (Id et "headers") return r getm'headers :: (Monad mn, CHTMLTableCellElement this) => Expression this -> mn (Expression String) getm'headers = get'headers set'height :: (Monad mn, CHTMLTableCellElement zz) => Expression String -> Expression zz -> mn (Expression zz) set'height = setjsProperty "height" get'height :: (Monad mn, CHTMLTableCellElement this) => Expression this -> mn (Expression String) get'height thisp = do let et = undefined :: String let r = DotRef et (thisp /\ et) (Id et "height") return r getm'height :: (Monad mn, CHTMLTableCellElement this) => Expression this -> mn (Expression String) getm'height = get'height set'noWrap :: (Monad mn, CHTMLTableCellElement zz) => Expression Bool -> Expression zz -> mn (Expression zz) set'noWrap = setjsProperty "noWrap" get'noWrap :: (Monad mn, CHTMLTableCellElement this) => Expression this -> mn (Expression Bool) get'noWrap thisp = do let et = undefined :: Bool let r = DotRef et (thisp /\ et) (Id et "noWrap") return r getm'noWrap :: (Monad mn, CHTMLTableCellElement this) => Expression this -> mn (Expression Bool) getm'noWrap = get'noWrap set'rowSpan :: (Monad mn, CHTMLTableCellElement zz) => Expression Double -> Expression zz -> mn (Expression zz) set'rowSpan = setjsProperty "rowSpan" get'rowSpan :: (Monad mn, CHTMLTableCellElement this) => Expression this -> mn (Expression Double) get'rowSpan thisp = do let et = undefined :: Double let r = DotRef et (thisp /\ et) (Id et "rowSpan") return r getm'rowSpan :: (Monad mn, CHTMLTableCellElement this) => Expression this -> mn (Expression Double) getm'rowSpan = get'rowSpan set'scope :: (Monad mn, CHTMLTableCellElement zz) => Expression String -> Expression zz -> mn (Expression zz) set'scope = setjsProperty "scope" get'scope :: (Monad mn, CHTMLTableCellElement this) => Expression this -> mn (Expression String) get'scope thisp = do let et = undefined :: String let r = DotRef et (thisp /\ et) (Id et "scope") return r getm'scope :: (Monad mn, CHTMLTableCellElement this) => Expression this -> mn (Expression String) getm'scope = get'scope set'vAlign :: (Monad mn, CHTMLTableCellElement zz) => Expression String -> Expression zz -> mn (Expression zz) set'vAlign = setjsProperty "vAlign" get'vAlign :: (Monad mn, CHTMLTableCellElement 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, CHTMLTableCellElement this) => Expression this -> mn (Expression String) getm'vAlign = get'vAlign set'width :: (Monad mn, CHTMLTableCellElement zz) => Expression String -> Expression zz -> mn (Expression zz) set'width = setjsProperty "width" get'width :: (Monad mn, CHTMLTableCellElement 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, CHTMLTableCellElement this) => Expression this -> mn (Expression String) getm'width = get'width mkTd :: (Monad mn, CHTMLDocument a) => Expression a -> mn (Expression THTMLTableCellElement) mkTd = createElement (StringLit "td" "td")