[Added more extra functions. golubovsky@gmail.com**20090403103627 Ignore-this: 18cc388491285086f24d749c04e36819 ] { hunk ./domconv/W3C/DOM2/pkg/wbt.hs_unsplit 109 --- where necessary. +-- where necessary, and method calls may be chained. hunk ./domconv/W3C/DOM2/pkg/wbt.hs_unsplit 124 + ,documentBody + ,documentHead + ,inlineStyle + ,inlineStyleDecl hunk ./domconv/W3C/DOM2/pkg/wbt.hs_unsplit 139 +import Data.DOM.WBTypes hunk ./domconv/W3C/DOM2/pkg/wbt.hs_unsplit 144 +import Data.DOM.Css hunk ./domconv/W3C/DOM2/pkg/wbt.hs_unsplit 147 +import Data.DOM.HTMLDocument hunk ./domconv/W3C/DOM2/pkg/wbt.hs_unsplit 184 +-- | Access the @@ node of the current HTML document. Same as 'get\'body', but with +-- proper type of the returned value. + +documentBody :: (Monad mn, CHTMLDocument this) => + Expression this -> mn (Expression THTMLBodyElement) + +documentBody = get'body + +-- | Access the @@ node of the current HTML document. + +documentHead :: + (Monad mn, CHTMLDocument this) => + Expression this -> mn (Expression THTMLHeadElement) +documentHead thisp + = do let et = undefined :: THTMLHeadElement + let r = DotRef et (thisp /\ et) (Id et "head") + return r + +-- |Obtain an inline style ('TCSS2Properties') interface of an object + +inlineStyle :: + (Monad mn, CHTMLElement this) => + Expression this -> mn (Expression TCSS2Properties) +inlineStyle thisp + = do let et = undefined :: TCSS2Properties + let r = DotRef et (thisp /\ et) (Id et "style") + return r + +-- |Obtain an inline style ('TCSSStyleDeclaration') interface of an object + +inlineStyleDecl :: + (Monad mn, CHTMLElement this) => + Expression this -> mn (Expression TCSSStyleDeclaration) +inlineStyleDecl thisp + = do let et = undefined :: TCSSStyleDeclaration + let r = DotRef et (thisp /\ et) (Id et "style") + return r + }