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