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")