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