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