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