module Data.DOM.HTMLFrameSetElement
(set'cols, get'cols, getm'cols, set'rows, 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)
set'cols ::
(Monad mn, CHTMLFrameSetElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'cols = setjsProperty "cols"
get'cols ::
(Monad mn, CHTMLFrameSetElement this) =>
Expression this -> mn (Expression String)
get'cols thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "cols")
return r
getm'cols ::
(Monad mn, CHTMLFrameSetElement this) =>
Expression this -> mn (Expression String)
getm'cols = get'cols
set'rows ::
(Monad mn, CHTMLFrameSetElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'rows = setjsProperty "rows"
get'rows ::
(Monad mn, CHTMLFrameSetElement this) =>
Expression this -> mn (Expression String)
get'rows thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "rows")
return r
getm'rows ::
(Monad mn, CHTMLFrameSetElement this) =>
Expression this -> mn (Expression String)
getm'rows = get'rows