ghcjs-dom 0.1.1.1 → 0.1.1.2

raw patch · 127 files changed

+9149/−19198 lines, 127 files

Files

ghcjs-dom.cabal +1/−2
src/GHCJS/DOM/Attr.hs +8/−49
src/GHCJS/DOM/BarProp.hs +3/−13
src/GHCJS/DOM/Blob.hs +18/−15
src/GHCJS/DOM/CSSRule.hs +11/−38
src/GHCJS/DOM/CSSRuleList.hs +4/−21
src/GHCJS/DOM/CSSStyleDeclaration.hs +13/−100
src/GHCJS/DOM/CSSStyleSheet.hs +9/−62
src/GHCJS/DOM/CSSValue.hs +5/−28
src/GHCJS/DOM/CharacterData.hs +10/−70
src/GHCJS/DOM/Console.hs +0/−55
src/GHCJS/DOM/DOMApplicationCache.hs +7/−46
src/GHCJS/DOM/DOMImplementation.hs +7/−56
src/GHCJS/DOM/DOMMimeType.hs +5/−30
src/GHCJS/DOM/DOMMimeTypeArray.hs +5/−31
src/GHCJS/DOM/DOMNamedFlowCollection.hs +5/−32
src/GHCJS/DOM/DOMPlugin.hs +8/−51
src/GHCJS/DOM/DOMPluginArray.hs +6/−38
src/GHCJS/DOM/DOMSecurityPolicy.hs +17/−126
src/GHCJS/DOM/DOMSelection.hs +26/−198
src/GHCJS/DOM/DOMSettableTokenList.hs +19/−23
src/GHCJS/DOM/DOMStringList.hs +5/−30
src/GHCJS/DOM/DOMTokenList.hs +33/−72
src/GHCJS/DOM/DOMWindow.hs +148/−575
src/GHCJS/DOM/DOMWindowCSS.hs +24/−23
src/GHCJS/DOM/Document.hs +1038/−1814
src/GHCJS/DOM/DocumentType.hs +8/−54
src/GHCJS/DOM/Element.hs +150/−480
src/GHCJS/DOM/Event.hs +18/−120
src/GHCJS/DOM/EventM.hs +11/−11
src/GHCJS/DOM/File.hs +5/−33
src/GHCJS/DOM/FileList.hs +4/−21
src/GHCJS/DOM/Geolocation.hs +3/−14
src/GHCJS/DOM/HTMLAnchorElement.hs +69/−314
src/GHCJS/DOM/HTMLAppletElement.hs +24/−182
src/GHCJS/DOM/HTMLAreaElement.hs +60/−175
src/GHCJS/DOM/HTMLBRElement.hs +4/−22
src/GHCJS/DOM/HTMLBaseElement.hs +6/−38
src/GHCJS/DOM/HTMLBaseFontElement.hs +8/−54
src/GHCJS/DOM/HTMLBodyElement.hs +14/−102
src/GHCJS/DOM/HTMLButtonElement.hs +27/−206
src/GHCJS/DOM/HTMLCanvasElement.hs +6/−38
src/GHCJS/DOM/HTMLCollection.hs +5/−30
src/GHCJS/DOM/HTMLDListElement.hs +4/−22
src/GHCJS/DOM/HTMLDetailsElement.hs +4/−22
src/GHCJS/DOM/HTMLDirectoryElement.hs +4/−22
src/GHCJS/DOM/HTMLDivElement.hs +4/−22
src/GHCJS/DOM/HTMLDocument.hs +36/−238
src/GHCJS/DOM/HTMLElement.hs +38/−290
src/GHCJS/DOM/HTMLEmbedElement.hs +12/−86
src/GHCJS/DOM/HTMLFieldSetElement.hs +13/−97
src/GHCJS/DOM/HTMLFontElement.hs +8/−54
src/GHCJS/DOM/HTMLFormElement.hs +92/−199
src/GHCJS/DOM/HTMLFrameElement.hs +22/−166
src/GHCJS/DOM/HTMLFrameSetElement.hs +6/−38
src/GHCJS/DOM/HTMLHRElement.hs +10/−70
src/GHCJS/DOM/HTMLHeadElement.hs +4/−22
src/GHCJS/DOM/HTMLHeadingElement.hs +4/−22
src/GHCJS/DOM/HTMLHtmlElement.hs +6/−38
src/GHCJS/DOM/HTMLIFrameElement.hs +27/−252
src/GHCJS/DOM/HTMLImageElement.hs +37/−286
src/GHCJS/DOM/HTMLInputElement.hs +1133/−1793
src/GHCJS/DOM/HTMLKeygenElement.hs +19/−142
src/GHCJS/DOM/HTMLLIElement.hs +4/−21
src/GHCJS/DOM/HTMLLabelElement.hs +6/−38
src/GHCJS/DOM/HTMLLegendElement.hs +5/−30
src/GHCJS/DOM/HTMLLinkElement.hs +32/−143
src/GHCJS/DOM/HTMLMapElement.hs +5/−30
src/GHCJS/DOM/HTMLMarqueeElement.hs +26/−198
src/GHCJS/DOM/HTMLMediaElement.hs +170/−423
src/GHCJS/DOM/HTMLMenuElement.hs +4/−22
src/GHCJS/DOM/HTMLMetaElement.hs +10/−70
src/GHCJS/DOM/HTMLModElement.hs +6/−38
src/GHCJS/DOM/HTMLOListElement.hs +8/−54
src/GHCJS/DOM/HTMLObjectElement.hs +39/−302
src/GHCJS/DOM/HTMLOptGroupElement.hs +6/−38
src/GHCJS/DOM/HTMLOptionElement.hs +15/−110
src/GHCJS/DOM/HTMLOptionsCollection.hs +5/−31
src/GHCJS/DOM/HTMLParagraphElement.hs +4/−22
src/GHCJS/DOM/HTMLParamElement.hs +8/−54
src/GHCJS/DOM/HTMLPreElement.hs +6/−38
src/GHCJS/DOM/HTMLQuoteElement.hs +4/−22
src/GHCJS/DOM/HTMLScriptElement.hs +20/−150
src/GHCJS/DOM/HTMLSelectElement.hs +33/−257
src/GHCJS/DOM/HTMLStyleElement.hs +6/−82
src/GHCJS/DOM/HTMLTableCaptionElement.hs +4/−22
src/GHCJS/DOM/HTMLTableCellElement.hs +31/−238
src/GHCJS/DOM/HTMLTableColElement.hs +14/−102
src/GHCJS/DOM/HTMLTableElement.hs +37/−292
src/GHCJS/DOM/HTMLTableRowElement.hs +17/−127
src/GHCJS/DOM/HTMLTableSectionElement.hs +13/−97
src/GHCJS/DOM/HTMLTextAreaElement.hs +163/−408
src/GHCJS/DOM/HTMLTitleElement.hs +4/−22
src/GHCJS/DOM/HTMLUListElement.hs +4/−22
src/GHCJS/DOM/HTMLVideoElement.hs +46/−138
src/GHCJS/DOM/History.hs +3/−13
src/GHCJS/DOM/KeyboardEvent.hs +11/−86
src/GHCJS/DOM/Location.hs +4/−21
src/GHCJS/DOM/MediaError.hs +3/−13
src/GHCJS/DOM/MediaList.hs +8/−52
src/GHCJS/DOM/MediaQueryList.hs +4/−22
src/GHCJS/DOM/MouseEvent.hs +34/−178
src/GHCJS/DOM/NamedNodeMap.hs +10/−72
src/GHCJS/DOM/Navigator.hs +18/−126
src/GHCJS/DOM/Node.hs +37/−264
src/GHCJS/DOM/NodeFilter.hs +2/−6
src/GHCJS/DOM/NodeIterator.hs +9/−62
src/GHCJS/DOM/NodeList.hs +4/−21
src/GHCJS/DOM/ProcessingInstruction.hs +3/−63
src/GHCJS/DOM/Range.hs +66/−278
src/GHCJS/DOM/Screen.hs +18/−70
src/GHCJS/DOM/Storage.hs +8/−50
src/GHCJS/DOM/StorageInfo.hs +2/−6
src/GHCJS/DOM/StyleMedia.hs +3/−14
src/GHCJS/DOM/StyleSheet.hs +9/−59
src/GHCJS/DOM/StyleSheetList.hs +18/−22
src/GHCJS/DOM/Text.hs +5/−28
src/GHCJS/DOM/TimeRanges.hs +5/−28
src/GHCJS/DOM/TreeWalker.hs +8/−54
src/GHCJS/DOM/Types.hs +4706/−4206
src/GHCJS/DOM/UIEvent.hs +12/−78
src/GHCJS/DOM/ValidityState.hs +12/−86
src/GHCJS/DOM/WebKitNamedFlow.hs +9/−64
src/GHCJS/DOM/WebKitPoint.hs +6/−34
src/GHCJS/DOM/XPathExpression.hs +3/−16
src/GHCJS/DOM/XPathNSResolver.hs +3/−14
src/GHCJS/DOM/XPathResult.hs +11/−78

ghcjs-dom.cabal view

@@ -1,5 +1,5 @@ name: ghcjs-dom-version: 0.1.1.1+version: 0.1.1.2 cabal-version: >=1.10 build-type: Simple license: MIT@@ -49,7 +49,6 @@           GHCJS.DOM.BarProp           GHCJS.DOM.Blob           GHCJS.DOM.CharacterData-          GHCJS.DOM.Console           GHCJS.DOM.Css           GHCJS.DOM.CSSRule           GHCJS.DOM.CSSRuleList

src/GHCJS/DOM/Attr.hs view

@@ -11,101 +11,60 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_attr_get_name :: JSRef DOMAttr -> IO JSString-#else -ghcjs_dom_attr_get_name :: JSRef DOMAttr -> IO JSString-ghcjs_dom_attr_get_name = undefined-#endif   attrGetName ::             (IsDOMAttr self, FromJSString result) => self -> IO result attrGetName self   = fromJSString <$>       (ghcjs_dom_attr_get_name (unDOMAttr (toDOMAttr self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"specified\"] ? 1 : 0)"         ghcjs_dom_attr_get_specified :: JSRef DOMAttr -> IO Bool-#else -ghcjs_dom_attr_get_specified :: JSRef DOMAttr -> IO Bool-ghcjs_dom_attr_get_specified = undefined-#endif   attrGetSpecified :: (IsDOMAttr self) => self -> IO Bool attrGetSpecified self   = ghcjs_dom_attr_get_specified (unDOMAttr (toDOMAttr self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"value\"] = $2;"         ghcjs_dom_attr_set_value :: JSRef DOMAttr -> JSString -> IO ()-#else -ghcjs_dom_attr_set_value :: JSRef DOMAttr -> JSString -> IO ()-ghcjs_dom_attr_set_value = undefined-#endif   attrSetValue ::              (IsDOMAttr self, ToJSString val) => self -> val -> IO () attrSetValue self val   = ghcjs_dom_attr_set_value (unDOMAttr (toDOMAttr self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"value\"]"         ghcjs_dom_attr_get_value :: JSRef DOMAttr -> IO JSString-#else -ghcjs_dom_attr_get_value :: JSRef DOMAttr -> IO JSString-ghcjs_dom_attr_get_value = undefined-#endif   attrGetValue ::              (IsDOMAttr self, FromJSString result) => self -> IO result attrGetValue self   = fromJSString <$>       (ghcjs_dom_attr_get_value (unDOMAttr (toDOMAttr self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"ownerElement\"]"         ghcjs_dom_attr_get_owner_element ::         JSRef DOMAttr -> IO (JSRef Element)-#else -ghcjs_dom_attr_get_owner_element ::-                                   JSRef DOMAttr -> IO (JSRef Element)-ghcjs_dom_attr_get_owner_element = undefined-#endif   attrGetOwnerElement ::                     (IsDOMAttr self) => self -> IO (Maybe Element) attrGetOwnerElement self   = fmap Element . maybeJSNull <$>       (ghcjs_dom_attr_get_owner_element (unDOMAttr (toDOMAttr self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"isId\"] ? 1 : 0)"         ghcjs_dom_attr_get_is_id :: JSRef DOMAttr -> IO Bool-#else -ghcjs_dom_attr_get_is_id :: JSRef DOMAttr -> IO Bool-ghcjs_dom_attr_get_is_id = undefined-#endif   attrGetIsId :: (IsDOMAttr self) => self -> IO Bool attrGetIsId self

src/GHCJS/DOM/BarProp.hs view

@@ -7,26 +7,16 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"visible\"] ? 1 : 0)"         ghcjs_dom_bar_prop_get_visible :: JSRef BarProp -> IO Bool-#else -ghcjs_dom_bar_prop_get_visible :: JSRef BarProp -> IO Bool-ghcjs_dom_bar_prop_get_visible = undefined-#endif   barPropGetVisible :: (IsBarProp self) => self -> IO Bool barPropGetVisible self

src/GHCJS/DOM/Blob.hs view

@@ -2,31 +2,34 @@ #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.Blob-       (ghcjs_dom_blob_get_size, blobGetSize, Blob, IsBlob, castToBlob,-        gTypeBlob, toBlob)+       (ghcjs_dom_blob_slice, blobSlice, ghcjs_dom_blob_get_size,+        blobGetSize, Blob, IsBlob, castToBlob, gTypeBlob, toBlob)        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS + +foreign import javascript unsafe "$1[\"slice\"]($2, $3, $4)"+        ghcjs_dom_blob_slice ::+        JSRef Blob -> Double -> Double -> JSString -> IO (JSRef Blob)+ +blobSlice ::+          (IsBlob self, ToJSString contentType) =>+            self -> Int64 -> Int64 -> contentType -> IO (Maybe Blob)+blobSlice self start end contentType+  = fmap Blob . maybeJSNull <$>+      (ghcjs_dom_blob_slice (unBlob (toBlob self)) (fromIntegral start)+         (fromIntegral end)+         (toJSString contentType))+  foreign import javascript unsafe "$1[\"size\"]"         ghcjs_dom_blob_get_size :: JSRef Blob -> IO Double-#else -ghcjs_dom_blob_get_size :: JSRef Blob -> IO Double-ghcjs_dom_blob_get_size = undefined-#endif   blobGetSize :: (IsBlob self) => self -> IO Word64 blobGetSize self

src/GHCJS/DOM/CSSRule.hs view

@@ -3,7 +3,8 @@ {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.CSSRule        (cUNKNOWN_RULE, cSTYLE_RULE, cCHARSET_RULE, cIMPORT_RULE,-        cMEDIA_RULE, cFONT_FACE_RULE, cPAGE_RULE, cWEBKIT_KEYFRAMES_RULE,+        cMEDIA_RULE, cFONT_FACE_RULE, cPAGE_RULE, cKEYFRAMES_RULE,+        cKEYFRAME_RULE, cSUPPORTS_RULE, cWEBKIT_KEYFRAMES_RULE,         cWEBKIT_KEYFRAME_RULE, ghcjs_dom_css_rule_set_css_text,         cssRuleSetCssText, ghcjs_dom_css_rule_get_css_text,         cssRuleGetCssText, ghcjs_dom_css_rule_get_parent_style_sheet,@@ -13,12 +14,8 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>))@@ -31,51 +28,34 @@ cMEDIA_RULE = 4 cFONT_FACE_RULE = 5 cPAGE_RULE = 6+cKEYFRAMES_RULE = 7+cKEYFRAME_RULE = 8+cSUPPORTS_RULE = 12 cWEBKIT_KEYFRAMES_RULE = 7 cWEBKIT_KEYFRAME_RULE = 8---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"cssText\"] = $2;"         ghcjs_dom_css_rule_set_css_text ::         JSRef CSSRule -> JSString -> IO ()-#else -ghcjs_dom_css_rule_set_css_text ::-                                  JSRef CSSRule -> JSString -> IO ()-ghcjs_dom_css_rule_set_css_text = undefined-#endif   cssRuleSetCssText ::                   (IsCSSRule self, ToJSString val) => self -> val -> IO () cssRuleSetCssText self val   = ghcjs_dom_css_rule_set_css_text (unCSSRule (toCSSRule self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"cssText\"]"         ghcjs_dom_css_rule_get_css_text :: JSRef CSSRule -> IO JSString-#else -ghcjs_dom_css_rule_get_css_text :: JSRef CSSRule -> IO JSString-ghcjs_dom_css_rule_get_css_text = undefined-#endif   cssRuleGetCssText ::                   (IsCSSRule self, FromJSString result) => self -> IO result cssRuleGetCssText self   = fromJSString <$>       (ghcjs_dom_css_rule_get_css_text (unCSSRule (toCSSRule self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"parentStyleSheet\"]"         ghcjs_dom_css_rule_get_parent_style_sheet ::         JSRef CSSRule -> IO (JSRef CSSStyleSheet)-#else -ghcjs_dom_css_rule_get_parent_style_sheet ::-                                            JSRef CSSRule -> IO (JSRef CSSStyleSheet)-ghcjs_dom_css_rule_get_parent_style_sheet = undefined-#endif   cssRuleGetParentStyleSheet ::                            (IsCSSRule self) => self -> IO (Maybe CSSStyleSheet)@@ -83,17 +63,10 @@   = fmap CSSStyleSheet . maybeJSNull <$>       (ghcjs_dom_css_rule_get_parent_style_sheet          (unCSSRule (toCSSRule self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"parentRule\"]"         ghcjs_dom_css_rule_get_parent_rule ::         JSRef CSSRule -> IO (JSRef CSSRule)-#else -ghcjs_dom_css_rule_get_parent_rule ::-                                     JSRef CSSRule -> IO (JSRef CSSRule)-ghcjs_dom_css_rule_get_parent_rule = undefined-#endif   cssRuleGetParentRule ::                      (IsCSSRule self) => self -> IO (Maybe CSSRule)

src/GHCJS/DOM/CSSRuleList.hs view

@@ -9,28 +9,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_css_rule_list_item ::         JSRef CSSRuleList -> Word -> IO (JSRef CSSRule)-#else -ghcjs_dom_css_rule_list_item ::-                               JSRef CSSRuleList -> Word -> IO (JSRef CSSRule)-ghcjs_dom_css_rule_list_item = undefined-#endif   cssRuleListItem ::                 (IsCSSRuleList self) => self -> Word -> IO (Maybe CSSRule)@@ -38,15 +27,9 @@   = fmap CSSRule . maybeJSNull <$>       (ghcjs_dom_css_rule_list_item (unCSSRuleList (toCSSRuleList self))          index)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_css_rule_list_get_length :: JSRef CSSRuleList -> IO Word-#else -ghcjs_dom_css_rule_list_get_length :: JSRef CSSRuleList -> IO Word-ghcjs_dom_css_rule_list_get_length = undefined-#endif   cssRuleListGetLength :: (IsCSSRuleList self) => self -> IO Word cssRuleListGetLength self

src/GHCJS/DOM/CSSStyleDeclaration.hs view

@@ -28,29 +28,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"getPropertyValue\"]($2)"         ghcjs_dom_css_style_declaration_get_property_value ::         JSRef CSSStyleDeclaration -> JSString -> IO JSString-#else -ghcjs_dom_css_style_declaration_get_property_value ::-                                                     JSRef CSSStyleDeclaration ->-                                                       JSString -> IO JSString-ghcjs_dom_css_style_declaration_get_property_value = undefined-#endif   cssStyleDeclarationGetPropertyValue ::                                     (IsCSSStyleDeclaration self, ToJSString propertyName,@@ -61,18 +49,10 @@       (ghcjs_dom_css_style_declaration_get_property_value          (unCSSStyleDeclaration (toCSSStyleDeclaration self))          (toJSString propertyName))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"removeProperty\"]($2)"         ghcjs_dom_css_style_declaration_remove_property ::         JSRef CSSStyleDeclaration -> JSString -> IO JSString-#else -ghcjs_dom_css_style_declaration_remove_property ::-                                                  JSRef CSSStyleDeclaration ->-                                                    JSString -> IO JSString-ghcjs_dom_css_style_declaration_remove_property = undefined-#endif   cssStyleDeclarationRemoveProperty ::                                   (IsCSSStyleDeclaration self, ToJSString propertyName,@@ -83,18 +63,10 @@       (ghcjs_dom_css_style_declaration_remove_property          (unCSSStyleDeclaration (toCSSStyleDeclaration self))          (toJSString propertyName))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"getPropertyPriority\"]($2)"         ghcjs_dom_css_style_declaration_get_property_priority ::         JSRef CSSStyleDeclaration -> JSString -> IO JSString-#else -ghcjs_dom_css_style_declaration_get_property_priority ::-                                                        JSRef CSSStyleDeclaration ->-                                                          JSString -> IO JSString-ghcjs_dom_css_style_declaration_get_property_priority = undefined-#endif   cssStyleDeclarationGetPropertyPriority ::                                        (IsCSSStyleDeclaration self, ToJSString propertyName,@@ -105,19 +77,11 @@       (ghcjs_dom_css_style_declaration_get_property_priority          (unCSSStyleDeclaration (toCSSStyleDeclaration self))          (toJSString propertyName))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"setProperty\"]($2, $3, $4)"         ghcjs_dom_css_style_declaration_set_property ::         JSRef CSSStyleDeclaration ->           JSString -> JSString -> JSString -> IO ()-#else -ghcjs_dom_css_style_declaration_set_property ::-                                               JSRef CSSStyleDeclaration ->-                                                 JSString -> JSString -> JSString -> IO ()-ghcjs_dom_css_style_declaration_set_property = undefined-#endif   cssStyleDeclarationSetProperty ::                                (IsCSSStyleDeclaration self, ToJSString propertyName,@@ -129,17 +93,10 @@       (toJSString propertyName)       (toJSString value)       (toJSString priority)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_css_style_declaration_item ::         JSRef CSSStyleDeclaration -> Word -> IO JSString-#else -ghcjs_dom_css_style_declaration_item ::-                                       JSRef CSSStyleDeclaration -> Word -> IO JSString-ghcjs_dom_css_style_declaration_item = undefined-#endif   cssStyleDeclarationItem ::                         (IsCSSStyleDeclaration self, FromJSString result) =>@@ -149,18 +106,10 @@       (ghcjs_dom_css_style_declaration_item          (unCSSStyleDeclaration (toCSSStyleDeclaration self))          index)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"getPropertyShorthand\"]($2)"         ghcjs_dom_css_style_declaration_get_property_shorthand ::         JSRef CSSStyleDeclaration -> JSString -> IO JSString-#else -ghcjs_dom_css_style_declaration_get_property_shorthand ::-                                                         JSRef CSSStyleDeclaration ->-                                                           JSString -> IO JSString-ghcjs_dom_css_style_declaration_get_property_shorthand = undefined-#endif   cssStyleDeclarationGetPropertyShorthand ::                                         (IsCSSStyleDeclaration self, ToJSString propertyName,@@ -171,19 +120,11 @@       (ghcjs_dom_css_style_declaration_get_property_shorthand          (unCSSStyleDeclaration (toCSSStyleDeclaration self))          (toJSString propertyName))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"isPropertyImplicit\"]($2) ? 1 : 0)"         ghcjs_dom_css_style_declaration_is_property_implicit ::         JSRef CSSStyleDeclaration -> JSString -> IO Bool-#else -ghcjs_dom_css_style_declaration_is_property_implicit ::-                                                       JSRef CSSStyleDeclaration ->-                                                         JSString -> IO Bool-ghcjs_dom_css_style_declaration_is_property_implicit = undefined-#endif   cssStyleDeclarationIsPropertyImplicit ::                                       (IsCSSStyleDeclaration self, ToJSString propertyName) =>@@ -192,17 +133,10 @@   = ghcjs_dom_css_style_declaration_is_property_implicit       (unCSSStyleDeclaration (toCSSStyleDeclaration self))       (toJSString propertyName)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"cssText\"] = $2;"         ghcjs_dom_css_style_declaration_set_css_text ::         JSRef CSSStyleDeclaration -> JSString -> IO ()-#else -ghcjs_dom_css_style_declaration_set_css_text ::-                                               JSRef CSSStyleDeclaration -> JSString -> IO ()-ghcjs_dom_css_style_declaration_set_css_text = undefined-#endif   cssStyleDeclarationSetCssText ::                               (IsCSSStyleDeclaration self, ToJSString val) =>@@ -211,17 +145,10 @@   = ghcjs_dom_css_style_declaration_set_css_text       (unCSSStyleDeclaration (toCSSStyleDeclaration self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"cssText\"]"         ghcjs_dom_css_style_declaration_get_css_text ::         JSRef CSSStyleDeclaration -> IO JSString-#else -ghcjs_dom_css_style_declaration_get_css_text ::-                                               JSRef CSSStyleDeclaration -> IO JSString-ghcjs_dom_css_style_declaration_get_css_text = undefined-#endif   cssStyleDeclarationGetCssText ::                               (IsCSSStyleDeclaration self, FromJSString result) =>@@ -230,34 +157,20 @@   = fromJSString <$>       (ghcjs_dom_css_style_declaration_get_css_text          (unCSSStyleDeclaration (toCSSStyleDeclaration self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_css_style_declaration_get_length ::         JSRef CSSStyleDeclaration -> IO Word-#else -ghcjs_dom_css_style_declaration_get_length ::-                                             JSRef CSSStyleDeclaration -> IO Word-ghcjs_dom_css_style_declaration_get_length = undefined-#endif   cssStyleDeclarationGetLength ::                              (IsCSSStyleDeclaration self) => self -> IO Word cssStyleDeclarationGetLength self   = ghcjs_dom_css_style_declaration_get_length       (unCSSStyleDeclaration (toCSSStyleDeclaration self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"parentRule\"]"         ghcjs_dom_css_style_declaration_get_parent_rule ::         JSRef CSSStyleDeclaration -> IO (JSRef CSSRule)-#else -ghcjs_dom_css_style_declaration_get_parent_rule ::-                                                  JSRef CSSStyleDeclaration -> IO (JSRef CSSRule)-ghcjs_dom_css_style_declaration_get_parent_rule = undefined-#endif   cssStyleDeclarationGetParentRule ::                                  (IsCSSStyleDeclaration self) => self -> IO (Maybe CSSRule)

src/GHCJS/DOM/CSSStyleSheet.hs view

@@ -14,28 +14,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)"         ghcjs_dom_css_style_sheet_insert_rule ::         JSRef CSSStyleSheet -> JSString -> Word -> IO Word-#else -ghcjs_dom_css_style_sheet_insert_rule ::-                                        JSRef CSSStyleSheet -> JSString -> Word -> IO Word-ghcjs_dom_css_style_sheet_insert_rule = undefined-#endif   cssStyleSheetInsertRule ::                         (IsCSSStyleSheet self, ToJSString rule) =>@@ -45,17 +34,10 @@       (unCSSStyleSheet (toCSSStyleSheet self))       (toJSString rule)       index---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"deleteRule\"]($2)"         ghcjs_dom_css_style_sheet_delete_rule ::         JSRef CSSStyleSheet -> Word -> IO ()-#else -ghcjs_dom_css_style_sheet_delete_rule ::-                                        JSRef CSSStyleSheet -> Word -> IO ()-ghcjs_dom_css_style_sheet_delete_rule = undefined-#endif   cssStyleSheetDeleteRule ::                         (IsCSSStyleSheet self) => self -> Word -> IO ()@@ -63,17 +45,10 @@   = ghcjs_dom_css_style_sheet_delete_rule       (unCSSStyleSheet (toCSSStyleSheet self))       index---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"addRule\"]($2, $3, $4)"         ghcjs_dom_css_style_sheet_add_rule ::         JSRef CSSStyleSheet -> JSString -> JSString -> Word -> IO Int-#else -ghcjs_dom_css_style_sheet_add_rule ::-                                     JSRef CSSStyleSheet -> JSString -> JSString -> Word -> IO Int-ghcjs_dom_css_style_sheet_add_rule = undefined-#endif   cssStyleSheetAddRule ::                      (IsCSSStyleSheet self, ToJSString selector, ToJSString style) =>@@ -84,17 +59,10 @@       (toJSString selector)       (toJSString style)       index---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"removeRule\"]($2)"         ghcjs_dom_css_style_sheet_remove_rule ::         JSRef CSSStyleSheet -> Word -> IO ()-#else -ghcjs_dom_css_style_sheet_remove_rule ::-                                        JSRef CSSStyleSheet -> Word -> IO ()-ghcjs_dom_css_style_sheet_remove_rule = undefined-#endif   cssStyleSheetRemoveRule ::                         (IsCSSStyleSheet self) => self -> Word -> IO ()@@ -102,17 +70,10 @@   = ghcjs_dom_css_style_sheet_remove_rule       (unCSSStyleSheet (toCSSStyleSheet self))       index---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"ownerRule\"]"         ghcjs_dom_css_style_sheet_get_owner_rule ::         JSRef CSSStyleSheet -> IO (JSRef CSSRule)-#else -ghcjs_dom_css_style_sheet_get_owner_rule ::-                                           JSRef CSSStyleSheet -> IO (JSRef CSSRule)-ghcjs_dom_css_style_sheet_get_owner_rule = undefined-#endif   cssStyleSheetGetOwnerRule ::                           (IsCSSStyleSheet self) => self -> IO (Maybe CSSRule)@@ -120,17 +81,10 @@   = fmap CSSRule . maybeJSNull <$>       (ghcjs_dom_css_style_sheet_get_owner_rule          (unCSSStyleSheet (toCSSStyleSheet self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"cssRules\"]"         ghcjs_dom_css_style_sheet_get_css_rules ::         JSRef CSSStyleSheet -> IO (JSRef CSSRuleList)-#else -ghcjs_dom_css_style_sheet_get_css_rules ::-                                          JSRef CSSStyleSheet -> IO (JSRef CSSRuleList)-ghcjs_dom_css_style_sheet_get_css_rules = undefined-#endif   cssStyleSheetGetCssRules ::                          (IsCSSStyleSheet self) => self -> IO (Maybe CSSRuleList)@@ -138,17 +92,10 @@   = fmap CSSRuleList . maybeJSNull <$>       (ghcjs_dom_css_style_sheet_get_css_rules          (unCSSStyleSheet (toCSSStyleSheet self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"rules\"]"         ghcjs_dom_css_style_sheet_get_rules ::         JSRef CSSStyleSheet -> IO (JSRef CSSRuleList)-#else -ghcjs_dom_css_style_sheet_get_rules ::-                                      JSRef CSSStyleSheet -> IO (JSRef CSSRuleList)-ghcjs_dom_css_style_sheet_get_rules = undefined-#endif   cssStyleSheetGetRules ::                       (IsCSSStyleSheet self) => self -> IO (Maybe CSSRuleList)

src/GHCJS/DOM/CSSValue.hs view

@@ -10,12 +10,8 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>))@@ -25,47 +21,28 @@ cCSS_PRIMITIVE_VALUE = 1 cCSS_VALUE_LIST = 2 cCSS_CUSTOM = 3---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"cssText\"] = $2;"         ghcjs_dom_css_value_set_css_text ::         JSRef CSSValue -> JSString -> IO ()-#else -ghcjs_dom_css_value_set_css_text ::-                                   JSRef CSSValue -> JSString -> IO ()-ghcjs_dom_css_value_set_css_text = undefined-#endif   cssValueSetCssText ::                    (IsCSSValue self, ToJSString val) => self -> val -> IO () cssValueSetCssText self val   = ghcjs_dom_css_value_set_css_text (unCSSValue (toCSSValue self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"cssText\"]"         ghcjs_dom_css_value_get_css_text :: JSRef CSSValue -> IO JSString-#else -ghcjs_dom_css_value_get_css_text :: JSRef CSSValue -> IO JSString-ghcjs_dom_css_value_get_css_text = undefined-#endif   cssValueGetCssText ::                    (IsCSSValue self, FromJSString result) => self -> IO result cssValueGetCssText self   = fromJSString <$>       (ghcjs_dom_css_value_get_css_text (unCSSValue (toCSSValue self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"cssValueType\"]"         ghcjs_dom_css_value_get_css_value_type :: JSRef CSSValue -> IO Word-#else -ghcjs_dom_css_value_get_css_value_type :: JSRef CSSValue -> IO Word-ghcjs_dom_css_value_get_css_value_type = undefined-#endif   cssValueGetCssValueType :: (IsCSSValue self) => self -> IO Word cssValueGetCssValueType self

src/GHCJS/DOM/CharacterData.hs view

@@ -15,28 +15,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"substringData\"]($2, $3)"         ghcjs_dom_character_data_substring_data ::         JSRef CharacterData -> Word -> Word -> IO JSString-#else -ghcjs_dom_character_data_substring_data ::-                                          JSRef CharacterData -> Word -> Word -> IO JSString-ghcjs_dom_character_data_substring_data = undefined-#endif   characterDataSubstringData ::                            (IsCharacterData self, FromJSString result) =>@@ -47,17 +36,10 @@          (unCharacterData (toCharacterData self))          offset          length)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"appendData\"]($2)"         ghcjs_dom_character_data_append_data ::         JSRef CharacterData -> JSString -> IO ()-#else -ghcjs_dom_character_data_append_data ::-                                       JSRef CharacterData -> JSString -> IO ()-ghcjs_dom_character_data_append_data = undefined-#endif   characterDataAppendData ::                         (IsCharacterData self, ToJSString data') => self -> data' -> IO ()@@ -65,17 +47,10 @@   = ghcjs_dom_character_data_append_data       (unCharacterData (toCharacterData self))       (toJSString data')---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"insertData\"]($2, $3)"         ghcjs_dom_character_data_insert_data ::         JSRef CharacterData -> Word -> JSString -> IO ()-#else -ghcjs_dom_character_data_insert_data ::-                                       JSRef CharacterData -> Word -> JSString -> IO ()-ghcjs_dom_character_data_insert_data = undefined-#endif   characterDataInsertData ::                         (IsCharacterData self, ToJSString data') =>@@ -85,17 +60,10 @@       (unCharacterData (toCharacterData self))       offset       (toJSString data')---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"deleteData\"]($2, $3)"         ghcjs_dom_character_data_delete_data ::         JSRef CharacterData -> Word -> Word -> IO ()-#else -ghcjs_dom_character_data_delete_data ::-                                       JSRef CharacterData -> Word -> Word -> IO ()-ghcjs_dom_character_data_delete_data = undefined-#endif   characterDataDeleteData ::                         (IsCharacterData self) => self -> Word -> Word -> IO ()@@ -104,17 +72,10 @@       (unCharacterData (toCharacterData self))       offset       length---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"replaceData\"]($2, $3, $4)"         ghcjs_dom_character_data_replace_data ::         JSRef CharacterData -> Word -> Word -> JSString -> IO ()-#else -ghcjs_dom_character_data_replace_data ::-                                        JSRef CharacterData -> Word -> Word -> JSString -> IO ()-ghcjs_dom_character_data_replace_data = undefined-#endif   characterDataReplaceData ::                          (IsCharacterData self, ToJSString data') =>@@ -125,17 +86,10 @@       offset       length       (toJSString data')---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"data\"] = $2;"         ghcjs_dom_character_data_set_data ::         JSRef CharacterData -> JSString -> IO ()-#else -ghcjs_dom_character_data_set_data ::-                                    JSRef CharacterData -> JSString -> IO ()-ghcjs_dom_character_data_set_data = undefined-#endif   characterDataSetData ::                      (IsCharacterData self, ToJSString val) => self -> val -> IO ()@@ -143,17 +97,10 @@   = ghcjs_dom_character_data_set_data       (unCharacterData (toCharacterData self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"data\"]"         ghcjs_dom_character_data_get_data ::         JSRef CharacterData -> IO JSString-#else -ghcjs_dom_character_data_get_data ::-                                    JSRef CharacterData -> IO JSString-ghcjs_dom_character_data_get_data = undefined-#endif   characterDataGetData ::                      (IsCharacterData self, FromJSString result) => self -> IO result@@ -161,17 +108,10 @@   = fromJSString <$>       (ghcjs_dom_character_data_get_data          (unCharacterData (toCharacterData self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_character_data_get_length ::         JSRef CharacterData -> IO Word-#else -ghcjs_dom_character_data_get_length ::-                                      JSRef CharacterData -> IO Word-ghcjs_dom_character_data_get_length = undefined-#endif   characterDataGetLength :: (IsCharacterData self) => self -> IO Word characterDataGetLength self

− src/GHCJS/DOM/Console.hs

@@ -1,55 +0,0 @@-{-# LANGUAGE CPP #-}-#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}-module GHCJS.DOM.Console-       (ghcjs_dom_console_time, consoleTime, ghcjs_dom_console_group_end,-        consoleGroupEnd, Console, IsConsole, castToConsole, gTypeConsole,-        toConsole)-       where-import GHCJS.Types-import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM----#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"time\"]($2)"-        ghcjs_dom_console_time :: JSRef Console -> JSString -> IO ()-#else -ghcjs_dom_console_time :: JSRef Console -> JSString -> IO ()-ghcjs_dom_console_time = undefined-#endif- -consoleTime ::-            (IsConsole self, ToJSString title) => self -> title -> IO ()-consoleTime self title-  = ghcjs_dom_console_time (unConsole (toConsole self))-      (toJSString title)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"groupEnd\"]()"-        ghcjs_dom_console_group_end :: JSRef Console -> IO ()-#else -ghcjs_dom_console_group_end :: JSRef Console -> IO ()-ghcjs_dom_console_group_end = undefined-#endif- -consoleGroupEnd :: (IsConsole self) => self -> IO ()-consoleGroupEnd self-  = ghcjs_dom_console_group_end (unConsole (toConsole self))-#else-module GHCJS.DOM.Console (-  module Graphics.UI.Gtk.WebKit.DOM.Console-  ) where-import Graphics.UI.Gtk.WebKit.DOM.Console-#endif

src/GHCJS/DOM/DOMApplicationCache.hs view

@@ -20,80 +20,48 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"update\"]()"         ghcjs_dom_dom_application_cache_update ::         JSRef DOMApplicationCache -> IO ()-#else -ghcjs_dom_dom_application_cache_update ::-                                         JSRef DOMApplicationCache -> IO ()-ghcjs_dom_dom_application_cache_update = undefined-#endif   domApplicationCacheUpdate ::                           (IsDOMApplicationCache self) => self -> IO () domApplicationCacheUpdate self   = ghcjs_dom_dom_application_cache_update       (unDOMApplicationCache (toDOMApplicationCache self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"swapCache\"]()"         ghcjs_dom_dom_application_cache_swap_cache ::         JSRef DOMApplicationCache -> IO ()-#else -ghcjs_dom_dom_application_cache_swap_cache ::-                                             JSRef DOMApplicationCache -> IO ()-ghcjs_dom_dom_application_cache_swap_cache = undefined-#endif   domApplicationCacheSwapCache ::                              (IsDOMApplicationCache self) => self -> IO () domApplicationCacheSwapCache self   = ghcjs_dom_dom_application_cache_swap_cache       (unDOMApplicationCache (toDOMApplicationCache self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"abort\"]()"         ghcjs_dom_dom_application_cache_abort ::         JSRef DOMApplicationCache -> IO ()-#else -ghcjs_dom_dom_application_cache_abort ::-                                        JSRef DOMApplicationCache -> IO ()-ghcjs_dom_dom_application_cache_abort = undefined-#endif   domApplicationCacheAbort ::                          (IsDOMApplicationCache self) => self -> IO () domApplicationCacheAbort self   = ghcjs_dom_dom_application_cache_abort       (unDOMApplicationCache (toDOMApplicationCache self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"dispatchEvent\"]($2) ? 1 : 0)"         ghcjs_dom_dom_application_cache_dispatch_event ::         JSRef DOMApplicationCache -> JSRef Event -> IO Bool-#else -ghcjs_dom_dom_application_cache_dispatch_event ::-                                                 JSRef DOMApplicationCache -> JSRef Event -> IO Bool-ghcjs_dom_dom_application_cache_dispatch_event = undefined-#endif   domApplicationCacheDispatchEvent ::                                  (IsDOMApplicationCache self, IsEvent evt) =>@@ -108,17 +76,10 @@ cDOWNLOADING = 3 cUPDATEREADY = 4 cOBSOLETE = 5---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"status\"]"         ghcjs_dom_dom_application_cache_get_status ::         JSRef DOMApplicationCache -> IO Word-#else -ghcjs_dom_dom_application_cache_get_status ::-                                             JSRef DOMApplicationCache -> IO Word-ghcjs_dom_dom_application_cache_get_status = undefined-#endif   domApplicationCacheGetStatus ::                              (IsDOMApplicationCache self) => self -> IO Word

src/GHCJS/DOM/DOMImplementation.hs view

@@ -17,30 +17,18 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"hasFeature\"]($2,\n$3) ? 1 : 0)"         ghcjs_dom_dom_implementation_has_feature ::         JSRef DOMImplementation -> JSString -> JSString -> IO Bool-#else -ghcjs_dom_dom_implementation_has_feature ::-                                           JSRef DOMImplementation ->-                                             JSString -> JSString -> IO Bool-ghcjs_dom_dom_implementation_has_feature = undefined-#endif   domImplementationHasFeature ::                             (IsDOMImplementation self, ToJSString feature,@@ -51,22 +39,12 @@       (unDOMImplementation (toDOMImplementation self))       (toJSString feature)       (toJSString version)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"createDocumentType\"]($2, $3,\n$4)"         ghcjs_dom_dom_implementation_create_document_type ::         JSRef DOMImplementation ->           JSString -> JSString -> JSString -> IO (JSRef DocumentType)-#else -ghcjs_dom_dom_implementation_create_document_type ::-                                                    JSRef DOMImplementation ->-                                                      JSString ->-                                                        JSString ->-                                                          JSString -> IO (JSRef DocumentType)-ghcjs_dom_dom_implementation_create_document_type = undefined-#endif   domImplementationCreateDocumentType ::                                     (IsDOMImplementation self, ToJSString qualifiedName,@@ -82,22 +60,12 @@          (toJSString qualifiedName)          (toJSString publicId)          (toJSString systemId))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"createDocument\"]($2, $3, $4)"         ghcjs_dom_dom_implementation_create_document ::         JSRef DOMImplementation ->           JSString -> JSString -> JSRef DocumentType -> IO (JSRef Document)-#else -ghcjs_dom_dom_implementation_create_document ::-                                               JSRef DOMImplementation ->-                                                 JSString ->-                                                   JSString ->-                                                     JSRef DocumentType -> IO (JSRef Document)-ghcjs_dom_dom_implementation_create_document = undefined-#endif   domImplementationCreateDocument ::                                 (IsDOMImplementation self, ToJSString namespaceURI,@@ -113,21 +81,12 @@          (toJSString namespaceURI)          (toJSString qualifiedName)          (maybe jsNull (unDocumentType . toDocumentType) doctype))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"createCSSStyleSheet\"]($2,\n$3)"         ghcjs_dom_dom_implementation_create_css_style_sheet ::         JSRef DOMImplementation ->           JSString -> JSString -> IO (JSRef CSSStyleSheet)-#else -ghcjs_dom_dom_implementation_create_css_style_sheet ::-                                                      JSRef DOMImplementation ->-                                                        JSString ->-                                                          JSString -> IO (JSRef CSSStyleSheet)-ghcjs_dom_dom_implementation_create_css_style_sheet = undefined-#endif   domImplementationCreateCSSStyleSheet ::                                      (IsDOMImplementation self, ToJSString title,@@ -139,18 +98,10 @@          (unDOMImplementation (toDOMImplementation self))          (toJSString title)          (toJSString media))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"createHTMLDocument\"]($2)"         ghcjs_dom_dom_implementation_create_html_document ::         JSRef DOMImplementation -> JSString -> IO (JSRef HTMLDocument)-#else -ghcjs_dom_dom_implementation_create_html_document ::-                                                    JSRef DOMImplementation ->-                                                      JSString -> IO (JSRef HTMLDocument)-ghcjs_dom_dom_implementation_create_html_document = undefined-#endif   domImplementationCreateHTMLDocument ::                                     (IsDOMImplementation self, ToJSString title) =>

src/GHCJS/DOM/DOMMimeType.hs view

@@ -10,28 +10,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"suffixes\"]"         ghcjs_dom_dom_mime_type_get_suffixes ::         JSRef DOMMimeType -> IO JSString-#else -ghcjs_dom_dom_mime_type_get_suffixes ::-                                       JSRef DOMMimeType -> IO JSString-ghcjs_dom_dom_mime_type_get_suffixes = undefined-#endif   domMimeTypeGetSuffixes ::                        (IsDOMMimeType self, FromJSString result) => self -> IO result@@ -39,17 +28,10 @@   = fromJSString <$>       (ghcjs_dom_dom_mime_type_get_suffixes          (unDOMMimeType (toDOMMimeType self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"description\"]"         ghcjs_dom_dom_mime_type_get_description ::         JSRef DOMMimeType -> IO JSString-#else -ghcjs_dom_dom_mime_type_get_description ::-                                          JSRef DOMMimeType -> IO JSString-ghcjs_dom_dom_mime_type_get_description = undefined-#endif   domMimeTypeGetDescription ::                           (IsDOMMimeType self, FromJSString result) => self -> IO result@@ -57,17 +39,10 @@   = fromJSString <$>       (ghcjs_dom_dom_mime_type_get_description          (unDOMMimeType (toDOMMimeType self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"enabledPlugin\"]"         ghcjs_dom_dom_mime_type_get_enabled_plugin ::         JSRef DOMMimeType -> IO (JSRef DOMPlugin)-#else -ghcjs_dom_dom_mime_type_get_enabled_plugin ::-                                             JSRef DOMMimeType -> IO (JSRef DOMPlugin)-ghcjs_dom_dom_mime_type_get_enabled_plugin = undefined-#endif   domMimeTypeGetEnabledPlugin ::                             (IsDOMMimeType self) => self -> IO (Maybe DOMPlugin)

src/GHCJS/DOM/DOMMimeTypeArray.hs view

@@ -11,28 +11,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_dom_mime_type_array_item ::         JSRef DOMMimeTypeArray -> Word -> IO (JSRef DOMMimeType)-#else -ghcjs_dom_dom_mime_type_array_item ::-                                     JSRef DOMMimeTypeArray -> Word -> IO (JSRef DOMMimeType)-ghcjs_dom_dom_mime_type_array_item = undefined-#endif   domMimeTypeArrayItem ::                      (IsDOMMimeTypeArray self) => self -> Word -> IO (Maybe DOMMimeType)@@ -41,18 +30,10 @@       (ghcjs_dom_dom_mime_type_array_item          (unDOMMimeTypeArray (toDOMMimeTypeArray self))          index)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"namedItem\"]($2)"         ghcjs_dom_dom_mime_type_array_named_item ::         JSRef DOMMimeTypeArray -> JSString -> IO (JSRef DOMMimeType)-#else -ghcjs_dom_dom_mime_type_array_named_item ::-                                           JSRef DOMMimeTypeArray ->-                                             JSString -> IO (JSRef DOMMimeType)-ghcjs_dom_dom_mime_type_array_named_item = undefined-#endif   domMimeTypeArrayNamedItem ::                           (IsDOMMimeTypeArray self, ToJSString name) =>@@ -62,17 +43,10 @@       (ghcjs_dom_dom_mime_type_array_named_item          (unDOMMimeTypeArray (toDOMMimeTypeArray self))          (toJSString name))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_dom_mime_type_array_get_length ::         JSRef DOMMimeTypeArray -> IO Word-#else -ghcjs_dom_dom_mime_type_array_get_length ::-                                           JSRef DOMMimeTypeArray -> IO Word-ghcjs_dom_dom_mime_type_array_get_length = undefined-#endif   domMimeTypeArrayGetLength ::                           (IsDOMMimeTypeArray self) => self -> IO Word

src/GHCJS/DOM/DOMNamedFlowCollection.hs view

@@ -13,29 +13,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_dom_named_flow_collection_item ::         JSRef DOMNamedFlowCollection -> Word -> IO (JSRef WebKitNamedFlow)-#else -ghcjs_dom_dom_named_flow_collection_item ::-                                           JSRef DOMNamedFlowCollection ->-                                             Word -> IO (JSRef WebKitNamedFlow)-ghcjs_dom_dom_named_flow_collection_item = undefined-#endif   domNamedFlowCollectionItem ::                            (IsDOMNamedFlowCollection self) =>@@ -45,19 +33,11 @@       (ghcjs_dom_dom_named_flow_collection_item          (unDOMNamedFlowCollection (toDOMNamedFlowCollection self))          index)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"namedItem\"]($2)"         ghcjs_dom_dom_named_flow_collection_named_item ::         JSRef DOMNamedFlowCollection ->           JSString -> IO (JSRef WebKitNamedFlow)-#else -ghcjs_dom_dom_named_flow_collection_named_item ::-                                                 JSRef DOMNamedFlowCollection ->-                                                   JSString -> IO (JSRef WebKitNamedFlow)-ghcjs_dom_dom_named_flow_collection_named_item = undefined-#endif   domNamedFlowCollectionNamedItem ::                                 (IsDOMNamedFlowCollection self, ToJSString name) =>@@ -67,17 +47,10 @@       (ghcjs_dom_dom_named_flow_collection_named_item          (unDOMNamedFlowCollection (toDOMNamedFlowCollection self))          (toJSString name))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_dom_named_flow_collection_get_length ::         JSRef DOMNamedFlowCollection -> IO Word-#else -ghcjs_dom_dom_named_flow_collection_get_length ::-                                                 JSRef DOMNamedFlowCollection -> IO Word-ghcjs_dom_dom_named_flow_collection_get_length = undefined-#endif   domNamedFlowCollectionGetLength ::                                 (IsDOMNamedFlowCollection self) => self -> IO Word

src/GHCJS/DOM/DOMPlugin.hs view

@@ -12,45 +12,27 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_dom_plugin_item ::         JSRef DOMPlugin -> Word -> IO (JSRef DOMMimeType)-#else -ghcjs_dom_dom_plugin_item ::-                            JSRef DOMPlugin -> Word -> IO (JSRef DOMMimeType)-ghcjs_dom_dom_plugin_item = undefined-#endif   domPluginItem ::               (IsDOMPlugin self) => self -> Word -> IO (Maybe DOMMimeType) domPluginItem self index   = fmap DOMMimeType . maybeJSNull <$>       (ghcjs_dom_dom_plugin_item (unDOMPlugin (toDOMPlugin self)) index)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"namedItem\"]($2)"         ghcjs_dom_dom_plugin_named_item ::         JSRef DOMPlugin -> JSString -> IO (JSRef DOMMimeType)-#else -ghcjs_dom_dom_plugin_named_item ::-                                  JSRef DOMPlugin -> JSString -> IO (JSRef DOMMimeType)-ghcjs_dom_dom_plugin_named_item = undefined-#endif   domPluginNamedItem ::                    (IsDOMPlugin self, ToJSString name) =>@@ -59,30 +41,18 @@   = fmap DOMMimeType . maybeJSNull <$>       (ghcjs_dom_dom_plugin_named_item (unDOMPlugin (toDOMPlugin self))          (toJSString name))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_dom_plugin_get_name :: JSRef DOMPlugin -> IO JSString-#else -ghcjs_dom_dom_plugin_get_name :: JSRef DOMPlugin -> IO JSString-ghcjs_dom_dom_plugin_get_name = undefined-#endif   domPluginGetName ::                  (IsDOMPlugin self, FromJSString result) => self -> IO result domPluginGetName self   = fromJSString <$>       (ghcjs_dom_dom_plugin_get_name (unDOMPlugin (toDOMPlugin self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"filename\"]"         ghcjs_dom_dom_plugin_get_filename :: JSRef DOMPlugin -> IO JSString-#else -ghcjs_dom_dom_plugin_get_filename :: JSRef DOMPlugin -> IO JSString-ghcjs_dom_dom_plugin_get_filename = undefined-#endif   domPluginGetFilename ::                      (IsDOMPlugin self, FromJSString result) => self -> IO result@@ -90,17 +60,10 @@   = fromJSString <$>       (ghcjs_dom_dom_plugin_get_filename          (unDOMPlugin (toDOMPlugin self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"description\"]"         ghcjs_dom_dom_plugin_get_description ::         JSRef DOMPlugin -> IO JSString-#else -ghcjs_dom_dom_plugin_get_description ::-                                       JSRef DOMPlugin -> IO JSString-ghcjs_dom_dom_plugin_get_description = undefined-#endif   domPluginGetDescription ::                         (IsDOMPlugin self, FromJSString result) => self -> IO result@@ -108,15 +71,9 @@   = fromJSString <$>       (ghcjs_dom_dom_plugin_get_description          (unDOMPlugin (toDOMPlugin self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_dom_plugin_get_length :: JSRef DOMPlugin -> IO Word-#else -ghcjs_dom_dom_plugin_get_length :: JSRef DOMPlugin -> IO Word-ghcjs_dom_dom_plugin_get_length = undefined-#endif   domPluginGetLength :: (IsDOMPlugin self) => self -> IO Word domPluginGetLength self

src/GHCJS/DOM/DOMPluginArray.hs view

@@ -11,28 +11,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_dom_plugin_array_item ::         JSRef DOMPluginArray -> Word -> IO (JSRef DOMPlugin)-#else -ghcjs_dom_dom_plugin_array_item ::-                                  JSRef DOMPluginArray -> Word -> IO (JSRef DOMPlugin)-ghcjs_dom_dom_plugin_array_item = undefined-#endif   domPluginArrayItem ::                    (IsDOMPluginArray self) => self -> Word -> IO (Maybe DOMPlugin)@@ -41,17 +30,10 @@       (ghcjs_dom_dom_plugin_array_item          (unDOMPluginArray (toDOMPluginArray self))          index)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"namedItem\"]($2)"         ghcjs_dom_dom_plugin_array_named_item ::         JSRef DOMPluginArray -> JSString -> IO (JSRef DOMPlugin)-#else -ghcjs_dom_dom_plugin_array_named_item ::-                                        JSRef DOMPluginArray -> JSString -> IO (JSRef DOMPlugin)-ghcjs_dom_dom_plugin_array_named_item = undefined-#endif   domPluginArrayNamedItem ::                         (IsDOMPluginArray self, ToJSString name) =>@@ -61,17 +43,10 @@       (ghcjs_dom_dom_plugin_array_named_item          (unDOMPluginArray (toDOMPluginArray self))          (toJSString name))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"refresh\"]($2)"         ghcjs_dom_dom_plugin_array_refresh ::         JSRef DOMPluginArray -> Bool -> IO ()-#else -ghcjs_dom_dom_plugin_array_refresh ::-                                     JSRef DOMPluginArray -> Bool -> IO ()-ghcjs_dom_dom_plugin_array_refresh = undefined-#endif   domPluginArrayRefresh ::                       (IsDOMPluginArray self) => self -> Bool -> IO ()@@ -79,17 +54,10 @@   = ghcjs_dom_dom_plugin_array_refresh       (unDOMPluginArray (toDOMPluginArray self))       reload---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_dom_plugin_array_get_length ::         JSRef DOMPluginArray -> IO Word-#else -ghcjs_dom_dom_plugin_array_get_length ::-                                        JSRef DOMPluginArray -> IO Word-ghcjs_dom_dom_plugin_array_get_length = undefined-#endif   domPluginArrayGetLength ::                         (IsDOMPluginArray self) => self -> IO Word

src/GHCJS/DOM/DOMSecurityPolicy.hs view

@@ -37,29 +37,18 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"allowsConnectionTo\"]($2) ? 1 : 0)"         ghcjs_dom_dom_security_policy_allows_connection_to ::         JSRef DOMSecurityPolicy -> JSString -> IO Bool-#else -ghcjs_dom_dom_security_policy_allows_connection_to ::-                                                     JSRef DOMSecurityPolicy -> JSString -> IO Bool-ghcjs_dom_dom_security_policy_allows_connection_to = undefined-#endif   domSecurityPolicyAllowsConnectionTo ::                                     (IsDOMSecurityPolicy self, ToJSString url) =>@@ -68,18 +57,11 @@   = ghcjs_dom_dom_security_policy_allows_connection_to       (unDOMSecurityPolicy (toDOMSecurityPolicy self))       (toJSString url)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"allowsFontFrom\"]($2) ? 1 : 0)"         ghcjs_dom_dom_security_policy_allows_font_from ::         JSRef DOMSecurityPolicy -> JSString -> IO Bool-#else -ghcjs_dom_dom_security_policy_allows_font_from ::-                                                 JSRef DOMSecurityPolicy -> JSString -> IO Bool-ghcjs_dom_dom_security_policy_allows_font_from = undefined-#endif   domSecurityPolicyAllowsFontFrom ::                                 (IsDOMSecurityPolicy self, ToJSString url) =>@@ -88,18 +70,11 @@   = ghcjs_dom_dom_security_policy_allows_font_from       (unDOMSecurityPolicy (toDOMSecurityPolicy self))       (toJSString url)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"allowsFormAction\"]($2) ? 1 : 0)"         ghcjs_dom_dom_security_policy_allows_form_action ::         JSRef DOMSecurityPolicy -> JSString -> IO Bool-#else -ghcjs_dom_dom_security_policy_allows_form_action ::-                                                   JSRef DOMSecurityPolicy -> JSString -> IO Bool-ghcjs_dom_dom_security_policy_allows_form_action = undefined-#endif   domSecurityPolicyAllowsFormAction ::                                   (IsDOMSecurityPolicy self, ToJSString url) =>@@ -108,18 +83,11 @@   = ghcjs_dom_dom_security_policy_allows_form_action       (unDOMSecurityPolicy (toDOMSecurityPolicy self))       (toJSString url)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"allowsFrameFrom\"]($2) ? 1 : 0)"         ghcjs_dom_dom_security_policy_allows_frame_from ::         JSRef DOMSecurityPolicy -> JSString -> IO Bool-#else -ghcjs_dom_dom_security_policy_allows_frame_from ::-                                                  JSRef DOMSecurityPolicy -> JSString -> IO Bool-ghcjs_dom_dom_security_policy_allows_frame_from = undefined-#endif   domSecurityPolicyAllowsFrameFrom ::                                  (IsDOMSecurityPolicy self, ToJSString url) =>@@ -128,18 +96,11 @@   = ghcjs_dom_dom_security_policy_allows_frame_from       (unDOMSecurityPolicy (toDOMSecurityPolicy self))       (toJSString url)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"allowsImageFrom\"]($2) ? 1 : 0)"         ghcjs_dom_dom_security_policy_allows_image_from ::         JSRef DOMSecurityPolicy -> JSString -> IO Bool-#else -ghcjs_dom_dom_security_policy_allows_image_from ::-                                                  JSRef DOMSecurityPolicy -> JSString -> IO Bool-ghcjs_dom_dom_security_policy_allows_image_from = undefined-#endif   domSecurityPolicyAllowsImageFrom ::                                  (IsDOMSecurityPolicy self, ToJSString url) =>@@ -148,18 +109,11 @@   = ghcjs_dom_dom_security_policy_allows_image_from       (unDOMSecurityPolicy (toDOMSecurityPolicy self))       (toJSString url)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"allowsMediaFrom\"]($2) ? 1 : 0)"         ghcjs_dom_dom_security_policy_allows_media_from ::         JSRef DOMSecurityPolicy -> JSString -> IO Bool-#else -ghcjs_dom_dom_security_policy_allows_media_from ::-                                                  JSRef DOMSecurityPolicy -> JSString -> IO Bool-ghcjs_dom_dom_security_policy_allows_media_from = undefined-#endif   domSecurityPolicyAllowsMediaFrom ::                                  (IsDOMSecurityPolicy self, ToJSString url) =>@@ -168,18 +122,11 @@   = ghcjs_dom_dom_security_policy_allows_media_from       (unDOMSecurityPolicy (toDOMSecurityPolicy self))       (toJSString url)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"allowsObjectFrom\"]($2) ? 1 : 0)"         ghcjs_dom_dom_security_policy_allows_object_from ::         JSRef DOMSecurityPolicy -> JSString -> IO Bool-#else -ghcjs_dom_dom_security_policy_allows_object_from ::-                                                   JSRef DOMSecurityPolicy -> JSString -> IO Bool-ghcjs_dom_dom_security_policy_allows_object_from = undefined-#endif   domSecurityPolicyAllowsObjectFrom ::                                   (IsDOMSecurityPolicy self, ToJSString url) =>@@ -188,18 +135,11 @@   = ghcjs_dom_dom_security_policy_allows_object_from       (unDOMSecurityPolicy (toDOMSecurityPolicy self))       (toJSString url)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"allowsPluginType\"]($2) ? 1 : 0)"         ghcjs_dom_dom_security_policy_allows_plugin_type ::         JSRef DOMSecurityPolicy -> JSString -> IO Bool-#else -ghcjs_dom_dom_security_policy_allows_plugin_type ::-                                                   JSRef DOMSecurityPolicy -> JSString -> IO Bool-ghcjs_dom_dom_security_policy_allows_plugin_type = undefined-#endif   domSecurityPolicyAllowsPluginType ::                                   (IsDOMSecurityPolicy self, ToJSString type') =>@@ -208,18 +148,11 @@   = ghcjs_dom_dom_security_policy_allows_plugin_type       (unDOMSecurityPolicy (toDOMSecurityPolicy self))       (toJSString type')---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"allowsScriptFrom\"]($2) ? 1 : 0)"         ghcjs_dom_dom_security_policy_allows_script_from ::         JSRef DOMSecurityPolicy -> JSString -> IO Bool-#else -ghcjs_dom_dom_security_policy_allows_script_from ::-                                                   JSRef DOMSecurityPolicy -> JSString -> IO Bool-ghcjs_dom_dom_security_policy_allows_script_from = undefined-#endif   domSecurityPolicyAllowsScriptFrom ::                                   (IsDOMSecurityPolicy self, ToJSString url) =>@@ -228,18 +161,11 @@   = ghcjs_dom_dom_security_policy_allows_script_from       (unDOMSecurityPolicy (toDOMSecurityPolicy self))       (toJSString url)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"allowsStyleFrom\"]($2) ? 1 : 0)"         ghcjs_dom_dom_security_policy_allows_style_from ::         JSRef DOMSecurityPolicy -> JSString -> IO Bool-#else -ghcjs_dom_dom_security_policy_allows_style_from ::-                                                  JSRef DOMSecurityPolicy -> JSString -> IO Bool-ghcjs_dom_dom_security_policy_allows_style_from = undefined-#endif   domSecurityPolicyAllowsStyleFrom ::                                  (IsDOMSecurityPolicy self, ToJSString url) =>@@ -248,87 +174,52 @@   = ghcjs_dom_dom_security_policy_allows_style_from       (unDOMSecurityPolicy (toDOMSecurityPolicy self))       (toJSString url)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"allowsEval\"] ? 1 : 0)"         ghcjs_dom_dom_security_policy_get_allows_eval ::         JSRef DOMSecurityPolicy -> IO Bool-#else -ghcjs_dom_dom_security_policy_get_allows_eval ::-                                                JSRef DOMSecurityPolicy -> IO Bool-ghcjs_dom_dom_security_policy_get_allows_eval = undefined-#endif   domSecurityPolicyGetAllowsEval ::                                (IsDOMSecurityPolicy self) => self -> IO Bool domSecurityPolicyGetAllowsEval self   = ghcjs_dom_dom_security_policy_get_allows_eval       (unDOMSecurityPolicy (toDOMSecurityPolicy self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"allowsInlineScript\"] ? 1 : 0)"         ghcjs_dom_dom_security_policy_get_allows_inline_script ::         JSRef DOMSecurityPolicy -> IO Bool-#else -ghcjs_dom_dom_security_policy_get_allows_inline_script ::-                                                         JSRef DOMSecurityPolicy -> IO Bool-ghcjs_dom_dom_security_policy_get_allows_inline_script = undefined-#endif   domSecurityPolicyGetAllowsInlineScript ::                                        (IsDOMSecurityPolicy self) => self -> IO Bool domSecurityPolicyGetAllowsInlineScript self   = ghcjs_dom_dom_security_policy_get_allows_inline_script       (unDOMSecurityPolicy (toDOMSecurityPolicy self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"allowsInlineStyle\"] ? 1 : 0)"         ghcjs_dom_dom_security_policy_get_allows_inline_style ::         JSRef DOMSecurityPolicy -> IO Bool-#else -ghcjs_dom_dom_security_policy_get_allows_inline_style ::-                                                        JSRef DOMSecurityPolicy -> IO Bool-ghcjs_dom_dom_security_policy_get_allows_inline_style = undefined-#endif   domSecurityPolicyGetAllowsInlineStyle ::                                       (IsDOMSecurityPolicy self) => self -> IO Bool domSecurityPolicyGetAllowsInlineStyle self   = ghcjs_dom_dom_security_policy_get_allows_inline_style       (unDOMSecurityPolicy (toDOMSecurityPolicy self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"isActive\"] ? 1 : 0)"         ghcjs_dom_dom_security_policy_get_is_active ::         JSRef DOMSecurityPolicy -> IO Bool-#else -ghcjs_dom_dom_security_policy_get_is_active ::-                                              JSRef DOMSecurityPolicy -> IO Bool-ghcjs_dom_dom_security_policy_get_is_active = undefined-#endif   domSecurityPolicyGetIsActive ::                              (IsDOMSecurityPolicy self) => self -> IO Bool domSecurityPolicyGetIsActive self   = ghcjs_dom_dom_security_policy_get_is_active       (unDOMSecurityPolicy (toDOMSecurityPolicy self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"reportURIs\"]"         ghcjs_dom_dom_security_policy_get_report_ur_is ::         JSRef DOMSecurityPolicy -> IO (JSRef DOMStringList)-#else -ghcjs_dom_dom_security_policy_get_report_ur_is ::-                                                 JSRef DOMSecurityPolicy -> IO (JSRef DOMStringList)-ghcjs_dom_dom_security_policy_get_report_ur_is = undefined-#endif   domSecurityPolicyGetReportURIs ::                                (IsDOMSecurityPolicy self) => self -> IO (Maybe DOMStringList)

src/GHCJS/DOM/DOMSelection.hs view

@@ -37,28 +37,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"collapse\"]($2, $3)"         ghcjs_dom_dom_selection_collapse ::         JSRef DOMSelection -> JSRef Node -> Int -> IO ()-#else -ghcjs_dom_dom_selection_collapse ::-                                   JSRef DOMSelection -> JSRef Node -> Int -> IO ()-ghcjs_dom_dom_selection_collapse = undefined-#endif   domSelectionCollapse ::                      (IsDOMSelection self, IsNode node) =>@@ -68,68 +57,40 @@       (unDOMSelection (toDOMSelection self))       (maybe jsNull (unNode . toNode) node)       index---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"collapseToEnd\"]()"         ghcjs_dom_dom_selection_collapse_to_end ::         JSRef DOMSelection -> IO ()-#else -ghcjs_dom_dom_selection_collapse_to_end ::-                                          JSRef DOMSelection -> IO ()-ghcjs_dom_dom_selection_collapse_to_end = undefined-#endif   domSelectionCollapseToEnd :: (IsDOMSelection self) => self -> IO () domSelectionCollapseToEnd self   = ghcjs_dom_dom_selection_collapse_to_end       (unDOMSelection (toDOMSelection self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"collapseToStart\"]()"         ghcjs_dom_dom_selection_collapse_to_start ::         JSRef DOMSelection -> IO ()-#else -ghcjs_dom_dom_selection_collapse_to_start ::-                                            JSRef DOMSelection -> IO ()-ghcjs_dom_dom_selection_collapse_to_start = undefined-#endif   domSelectionCollapseToStart ::                             (IsDOMSelection self) => self -> IO () domSelectionCollapseToStart self   = ghcjs_dom_dom_selection_collapse_to_start       (unDOMSelection (toDOMSelection self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"deleteFromDocument\"]()"         ghcjs_dom_dom_selection_delete_from_document ::         JSRef DOMSelection -> IO ()-#else -ghcjs_dom_dom_selection_delete_from_document ::-                                               JSRef DOMSelection -> IO ()-ghcjs_dom_dom_selection_delete_from_document = undefined-#endif   domSelectionDeleteFromDocument ::                                (IsDOMSelection self) => self -> IO () domSelectionDeleteFromDocument self   = ghcjs_dom_dom_selection_delete_from_document       (unDOMSelection (toDOMSelection self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"containsNode\"]($2,\n$3) ? 1 : 0)"         ghcjs_dom_dom_selection_contains_node ::         JSRef DOMSelection -> JSRef Node -> Bool -> IO Bool-#else -ghcjs_dom_dom_selection_contains_node ::-                                        JSRef DOMSelection -> JSRef Node -> Bool -> IO Bool-ghcjs_dom_dom_selection_contains_node = undefined-#endif   domSelectionContainsNode ::                          (IsDOMSelection self, IsNode node) =>@@ -139,17 +100,10 @@       (unDOMSelection (toDOMSelection self))       (maybe jsNull (unNode . toNode) node)       allowPartial---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"selectAllChildren\"]($2)"         ghcjs_dom_dom_selection_select_all_children ::         JSRef DOMSelection -> JSRef Node -> IO ()-#else -ghcjs_dom_dom_selection_select_all_children ::-                                              JSRef DOMSelection -> JSRef Node -> IO ()-ghcjs_dom_dom_selection_select_all_children = undefined-#endif   domSelectionSelectAllChildren ::                               (IsDOMSelection self, IsNode node) => self -> Maybe node -> IO ()@@ -157,17 +111,10 @@   = ghcjs_dom_dom_selection_select_all_children       (unDOMSelection (toDOMSelection self))       (maybe jsNull (unNode . toNode) node)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"extend\"]($2, $3)"         ghcjs_dom_dom_selection_extend ::         JSRef DOMSelection -> JSRef Node -> Int -> IO ()-#else -ghcjs_dom_dom_selection_extend ::-                                 JSRef DOMSelection -> JSRef Node -> Int -> IO ()-ghcjs_dom_dom_selection_extend = undefined-#endif   domSelectionExtend ::                    (IsDOMSelection self, IsNode node) =>@@ -177,17 +124,10 @@       (unDOMSelection (toDOMSelection self))       (maybe jsNull (unNode . toNode) node)       offset---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"getRangeAt\"]($2)"         ghcjs_dom_dom_selection_get_range_at ::         JSRef DOMSelection -> Int -> IO (JSRef DOMRange)-#else -ghcjs_dom_dom_selection_get_range_at ::-                                       JSRef DOMSelection -> Int -> IO (JSRef DOMRange)-ghcjs_dom_dom_selection_get_range_at = undefined-#endif   domSelectionGetRangeAt ::                        (IsDOMSelection self) => self -> Int -> IO (Maybe DOMRange)@@ -196,34 +136,20 @@       (ghcjs_dom_dom_selection_get_range_at          (unDOMSelection (toDOMSelection self))          index)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"removeAllRanges\"]()"         ghcjs_dom_dom_selection_remove_all_ranges ::         JSRef DOMSelection -> IO ()-#else -ghcjs_dom_dom_selection_remove_all_ranges ::-                                            JSRef DOMSelection -> IO ()-ghcjs_dom_dom_selection_remove_all_ranges = undefined-#endif   domSelectionRemoveAllRanges ::                             (IsDOMSelection self) => self -> IO () domSelectionRemoveAllRanges self   = ghcjs_dom_dom_selection_remove_all_ranges       (unDOMSelection (toDOMSelection self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"addRange\"]($2)"         ghcjs_dom_dom_selection_add_range ::         JSRef DOMSelection -> JSRef DOMRange -> IO ()-#else -ghcjs_dom_dom_selection_add_range ::-                                    JSRef DOMSelection -> JSRef DOMRange -> IO ()-ghcjs_dom_dom_selection_add_range = undefined-#endif   domSelectionAddRange ::                      (IsDOMSelection self, IsDOMRange range) =>@@ -232,17 +158,10 @@   = ghcjs_dom_dom_selection_add_range       (unDOMSelection (toDOMSelection self))       (maybe jsNull (unDOMRange . toDOMRange) range)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"modify\"]($2, $3, $4)"         ghcjs_dom_dom_selection_modify ::         JSRef DOMSelection -> JSString -> JSString -> JSString -> IO ()-#else -ghcjs_dom_dom_selection_modify ::-                                 JSRef DOMSelection -> JSString -> JSString -> JSString -> IO ()-ghcjs_dom_dom_selection_modify = undefined-#endif   domSelectionModify ::                    (IsDOMSelection self, ToJSString alter, ToJSString direction,@@ -254,20 +173,12 @@       (toJSString alter)       (toJSString direction)       (toJSString granularity)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"setBaseAndExtent\"]($2, $3,\n$4, $5)"         ghcjs_dom_dom_selection_set_base_and_extent ::         JSRef DOMSelection ->           JSRef Node -> Int -> JSRef Node -> Int -> IO ()-#else -ghcjs_dom_dom_selection_set_base_and_extent ::-                                              JSRef DOMSelection ->-                                                JSRef Node -> Int -> JSRef Node -> Int -> IO ()-ghcjs_dom_dom_selection_set_base_and_extent = undefined-#endif   domSelectionSetBaseAndExtent ::                              (IsDOMSelection self, IsNode baseNode, IsNode extentNode) =>@@ -280,17 +191,10 @@       baseOffset       (maybe jsNull (unNode . toNode) extentNode)       extentOffset---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"setPosition\"]($2, $3)"         ghcjs_dom_dom_selection_set_position ::         JSRef DOMSelection -> JSRef Node -> Int -> IO ()-#else -ghcjs_dom_dom_selection_set_position ::-                                       JSRef DOMSelection -> JSRef Node -> Int -> IO ()-ghcjs_dom_dom_selection_set_position = undefined-#endif   domSelectionSetPosition ::                         (IsDOMSelection self, IsNode node) =>@@ -300,31 +204,18 @@       (unDOMSelection (toDOMSelection self))       (maybe jsNull (unNode . toNode) node)       offset---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"empty\"]()"         ghcjs_dom_dom_selection_empty :: JSRef DOMSelection -> IO ()-#else -ghcjs_dom_dom_selection_empty :: JSRef DOMSelection -> IO ()-ghcjs_dom_dom_selection_empty = undefined-#endif   domSelectionEmpty :: (IsDOMSelection self) => self -> IO () domSelectionEmpty self   = ghcjs_dom_dom_selection_empty       (unDOMSelection (toDOMSelection self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"anchorNode\"]"         ghcjs_dom_dom_selection_get_anchor_node ::         JSRef DOMSelection -> IO (JSRef Node)-#else -ghcjs_dom_dom_selection_get_anchor_node ::-                                          JSRef DOMSelection -> IO (JSRef Node)-ghcjs_dom_dom_selection_get_anchor_node = undefined-#endif   domSelectionGetAnchorNode ::                           (IsDOMSelection self) => self -> IO (Maybe Node)@@ -332,34 +223,20 @@   = fmap Node . maybeJSNull <$>       (ghcjs_dom_dom_selection_get_anchor_node          (unDOMSelection (toDOMSelection self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"anchorOffset\"]"         ghcjs_dom_dom_selection_get_anchor_offset ::         JSRef DOMSelection -> IO Int-#else -ghcjs_dom_dom_selection_get_anchor_offset ::-                                            JSRef DOMSelection -> IO Int-ghcjs_dom_dom_selection_get_anchor_offset = undefined-#endif   domSelectionGetAnchorOffset ::                             (IsDOMSelection self) => self -> IO Int domSelectionGetAnchorOffset self   = ghcjs_dom_dom_selection_get_anchor_offset       (unDOMSelection (toDOMSelection self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"focusNode\"]"         ghcjs_dom_dom_selection_get_focus_node ::         JSRef DOMSelection -> IO (JSRef Node)-#else -ghcjs_dom_dom_selection_get_focus_node ::-                                         JSRef DOMSelection -> IO (JSRef Node)-ghcjs_dom_dom_selection_get_focus_node = undefined-#endif   domSelectionGetFocusNode ::                          (IsDOMSelection self) => self -> IO (Maybe Node)@@ -367,68 +244,40 @@   = fmap Node . maybeJSNull <$>       (ghcjs_dom_dom_selection_get_focus_node          (unDOMSelection (toDOMSelection self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"focusOffset\"]"         ghcjs_dom_dom_selection_get_focus_offset ::         JSRef DOMSelection -> IO Int-#else -ghcjs_dom_dom_selection_get_focus_offset ::-                                           JSRef DOMSelection -> IO Int-ghcjs_dom_dom_selection_get_focus_offset = undefined-#endif   domSelectionGetFocusOffset ::                            (IsDOMSelection self) => self -> IO Int domSelectionGetFocusOffset self   = ghcjs_dom_dom_selection_get_focus_offset       (unDOMSelection (toDOMSelection self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"isCollapsed\"] ? 1 : 0)"         ghcjs_dom_dom_selection_get_is_collapsed ::         JSRef DOMSelection -> IO Bool-#else -ghcjs_dom_dom_selection_get_is_collapsed ::-                                           JSRef DOMSelection -> IO Bool-ghcjs_dom_dom_selection_get_is_collapsed = undefined-#endif   domSelectionGetIsCollapsed ::                            (IsDOMSelection self) => self -> IO Bool domSelectionGetIsCollapsed self   = ghcjs_dom_dom_selection_get_is_collapsed       (unDOMSelection (toDOMSelection self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"rangeCount\"]"         ghcjs_dom_dom_selection_get_range_count ::         JSRef DOMSelection -> IO Int-#else -ghcjs_dom_dom_selection_get_range_count ::-                                          JSRef DOMSelection -> IO Int-ghcjs_dom_dom_selection_get_range_count = undefined-#endif   domSelectionGetRangeCount ::                           (IsDOMSelection self) => self -> IO Int domSelectionGetRangeCount self   = ghcjs_dom_dom_selection_get_range_count       (unDOMSelection (toDOMSelection self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"baseNode\"]"         ghcjs_dom_dom_selection_get_base_node ::         JSRef DOMSelection -> IO (JSRef Node)-#else -ghcjs_dom_dom_selection_get_base_node ::-                                        JSRef DOMSelection -> IO (JSRef Node)-ghcjs_dom_dom_selection_get_base_node = undefined-#endif   domSelectionGetBaseNode ::                         (IsDOMSelection self) => self -> IO (Maybe Node)@@ -436,34 +285,20 @@   = fmap Node . maybeJSNull <$>       (ghcjs_dom_dom_selection_get_base_node          (unDOMSelection (toDOMSelection self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"baseOffset\"]"         ghcjs_dom_dom_selection_get_base_offset ::         JSRef DOMSelection -> IO Int-#else -ghcjs_dom_dom_selection_get_base_offset ::-                                          JSRef DOMSelection -> IO Int-ghcjs_dom_dom_selection_get_base_offset = undefined-#endif   domSelectionGetBaseOffset ::                           (IsDOMSelection self) => self -> IO Int domSelectionGetBaseOffset self   = ghcjs_dom_dom_selection_get_base_offset       (unDOMSelection (toDOMSelection self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"extentNode\"]"         ghcjs_dom_dom_selection_get_extent_node ::         JSRef DOMSelection -> IO (JSRef Node)-#else -ghcjs_dom_dom_selection_get_extent_node ::-                                          JSRef DOMSelection -> IO (JSRef Node)-ghcjs_dom_dom_selection_get_extent_node = undefined-#endif   domSelectionGetExtentNode ::                           (IsDOMSelection self) => self -> IO (Maybe Node)@@ -471,17 +306,10 @@   = fmap Node . maybeJSNull <$>       (ghcjs_dom_dom_selection_get_extent_node          (unDOMSelection (toDOMSelection self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"extentOffset\"]"         ghcjs_dom_dom_selection_get_extent_offset ::         JSRef DOMSelection -> IO Int-#else -ghcjs_dom_dom_selection_get_extent_offset ::-                                            JSRef DOMSelection -> IO Int-ghcjs_dom_dom_selection_get_extent_offset = undefined-#endif   domSelectionGetExtentOffset ::                             (IsDOMSelection self) => self -> IO Int

src/GHCJS/DOM/DOMSettableTokenList.hs view

@@ -2,7 +2,8 @@ #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.DOMSettableTokenList-       (ghcjs_dom_dom_settable_token_list_set_value,+       (ghcjs_dom_dom_settable_token_list_get, domSettableTokenList_get,+        ghcjs_dom_dom_settable_token_list_set_value,         domSettableTokenListSetValue,         ghcjs_dom_dom_settable_token_list_get_value,         domSettableTokenListGetValue, DOMSettableTokenList,@@ -11,28 +12,30 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS + +foreign import javascript unsafe "$1[\"_get\"]($2)"+        ghcjs_dom_dom_settable_token_list_get ::+        JSRef DOMSettableTokenList -> Word -> IO JSString+ +domSettableTokenList_get ::+                         (IsDOMSettableTokenList self, FromJSString result) =>+                           self -> Word -> IO result+domSettableTokenList_get self index+  = fromJSString <$>+      (ghcjs_dom_dom_settable_token_list_get+         (unDOMSettableTokenList (toDOMSettableTokenList self))+         index)+  foreign import javascript unsafe "$1[\"value\"] = $2;"         ghcjs_dom_dom_settable_token_list_set_value ::         JSRef DOMSettableTokenList -> JSString -> IO ()-#else -ghcjs_dom_dom_settable_token_list_set_value ::-                                              JSRef DOMSettableTokenList -> JSString -> IO ()-ghcjs_dom_dom_settable_token_list_set_value = undefined-#endif   domSettableTokenListSetValue ::                              (IsDOMSettableTokenList self, ToJSString val) =>@@ -41,17 +44,10 @@   = ghcjs_dom_dom_settable_token_list_set_value       (unDOMSettableTokenList (toDOMSettableTokenList self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"value\"]"         ghcjs_dom_dom_settable_token_list_get_value ::         JSRef DOMSettableTokenList -> IO JSString-#else -ghcjs_dom_dom_settable_token_list_get_value ::-                                              JSRef DOMSettableTokenList -> IO JSString-ghcjs_dom_dom_settable_token_list_get_value = undefined-#endif   domSettableTokenListGetValue ::                              (IsDOMSettableTokenList self, FromJSString result) =>

src/GHCJS/DOM/DOMStringList.hs view

@@ -10,28 +10,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_dom_string_list_item ::         JSRef DOMStringList -> Word -> IO JSString-#else -ghcjs_dom_dom_string_list_item ::-                                 JSRef DOMStringList -> Word -> IO JSString-ghcjs_dom_dom_string_list_item = undefined-#endif   domStringListItem ::                   (IsDOMStringList self, FromJSString result) =>@@ -41,17 +30,10 @@       (ghcjs_dom_dom_string_list_item          (unDOMStringList (toDOMStringList self))          index)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"         ghcjs_dom_dom_string_list_contains ::         JSRef DOMStringList -> JSString -> IO Bool-#else -ghcjs_dom_dom_string_list_contains ::-                                     JSRef DOMStringList -> JSString -> IO Bool-ghcjs_dom_dom_string_list_contains = undefined-#endif   domStringListContains ::                       (IsDOMStringList self, ToJSString string) =>@@ -60,17 +42,10 @@   = ghcjs_dom_dom_string_list_contains       (unDOMStringList (toDOMStringList self))       (toJSString string)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_dom_string_list_get_length ::         JSRef DOMStringList -> IO Word-#else -ghcjs_dom_dom_string_list_get_length ::-                                       JSRef DOMStringList -> IO Word-ghcjs_dom_dom_string_list_get_length = undefined-#endif   domStringListGetLength :: (IsDOMStringList self) => self -> IO Word domStringListGetLength self

src/GHCJS/DOM/DOMTokenList.hs view

@@ -13,28 +13,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_dom_token_list_item ::         JSRef DOMTokenList -> Word -> IO JSString-#else -ghcjs_dom_dom_token_list_item ::-                                JSRef DOMTokenList -> Word -> IO JSString-ghcjs_dom_dom_token_list_item = undefined-#endif   domTokenListItem ::                  (IsDOMTokenList self, FromJSString result) =>@@ -44,17 +33,10 @@       (ghcjs_dom_dom_token_list_item          (unDOMTokenList (toDOMTokenList self))          index)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"         ghcjs_dom_dom_token_list_contains ::         JSRef DOMTokenList -> JSString -> IO Bool-#else -ghcjs_dom_dom_token_list_contains ::-                                    JSRef DOMTokenList -> JSString -> IO Bool-ghcjs_dom_dom_token_list_contains = undefined-#endif   domTokenListContains ::                      (IsDOMTokenList self, ToJSString token) => self -> token -> IO Bool@@ -62,71 +44,50 @@   = ghcjs_dom_dom_token_list_contains       (unDOMTokenList (toDOMTokenList self))       (toJSString token)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"add\"]($2)"+ +foreign import javascript unsafe "$1[\"add\"].apply($1, $2)"         ghcjs_dom_dom_token_list_add ::-        JSRef DOMTokenList -> JSString -> IO ()-#else -ghcjs_dom_dom_token_list_add ::-                               JSRef DOMTokenList -> JSString -> IO ()-ghcjs_dom_dom_token_list_add = undefined-#endif+        JSRef DOMTokenList -> JSRef [a] -> IO ()   domTokenListAdd ::-                (IsDOMTokenList self, ToJSString token) => self -> token -> IO ()-domTokenListAdd self token-  = ghcjs_dom_dom_token_list_add-      (unDOMTokenList (toDOMTokenList self))-      (toJSString token)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"remove\"]($2)"+                (IsDOMTokenList self, ToJSString tokens) =>+                  self -> [tokens] -> IO ()+domTokenListAdd self tokens+  = toJSRef tokens >>=+      \ tokens' ->+        ghcjs_dom_dom_token_list_add (unDOMTokenList (toDOMTokenList self))+          tokens'+ +foreign import javascript unsafe "$1[\"remove\"].apply($1, $2)"         ghcjs_dom_dom_token_list_remove ::-        JSRef DOMTokenList -> JSString -> IO ()-#else -ghcjs_dom_dom_token_list_remove ::-                                  JSRef DOMTokenList -> JSString -> IO ()-ghcjs_dom_dom_token_list_remove = undefined-#endif+        JSRef DOMTokenList -> JSRef [a] -> IO ()   domTokenListRemove ::-                   (IsDOMTokenList self, ToJSString token) => self -> token -> IO ()-domTokenListRemove self token-  = ghcjs_dom_dom_token_list_remove-      (unDOMTokenList (toDOMTokenList self))-      (toJSString token)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "($1[\"toggle\"]($2) ? 1 : 0)"+                   (IsDOMTokenList self, ToJSString tokens) =>+                     self -> [tokens] -> IO ()+domTokenListRemove self tokens+  = toJSRef tokens >>=+      \ tokens' ->+        ghcjs_dom_dom_token_list_remove+          (unDOMTokenList (toDOMTokenList self))+          tokens'+ +foreign import javascript unsafe "($1[\"toggle\"]($2, $3) ? 1 : 0)"         ghcjs_dom_dom_token_list_toggle ::-        JSRef DOMTokenList -> JSString -> IO Bool-#else -ghcjs_dom_dom_token_list_toggle ::-                                  JSRef DOMTokenList -> JSString -> IO Bool-ghcjs_dom_dom_token_list_toggle = undefined-#endif+        JSRef DOMTokenList -> JSString -> Bool -> IO Bool   domTokenListToggle ::-                   (IsDOMTokenList self, ToJSString token) => self -> token -> IO Bool-domTokenListToggle self token+                   (IsDOMTokenList self, ToJSString token) =>+                     self -> token -> Bool -> IO Bool+domTokenListToggle self token force   = ghcjs_dom_dom_token_list_toggle       (unDOMTokenList (toDOMTokenList self))       (toJSString token)---#ifdef ghcjs_HOST_OS +      force+  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_dom_token_list_get_length ::         JSRef DOMTokenList -> IO Word-#else -ghcjs_dom_dom_token_list_get_length ::-                                      JSRef DOMTokenList -> IO Word-ghcjs_dom_dom_token_list_get_length = undefined-#endif   domTokenListGetLength :: (IsDOMTokenList self) => self -> IO Word domTokenListGetLength self

src/GHCJS/DOM/DOMWindow.hs view

@@ -74,62 +74,57 @@         domWindowGetApplicationCache,         ghcjs_dom_dom_window_get_session_storage,         domWindowGetSessionStorage, ghcjs_dom_dom_window_get_local_storage,-        domWindowGetLocalStorage, ghcjs_dom_dom_window_get_console,-        domWindowGetConsole, ghcjs_dom_dom_window_get_css, domWindowGetCSS,-        domWindowOnabort, domWindowOnbeforeunload, domWindowOnblur,-        domWindowOncanplay, domWindowOncanplaythrough, domWindowOnchange,-        domWindowOnclick, domWindowOncontextmenu, domWindowOndblclick,-        domWindowOndrag, domWindowOndragend, domWindowOndragenter,-        domWindowOndragleave, domWindowOndragover, domWindowOndragstart,-        domWindowOndrop, domWindowOndurationchange, domWindowOnemptied,-        domWindowOnended, domWindowOnerror, domWindowOnfocus,-        domWindowOnhashchange, domWindowOninput, domWindowOninvalid,-        domWindowOnkeydown, domWindowOnkeypress, domWindowOnkeyup,-        domWindowOnload, domWindowOnloadeddata, domWindowOnloadedmetadata,-        domWindowOnloadstart, domWindowOnmessage, domWindowOnmousedown,-        domWindowOnmouseenter, domWindowOnmouseleave, domWindowOnmousemove,-        domWindowOnmouseout, domWindowOnmouseover, domWindowOnmouseup,-        domWindowOnmousewheel, domWindowOnoffline, domWindowOnonline,-        domWindowOnpagehide, domWindowOnpageshow, domWindowOnpause,-        domWindowOnplay, domWindowOnplaying, domWindowOnpopstate,-        domWindowOnprogress, domWindowOnratechange, domWindowOnresize,-        domWindowOnscroll, domWindowOnseeked, domWindowOnseeking,-        domWindowOnselect, domWindowOnstalled, domWindowOnstorage,-        domWindowOnsubmit, domWindowOnsuspend, domWindowOntimeupdate,-        domWindowOnunload, domWindowOnvolumechange, domWindowOnwaiting,+        domWindowGetLocalStorage, ghcjs_dom_dom_window_get_css,+        domWindowGetCSS, domWindowOnabort, domWindowOnbeforeunload,+        domWindowOnblur, domWindowOncanplay, domWindowOncanplaythrough,+        domWindowOnchange, domWindowOnclick, domWindowOncontextmenu,+        domWindowOndblclick, domWindowOndrag, domWindowOndragend,+        domWindowOndragenter, domWindowOndragleave, domWindowOndragover,+        domWindowOndragstart, domWindowOndrop, domWindowOndurationchange,+        domWindowOnemptied, domWindowOnended, domWindowOnerror,+        domWindowOnfocus, domWindowOnhashchange, domWindowOninput,+        domWindowOninvalid, domWindowOnkeydown, domWindowOnkeypress,+        domWindowOnkeyup, domWindowOnload, domWindowOnloadeddata,+        domWindowOnloadedmetadata, domWindowOnloadstart,+        domWindowOnmessage, domWindowOnmousedown, domWindowOnmouseenter,+        domWindowOnmouseleave, domWindowOnmousemove, domWindowOnmouseout,+        domWindowOnmouseover, domWindowOnmouseup, domWindowOnmousewheel,+        domWindowOnoffline, domWindowOnonline, domWindowOnpagehide,+        domWindowOnpageshow, domWindowOnpause, domWindowOnplay,+        domWindowOnplaying, domWindowOnpopstate, domWindowOnprogress,+        domWindowOnratechange, domWindowOnresize, domWindowOnscroll,+        domWindowOnseeked, domWindowOnseeking, domWindowOnselect,+        domWindowOnstalled, domWindowOnstorage, domWindowOnsubmit,+        domWindowOnsuspend, domWindowOntimeupdate, domWindowOnunload,+        domWindowOnvolumechange, domWindowOnwaiting, domWindowOnwheel,         domWindowOnreset, domWindowOnsearch, domWindowOnwebkitanimationend,         domWindowOnwebkitanimationiteration,-        domWindowOnwebkitanimationstart, domWindowOnwebkittransitionend,-        domWindowOntransitionend, domWindowOntouchstart,-        domWindowOntouchmove, domWindowOntouchend, domWindowOntouchcancel,+        domWindowOnwebkitanimationstart, domWindowOnanimationend,+        domWindowOnanimationiteration, domWindowOnanimationstart,+        domWindowOnwebkittransitionend, domWindowOntransitionend,+        domWindowOntouchstart, domWindowOntouchmove, domWindowOntouchend,+        domWindowOntouchcancel, domWindowOngesturestart,+        domWindowOngesturechange, domWindowOngestureend,         domWindowOndevicemotion, domWindowOndeviceorientation,-        domWindowOnwebkitdeviceproximity, DOMWindow, IsDOMWindow,-        castToDOMWindow, gTypeDOMWindow, toDOMWindow)+        domWindowOnwebkitdeviceproximity,+        domWindowOnwebkitwillrevealbottom, domWindowOnwebkitwillrevealleft,+        domWindowOnwebkitwillrevealright, domWindowOnwebkitwillrevealtop,+        DOMWindow, IsDOMWindow, castToDOMWindow, gTypeDOMWindow,+        toDOMWindow)        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"getSelection\"]()"         ghcjs_dom_dom_window_get_selection ::         JSRef DOMWindow -> IO (JSRef DOMSelection)-#else -ghcjs_dom_dom_window_get_selection ::-                                     JSRef DOMWindow -> IO (JSRef DOMSelection)-ghcjs_dom_dom_window_get_selection = undefined-#endif   domWindowGetSelection ::                       (IsDOMWindow self) => self -> IO (Maybe DOMSelection)@@ -137,71 +132,40 @@   = fmap DOMSelection . maybeJSNull <$>       (ghcjs_dom_dom_window_get_selection          (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"blur\"]()"         ghcjs_dom_dom_window_blur :: JSRef DOMWindow -> IO ()-#else -ghcjs_dom_dom_window_blur :: JSRef DOMWindow -> IO ()-ghcjs_dom_dom_window_blur = undefined-#endif   domWindowBlur :: (IsDOMWindow self) => self -> IO () domWindowBlur self   = ghcjs_dom_dom_window_blur (unDOMWindow (toDOMWindow self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"print\"]()"         ghcjs_dom_dom_window_print :: JSRef DOMWindow -> IO ()-#else -ghcjs_dom_dom_window_print :: JSRef DOMWindow -> IO ()-ghcjs_dom_dom_window_print = undefined-#endif   domWindowPrint :: (IsDOMWindow self) => self -> IO () domWindowPrint self   = ghcjs_dom_dom_window_print (unDOMWindow (toDOMWindow self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"stop\"]()"         ghcjs_dom_dom_window_stop :: JSRef DOMWindow -> IO ()-#else -ghcjs_dom_dom_window_stop :: JSRef DOMWindow -> IO ()-ghcjs_dom_dom_window_stop = undefined-#endif   domWindowStop :: (IsDOMWindow self) => self -> IO () domWindowStop self   = ghcjs_dom_dom_window_stop (unDOMWindow (toDOMWindow self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"alert\"]($2)"         ghcjs_dom_dom_window_alert :: JSRef DOMWindow -> JSString -> IO ()-#else -ghcjs_dom_dom_window_alert :: JSRef DOMWindow -> JSString -> IO ()-ghcjs_dom_dom_window_alert = undefined-#endif   domWindowAlert ::                (IsDOMWindow self, ToJSString message) => self -> message -> IO () domWindowAlert self message   = ghcjs_dom_dom_window_alert (unDOMWindow (toDOMWindow self))       (toJSString message)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"confirm\"]($2) ? 1 : 0)"         ghcjs_dom_dom_window_confirm ::         JSRef DOMWindow -> JSString -> IO Bool-#else -ghcjs_dom_dom_window_confirm ::-                               JSRef DOMWindow -> JSString -> IO Bool-ghcjs_dom_dom_window_confirm = undefined-#endif   domWindowConfirm ::                  (IsDOMWindow self, ToJSString message) =>@@ -209,17 +173,10 @@ domWindowConfirm self message   = ghcjs_dom_dom_window_confirm (unDOMWindow (toDOMWindow self))       (toJSString message)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"prompt\"]($2, $3)"         ghcjs_dom_dom_window_prompt ::         JSRef DOMWindow -> JSString -> JSString -> IO JSString-#else -ghcjs_dom_dom_window_prompt ::-                              JSRef DOMWindow -> JSString -> JSString -> IO JSString-ghcjs_dom_dom_window_prompt = undefined-#endif   domWindowPrompt ::                 (IsDOMWindow self, ToJSString message, ToJSString defaultValue,@@ -230,20 +187,12 @@       (ghcjs_dom_dom_window_prompt (unDOMWindow (toDOMWindow self))          (toJSString message)          (toJSString defaultValue))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"find\"]($2, $3, $4, $5, $6,\n$7, $8) ? 1 : 0)"         ghcjs_dom_dom_window_find ::         JSRef DOMWindow ->           JSString -> Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> IO Bool-#else -ghcjs_dom_dom_window_find ::-                            JSRef DOMWindow ->-                              JSString -> Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> IO Bool-ghcjs_dom_dom_window_find = undefined-#endif   domWindowFind ::               (IsDOMWindow self, ToJSString string) =>@@ -259,116 +208,67 @@       wholeWord       searchInFrames       showDialog---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scrollBy\"]($2, $3)"         ghcjs_dom_dom_window_scroll_by ::         JSRef DOMWindow -> Int -> Int -> IO ()-#else -ghcjs_dom_dom_window_scroll_by ::-                                 JSRef DOMWindow -> Int -> Int -> IO ()-ghcjs_dom_dom_window_scroll_by = undefined-#endif   domWindowScrollBy ::                   (IsDOMWindow self) => self -> Int -> Int -> IO () domWindowScrollBy self x y   = ghcjs_dom_dom_window_scroll_by (unDOMWindow (toDOMWindow self)) x       y---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scrollTo\"]($2, $3)"         ghcjs_dom_dom_window_scroll_to ::         JSRef DOMWindow -> Int -> Int -> IO ()-#else -ghcjs_dom_dom_window_scroll_to ::-                                 JSRef DOMWindow -> Int -> Int -> IO ()-ghcjs_dom_dom_window_scroll_to = undefined-#endif   domWindowScrollTo ::                   (IsDOMWindow self) => self -> Int -> Int -> IO () domWindowScrollTo self x y   = ghcjs_dom_dom_window_scroll_to (unDOMWindow (toDOMWindow self)) x       y---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scroll\"]($2, $3)"         ghcjs_dom_dom_window_scroll ::         JSRef DOMWindow -> Int -> Int -> IO ()-#else -ghcjs_dom_dom_window_scroll ::-                              JSRef DOMWindow -> Int -> Int -> IO ()-ghcjs_dom_dom_window_scroll = undefined-#endif   domWindowScroll ::                 (IsDOMWindow self) => self -> Int -> Int -> IO () domWindowScroll self x y   = ghcjs_dom_dom_window_scroll (unDOMWindow (toDOMWindow self)) x y---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"moveBy\"]($2, $3)"         ghcjs_dom_dom_window_move_by ::         JSRef DOMWindow -> Float -> Float -> IO ()-#else -ghcjs_dom_dom_window_move_by ::-                               JSRef DOMWindow -> Float -> Float -> IO ()-ghcjs_dom_dom_window_move_by = undefined-#endif   domWindowMoveBy ::                 (IsDOMWindow self) => self -> Float -> Float -> IO () domWindowMoveBy self x y   = ghcjs_dom_dom_window_move_by (unDOMWindow (toDOMWindow self)) x y---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"moveTo\"]($2, $3)"         ghcjs_dom_dom_window_move_to ::         JSRef DOMWindow -> Float -> Float -> IO ()-#else -ghcjs_dom_dom_window_move_to ::-                               JSRef DOMWindow -> Float -> Float -> IO ()-ghcjs_dom_dom_window_move_to = undefined-#endif   domWindowMoveTo ::                 (IsDOMWindow self) => self -> Float -> Float -> IO () domWindowMoveTo self x y   = ghcjs_dom_dom_window_move_to (unDOMWindow (toDOMWindow self)) x y---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"resizeBy\"]($2, $3)"         ghcjs_dom_dom_window_resize_by ::         JSRef DOMWindow -> Float -> Float -> IO ()-#else -ghcjs_dom_dom_window_resize_by ::-                                 JSRef DOMWindow -> Float -> Float -> IO ()-ghcjs_dom_dom_window_resize_by = undefined-#endif   domWindowResizeBy ::                   (IsDOMWindow self) => self -> Float -> Float -> IO () domWindowResizeBy self x y   = ghcjs_dom_dom_window_resize_by (unDOMWindow (toDOMWindow self)) x       y---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"resizeTo\"]($2, $3)"         ghcjs_dom_dom_window_resize_to ::         JSRef DOMWindow -> Float -> Float -> IO ()-#else -ghcjs_dom_dom_window_resize_to ::-                                 JSRef DOMWindow -> Float -> Float -> IO ()-ghcjs_dom_dom_window_resize_to = undefined-#endif   domWindowResizeTo ::                   (IsDOMWindow self) => self -> Float -> Float -> IO ()@@ -376,17 +276,10 @@   = ghcjs_dom_dom_window_resize_to (unDOMWindow (toDOMWindow self))       width       height---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"matchMedia\"]($2)"         ghcjs_dom_dom_window_match_media ::         JSRef DOMWindow -> JSString -> IO (JSRef MediaQueryList)-#else -ghcjs_dom_dom_window_match_media ::-                                   JSRef DOMWindow -> JSString -> IO (JSRef MediaQueryList)-ghcjs_dom_dom_window_match_media = undefined-#endif   domWindowMatchMedia ::                     (IsDOMWindow self, ToJSString query) =>@@ -395,20 +288,11 @@   = fmap MediaQueryList . maybeJSNull <$>       (ghcjs_dom_dom_window_match_media (unDOMWindow (toDOMWindow self))          (toJSString query))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"getComputedStyle\"]($2, $3)"         ghcjs_dom_dom_window_get_computed_style ::         JSRef DOMWindow ->           JSRef Element -> JSString -> IO (JSRef CSSStyleDeclaration)-#else -ghcjs_dom_dom_window_get_computed_style ::-                                          JSRef DOMWindow ->-                                            JSRef Element ->-                                              JSString -> IO (JSRef CSSStyleDeclaration)-ghcjs_dom_dom_window_get_computed_style = undefined-#endif   domWindowGetComputedStyle ::                           (IsDOMWindow self, IsElement element, ToJSString pseudoElement) =>@@ -420,23 +304,12 @@          (unDOMWindow (toDOMWindow self))          (maybe jsNull (unElement . toElement) element)          (toJSString pseudoElement))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"webkitConvertPointFromPageToNode\"]($2,\n$3)"         ghcjs_dom_dom_window_webkit_convert_point_from_page_to_node ::         JSRef DOMWindow ->           JSRef Node -> JSRef WebKitPoint -> IO (JSRef WebKitPoint)-#else -ghcjs_dom_dom_window_webkit_convert_point_from_page_to_node ::-                                                              JSRef DOMWindow ->-                                                                JSRef Node ->-                                                                  JSRef WebKitPoint ->-                                                                    IO (JSRef WebKitPoint)-ghcjs_dom_dom_window_webkit_convert_point_from_page_to_node-  = undefined-#endif   domWindowWebkitConvertPointFromPageToNode ::                                           (IsDOMWindow self, IsNode node, IsWebKitPoint p) =>@@ -447,23 +320,12 @@          (unDOMWindow (toDOMWindow self))          (maybe jsNull (unNode . toNode) node)          (maybe jsNull (unWebKitPoint . toWebKitPoint) p))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"webkitConvertPointFromNodeToPage\"]($2,\n$3)"         ghcjs_dom_dom_window_webkit_convert_point_from_node_to_page ::         JSRef DOMWindow ->           JSRef Node -> JSRef WebKitPoint -> IO (JSRef WebKitPoint)-#else -ghcjs_dom_dom_window_webkit_convert_point_from_node_to_page ::-                                                              JSRef DOMWindow ->-                                                                JSRef Node ->-                                                                  JSRef WebKitPoint ->-                                                                    IO (JSRef WebKitPoint)-ghcjs_dom_dom_window_webkit_convert_point_from_node_to_page-  = undefined-#endif   domWindowWebkitConvertPointFromNodeToPage ::                                           (IsDOMWindow self, IsNode node, IsWebKitPoint p) =>@@ -474,18 +336,11 @@          (unDOMWindow (toDOMWindow self))          (maybe jsNull (unNode . toNode) node)          (maybe jsNull (unWebKitPoint . toWebKitPoint) p))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"dispatchEvent\"]($2) ? 1 : 0)"         ghcjs_dom_dom_window_dispatch_event ::         JSRef DOMWindow -> JSRef Event -> IO Bool-#else -ghcjs_dom_dom_window_dispatch_event ::-                                      JSRef DOMWindow -> JSRef Event -> IO Bool-ghcjs_dom_dom_window_dispatch_event = undefined-#endif   domWindowDispatchEvent ::                        (IsDOMWindow self, IsEvent evt) => self -> Maybe evt -> IO Bool@@ -493,79 +348,46 @@   = ghcjs_dom_dom_window_dispatch_event       (unDOMWindow (toDOMWindow self))       (maybe jsNull (unEvent . toEvent) evt)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"captureEvents\"]()"         ghcjs_dom_dom_window_capture_events :: JSRef DOMWindow -> IO ()-#else -ghcjs_dom_dom_window_capture_events :: JSRef DOMWindow -> IO ()-ghcjs_dom_dom_window_capture_events = undefined-#endif   domWindowCaptureEvents :: (IsDOMWindow self) => self -> IO () domWindowCaptureEvents self   = ghcjs_dom_dom_window_capture_events       (unDOMWindow (toDOMWindow self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"releaseEvents\"]()"         ghcjs_dom_dom_window_release_events :: JSRef DOMWindow -> IO ()-#else -ghcjs_dom_dom_window_release_events :: JSRef DOMWindow -> IO ()-ghcjs_dom_dom_window_release_events = undefined-#endif   domWindowReleaseEvents :: (IsDOMWindow self) => self -> IO () domWindowReleaseEvents self   = ghcjs_dom_dom_window_release_events       (unDOMWindow (toDOMWindow self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"screen\"]"         ghcjs_dom_dom_window_get_screen ::         JSRef DOMWindow -> IO (JSRef DOMScreen)-#else -ghcjs_dom_dom_window_get_screen ::-                                  JSRef DOMWindow -> IO (JSRef DOMScreen)-ghcjs_dom_dom_window_get_screen = undefined-#endif   domWindowGetScreen ::                    (IsDOMWindow self) => self -> IO (Maybe DOMScreen) domWindowGetScreen self   = fmap DOMScreen . maybeJSNull <$>       (ghcjs_dom_dom_window_get_screen (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"history\"]"         ghcjs_dom_dom_window_get_history ::         JSRef DOMWindow -> IO (JSRef History)-#else -ghcjs_dom_dom_window_get_history ::-                                   JSRef DOMWindow -> IO (JSRef History)-ghcjs_dom_dom_window_get_history = undefined-#endif   domWindowGetHistory ::                     (IsDOMWindow self) => self -> IO (Maybe History) domWindowGetHistory self   = fmap History . maybeJSNull <$>       (ghcjs_dom_dom_window_get_history (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"locationbar\"]"         ghcjs_dom_dom_window_get_locationbar ::         JSRef DOMWindow -> IO (JSRef BarProp)-#else -ghcjs_dom_dom_window_get_locationbar ::-                                       JSRef DOMWindow -> IO (JSRef BarProp)-ghcjs_dom_dom_window_get_locationbar = undefined-#endif   domWindowGetLocationbar ::                         (IsDOMWindow self) => self -> IO (Maybe BarProp)@@ -573,34 +395,20 @@   = fmap BarProp . maybeJSNull <$>       (ghcjs_dom_dom_window_get_locationbar          (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"menubar\"]"         ghcjs_dom_dom_window_get_menubar ::         JSRef DOMWindow -> IO (JSRef BarProp)-#else -ghcjs_dom_dom_window_get_menubar ::-                                   JSRef DOMWindow -> IO (JSRef BarProp)-ghcjs_dom_dom_window_get_menubar = undefined-#endif   domWindowGetMenubar ::                     (IsDOMWindow self) => self -> IO (Maybe BarProp) domWindowGetMenubar self   = fmap BarProp . maybeJSNull <$>       (ghcjs_dom_dom_window_get_menubar (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"personalbar\"]"         ghcjs_dom_dom_window_get_personalbar ::         JSRef DOMWindow -> IO (JSRef BarProp)-#else -ghcjs_dom_dom_window_get_personalbar ::-                                       JSRef DOMWindow -> IO (JSRef BarProp)-ghcjs_dom_dom_window_get_personalbar = undefined-#endif   domWindowGetPersonalbar ::                         (IsDOMWindow self) => self -> IO (Maybe BarProp)@@ -608,17 +416,10 @@   = fmap BarProp . maybeJSNull <$>       (ghcjs_dom_dom_window_get_personalbar          (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scrollbars\"]"         ghcjs_dom_dom_window_get_scrollbars ::         JSRef DOMWindow -> IO (JSRef BarProp)-#else -ghcjs_dom_dom_window_get_scrollbars ::-                                      JSRef DOMWindow -> IO (JSRef BarProp)-ghcjs_dom_dom_window_get_scrollbars = undefined-#endif   domWindowGetScrollbars ::                        (IsDOMWindow self) => self -> IO (Maybe BarProp)@@ -626,17 +427,10 @@   = fmap BarProp . maybeJSNull <$>       (ghcjs_dom_dom_window_get_scrollbars          (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"statusbar\"]"         ghcjs_dom_dom_window_get_statusbar ::         JSRef DOMWindow -> IO (JSRef BarProp)-#else -ghcjs_dom_dom_window_get_statusbar ::-                                     JSRef DOMWindow -> IO (JSRef BarProp)-ghcjs_dom_dom_window_get_statusbar = undefined-#endif   domWindowGetStatusbar ::                       (IsDOMWindow self) => self -> IO (Maybe BarProp)@@ -644,34 +438,20 @@   = fmap BarProp . maybeJSNull <$>       (ghcjs_dom_dom_window_get_statusbar          (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"toolbar\"]"         ghcjs_dom_dom_window_get_toolbar ::         JSRef DOMWindow -> IO (JSRef BarProp)-#else -ghcjs_dom_dom_window_get_toolbar ::-                                   JSRef DOMWindow -> IO (JSRef BarProp)-ghcjs_dom_dom_window_get_toolbar = undefined-#endif   domWindowGetToolbar ::                     (IsDOMWindow self) => self -> IO (Maybe BarProp) domWindowGetToolbar self   = fmap BarProp . maybeJSNull <$>       (ghcjs_dom_dom_window_get_toolbar (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"navigator\"]"         ghcjs_dom_dom_window_get_navigator ::         JSRef DOMWindow -> IO (JSRef Navigator)-#else -ghcjs_dom_dom_window_get_navigator ::-                                     JSRef DOMWindow -> IO (JSRef Navigator)-ghcjs_dom_dom_window_get_navigator = undefined-#endif   domWindowGetNavigator ::                       (IsDOMWindow self) => self -> IO (Maybe Navigator)@@ -679,17 +459,10 @@   = fmap Navigator . maybeJSNull <$>       (ghcjs_dom_dom_window_get_navigator          (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"clientInformation\"]"         ghcjs_dom_dom_window_get_client_information ::         JSRef DOMWindow -> IO (JSRef Navigator)-#else -ghcjs_dom_dom_window_get_client_information ::-                                              JSRef DOMWindow -> IO (JSRef Navigator)-ghcjs_dom_dom_window_get_client_information = undefined-#endif   domWindowGetClientInformation ::                               (IsDOMWindow self) => self -> IO (Maybe Navigator)@@ -697,17 +470,10 @@   = fmap Navigator . maybeJSNull <$>       (ghcjs_dom_dom_window_get_client_information          (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"frameElement\"]"         ghcjs_dom_dom_window_get_frame_element ::         JSRef DOMWindow -> IO (JSRef Element)-#else -ghcjs_dom_dom_window_get_frame_element ::-                                         JSRef DOMWindow -> IO (JSRef Element)-ghcjs_dom_dom_window_get_frame_element = undefined-#endif   domWindowGetFrameElement ::                          (IsDOMWindow self) => self -> IO (Maybe Element)@@ -715,293 +481,169 @@   = fmap Element . maybeJSNull <$>       (ghcjs_dom_dom_window_get_frame_element          (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"offscreenBuffering\"] ? 1 : 0)"         ghcjs_dom_dom_window_get_offscreen_buffering ::         JSRef DOMWindow -> IO Bool-#else -ghcjs_dom_dom_window_get_offscreen_buffering ::-                                               JSRef DOMWindow -> IO Bool-ghcjs_dom_dom_window_get_offscreen_buffering = undefined-#endif   domWindowGetOffscreenBuffering ::                                (IsDOMWindow self) => self -> IO Bool domWindowGetOffscreenBuffering self   = ghcjs_dom_dom_window_get_offscreen_buffering       (unDOMWindow (toDOMWindow self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"outerHeight\"]"         ghcjs_dom_dom_window_get_outer_height :: JSRef DOMWindow -> IO Int-#else -ghcjs_dom_dom_window_get_outer_height :: JSRef DOMWindow -> IO Int-ghcjs_dom_dom_window_get_outer_height = undefined-#endif   domWindowGetOuterHeight :: (IsDOMWindow self) => self -> IO Int domWindowGetOuterHeight self   = ghcjs_dom_dom_window_get_outer_height       (unDOMWindow (toDOMWindow self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"outerWidth\"]"         ghcjs_dom_dom_window_get_outer_width :: JSRef DOMWindow -> IO Int-#else -ghcjs_dom_dom_window_get_outer_width :: JSRef DOMWindow -> IO Int-ghcjs_dom_dom_window_get_outer_width = undefined-#endif   domWindowGetOuterWidth :: (IsDOMWindow self) => self -> IO Int domWindowGetOuterWidth self   = ghcjs_dom_dom_window_get_outer_width       (unDOMWindow (toDOMWindow self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"innerHeight\"]"         ghcjs_dom_dom_window_get_inner_height :: JSRef DOMWindow -> IO Int-#else -ghcjs_dom_dom_window_get_inner_height :: JSRef DOMWindow -> IO Int-ghcjs_dom_dom_window_get_inner_height = undefined-#endif   domWindowGetInnerHeight :: (IsDOMWindow self) => self -> IO Int domWindowGetInnerHeight self   = ghcjs_dom_dom_window_get_inner_height       (unDOMWindow (toDOMWindow self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"innerWidth\"]"         ghcjs_dom_dom_window_get_inner_width :: JSRef DOMWindow -> IO Int-#else -ghcjs_dom_dom_window_get_inner_width :: JSRef DOMWindow -> IO Int-ghcjs_dom_dom_window_get_inner_width = undefined-#endif   domWindowGetInnerWidth :: (IsDOMWindow self) => self -> IO Int domWindowGetInnerWidth self   = ghcjs_dom_dom_window_get_inner_width       (unDOMWindow (toDOMWindow self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"screenX\"]"         ghcjs_dom_dom_window_get_screen_x :: JSRef DOMWindow -> IO Int-#else -ghcjs_dom_dom_window_get_screen_x :: JSRef DOMWindow -> IO Int-ghcjs_dom_dom_window_get_screen_x = undefined-#endif   domWindowGetScreenX :: (IsDOMWindow self) => self -> IO Int domWindowGetScreenX self   = ghcjs_dom_dom_window_get_screen_x       (unDOMWindow (toDOMWindow self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"screenY\"]"         ghcjs_dom_dom_window_get_screen_y :: JSRef DOMWindow -> IO Int-#else -ghcjs_dom_dom_window_get_screen_y :: JSRef DOMWindow -> IO Int-ghcjs_dom_dom_window_get_screen_y = undefined-#endif   domWindowGetScreenY :: (IsDOMWindow self) => self -> IO Int domWindowGetScreenY self   = ghcjs_dom_dom_window_get_screen_y       (unDOMWindow (toDOMWindow self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"screenLeft\"]"         ghcjs_dom_dom_window_get_screen_left :: JSRef DOMWindow -> IO Int-#else -ghcjs_dom_dom_window_get_screen_left :: JSRef DOMWindow -> IO Int-ghcjs_dom_dom_window_get_screen_left = undefined-#endif   domWindowGetScreenLeft :: (IsDOMWindow self) => self -> IO Int domWindowGetScreenLeft self   = ghcjs_dom_dom_window_get_screen_left       (unDOMWindow (toDOMWindow self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"screenTop\"]"         ghcjs_dom_dom_window_get_screen_top :: JSRef DOMWindow -> IO Int-#else -ghcjs_dom_dom_window_get_screen_top :: JSRef DOMWindow -> IO Int-ghcjs_dom_dom_window_get_screen_top = undefined-#endif   domWindowGetScreenTop :: (IsDOMWindow self) => self -> IO Int domWindowGetScreenTop self   = ghcjs_dom_dom_window_get_screen_top       (unDOMWindow (toDOMWindow self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scrollX\"]"         ghcjs_dom_dom_window_get_scroll_x :: JSRef DOMWindow -> IO Int-#else -ghcjs_dom_dom_window_get_scroll_x :: JSRef DOMWindow -> IO Int-ghcjs_dom_dom_window_get_scroll_x = undefined-#endif   domWindowGetScrollX :: (IsDOMWindow self) => self -> IO Int domWindowGetScrollX self   = ghcjs_dom_dom_window_get_scroll_x       (unDOMWindow (toDOMWindow self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scrollY\"]"         ghcjs_dom_dom_window_get_scroll_y :: JSRef DOMWindow -> IO Int-#else -ghcjs_dom_dom_window_get_scroll_y :: JSRef DOMWindow -> IO Int-ghcjs_dom_dom_window_get_scroll_y = undefined-#endif   domWindowGetScrollY :: (IsDOMWindow self) => self -> IO Int domWindowGetScrollY self   = ghcjs_dom_dom_window_get_scroll_y       (unDOMWindow (toDOMWindow self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"pageXOffset\"]"         ghcjs_dom_dom_window_get_page_x_offset :: JSRef DOMWindow -> IO Int-#else -ghcjs_dom_dom_window_get_page_x_offset :: JSRef DOMWindow -> IO Int-ghcjs_dom_dom_window_get_page_x_offset = undefined-#endif   domWindowGetPageXOffset :: (IsDOMWindow self) => self -> IO Int domWindowGetPageXOffset self   = ghcjs_dom_dom_window_get_page_x_offset       (unDOMWindow (toDOMWindow self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"pageYOffset\"]"         ghcjs_dom_dom_window_get_page_y_offset :: JSRef DOMWindow -> IO Int-#else -ghcjs_dom_dom_window_get_page_y_offset :: JSRef DOMWindow -> IO Int-ghcjs_dom_dom_window_get_page_y_offset = undefined-#endif   domWindowGetPageYOffset :: (IsDOMWindow self) => self -> IO Int domWindowGetPageYOffset self   = ghcjs_dom_dom_window_get_page_y_offset       (unDOMWindow (toDOMWindow self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"closed\"] ? 1 : 0)"         ghcjs_dom_dom_window_get_closed :: JSRef DOMWindow -> IO Bool-#else -ghcjs_dom_dom_window_get_closed :: JSRef DOMWindow -> IO Bool-ghcjs_dom_dom_window_get_closed = undefined-#endif   domWindowGetClosed :: (IsDOMWindow self) => self -> IO Bool domWindowGetClosed self   = ghcjs_dom_dom_window_get_closed (unDOMWindow (toDOMWindow self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_dom_window_get_length :: JSRef DOMWindow -> IO Word-#else -ghcjs_dom_dom_window_get_length :: JSRef DOMWindow -> IO Word-ghcjs_dom_dom_window_get_length = undefined-#endif   domWindowGetLength :: (IsDOMWindow self) => self -> IO Word domWindowGetLength self   = ghcjs_dom_dom_window_get_length (unDOMWindow (toDOMWindow self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_dom_window_set_name ::         JSRef DOMWindow -> JSString -> IO ()-#else -ghcjs_dom_dom_window_set_name ::-                                JSRef DOMWindow -> JSString -> IO ()-ghcjs_dom_dom_window_set_name = undefined-#endif   domWindowSetName ::                  (IsDOMWindow self, ToJSString val) => self -> val -> IO () domWindowSetName self val   = ghcjs_dom_dom_window_set_name (unDOMWindow (toDOMWindow self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_dom_window_get_name :: JSRef DOMWindow -> IO JSString-#else -ghcjs_dom_dom_window_get_name :: JSRef DOMWindow -> IO JSString-ghcjs_dom_dom_window_get_name = undefined-#endif   domWindowGetName ::                  (IsDOMWindow self, FromJSString result) => self -> IO result domWindowGetName self   = fromJSString <$>       (ghcjs_dom_dom_window_get_name (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"status\"] = $2;"         ghcjs_dom_dom_window_set_status ::         JSRef DOMWindow -> JSString -> IO ()-#else -ghcjs_dom_dom_window_set_status ::-                                  JSRef DOMWindow -> JSString -> IO ()-ghcjs_dom_dom_window_set_status = undefined-#endif   domWindowSetStatus ::                    (IsDOMWindow self, ToJSString val) => self -> val -> IO () domWindowSetStatus self val   = ghcjs_dom_dom_window_set_status (unDOMWindow (toDOMWindow self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"status\"]"         ghcjs_dom_dom_window_get_status :: JSRef DOMWindow -> IO JSString-#else -ghcjs_dom_dom_window_get_status :: JSRef DOMWindow -> IO JSString-ghcjs_dom_dom_window_get_status = undefined-#endif   domWindowGetStatus ::                    (IsDOMWindow self, FromJSString result) => self -> IO result domWindowGetStatus self   = fromJSString <$>       (ghcjs_dom_dom_window_get_status (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"defaultStatus\"] = $2;"         ghcjs_dom_dom_window_set_default_status ::         JSRef DOMWindow -> JSString -> IO ()-#else -ghcjs_dom_dom_window_set_default_status ::-                                          JSRef DOMWindow -> JSString -> IO ()-ghcjs_dom_dom_window_set_default_status = undefined-#endif   domWindowSetDefaultStatus ::                           (IsDOMWindow self, ToJSString val) => self -> val -> IO ()@@ -1009,17 +651,10 @@   = ghcjs_dom_dom_window_set_default_status       (unDOMWindow (toDOMWindow self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"defaultStatus\"]"         ghcjs_dom_dom_window_get_default_status ::         JSRef DOMWindow -> IO JSString-#else -ghcjs_dom_dom_window_get_default_status ::-                                          JSRef DOMWindow -> IO JSString-ghcjs_dom_dom_window_get_default_status = undefined-#endif   domWindowGetDefaultStatus ::                           (IsDOMWindow self, FromJSString result) => self -> IO result@@ -1027,119 +662,70 @@   = fromJSString <$>       (ghcjs_dom_dom_window_get_default_status          (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"self\"]"         ghcjs_dom_dom_window_get_self ::         JSRef DOMWindow -> IO (JSRef DOMWindow)-#else -ghcjs_dom_dom_window_get_self ::-                                JSRef DOMWindow -> IO (JSRef DOMWindow)-ghcjs_dom_dom_window_get_self = undefined-#endif   domWindowGetSelf ::                  (IsDOMWindow self) => self -> IO (Maybe DOMWindow) domWindowGetSelf self   = fmap DOMWindow . maybeJSNull <$>       (ghcjs_dom_dom_window_get_self (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"window\"]"         ghcjs_dom_dom_window_get_window ::         JSRef DOMWindow -> IO (JSRef DOMWindow)-#else -ghcjs_dom_dom_window_get_window ::-                                  JSRef DOMWindow -> IO (JSRef DOMWindow)-ghcjs_dom_dom_window_get_window = undefined-#endif   domWindowGetWindow ::                    (IsDOMWindow self) => self -> IO (Maybe DOMWindow) domWindowGetWindow self   = fmap DOMWindow . maybeJSNull <$>       (ghcjs_dom_dom_window_get_window (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"frames\"]"         ghcjs_dom_dom_window_get_frames ::         JSRef DOMWindow -> IO (JSRef DOMWindow)-#else -ghcjs_dom_dom_window_get_frames ::-                                  JSRef DOMWindow -> IO (JSRef DOMWindow)-ghcjs_dom_dom_window_get_frames = undefined-#endif   domWindowGetFrames ::                    (IsDOMWindow self) => self -> IO (Maybe DOMWindow) domWindowGetFrames self   = fmap DOMWindow . maybeJSNull <$>       (ghcjs_dom_dom_window_get_frames (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"opener\"]"         ghcjs_dom_dom_window_get_opener ::         JSRef DOMWindow -> IO (JSRef DOMWindow)-#else -ghcjs_dom_dom_window_get_opener ::-                                  JSRef DOMWindow -> IO (JSRef DOMWindow)-ghcjs_dom_dom_window_get_opener = undefined-#endif   domWindowGetOpener ::                    (IsDOMWindow self) => self -> IO (Maybe DOMWindow) domWindowGetOpener self   = fmap DOMWindow . maybeJSNull <$>       (ghcjs_dom_dom_window_get_opener (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"parent\"]"         ghcjs_dom_dom_window_get_parent ::         JSRef DOMWindow -> IO (JSRef DOMWindow)-#else -ghcjs_dom_dom_window_get_parent ::-                                  JSRef DOMWindow -> IO (JSRef DOMWindow)-ghcjs_dom_dom_window_get_parent = undefined-#endif   domWindowGetParent ::                    (IsDOMWindow self) => self -> IO (Maybe DOMWindow) domWindowGetParent self   = fmap DOMWindow . maybeJSNull <$>       (ghcjs_dom_dom_window_get_parent (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"top\"]"         ghcjs_dom_dom_window_get_top ::         JSRef DOMWindow -> IO (JSRef DOMWindow)-#else -ghcjs_dom_dom_window_get_top ::-                               JSRef DOMWindow -> IO (JSRef DOMWindow)-ghcjs_dom_dom_window_get_top = undefined-#endif   domWindowGetTop ::                 (IsDOMWindow self) => self -> IO (Maybe DOMWindow) domWindowGetTop self   = fmap DOMWindow . maybeJSNull <$>       (ghcjs_dom_dom_window_get_top (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"document\"]"         ghcjs_dom_dom_window_get_document ::         JSRef DOMWindow -> IO (JSRef Document)-#else -ghcjs_dom_dom_window_get_document ::-                                    JSRef DOMWindow -> IO (JSRef Document)-ghcjs_dom_dom_window_get_document = undefined-#endif   domWindowGetDocument ::                      (IsDOMWindow self) => self -> IO (Maybe Document)@@ -1147,17 +733,10 @@   = fmap Document . maybeJSNull <$>       (ghcjs_dom_dom_window_get_document          (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"styleMedia\"]"         ghcjs_dom_dom_window_get_style_media ::         JSRef DOMWindow -> IO (JSRef StyleMedia)-#else -ghcjs_dom_dom_window_get_style_media ::-                                       JSRef DOMWindow -> IO (JSRef StyleMedia)-ghcjs_dom_dom_window_get_style_media = undefined-#endif   domWindowGetStyleMedia ::                        (IsDOMWindow self) => self -> IO (Maybe StyleMedia)@@ -1165,34 +744,20 @@   = fmap StyleMedia . maybeJSNull <$>       (ghcjs_dom_dom_window_get_style_media          (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"devicePixelRatio\"]"         ghcjs_dom_dom_window_get_device_pixel_ratio ::         JSRef DOMWindow -> IO Double-#else -ghcjs_dom_dom_window_get_device_pixel_ratio ::-                                              JSRef DOMWindow -> IO Double-ghcjs_dom_dom_window_get_device_pixel_ratio = undefined-#endif   domWindowGetDevicePixelRatio ::                              (IsDOMWindow self) => self -> IO Double domWindowGetDevicePixelRatio self   = ghcjs_dom_dom_window_get_device_pixel_ratio       (unDOMWindow (toDOMWindow self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"applicationCache\"]"         ghcjs_dom_dom_window_get_application_cache ::         JSRef DOMWindow -> IO (JSRef DOMApplicationCache)-#else -ghcjs_dom_dom_window_get_application_cache ::-                                             JSRef DOMWindow -> IO (JSRef DOMApplicationCache)-ghcjs_dom_dom_window_get_application_cache = undefined-#endif   domWindowGetApplicationCache ::                              (IsDOMWindow self) => self -> IO (Maybe DOMApplicationCache)@@ -1200,17 +765,10 @@   = fmap DOMApplicationCache . maybeJSNull <$>       (ghcjs_dom_dom_window_get_application_cache          (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"sessionStorage\"]"         ghcjs_dom_dom_window_get_session_storage ::         JSRef DOMWindow -> IO (JSRef Storage)-#else -ghcjs_dom_dom_window_get_session_storage ::-                                           JSRef DOMWindow -> IO (JSRef Storage)-ghcjs_dom_dom_window_get_session_storage = undefined-#endif   domWindowGetSessionStorage ::                            (IsDOMWindow self) => self -> IO (Maybe Storage)@@ -1218,17 +776,10 @@   = fmap Storage . maybeJSNull <$>       (ghcjs_dom_dom_window_get_session_storage          (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"localStorage\"]"         ghcjs_dom_dom_window_get_local_storage ::         JSRef DOMWindow -> IO (JSRef Storage)-#else -ghcjs_dom_dom_window_get_local_storage ::-                                         JSRef DOMWindow -> IO (JSRef Storage)-ghcjs_dom_dom_window_get_local_storage = undefined-#endif   domWindowGetLocalStorage ::                          (IsDOMWindow self) => self -> IO (Maybe Storage)@@ -1236,34 +787,10 @@   = fmap Storage . maybeJSNull <$>       (ghcjs_dom_dom_window_get_local_storage          (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"console\"]"-        ghcjs_dom_dom_window_get_console ::-        JSRef DOMWindow -> IO (JSRef Console)-#else -ghcjs_dom_dom_window_get_console ::-                                   JSRef DOMWindow -> IO (JSRef Console)-ghcjs_dom_dom_window_get_console = undefined-#endif  -domWindowGetConsole ::-                    (IsDOMWindow self) => self -> IO (Maybe Console)-domWindowGetConsole self-  = fmap Console . maybeJSNull <$>-      (ghcjs_dom_dom_window_get_console (unDOMWindow (toDOMWindow self)))---#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"CSS\"]"         ghcjs_dom_dom_window_get_css ::         JSRef DOMWindow -> IO (JSRef DOMWindowCSS)-#else -ghcjs_dom_dom_window_get_css ::-                               JSRef DOMWindow -> IO (JSRef DOMWindowCSS)-ghcjs_dom_dom_window_get_css = undefined-#endif   domWindowGetCSS ::                 (IsDOMWindow self) => self -> IO (Maybe DOMWindowCSS)@@ -1523,6 +1050,10 @@                    (IsDOMWindow self) => Signal self (EventM UIEvent self ()) domWindowOnwaiting = (connect "waiting")  +domWindowOnwheel ::+                 (IsDOMWindow self) => Signal self (EventM UIEvent self ())+domWindowOnwheel = (connect "wheel")+  domWindowOnreset ::                  (IsDOMWindow self) => Signal self (EventM UIEvent self ()) domWindowOnreset = (connect "reset")@@ -1544,6 +1075,18 @@                                 (IsDOMWindow self) => Signal self (EventM UIEvent self ()) domWindowOnwebkitanimationstart = (connect "webkitanimationstart")  +domWindowOnanimationend ::+                        (IsDOMWindow self) => Signal self (EventM UIEvent self ())+domWindowOnanimationend = (connect "animationend")+ +domWindowOnanimationiteration ::+                              (IsDOMWindow self) => Signal self (EventM UIEvent self ())+domWindowOnanimationiteration = (connect "animationiteration")+ +domWindowOnanimationstart ::+                          (IsDOMWindow self) => Signal self (EventM UIEvent self ())+domWindowOnanimationstart = (connect "animationstart")+  domWindowOnwebkittransitionend ::                                (IsDOMWindow self) => Signal self (EventM UIEvent self ()) domWindowOnwebkittransitionend = (connect "webkittransitionend")@@ -1568,6 +1111,18 @@                        (IsDOMWindow self) => Signal self (EventM UIEvent self ()) domWindowOntouchcancel = (connect "touchcancel")  +domWindowOngesturestart ::+                        (IsDOMWindow self) => Signal self (EventM UIEvent self ())+domWindowOngesturestart = (connect "gesturestart")+ +domWindowOngesturechange ::+                         (IsDOMWindow self) => Signal self (EventM UIEvent self ())+domWindowOngesturechange = (connect "gesturechange")+ +domWindowOngestureend ::+                      (IsDOMWindow self) => Signal self (EventM UIEvent self ())+domWindowOngestureend = (connect "gestureend")+  domWindowOndevicemotion ::                         (IsDOMWindow self) => Signal self (EventM UIEvent self ()) domWindowOndevicemotion = (connect "devicemotion")@@ -1580,6 +1135,24 @@                                  (IsDOMWindow self) => Signal self (EventM UIEvent self ()) domWindowOnwebkitdeviceproximity   = (connect "webkitdeviceproximity")+ +domWindowOnwebkitwillrevealbottom ::+                                  (IsDOMWindow self) => Signal self (EventM UIEvent self ())+domWindowOnwebkitwillrevealbottom+  = (connect "webkitwillrevealbottom")+ +domWindowOnwebkitwillrevealleft ::+                                (IsDOMWindow self) => Signal self (EventM UIEvent self ())+domWindowOnwebkitwillrevealleft = (connect "webkitwillrevealleft")+ +domWindowOnwebkitwillrevealright ::+                                 (IsDOMWindow self) => Signal self (EventM UIEvent self ())+domWindowOnwebkitwillrevealright+  = (connect "webkitwillrevealright")+ +domWindowOnwebkitwillrevealtop ::+                               (IsDOMWindow self) => Signal self (EventM UIEvent self ())+domWindowOnwebkitwillrevealtop = (connect "webkitwillrevealtop") #else module GHCJS.DOM.DOMWindow (   module Graphics.UI.Gtk.WebKit.DOM.DOMWindow

src/GHCJS/DOM/DOMWindowCSS.hs view

@@ -2,45 +2,46 @@ #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.DOMWindowCSS-       (ghcjs_dom_dom_window_css_supports, domWindowCSSSupports,+       (ghcjs_dom_dom_window_css_supports2, domWindowCSSSupports2,+        ghcjs_dom_dom_window_css_supports, domWindowCSSSupports,         DOMWindowCSS, IsDOMWindowCSS, castToDOMWindowCSS,         gTypeDOMWindowCSS, toDOMWindowCSS)        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe         "($1[\"supports\"]($2, $3) ? 1 : 0)"-        ghcjs_dom_dom_window_css_supports ::+        ghcjs_dom_dom_window_css_supports2 ::         JSRef DOMWindowCSS -> JSString -> JSString -> IO Bool-#else-ghcjs_dom_dom_window_css_supports ::-                                    JSRef DOMWindowCSS -> JSString -> JSString -> IO Bool-ghcjs_dom_dom_window_css_supports = undefined-#endif--domWindowCSSSupports ::-                     (IsDOMWindowCSS self, ToJSString property, ToJSString value) =>-                       self -> property -> value -> IO Bool-domWindowCSSSupports self property value-  = ghcjs_dom_dom_window_css_supports+ +domWindowCSSSupports2 ::+                      (IsDOMWindowCSS self, ToJSString property, ToJSString value) =>+                        self -> property -> value -> IO Bool+domWindowCSSSupports2 self property value+  = ghcjs_dom_dom_window_css_supports2       (unDOMWindowCSS (toDOMWindowCSS self))       (toJSString property)       (toJSString value)-+ +foreign import javascript unsafe "($1[\"supports\"]($2) ? 1 : 0)"+        ghcjs_dom_dom_window_css_supports ::+        JSRef DOMWindowCSS -> JSString -> IO Bool+ +domWindowCSSSupports ::+                     (IsDOMWindowCSS self, ToJSString conditionText) =>+                       self -> conditionText -> IO Bool+domWindowCSSSupports self conditionText+  = ghcjs_dom_dom_window_css_supports+      (unDOMWindowCSS (toDOMWindowCSS self))+      (toJSString conditionText) #else module GHCJS.DOM.DOMWindowCSS (   module Graphics.UI.Gtk.WebKit.DOM.DOMWindowCSS

src/GHCJS/DOM/Document.hs view

@@ -47,1820 +47,1044 @@         ghcjs_dom_document_create_css_style_declaration,         documentCreateCSSStyleDeclaration,         ghcjs_dom_document_get_elements_by_class_name,-        documentGetElementsByClassName, ghcjs_dom_document_query_selector,-        documentQuerySelector, ghcjs_dom_document_query_selector_all,-        documentQuerySelectorAll,-        ghcjs_dom_document_webkit_exit_pointer_lock,-        documentWebkitExitPointerLock,-        ghcjs_dom_document_webkit_get_named_flows,-        documentWebkitGetNamedFlows, ghcjs_dom_document_get_doctype,-        documentGetDoctype, ghcjs_dom_document_get_implementation,-        documentGetImplementation, ghcjs_dom_document_get_document_element,-        documentGetDocumentElement, ghcjs_dom_document_get_input_encoding,-        documentGetInputEncoding, ghcjs_dom_document_get_xml_encoding,-        documentGetXmlEncoding, ghcjs_dom_document_set_xml_version,-        documentSetXmlVersion, ghcjs_dom_document_get_xml_version,-        documentGetXmlVersion, ghcjs_dom_document_set_xml_standalone,-        documentSetXmlStandalone, ghcjs_dom_document_get_xml_standalone,-        documentGetXmlStandalone, ghcjs_dom_document_set_document_uri,-        documentSetDocumentURI, ghcjs_dom_document_get_document_uri,-        documentGetDocumentURI, ghcjs_dom_document_get_default_view,-        documentGetDefaultView, ghcjs_dom_document_get_style_sheets,-        documentGetStyleSheets, ghcjs_dom_document_set_title,-        documentSetTitle, ghcjs_dom_document_get_title, documentGetTitle,-        ghcjs_dom_document_get_referrer, documentGetReferrer,-        ghcjs_dom_document_get_domain, documentGetDomain,-        ghcjs_dom_document_set_cookie, documentSetCookie,-        ghcjs_dom_document_get_cookie, documentGetCookie,-        ghcjs_dom_document_set_body, documentSetBody,-        ghcjs_dom_document_get_body, documentGetBody,-        ghcjs_dom_document_get_head, documentGetHead,-        ghcjs_dom_document_get_images, documentGetImages,-        ghcjs_dom_document_get_applets, documentGetApplets,-        ghcjs_dom_document_get_links, documentGetLinks,-        ghcjs_dom_document_get_forms, documentGetForms,-        ghcjs_dom_document_get_anchors, documentGetAnchors,-        ghcjs_dom_document_get_last_modified, documentGetLastModified,-        ghcjs_dom_document_set_charset, documentSetCharset,-        ghcjs_dom_document_get_charset, documentGetCharset,-        ghcjs_dom_document_get_default_charset, documentGetDefaultCharset,-        ghcjs_dom_document_get_ready_state, documentGetReadyState,-        ghcjs_dom_document_get_character_set, documentGetCharacterSet,-        ghcjs_dom_document_get_preferred_stylesheet_set,-        documentGetPreferredStylesheetSet,-        ghcjs_dom_document_set_selected_stylesheet_set,-        documentSetSelectedStylesheetSet,-        ghcjs_dom_document_get_selected_stylesheet_set,-        documentGetSelectedStylesheetSet,-        ghcjs_dom_document_get_compat_mode, documentGetCompatMode,-        ghcjs_dom_document_get_webkit_pointer_lock_element,-        documentGetWebkitPointerLockElement, documentOnabort,-        documentOnblur, documentOnchange, documentOnclick,-        documentOncontextmenu, documentOndblclick, documentOndrag,-        documentOndragend, documentOndragenter, documentOndragleave,-        documentOndragover, documentOndragstart, documentOndrop,-        documentOnerror, documentOnfocus, documentOninput,-        documentOninvalid, documentOnkeydown, documentOnkeypress,-        documentOnkeyup, documentOnload, documentOnmousedown,-        documentOnmouseenter, documentOnmouseleave, documentOnmousemove,-        documentOnmouseout, documentOnmouseover, documentOnmouseup,-        documentOnmousewheel, documentOnreadystatechange, documentOnscroll,-        documentOnselect, documentOnsubmit, documentOnbeforecut,-        documentOncut, documentOnbeforecopy, documentOncopy,-        documentOnbeforepaste, documentOnpaste, documentOnreset,-        documentOnsearch, documentOnselectstart, documentOnselectionchange,-        documentOntouchstart, documentOntouchmove, documentOntouchend,-        documentOntouchcancel, documentOnwebkitfullscreenchange,-        documentOnwebkitfullscreenerror, documentOnwebkitpointerlockchange,-        documentOnwebkitpointerlockerror,-        documentOnsecuritypolicyviolation,-        ghcjs_dom_document_get_visibility_state,-        documentGetVisibilityState, ghcjs_dom_document_get_hidden,-        documentGetHidden, ghcjs_dom_document_get_security_policy,-        documentGetSecurityPolicy, ghcjs_dom_document_get_current_script,-        documentGetCurrentScript, Document, IsDocument, castToDocument,-        gTypeDocument, toDocument)-       where-import GHCJS.Types-import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM----#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"createElement\"]($2)"-        ghcjs_dom_document_create_element ::-        JSRef Document -> JSString -> IO (JSRef Element)-#else -ghcjs_dom_document_create_element ::-                                    JSRef Document -> JSString -> IO (JSRef Element)-ghcjs_dom_document_create_element = undefined-#endif- -documentCreateElement ::-                      (IsDocument self, ToJSString tagName) =>-                        self -> tagName -> IO (Maybe Element)-documentCreateElement self tagName-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_document_create_element (unDocument (toDocument self))-         (toJSString tagName))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"createDocumentFragment\"]()"-        ghcjs_dom_document_create_document_fragment ::-        JSRef Document -> IO (JSRef DocumentFragment)-#else -ghcjs_dom_document_create_document_fragment ::-                                              JSRef Document -> IO (JSRef DocumentFragment)-ghcjs_dom_document_create_document_fragment = undefined-#endif- -documentCreateDocumentFragment ::-                               (IsDocument self) => self -> IO (Maybe DocumentFragment)-documentCreateDocumentFragment self-  = fmap DocumentFragment . maybeJSNull <$>-      (ghcjs_dom_document_create_document_fragment-         (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"createTextNode\"]($2)"-        ghcjs_dom_document_create_text_node ::-        JSRef Document -> JSString -> IO (JSRef Text)-#else -ghcjs_dom_document_create_text_node ::-                                      JSRef Document -> JSString -> IO (JSRef Text)-ghcjs_dom_document_create_text_node = undefined-#endif- -documentCreateTextNode ::-                       (IsDocument self, ToJSString data') =>-                         self -> data' -> IO (Maybe Text)-documentCreateTextNode self data'-  = fmap Text . maybeJSNull <$>-      (ghcjs_dom_document_create_text_node (unDocument (toDocument self))-         (toJSString data'))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"createComment\"]($2)"-        ghcjs_dom_document_create_comment ::-        JSRef Document -> JSString -> IO (JSRef Comment)-#else -ghcjs_dom_document_create_comment ::-                                    JSRef Document -> JSString -> IO (JSRef Comment)-ghcjs_dom_document_create_comment = undefined-#endif- -documentCreateComment ::-                      (IsDocument self, ToJSString data') =>-                        self -> data' -> IO (Maybe Comment)-documentCreateComment self data'-  = fmap Comment . maybeJSNull <$>-      (ghcjs_dom_document_create_comment (unDocument (toDocument self))-         (toJSString data'))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"createCDATASection\"]($2)"-        ghcjs_dom_document_create_cdata_section ::-        JSRef Document -> JSString -> IO (JSRef CDATASection)-#else -ghcjs_dom_document_create_cdata_section ::-                                          JSRef Document -> JSString -> IO (JSRef CDATASection)-ghcjs_dom_document_create_cdata_section = undefined-#endif- -documentCreateCDATASection ::-                           (IsDocument self, ToJSString data') =>-                             self -> data' -> IO (Maybe CDATASection)-documentCreateCDATASection self data'-  = fmap CDATASection . maybeJSNull <$>-      (ghcjs_dom_document_create_cdata_section-         (unDocument (toDocument self))-         (toJSString data'))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe-        "$1[\"createProcessingInstruction\"]($2,\n$3)"-        ghcjs_dom_document_create_processing_instruction ::-        JSRef Document ->-          JSString -> JSString -> IO (JSRef ProcessingInstruction)-#else -ghcjs_dom_document_create_processing_instruction ::-                                                   JSRef Document ->-                                                     JSString ->-                                                       JSString -> IO (JSRef ProcessingInstruction)-ghcjs_dom_document_create_processing_instruction = undefined-#endif- -documentCreateProcessingInstruction ::-                                    (IsDocument self, ToJSString target, ToJSString data') =>-                                      self -> target -> data' -> IO (Maybe ProcessingInstruction)-documentCreateProcessingInstruction self target data'-  = fmap ProcessingInstruction . maybeJSNull <$>-      (ghcjs_dom_document_create_processing_instruction-         (unDocument (toDocument self))-         (toJSString target)-         (toJSString data'))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"createAttribute\"]($2)"-        ghcjs_dom_document_create_attribute ::-        JSRef Document -> JSString -> IO (JSRef DOMAttr)-#else -ghcjs_dom_document_create_attribute ::-                                      JSRef Document -> JSString -> IO (JSRef DOMAttr)-ghcjs_dom_document_create_attribute = undefined-#endif- -documentCreateAttribute ::-                        (IsDocument self, ToJSString name) =>-                          self -> name -> IO (Maybe DOMAttr)-documentCreateAttribute self name-  = fmap DOMAttr . maybeJSNull <$>-      (ghcjs_dom_document_create_attribute (unDocument (toDocument self))-         (toJSString name))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe-        "$1[\"createEntityReference\"]($2)"-        ghcjs_dom_document_create_entity_reference ::-        JSRef Document -> JSString -> IO (JSRef EntityReference)-#else -ghcjs_dom_document_create_entity_reference ::-                                             JSRef Document ->-                                               JSString -> IO (JSRef EntityReference)-ghcjs_dom_document_create_entity_reference = undefined-#endif- -documentCreateEntityReference ::-                              (IsDocument self, ToJSString name) =>-                                self -> name -> IO (Maybe EntityReference)-documentCreateEntityReference self name-  = fmap EntityReference . maybeJSNull <$>-      (ghcjs_dom_document_create_entity_reference-         (unDocument (toDocument self))-         (toJSString name))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)"-        ghcjs_dom_document_get_elements_by_tag_name ::-        JSRef Document -> JSString -> IO (JSRef NodeList)-#else -ghcjs_dom_document_get_elements_by_tag_name ::-                                              JSRef Document -> JSString -> IO (JSRef NodeList)-ghcjs_dom_document_get_elements_by_tag_name = undefined-#endif- -documentGetElementsByTagName ::-                             (IsDocument self, ToJSString tagname) =>-                               self -> tagname -> IO (Maybe NodeList)-documentGetElementsByTagName self tagname-  = fmap NodeList . maybeJSNull <$>-      (ghcjs_dom_document_get_elements_by_tag_name-         (unDocument (toDocument self))-         (toJSString tagname))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"importNode\"]($2, $3)"-        ghcjs_dom_document_import_node ::-        JSRef Document -> JSRef Node -> Bool -> IO (JSRef Node)-#else -ghcjs_dom_document_import_node ::-                                 JSRef Document -> JSRef Node -> Bool -> IO (JSRef Node)-ghcjs_dom_document_import_node = undefined-#endif- -documentImportNode ::-                   (IsDocument self, IsNode importedNode) =>-                     self -> Maybe importedNode -> Bool -> IO (Maybe Node)-documentImportNode self importedNode deep-  = fmap Node . maybeJSNull <$>-      (ghcjs_dom_document_import_node (unDocument (toDocument self))-         (maybe jsNull (unNode . toNode) importedNode)-         deep)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"createElementNS\"]($2, $3)"-        ghcjs_dom_document_create_element_ns ::-        JSRef Document -> JSString -> JSString -> IO (JSRef Element)-#else -ghcjs_dom_document_create_element_ns ::-                                       JSRef Document -> JSString -> JSString -> IO (JSRef Element)-ghcjs_dom_document_create_element_ns = undefined-#endif- -documentCreateElementNS ::-                        (IsDocument self, ToJSString namespaceURI,-                         ToJSString qualifiedName) =>-                          self -> namespaceURI -> qualifiedName -> IO (Maybe Element)-documentCreateElementNS self namespaceURI qualifiedName-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_document_create_element_ns-         (unDocument (toDocument self))-         (toJSString namespaceURI)-         (toJSString qualifiedName))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe-        "$1[\"createAttributeNS\"]($2, $3)"-        ghcjs_dom_document_create_attribute_ns ::-        JSRef Document -> JSString -> JSString -> IO (JSRef DOMAttr)-#else -ghcjs_dom_document_create_attribute_ns ::-                                         JSRef Document ->-                                           JSString -> JSString -> IO (JSRef DOMAttr)-ghcjs_dom_document_create_attribute_ns = undefined-#endif- -documentCreateAttributeNS ::-                          (IsDocument self, ToJSString namespaceURI,-                           ToJSString qualifiedName) =>-                            self -> namespaceURI -> qualifiedName -> IO (Maybe DOMAttr)-documentCreateAttributeNS self namespaceURI qualifiedName-  = fmap DOMAttr . maybeJSNull <$>-      (ghcjs_dom_document_create_attribute_ns-         (unDocument (toDocument self))-         (toJSString namespaceURI)-         (toJSString qualifiedName))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe-        "$1[\"getElementsByTagNameNS\"]($2,\n$3)"-        ghcjs_dom_document_get_elements_by_tag_name_ns ::-        JSRef Document -> JSString -> JSString -> IO (JSRef NodeList)-#else -ghcjs_dom_document_get_elements_by_tag_name_ns ::-                                                 JSRef Document ->-                                                   JSString -> JSString -> IO (JSRef NodeList)-ghcjs_dom_document_get_elements_by_tag_name_ns = undefined-#endif- -documentGetElementsByTagNameNS ::-                               (IsDocument self, ToJSString namespaceURI, ToJSString localName) =>-                                 self -> namespaceURI -> localName -> IO (Maybe NodeList)-documentGetElementsByTagNameNS self namespaceURI localName-  = fmap NodeList . maybeJSNull <$>-      (ghcjs_dom_document_get_elements_by_tag_name_ns-         (unDocument (toDocument self))-         (toJSString namespaceURI)-         (toJSString localName))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"getElementById\"]($2)"-        ghcjs_dom_document_get_element_by_id ::-        JSRef Document -> JSString -> IO (JSRef Element)-#else -ghcjs_dom_document_get_element_by_id ::-                                       JSRef Document -> JSString -> IO (JSRef Element)-ghcjs_dom_document_get_element_by_id = undefined-#endif- -documentGetElementById ::-                       (IsDocument self, ToJSString elementId) =>-                         self -> elementId -> IO (Maybe Element)-documentGetElementById self elementId-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_document_get_element_by_id-         (unDocument (toDocument self))-         (toJSString elementId))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"adoptNode\"]($2)"-        ghcjs_dom_document_adopt_node ::-        JSRef Document -> JSRef Node -> IO (JSRef Node)-#else -ghcjs_dom_document_adopt_node ::-                                JSRef Document -> JSRef Node -> IO (JSRef Node)-ghcjs_dom_document_adopt_node = undefined-#endif- -documentAdoptNode ::-                  (IsDocument self, IsNode source) =>-                    self -> Maybe source -> IO (Maybe Node)-documentAdoptNode self source-  = fmap Node . maybeJSNull <$>-      (ghcjs_dom_document_adopt_node (unDocument (toDocument self))-         (maybe jsNull (unNode . toNode) source))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"createEvent\"]($2)"-        ghcjs_dom_document_create_event ::-        JSRef Document -> JSString -> IO (JSRef Event)-#else -ghcjs_dom_document_create_event ::-                                  JSRef Document -> JSString -> IO (JSRef Event)-ghcjs_dom_document_create_event = undefined-#endif- -documentCreateEvent ::-                    (IsDocument self, ToJSString eventType) =>-                      self -> eventType -> IO (Maybe Event)-documentCreateEvent self eventType-  = fmap Event . maybeJSNull <$>-      (ghcjs_dom_document_create_event (unDocument (toDocument self))-         (toJSString eventType))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"createRange\"]()"-        ghcjs_dom_document_create_range ::-        JSRef Document -> IO (JSRef DOMRange)-#else -ghcjs_dom_document_create_range ::-                                  JSRef Document -> IO (JSRef DOMRange)-ghcjs_dom_document_create_range = undefined-#endif- -documentCreateRange ::-                    (IsDocument self) => self -> IO (Maybe DOMRange)-documentCreateRange self-  = fmap DOMRange . maybeJSNull <$>-      (ghcjs_dom_document_create_range (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe-        "$1[\"createNodeIterator\"]($2, $3,\n$4, $5)"-        ghcjs_dom_document_create_node_iterator ::-        JSRef Document ->-          JSRef Node ->-            Word -> JSRef NodeFilter -> Bool -> IO (JSRef NodeIterator)-#else -ghcjs_dom_document_create_node_iterator ::-                                          JSRef Document ->-                                            JSRef Node ->-                                              Word ->-                                                JSRef NodeFilter -> Bool -> IO (JSRef NodeIterator)-ghcjs_dom_document_create_node_iterator = undefined-#endif- -documentCreateNodeIterator ::-                           (IsDocument self, IsNode root, IsNodeFilter filter) =>-                             self ->-                               Maybe root ->-                                 Word -> Maybe filter -> Bool -> IO (Maybe NodeIterator)-documentCreateNodeIterator self root whatToShow filter-  expandEntityReferences-  = fmap NodeIterator . maybeJSNull <$>-      (ghcjs_dom_document_create_node_iterator-         (unDocument (toDocument self))-         (maybe jsNull (unNode . toNode) root)-         whatToShow-         (maybe jsNull (unNodeFilter . toNodeFilter) filter)-         expandEntityReferences)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe-        "$1[\"createTreeWalker\"]($2, $3,\n$4, $5)"-        ghcjs_dom_document_create_tree_walker ::-        JSRef Document ->-          JSRef Node ->-            Word -> JSRef NodeFilter -> Bool -> IO (JSRef TreeWalker)-#else -ghcjs_dom_document_create_tree_walker ::-                                        JSRef Document ->-                                          JSRef Node ->-                                            Word ->-                                              JSRef NodeFilter -> Bool -> IO (JSRef TreeWalker)-ghcjs_dom_document_create_tree_walker = undefined-#endif- -documentCreateTreeWalker ::-                         (IsDocument self, IsNode root, IsNodeFilter filter) =>-                           self ->-                             Maybe root -> Word -> Maybe filter -> Bool -> IO (Maybe TreeWalker)-documentCreateTreeWalker self root whatToShow filter-  expandEntityReferences-  = fmap TreeWalker . maybeJSNull <$>-      (ghcjs_dom_document_create_tree_walker-         (unDocument (toDocument self))-         (maybe jsNull (unNode . toNode) root)-         whatToShow-         (maybe jsNull (unNodeFilter . toNodeFilter) filter)-         expandEntityReferences)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"getOverrideStyle\"]($2, $3)"-        ghcjs_dom_document_get_override_style ::-        JSRef Document ->-          JSRef Element -> JSString -> IO (JSRef CSSStyleDeclaration)-#else -ghcjs_dom_document_get_override_style ::-                                        JSRef Document ->-                                          JSRef Element ->-                                            JSString -> IO (JSRef CSSStyleDeclaration)-ghcjs_dom_document_get_override_style = undefined-#endif- -documentGetOverrideStyle ::-                         (IsDocument self, IsElement element, ToJSString pseudoElement) =>-                           self ->-                             Maybe element -> pseudoElement -> IO (Maybe CSSStyleDeclaration)-documentGetOverrideStyle self element pseudoElement-  = fmap CSSStyleDeclaration . maybeJSNull <$>-      (ghcjs_dom_document_get_override_style-         (unDocument (toDocument self))-         (maybe jsNull (unElement . toElement) element)-         (toJSString pseudoElement))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"createExpression\"]($2, $3)"-        ghcjs_dom_document_create_expression ::-        JSRef Document ->-          JSString -> JSRef XPathNSResolver -> IO (JSRef XPathExpression)-#else -ghcjs_dom_document_create_expression ::-                                       JSRef Document ->-                                         JSString ->-                                           JSRef XPathNSResolver -> IO (JSRef XPathExpression)-ghcjs_dom_document_create_expression = undefined-#endif- -documentCreateExpression ::-                         (IsDocument self, ToJSString expression,-                          IsXPathNSResolver resolver) =>-                           self -> expression -> Maybe resolver -> IO (Maybe XPathExpression)-documentCreateExpression self expression resolver-  = fmap XPathExpression . maybeJSNull <$>-      (ghcjs_dom_document_create_expression-         (unDocument (toDocument self))-         (toJSString expression)-         (maybe jsNull (unXPathNSResolver . toXPathNSResolver) resolver))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"createNSResolver\"]($2)"-        ghcjs_dom_document_create_ns_resolver ::-        JSRef Document -> JSRef Node -> IO (JSRef XPathNSResolver)-#else -ghcjs_dom_document_create_ns_resolver ::-                                        JSRef Document -> JSRef Node -> IO (JSRef XPathNSResolver)-ghcjs_dom_document_create_ns_resolver = undefined-#endif- -documentCreateNSResolver ::-                         (IsDocument self, IsNode nodeResolver) =>-                           self -> Maybe nodeResolver -> IO (Maybe XPathNSResolver)-documentCreateNSResolver self nodeResolver-  = fmap XPathNSResolver . maybeJSNull <$>-      (ghcjs_dom_document_create_ns_resolver-         (unDocument (toDocument self))-         (maybe jsNull (unNode . toNode) nodeResolver))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe-        "$1[\"evaluate\"]($2, $3, $4, $5,\n$6)" ghcjs_dom_document_evaluate-        ::-        JSRef Document ->-          JSString ->-            JSRef Node ->-              JSRef XPathNSResolver ->-                Word -> JSRef XPathResult -> IO (JSRef XPathResult)-#else -ghcjs_dom_document_evaluate ::-                              JSRef Document ->-                                JSString ->-                                  JSRef Node ->-                                    JSRef XPathNSResolver ->-                                      Word -> JSRef XPathResult -> IO (JSRef XPathResult)-ghcjs_dom_document_evaluate = undefined-#endif- -documentEvaluate ::-                 (IsDocument self, ToJSString expression, IsNode contextNode,-                  IsXPathNSResolver resolver, IsXPathResult inResult) =>-                   self ->-                     expression ->-                       Maybe contextNode ->-                         Maybe resolver -> Word -> Maybe inResult -> IO (Maybe XPathResult)-documentEvaluate self expression contextNode resolver type'-  inResult-  = fmap XPathResult . maybeJSNull <$>-      (ghcjs_dom_document_evaluate (unDocument (toDocument self))-         (toJSString expression)-         (maybe jsNull (unNode . toNode) contextNode)-         (maybe jsNull (unXPathNSResolver . toXPathNSResolver) resolver)-         type'-         (maybe jsNull (unXPathResult . toXPathResult) inResult))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe-        "($1[\"execCommand\"]($2, $3,\n$4) ? 1 : 0)"-        ghcjs_dom_document_exec_command ::-        JSRef Document -> JSString -> Bool -> JSString -> IO Bool-#else -ghcjs_dom_document_exec_command ::-                                  JSRef Document -> JSString -> Bool -> JSString -> IO Bool-ghcjs_dom_document_exec_command = undefined-#endif- -documentExecCommand ::-                    (IsDocument self, ToJSString command, ToJSString value) =>-                      self -> command -> Bool -> value -> IO Bool-documentExecCommand self command userInterface value-  = ghcjs_dom_document_exec_command (unDocument (toDocument self))-      (toJSString command)-      userInterface-      (toJSString value)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe-        "($1[\"queryCommandEnabled\"]($2) ? 1 : 0)"-        ghcjs_dom_document_query_command_enabled ::-        JSRef Document -> JSString -> IO Bool-#else -ghcjs_dom_document_query_command_enabled ::-                                           JSRef Document -> JSString -> IO Bool-ghcjs_dom_document_query_command_enabled = undefined-#endif- -documentQueryCommandEnabled ::-                            (IsDocument self, ToJSString command) => self -> command -> IO Bool-documentQueryCommandEnabled self command-  = ghcjs_dom_document_query_command_enabled-      (unDocument (toDocument self))-      (toJSString command)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe-        "($1[\"queryCommandIndeterm\"]($2) ? 1 : 0)"-        ghcjs_dom_document_query_command_indeterm ::-        JSRef Document -> JSString -> IO Bool-#else -ghcjs_dom_document_query_command_indeterm ::-                                            JSRef Document -> JSString -> IO Bool-ghcjs_dom_document_query_command_indeterm = undefined-#endif- -documentQueryCommandIndeterm ::-                             (IsDocument self, ToJSString command) => self -> command -> IO Bool-documentQueryCommandIndeterm self command-  = ghcjs_dom_document_query_command_indeterm-      (unDocument (toDocument self))-      (toJSString command)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe-        "($1[\"queryCommandState\"]($2) ? 1 : 0)"-        ghcjs_dom_document_query_command_state ::-        JSRef Document -> JSString -> IO Bool-#else -ghcjs_dom_document_query_command_state ::-                                         JSRef Document -> JSString -> IO Bool-ghcjs_dom_document_query_command_state = undefined-#endif- -documentQueryCommandState ::-                          (IsDocument self, ToJSString command) => self -> command -> IO Bool-documentQueryCommandState self command-  = ghcjs_dom_document_query_command_state-      (unDocument (toDocument self))-      (toJSString command)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe-        "($1[\"queryCommandSupported\"]($2) ? 1 : 0)"-        ghcjs_dom_document_query_command_supported ::-        JSRef Document -> JSString -> IO Bool-#else -ghcjs_dom_document_query_command_supported ::-                                             JSRef Document -> JSString -> IO Bool-ghcjs_dom_document_query_command_supported = undefined-#endif- -documentQueryCommandSupported ::-                              (IsDocument self, ToJSString command) => self -> command -> IO Bool-documentQueryCommandSupported self command-  = ghcjs_dom_document_query_command_supported-      (unDocument (toDocument self))-      (toJSString command)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"queryCommandValue\"]($2)"-        ghcjs_dom_document_query_command_value ::-        JSRef Document -> JSString -> IO JSString-#else -ghcjs_dom_document_query_command_value ::-                                         JSRef Document -> JSString -> IO JSString-ghcjs_dom_document_query_command_value = undefined-#endif- -documentQueryCommandValue ::-                          (IsDocument self, ToJSString command, FromJSString result) =>-                            self -> command -> IO result-documentQueryCommandValue self command-  = fromJSString <$>-      (ghcjs_dom_document_query_command_value-         (unDocument (toDocument self))-         (toJSString command))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"getElementsByName\"]($2)"-        ghcjs_dom_document_get_elements_by_name ::-        JSRef Document -> JSString -> IO (JSRef NodeList)-#else -ghcjs_dom_document_get_elements_by_name ::-                                          JSRef Document -> JSString -> IO (JSRef NodeList)-ghcjs_dom_document_get_elements_by_name = undefined-#endif- -documentGetElementsByName ::-                          (IsDocument self, ToJSString elementName) =>-                            self -> elementName -> IO (Maybe NodeList)-documentGetElementsByName self elementName-  = fmap NodeList . maybeJSNull <$>-      (ghcjs_dom_document_get_elements_by_name-         (unDocument (toDocument self))-         (toJSString elementName))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"elementFromPoint\"]($2, $3)"-        ghcjs_dom_document_element_from_point ::-        JSRef Document -> Int -> Int -> IO (JSRef Element)-#else -ghcjs_dom_document_element_from_point ::-                                        JSRef Document -> Int -> Int -> IO (JSRef Element)-ghcjs_dom_document_element_from_point = undefined-#endif- -documentElementFromPoint ::-                         (IsDocument self) => self -> Int -> Int -> IO (Maybe Element)-documentElementFromPoint self x y-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_document_element_from_point-         (unDocument (toDocument self))-         x-         y)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe-        "$1[\"caretRangeFromPoint\"]($2,\n$3)"-        ghcjs_dom_document_caret_range_from_point ::-        JSRef Document -> Int -> Int -> IO (JSRef DOMRange)-#else -ghcjs_dom_document_caret_range_from_point ::-                                            JSRef Document -> Int -> Int -> IO (JSRef DOMRange)-ghcjs_dom_document_caret_range_from_point = undefined-#endif- -documentCaretRangeFromPoint ::-                            (IsDocument self) => self -> Int -> Int -> IO (Maybe DOMRange)-documentCaretRangeFromPoint self x y-  = fmap DOMRange . maybeJSNull <$>-      (ghcjs_dom_document_caret_range_from_point-         (unDocument (toDocument self))-         x-         y)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe-        "$1[\"createCSSStyleDeclaration\"]()"-        ghcjs_dom_document_create_css_style_declaration ::-        JSRef Document -> IO (JSRef CSSStyleDeclaration)-#else -ghcjs_dom_document_create_css_style_declaration ::-                                                  JSRef Document -> IO (JSRef CSSStyleDeclaration)-ghcjs_dom_document_create_css_style_declaration = undefined-#endif- -documentCreateCSSStyleDeclaration ::-                                  (IsDocument self) => self -> IO (Maybe CSSStyleDeclaration)-documentCreateCSSStyleDeclaration self-  = fmap CSSStyleDeclaration . maybeJSNull <$>-      (ghcjs_dom_document_create_css_style_declaration-         (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe-        "$1[\"getElementsByClassName\"]($2)"-        ghcjs_dom_document_get_elements_by_class_name ::-        JSRef Document -> JSString -> IO (JSRef NodeList)-#else -ghcjs_dom_document_get_elements_by_class_name ::-                                                JSRef Document -> JSString -> IO (JSRef NodeList)-ghcjs_dom_document_get_elements_by_class_name = undefined-#endif- -documentGetElementsByClassName ::-                               (IsDocument self, ToJSString tagname) =>-                                 self -> tagname -> IO (Maybe NodeList)-documentGetElementsByClassName self tagname-  = fmap NodeList . maybeJSNull <$>-      (ghcjs_dom_document_get_elements_by_class_name-         (unDocument (toDocument self))-         (toJSString tagname))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"querySelector\"]($2)"-        ghcjs_dom_document_query_selector ::-        JSRef Document -> JSString -> IO (JSRef Element)-#else -ghcjs_dom_document_query_selector ::-                                    JSRef Document -> JSString -> IO (JSRef Element)-ghcjs_dom_document_query_selector = undefined-#endif- -documentQuerySelector ::-                      (IsDocument self, ToJSString selectors) =>-                        self -> selectors -> IO (Maybe Element)-documentQuerySelector self selectors-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_document_query_selector (unDocument (toDocument self))-         (toJSString selectors))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"-        ghcjs_dom_document_query_selector_all ::-        JSRef Document -> JSString -> IO (JSRef NodeList)-#else -ghcjs_dom_document_query_selector_all ::-                                        JSRef Document -> JSString -> IO (JSRef NodeList)-ghcjs_dom_document_query_selector_all = undefined-#endif- -documentQuerySelectorAll ::-                         (IsDocument self, ToJSString selectors) =>-                           self -> selectors -> IO (Maybe NodeList)-documentQuerySelectorAll self selectors-  = fmap NodeList . maybeJSNull <$>-      (ghcjs_dom_document_query_selector_all-         (unDocument (toDocument self))-         (toJSString selectors))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"webkitExitPointerLock\"]()"-        ghcjs_dom_document_webkit_exit_pointer_lock ::-        JSRef Document -> IO ()-#else -ghcjs_dom_document_webkit_exit_pointer_lock ::-                                              JSRef Document -> IO ()-ghcjs_dom_document_webkit_exit_pointer_lock = undefined-#endif- -documentWebkitExitPointerLock :: (IsDocument self) => self -> IO ()-documentWebkitExitPointerLock self-  = ghcjs_dom_document_webkit_exit_pointer_lock-      (unDocument (toDocument self))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"webkitGetNamedFlows\"]()"-        ghcjs_dom_document_webkit_get_named_flows ::-        JSRef Document -> IO (JSRef DOMNamedFlowCollection)-#else -ghcjs_dom_document_webkit_get_named_flows ::-                                            JSRef Document -> IO (JSRef DOMNamedFlowCollection)-ghcjs_dom_document_webkit_get_named_flows = undefined-#endif- -documentWebkitGetNamedFlows ::-                            (IsDocument self) => self -> IO (Maybe DOMNamedFlowCollection)-documentWebkitGetNamedFlows self-  = fmap DOMNamedFlowCollection . maybeJSNull <$>-      (ghcjs_dom_document_webkit_get_named_flows-         (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"doctype\"]"-        ghcjs_dom_document_get_doctype ::-        JSRef Document -> IO (JSRef DocumentType)-#else -ghcjs_dom_document_get_doctype ::-                                 JSRef Document -> IO (JSRef DocumentType)-ghcjs_dom_document_get_doctype = undefined-#endif- -documentGetDoctype ::-                   (IsDocument self) => self -> IO (Maybe DocumentType)-documentGetDoctype self-  = fmap DocumentType . maybeJSNull <$>-      (ghcjs_dom_document_get_doctype (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"implementation\"]"-        ghcjs_dom_document_get_implementation ::-        JSRef Document -> IO (JSRef DOMImplementation)-#else -ghcjs_dom_document_get_implementation ::-                                        JSRef Document -> IO (JSRef DOMImplementation)-ghcjs_dom_document_get_implementation = undefined-#endif- -documentGetImplementation ::-                          (IsDocument self) => self -> IO (Maybe DOMImplementation)-documentGetImplementation self-  = fmap DOMImplementation . maybeJSNull <$>-      (ghcjs_dom_document_get_implementation-         (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"documentElement\"]"-        ghcjs_dom_document_get_document_element ::-        JSRef Document -> IO (JSRef Element)-#else -ghcjs_dom_document_get_document_element ::-                                          JSRef Document -> IO (JSRef Element)-ghcjs_dom_document_get_document_element = undefined-#endif- -documentGetDocumentElement ::-                           (IsDocument self) => self -> IO (Maybe Element)-documentGetDocumentElement self-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_document_get_document_element-         (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"inputEncoding\"]"-        ghcjs_dom_document_get_input_encoding ::-        JSRef Document -> IO JSString-#else -ghcjs_dom_document_get_input_encoding ::-                                        JSRef Document -> IO JSString-ghcjs_dom_document_get_input_encoding = undefined-#endif- -documentGetInputEncoding ::-                         (IsDocument self, FromJSString result) => self -> IO result-documentGetInputEncoding self-  = fromJSString <$>-      (ghcjs_dom_document_get_input_encoding-         (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"xmlEncoding\"]"-        ghcjs_dom_document_get_xml_encoding ::-        JSRef Document -> IO JSString-#else -ghcjs_dom_document_get_xml_encoding ::-                                      JSRef Document -> IO JSString-ghcjs_dom_document_get_xml_encoding = undefined-#endif- -documentGetXmlEncoding ::-                       (IsDocument self, FromJSString result) => self -> IO result-documentGetXmlEncoding self-  = fromJSString <$>-      (ghcjs_dom_document_get_xml_encoding-         (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"xmlVersion\"] = $2;"-        ghcjs_dom_document_set_xml_version ::-        JSRef Document -> JSString -> IO ()-#else -ghcjs_dom_document_set_xml_version ::-                                     JSRef Document -> JSString -> IO ()-ghcjs_dom_document_set_xml_version = undefined-#endif- -documentSetXmlVersion ::-                      (IsDocument self, ToJSString val) => self -> val -> IO ()-documentSetXmlVersion self val-  = ghcjs_dom_document_set_xml_version (unDocument (toDocument self))-      (toJSString val)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"xmlVersion\"]"-        ghcjs_dom_document_get_xml_version :: JSRef Document -> IO JSString-#else -ghcjs_dom_document_get_xml_version :: JSRef Document -> IO JSString-ghcjs_dom_document_get_xml_version = undefined-#endif- -documentGetXmlVersion ::-                      (IsDocument self, FromJSString result) => self -> IO result-documentGetXmlVersion self-  = fromJSString <$>-      (ghcjs_dom_document_get_xml_version (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"xmlStandalone\"] = $2;"-        ghcjs_dom_document_set_xml_standalone ::-        JSRef Document -> Bool -> IO ()-#else -ghcjs_dom_document_set_xml_standalone ::-                                        JSRef Document -> Bool -> IO ()-ghcjs_dom_document_set_xml_standalone = undefined-#endif- -documentSetXmlStandalone ::-                         (IsDocument self) => self -> Bool -> IO ()-documentSetXmlStandalone self val-  = ghcjs_dom_document_set_xml_standalone-      (unDocument (toDocument self))-      val---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "($1[\"xmlStandalone\"] ? 1 : 0)"-        ghcjs_dom_document_get_xml_standalone :: JSRef Document -> IO Bool-#else -ghcjs_dom_document_get_xml_standalone :: JSRef Document -> IO Bool-ghcjs_dom_document_get_xml_standalone = undefined-#endif- -documentGetXmlStandalone :: (IsDocument self) => self -> IO Bool-documentGetXmlStandalone self-  = ghcjs_dom_document_get_xml_standalone-      (unDocument (toDocument self))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"documentURI\"] = $2;"-        ghcjs_dom_document_set_document_uri ::-        JSRef Document -> JSString -> IO ()-#else -ghcjs_dom_document_set_document_uri ::-                                      JSRef Document -> JSString -> IO ()-ghcjs_dom_document_set_document_uri = undefined-#endif- -documentSetDocumentURI ::-                       (IsDocument self, ToJSString val) => self -> val -> IO ()-documentSetDocumentURI self val-  = ghcjs_dom_document_set_document_uri-      (unDocument (toDocument self))-      (toJSString val)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"documentURI\"]"-        ghcjs_dom_document_get_document_uri ::-        JSRef Document -> IO JSString-#else -ghcjs_dom_document_get_document_uri ::-                                      JSRef Document -> IO JSString-ghcjs_dom_document_get_document_uri = undefined-#endif- -documentGetDocumentURI ::-                       (IsDocument self, FromJSString result) => self -> IO result-documentGetDocumentURI self-  = fromJSString <$>-      (ghcjs_dom_document_get_document_uri-         (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"defaultView\"]"-        ghcjs_dom_document_get_default_view ::-        JSRef Document -> IO (JSRef DOMWindow)-#else -ghcjs_dom_document_get_default_view ::-                                      JSRef Document -> IO (JSRef DOMWindow)-ghcjs_dom_document_get_default_view = undefined-#endif- -documentGetDefaultView ::-                       (IsDocument self) => self -> IO (Maybe DOMWindow)-documentGetDefaultView self-  = fmap DOMWindow . maybeJSNull <$>-      (ghcjs_dom_document_get_default_view-         (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"styleSheets\"]"-        ghcjs_dom_document_get_style_sheets ::-        JSRef Document -> IO (JSRef StyleSheetList)-#else -ghcjs_dom_document_get_style_sheets ::-                                      JSRef Document -> IO (JSRef StyleSheetList)-ghcjs_dom_document_get_style_sheets = undefined-#endif- -documentGetStyleSheets ::-                       (IsDocument self) => self -> IO (Maybe StyleSheetList)-documentGetStyleSheets self-  = fmap StyleSheetList . maybeJSNull <$>-      (ghcjs_dom_document_get_style_sheets-         (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"title\"] = $2;"-        ghcjs_dom_document_set_title :: JSRef Document -> JSString -> IO ()-#else -ghcjs_dom_document_set_title :: JSRef Document -> JSString -> IO ()-ghcjs_dom_document_set_title = undefined-#endif- -documentSetTitle ::-                 (IsDocument self, ToJSString val) => self -> val -> IO ()-documentSetTitle self val-  = ghcjs_dom_document_set_title (unDocument (toDocument self))-      (toJSString val)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"title\"]"-        ghcjs_dom_document_get_title :: JSRef Document -> IO JSString-#else -ghcjs_dom_document_get_title :: JSRef Document -> IO JSString-ghcjs_dom_document_get_title = undefined-#endif- -documentGetTitle ::-                 (IsDocument self, FromJSString result) => self -> IO result-documentGetTitle self-  = fromJSString <$>-      (ghcjs_dom_document_get_title (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"referrer\"]"-        ghcjs_dom_document_get_referrer :: JSRef Document -> IO JSString-#else -ghcjs_dom_document_get_referrer :: JSRef Document -> IO JSString-ghcjs_dom_document_get_referrer = undefined-#endif- -documentGetReferrer ::-                    (IsDocument self, FromJSString result) => self -> IO result-documentGetReferrer self-  = fromJSString <$>-      (ghcjs_dom_document_get_referrer (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"domain\"]"-        ghcjs_dom_document_get_domain :: JSRef Document -> IO JSString-#else -ghcjs_dom_document_get_domain :: JSRef Document -> IO JSString-ghcjs_dom_document_get_domain = undefined-#endif- -documentGetDomain ::-                  (IsDocument self, FromJSString result) => self -> IO result-documentGetDomain self-  = fromJSString <$>-      (ghcjs_dom_document_get_domain (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"cookie\"] = $2;"-        ghcjs_dom_document_set_cookie ::-        JSRef Document -> JSString -> IO ()-#else -ghcjs_dom_document_set_cookie ::-                                JSRef Document -> JSString -> IO ()-ghcjs_dom_document_set_cookie = undefined-#endif- -documentSetCookie ::-                  (IsDocument self, ToJSString val) => self -> val -> IO ()-documentSetCookie self val-  = ghcjs_dom_document_set_cookie (unDocument (toDocument self))-      (toJSString val)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"cookie\"]"-        ghcjs_dom_document_get_cookie :: JSRef Document -> IO JSString-#else -ghcjs_dom_document_get_cookie :: JSRef Document -> IO JSString-ghcjs_dom_document_get_cookie = undefined-#endif- -documentGetCookie ::-                  (IsDocument self, FromJSString result) => self -> IO result-documentGetCookie self-  = fromJSString <$>-      (ghcjs_dom_document_get_cookie (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"body\"] = $2;"-        ghcjs_dom_document_set_body ::-        JSRef Document -> JSRef HTMLElement -> IO ()-#else -ghcjs_dom_document_set_body ::-                              JSRef Document -> JSRef HTMLElement -> IO ()-ghcjs_dom_document_set_body = undefined-#endif- -documentSetBody ::-                (IsDocument self, IsHTMLElement val) => self -> Maybe val -> IO ()-documentSetBody self val-  = ghcjs_dom_document_set_body (unDocument (toDocument self))-      (maybe jsNull (unHTMLElement . toHTMLElement) val)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"body\"]"-        ghcjs_dom_document_get_body ::-        JSRef Document -> IO (JSRef HTMLElement)-#else -ghcjs_dom_document_get_body ::-                              JSRef Document -> IO (JSRef HTMLElement)-ghcjs_dom_document_get_body = undefined-#endif- -documentGetBody ::-                (IsDocument self) => self -> IO (Maybe HTMLElement)-documentGetBody self-  = fmap HTMLElement . maybeJSNull <$>-      (ghcjs_dom_document_get_body (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"head\"]"-        ghcjs_dom_document_get_head ::-        JSRef Document -> IO (JSRef HTMLHeadElement)-#else -ghcjs_dom_document_get_head ::-                              JSRef Document -> IO (JSRef HTMLHeadElement)-ghcjs_dom_document_get_head = undefined-#endif- -documentGetHead ::-                (IsDocument self) => self -> IO (Maybe HTMLHeadElement)-documentGetHead self-  = fmap HTMLHeadElement . maybeJSNull <$>-      (ghcjs_dom_document_get_head (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"images\"]"-        ghcjs_dom_document_get_images ::-        JSRef Document -> IO (JSRef HTMLCollection)-#else -ghcjs_dom_document_get_images ::-                                JSRef Document -> IO (JSRef HTMLCollection)-ghcjs_dom_document_get_images = undefined-#endif- -documentGetImages ::-                  (IsDocument self) => self -> IO (Maybe HTMLCollection)-documentGetImages self-  = fmap HTMLCollection . maybeJSNull <$>-      (ghcjs_dom_document_get_images (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"applets\"]"-        ghcjs_dom_document_get_applets ::-        JSRef Document -> IO (JSRef HTMLCollection)-#else -ghcjs_dom_document_get_applets ::-                                 JSRef Document -> IO (JSRef HTMLCollection)-ghcjs_dom_document_get_applets = undefined-#endif- -documentGetApplets ::-                   (IsDocument self) => self -> IO (Maybe HTMLCollection)-documentGetApplets self-  = fmap HTMLCollection . maybeJSNull <$>-      (ghcjs_dom_document_get_applets (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"links\"]"-        ghcjs_dom_document_get_links ::-        JSRef Document -> IO (JSRef HTMLCollection)-#else -ghcjs_dom_document_get_links ::-                               JSRef Document -> IO (JSRef HTMLCollection)-ghcjs_dom_document_get_links = undefined-#endif- -documentGetLinks ::-                 (IsDocument self) => self -> IO (Maybe HTMLCollection)-documentGetLinks self-  = fmap HTMLCollection . maybeJSNull <$>-      (ghcjs_dom_document_get_links (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"forms\"]"-        ghcjs_dom_document_get_forms ::-        JSRef Document -> IO (JSRef HTMLCollection)-#else -ghcjs_dom_document_get_forms ::-                               JSRef Document -> IO (JSRef HTMLCollection)-ghcjs_dom_document_get_forms = undefined-#endif- -documentGetForms ::-                 (IsDocument self) => self -> IO (Maybe HTMLCollection)-documentGetForms self-  = fmap HTMLCollection . maybeJSNull <$>-      (ghcjs_dom_document_get_forms (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"anchors\"]"-        ghcjs_dom_document_get_anchors ::-        JSRef Document -> IO (JSRef HTMLCollection)-#else -ghcjs_dom_document_get_anchors ::-                                 JSRef Document -> IO (JSRef HTMLCollection)-ghcjs_dom_document_get_anchors = undefined-#endif- -documentGetAnchors ::-                   (IsDocument self) => self -> IO (Maybe HTMLCollection)-documentGetAnchors self-  = fmap HTMLCollection . maybeJSNull <$>-      (ghcjs_dom_document_get_anchors (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"lastModified\"]"-        ghcjs_dom_document_get_last_modified ::-        JSRef Document -> IO JSString-#else -ghcjs_dom_document_get_last_modified ::-                                       JSRef Document -> IO JSString-ghcjs_dom_document_get_last_modified = undefined-#endif- -documentGetLastModified ::-                        (IsDocument self, FromJSString result) => self -> IO result-documentGetLastModified self-  = fromJSString <$>-      (ghcjs_dom_document_get_last_modified-         (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"charset\"] = $2;"-        ghcjs_dom_document_set_charset ::-        JSRef Document -> JSString -> IO ()-#else -ghcjs_dom_document_set_charset ::-                                 JSRef Document -> JSString -> IO ()-ghcjs_dom_document_set_charset = undefined-#endif- -documentSetCharset ::-                   (IsDocument self, ToJSString val) => self -> val -> IO ()-documentSetCharset self val-  = ghcjs_dom_document_set_charset (unDocument (toDocument self))-      (toJSString val)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"charset\"]"-        ghcjs_dom_document_get_charset :: JSRef Document -> IO JSString-#else -ghcjs_dom_document_get_charset :: JSRef Document -> IO JSString-ghcjs_dom_document_get_charset = undefined-#endif- -documentGetCharset ::-                   (IsDocument self, FromJSString result) => self -> IO result-documentGetCharset self-  = fromJSString <$>-      (ghcjs_dom_document_get_charset (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"defaultCharset\"]"-        ghcjs_dom_document_get_default_charset ::-        JSRef Document -> IO JSString-#else -ghcjs_dom_document_get_default_charset ::-                                         JSRef Document -> IO JSString-ghcjs_dom_document_get_default_charset = undefined-#endif- -documentGetDefaultCharset ::-                          (IsDocument self, FromJSString result) => self -> IO result-documentGetDefaultCharset self-  = fromJSString <$>-      (ghcjs_dom_document_get_default_charset-         (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"readyState\"]"-        ghcjs_dom_document_get_ready_state :: JSRef Document -> IO JSString-#else -ghcjs_dom_document_get_ready_state :: JSRef Document -> IO JSString-ghcjs_dom_document_get_ready_state = undefined-#endif- -documentGetReadyState ::-                      (IsDocument self, FromJSString result) => self -> IO result-documentGetReadyState self-  = fromJSString <$>-      (ghcjs_dom_document_get_ready_state (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"characterSet\"]"-        ghcjs_dom_document_get_character_set ::-        JSRef Document -> IO JSString-#else -ghcjs_dom_document_get_character_set ::-                                       JSRef Document -> IO JSString-ghcjs_dom_document_get_character_set = undefined-#endif- -documentGetCharacterSet ::-                        (IsDocument self, FromJSString result) => self -> IO result-documentGetCharacterSet self-  = fromJSString <$>-      (ghcjs_dom_document_get_character_set-         (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"preferredStylesheetSet\"]"-        ghcjs_dom_document_get_preferred_stylesheet_set ::-        JSRef Document -> IO JSString-#else -ghcjs_dom_document_get_preferred_stylesheet_set ::-                                                  JSRef Document -> IO JSString-ghcjs_dom_document_get_preferred_stylesheet_set = undefined-#endif- -documentGetPreferredStylesheetSet ::-                                  (IsDocument self, FromJSString result) => self -> IO result-documentGetPreferredStylesheetSet self-  = fromJSString <$>-      (ghcjs_dom_document_get_preferred_stylesheet_set-         (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe-        "$1[\"selectedStylesheetSet\"] = $2;"-        ghcjs_dom_document_set_selected_stylesheet_set ::-        JSRef Document -> JSString -> IO ()-#else -ghcjs_dom_document_set_selected_stylesheet_set ::-                                                 JSRef Document -> JSString -> IO ()-ghcjs_dom_document_set_selected_stylesheet_set = undefined-#endif- -documentSetSelectedStylesheetSet ::-                                 (IsDocument self, ToJSString val) => self -> val -> IO ()-documentSetSelectedStylesheetSet self val-  = ghcjs_dom_document_set_selected_stylesheet_set-      (unDocument (toDocument self))-      (toJSString val)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"selectedStylesheetSet\"]"-        ghcjs_dom_document_get_selected_stylesheet_set ::-        JSRef Document -> IO JSString-#else -ghcjs_dom_document_get_selected_stylesheet_set ::-                                                 JSRef Document -> IO JSString-ghcjs_dom_document_get_selected_stylesheet_set = undefined-#endif- -documentGetSelectedStylesheetSet ::-                                 (IsDocument self, FromJSString result) => self -> IO result-documentGetSelectedStylesheetSet self-  = fromJSString <$>-      (ghcjs_dom_document_get_selected_stylesheet_set-         (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"compatMode\"]"-        ghcjs_dom_document_get_compat_mode :: JSRef Document -> IO JSString-#else -ghcjs_dom_document_get_compat_mode :: JSRef Document -> IO JSString-ghcjs_dom_document_get_compat_mode = undefined-#endif- -documentGetCompatMode ::-                      (IsDocument self, FromJSString result) => self -> IO result-documentGetCompatMode self-  = fromJSString <$>-      (ghcjs_dom_document_get_compat_mode (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"webkitPointerLockElement\"]"-        ghcjs_dom_document_get_webkit_pointer_lock_element ::-        JSRef Document -> IO (JSRef Element)-#else -ghcjs_dom_document_get_webkit_pointer_lock_element ::-                                                     JSRef Document -> IO (JSRef Element)-ghcjs_dom_document_get_webkit_pointer_lock_element = undefined-#endif- -documentGetWebkitPointerLockElement ::-                                    (IsDocument self) => self -> IO (Maybe Element)-documentGetWebkitPointerLockElement self-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_document_get_webkit_pointer_lock_element-         (unDocument (toDocument self)))- -documentOnabort ::-                (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnabort = (connect "abort")- -documentOnblur ::-               (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnblur = (connect "blur")- -documentOnchange ::-                 (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnchange = (connect "change")- -documentOnclick ::-                (IsDocument self) => Signal self (EventM MouseEvent self ())-documentOnclick = (connect "click")- -documentOncontextmenu ::-                      (IsDocument self) => Signal self (EventM MouseEvent self ())-documentOncontextmenu = (connect "contextmenu")- -documentOndblclick ::-                   (IsDocument self) => Signal self (EventM MouseEvent self ())-documentOndblclick = (connect "dblclick")- -documentOndrag ::-               (IsDocument self) => Signal self (EventM MouseEvent self ())-documentOndrag = (connect "drag")- -documentOndragend ::-                  (IsDocument self) => Signal self (EventM MouseEvent self ())-documentOndragend = (connect "dragend")- -documentOndragenter ::-                    (IsDocument self) => Signal self (EventM MouseEvent self ())-documentOndragenter = (connect "dragenter")- -documentOndragleave ::-                    (IsDocument self) => Signal self (EventM MouseEvent self ())-documentOndragleave = (connect "dragleave")- -documentOndragover ::-                   (IsDocument self) => Signal self (EventM MouseEvent self ())-documentOndragover = (connect "dragover")- -documentOndragstart ::-                    (IsDocument self) => Signal self (EventM MouseEvent self ())-documentOndragstart = (connect "dragstart")- -documentOndrop ::-               (IsDocument self) => Signal self (EventM MouseEvent self ())-documentOndrop = (connect "drop")- -documentOnerror ::-                (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnerror = (connect "error")- -documentOnfocus ::-                (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnfocus = (connect "focus")- -documentOninput ::-                (IsDocument self) => Signal self (EventM UIEvent self ())-documentOninput = (connect "input")- -documentOninvalid ::-                  (IsDocument self) => Signal self (EventM UIEvent self ())-documentOninvalid = (connect "invalid")- -documentOnkeydown ::-                  (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnkeydown = (connect "keydown")- -documentOnkeypress ::-                   (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnkeypress = (connect "keypress")- -documentOnkeyup ::-                (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnkeyup = (connect "keyup")- -documentOnload ::-               (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnload = (connect "load")- -documentOnmousedown ::-                    (IsDocument self) => Signal self (EventM MouseEvent self ())-documentOnmousedown = (connect "mousedown")- -documentOnmouseenter ::-                     (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnmouseenter = (connect "mouseenter")- -documentOnmouseleave ::-                     (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnmouseleave = (connect "mouseleave")- -documentOnmousemove ::-                    (IsDocument self) => Signal self (EventM MouseEvent self ())-documentOnmousemove = (connect "mousemove")- -documentOnmouseout ::-                   (IsDocument self) => Signal self (EventM MouseEvent self ())-documentOnmouseout = (connect "mouseout")- -documentOnmouseover ::-                    (IsDocument self) => Signal self (EventM MouseEvent self ())-documentOnmouseover = (connect "mouseover")- -documentOnmouseup ::-                  (IsDocument self) => Signal self (EventM MouseEvent self ())-documentOnmouseup = (connect "mouseup")- -documentOnmousewheel ::-                     (IsDocument self) => Signal self (EventM MouseEvent self ())-documentOnmousewheel = (connect "mousewheel")- -documentOnreadystatechange ::-                           (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnreadystatechange = (connect "readystatechange")- -documentOnscroll ::-                 (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnscroll = (connect "scroll")- -documentOnselect ::-                 (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnselect = (connect "select")- -documentOnsubmit ::-                 (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnsubmit = (connect "submit")- -documentOnbeforecut ::-                    (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnbeforecut = (connect "beforecut")- -documentOncut ::-              (IsDocument self) => Signal self (EventM UIEvent self ())-documentOncut = (connect "cut")- -documentOnbeforecopy ::-                     (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnbeforecopy = (connect "beforecopy")- -documentOncopy ::-               (IsDocument self) => Signal self (EventM UIEvent self ())-documentOncopy = (connect "copy")- -documentOnbeforepaste ::-                      (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnbeforepaste = (connect "beforepaste")- -documentOnpaste ::-                (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnpaste = (connect "paste")- -documentOnreset ::-                (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnreset = (connect "reset")- -documentOnsearch ::-                 (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnsearch = (connect "search")- -documentOnselectstart ::-                      (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnselectstart = (connect "selectstart")- -documentOnselectionchange ::-                          (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnselectionchange = (connect "selectionchange")- -documentOntouchstart ::-                     (IsDocument self) => Signal self (EventM UIEvent self ())-documentOntouchstart = (connect "touchstart")- -documentOntouchmove ::-                    (IsDocument self) => Signal self (EventM UIEvent self ())-documentOntouchmove = (connect "touchmove")- -documentOntouchend ::-                   (IsDocument self) => Signal self (EventM UIEvent self ())-documentOntouchend = (connect "touchend")- -documentOntouchcancel ::-                      (IsDocument self) => Signal self (EventM UIEvent self ())-documentOntouchcancel = (connect "touchcancel")- -documentOnwebkitfullscreenchange ::-                                 (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnwebkitfullscreenchange-  = (connect "webkitfullscreenchange")- -documentOnwebkitfullscreenerror ::-                                (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnwebkitfullscreenerror = (connect "webkitfullscreenerror")- -documentOnwebkitpointerlockchange ::-                                  (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnwebkitpointerlockchange-  = (connect "webkitpointerlockchange")- -documentOnwebkitpointerlockerror ::-                                 (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnwebkitpointerlockerror-  = (connect "webkitpointerlockerror")- -documentOnsecuritypolicyviolation ::-                                  (IsDocument self) => Signal self (EventM UIEvent self ())-documentOnsecuritypolicyviolation-  = (connect "securitypolicyviolation")---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"visibilityState\"]"-        ghcjs_dom_document_get_visibility_state ::-        JSRef Document -> IO JSString-#else -ghcjs_dom_document_get_visibility_state ::-                                          JSRef Document -> IO JSString-ghcjs_dom_document_get_visibility_state = undefined-#endif- -documentGetVisibilityState ::-                           (IsDocument self, FromJSString result) => self -> IO result-documentGetVisibilityState self-  = fromJSString <$>-      (ghcjs_dom_document_get_visibility_state-         (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "($1[\"hidden\"] ? 1 : 0)"-        ghcjs_dom_document_get_hidden :: JSRef Document -> IO Bool-#else -ghcjs_dom_document_get_hidden :: JSRef Document -> IO Bool-ghcjs_dom_document_get_hidden = undefined-#endif- -documentGetHidden :: (IsDocument self) => self -> IO Bool-documentGetHidden self-  = ghcjs_dom_document_get_hidden (unDocument (toDocument self))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"securityPolicy\"]"-        ghcjs_dom_document_get_security_policy ::-        JSRef Document -> IO (JSRef DOMSecurityPolicy)-#else -ghcjs_dom_document_get_security_policy ::-                                         JSRef Document -> IO (JSRef DOMSecurityPolicy)-ghcjs_dom_document_get_security_policy = undefined-#endif- -documentGetSecurityPolicy ::-                          (IsDocument self) => self -> IO (Maybe DOMSecurityPolicy)-documentGetSecurityPolicy self-  = fmap DOMSecurityPolicy . maybeJSNull <$>-      (ghcjs_dom_document_get_security_policy-         (unDocument (toDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"currentScript\"]"-        ghcjs_dom_document_get_current_script ::-        JSRef Document -> IO (JSRef HTMLScriptElement)-#else -ghcjs_dom_document_get_current_script ::-                                        JSRef Document -> IO (JSRef HTMLScriptElement)-ghcjs_dom_document_get_current_script = undefined-#endif- -documentGetCurrentScript ::-                         (IsDocument self) => self -> IO (Maybe HTMLScriptElement)-documentGetCurrentScript self-  = fmap HTMLScriptElement . maybeJSNull <$>-      (ghcjs_dom_document_get_current_script-         (unDocument (toDocument self)))+        documentGetElementsByClassName, ghcjs_dom_document_has_focus,+        documentHasFocus, ghcjs_dom_document_query_selector,+        documentQuerySelector, ghcjs_dom_document_query_selector_all,+        documentQuerySelectorAll, ghcjs_dom_document_exit_pointer_lock,+        documentExitPointerLock, ghcjs_dom_document_webkit_get_named_flows,+        documentWebkitGetNamedFlows, ghcjs_dom_document_get_doctype,+        documentGetDoctype, ghcjs_dom_document_get_implementation,+        documentGetImplementation, ghcjs_dom_document_get_document_element,+        documentGetDocumentElement, ghcjs_dom_document_get_input_encoding,+        documentGetInputEncoding, ghcjs_dom_document_get_xml_encoding,+        documentGetXmlEncoding, ghcjs_dom_document_set_xml_version,+        documentSetXmlVersion, ghcjs_dom_document_get_xml_version,+        documentGetXmlVersion, ghcjs_dom_document_set_xml_standalone,+        documentSetXmlStandalone, ghcjs_dom_document_get_xml_standalone,+        documentGetXmlStandalone, ghcjs_dom_document_set_document_uri,+        documentSetDocumentURI, ghcjs_dom_document_get_document_uri,+        documentGetDocumentURI, ghcjs_dom_document_get_default_view,+        documentGetDefaultView, ghcjs_dom_document_get_style_sheets,+        documentGetStyleSheets, ghcjs_dom_document_set_title,+        documentSetTitle, ghcjs_dom_document_get_title, documentGetTitle,+        ghcjs_dom_document_get_referrer, documentGetReferrer,+        ghcjs_dom_document_get_domain, documentGetDomain,+        ghcjs_dom_document_set_cookie, documentSetCookie,+        ghcjs_dom_document_get_cookie, documentGetCookie,+        ghcjs_dom_document_set_body, documentSetBody,+        ghcjs_dom_document_get_body, documentGetBody,+        ghcjs_dom_document_get_head, documentGetHead,+        ghcjs_dom_document_get_images, documentGetImages,+        ghcjs_dom_document_get_applets, documentGetApplets,+        ghcjs_dom_document_get_links, documentGetLinks,+        ghcjs_dom_document_get_forms, documentGetForms,+        ghcjs_dom_document_get_anchors, documentGetAnchors,+        ghcjs_dom_document_get_last_modified, documentGetLastModified,+        ghcjs_dom_document_set_charset, documentSetCharset,+        ghcjs_dom_document_get_charset, documentGetCharset,+        ghcjs_dom_document_get_default_charset, documentGetDefaultCharset,+        ghcjs_dom_document_get_ready_state, documentGetReadyState,+        ghcjs_dom_document_get_character_set, documentGetCharacterSet,+        ghcjs_dom_document_get_preferred_stylesheet_set,+        documentGetPreferredStylesheetSet,+        ghcjs_dom_document_set_selected_stylesheet_set,+        documentSetSelectedStylesheetSet,+        ghcjs_dom_document_get_selected_stylesheet_set,+        documentGetSelectedStylesheetSet,+        ghcjs_dom_document_get_active_element, documentGetActiveElement,+        ghcjs_dom_document_get_compat_mode, documentGetCompatMode,+        ghcjs_dom_document_get_pointer_lock_element,+        documentGetPointerLockElement,+        ghcjs_dom_document_get_visibility_state,+        documentGetVisibilityState, ghcjs_dom_document_get_hidden,+        documentGetHidden, ghcjs_dom_document_get_security_policy,+        documentGetSecurityPolicy, ghcjs_dom_document_get_current_script,+        documentGetCurrentScript, ghcjs_dom_document_get_origin,+        documentGetOrigin, Document, IsDocument, castToDocument,+        gTypeDocument, toDocument)+       where+import GHCJS.Types+import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int+import Data.Word+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventM++ +foreign import javascript unsafe "$1[\"createElement\"]($2)"+        ghcjs_dom_document_create_element ::+        JSRef Document -> JSString -> IO (JSRef Element)+ +documentCreateElement ::+                      (IsDocument self, ToJSString tagName) =>+                        self -> tagName -> IO (Maybe Element)+documentCreateElement self tagName+  = fmap Element . maybeJSNull <$>+      (ghcjs_dom_document_create_element (unDocument (toDocument self))+         (toJSString tagName))+ +foreign import javascript unsafe "$1[\"createDocumentFragment\"]()"+        ghcjs_dom_document_create_document_fragment ::+        JSRef Document -> IO (JSRef DocumentFragment)+ +documentCreateDocumentFragment ::+                               (IsDocument self) => self -> IO (Maybe DocumentFragment)+documentCreateDocumentFragment self+  = fmap DocumentFragment . maybeJSNull <$>+      (ghcjs_dom_document_create_document_fragment+         (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"createTextNode\"]($2)"+        ghcjs_dom_document_create_text_node ::+        JSRef Document -> JSString -> IO (JSRef Text)+ +documentCreateTextNode ::+                       (IsDocument self, ToJSString data') =>+                         self -> data' -> IO (Maybe Text)+documentCreateTextNode self data'+  = fmap Text . maybeJSNull <$>+      (ghcjs_dom_document_create_text_node (unDocument (toDocument self))+         (toJSString data'))+ +foreign import javascript unsafe "$1[\"createComment\"]($2)"+        ghcjs_dom_document_create_comment ::+        JSRef Document -> JSString -> IO (JSRef Comment)+ +documentCreateComment ::+                      (IsDocument self, ToJSString data') =>+                        self -> data' -> IO (Maybe Comment)+documentCreateComment self data'+  = fmap Comment . maybeJSNull <$>+      (ghcjs_dom_document_create_comment (unDocument (toDocument self))+         (toJSString data'))+ +foreign import javascript unsafe "$1[\"createCDATASection\"]($2)"+        ghcjs_dom_document_create_cdata_section ::+        JSRef Document -> JSString -> IO (JSRef CDATASection)+ +documentCreateCDATASection ::+                           (IsDocument self, ToJSString data') =>+                             self -> data' -> IO (Maybe CDATASection)+documentCreateCDATASection self data'+  = fmap CDATASection . maybeJSNull <$>+      (ghcjs_dom_document_create_cdata_section+         (unDocument (toDocument self))+         (toJSString data'))+ +foreign import javascript unsafe+        "$1[\"createProcessingInstruction\"]($2,\n$3)"+        ghcjs_dom_document_create_processing_instruction ::+        JSRef Document ->+          JSString -> JSString -> IO (JSRef ProcessingInstruction)+ +documentCreateProcessingInstruction ::+                                    (IsDocument self, ToJSString target, ToJSString data') =>+                                      self -> target -> data' -> IO (Maybe ProcessingInstruction)+documentCreateProcessingInstruction self target data'+  = fmap ProcessingInstruction . maybeJSNull <$>+      (ghcjs_dom_document_create_processing_instruction+         (unDocument (toDocument self))+         (toJSString target)+         (toJSString data'))+ +foreign import javascript unsafe "$1[\"createAttribute\"]($2)"+        ghcjs_dom_document_create_attribute ::+        JSRef Document -> JSString -> IO (JSRef DOMAttr)+ +documentCreateAttribute ::+                        (IsDocument self, ToJSString name) =>+                          self -> name -> IO (Maybe DOMAttr)+documentCreateAttribute self name+  = fmap DOMAttr . maybeJSNull <$>+      (ghcjs_dom_document_create_attribute (unDocument (toDocument self))+         (toJSString name))+ +foreign import javascript unsafe+        "$1[\"createEntityReference\"]($2)"+        ghcjs_dom_document_create_entity_reference ::+        JSRef Document -> JSString -> IO (JSRef EntityReference)+ +documentCreateEntityReference ::+                              (IsDocument self, ToJSString name) =>+                                self -> name -> IO (Maybe EntityReference)+documentCreateEntityReference self name+  = fmap EntityReference . maybeJSNull <$>+      (ghcjs_dom_document_create_entity_reference+         (unDocument (toDocument self))+         (toJSString name))+ +foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)"+        ghcjs_dom_document_get_elements_by_tag_name ::+        JSRef Document -> JSString -> IO (JSRef NodeList)+ +documentGetElementsByTagName ::+                             (IsDocument self, ToJSString tagname) =>+                               self -> tagname -> IO (Maybe NodeList)+documentGetElementsByTagName self tagname+  = fmap NodeList . maybeJSNull <$>+      (ghcjs_dom_document_get_elements_by_tag_name+         (unDocument (toDocument self))+         (toJSString tagname))+ +foreign import javascript unsafe "$1[\"importNode\"]($2, $3)"+        ghcjs_dom_document_import_node ::+        JSRef Document -> JSRef Node -> Bool -> IO (JSRef Node)+ +documentImportNode ::+                   (IsDocument self, IsNode importedNode) =>+                     self -> Maybe importedNode -> Bool -> IO (Maybe Node)+documentImportNode self importedNode deep+  = fmap Node . maybeJSNull <$>+      (ghcjs_dom_document_import_node (unDocument (toDocument self))+         (maybe jsNull (unNode . toNode) importedNode)+         deep)+ +foreign import javascript unsafe "$1[\"createElementNS\"]($2, $3)"+        ghcjs_dom_document_create_element_ns ::+        JSRef Document -> JSString -> JSString -> IO (JSRef Element)+ +documentCreateElementNS ::+                        (IsDocument self, ToJSString namespaceURI,+                         ToJSString qualifiedName) =>+                          self -> namespaceURI -> qualifiedName -> IO (Maybe Element)+documentCreateElementNS self namespaceURI qualifiedName+  = fmap Element . maybeJSNull <$>+      (ghcjs_dom_document_create_element_ns+         (unDocument (toDocument self))+         (toJSString namespaceURI)+         (toJSString qualifiedName))+ +foreign import javascript unsafe+        "$1[\"createAttributeNS\"]($2, $3)"+        ghcjs_dom_document_create_attribute_ns ::+        JSRef Document -> JSString -> JSString -> IO (JSRef DOMAttr)+ +documentCreateAttributeNS ::+                          (IsDocument self, ToJSString namespaceURI,+                           ToJSString qualifiedName) =>+                            self -> namespaceURI -> qualifiedName -> IO (Maybe DOMAttr)+documentCreateAttributeNS self namespaceURI qualifiedName+  = fmap DOMAttr . maybeJSNull <$>+      (ghcjs_dom_document_create_attribute_ns+         (unDocument (toDocument self))+         (toJSString namespaceURI)+         (toJSString qualifiedName))+ +foreign import javascript unsafe+        "$1[\"getElementsByTagNameNS\"]($2,\n$3)"+        ghcjs_dom_document_get_elements_by_tag_name_ns ::+        JSRef Document -> JSString -> JSString -> IO (JSRef NodeList)+ +documentGetElementsByTagNameNS ::+                               (IsDocument self, ToJSString namespaceURI, ToJSString localName) =>+                                 self -> namespaceURI -> localName -> IO (Maybe NodeList)+documentGetElementsByTagNameNS self namespaceURI localName+  = fmap NodeList . maybeJSNull <$>+      (ghcjs_dom_document_get_elements_by_tag_name_ns+         (unDocument (toDocument self))+         (toJSString namespaceURI)+         (toJSString localName))+ +foreign import javascript unsafe "$1[\"getElementById\"]($2)"+        ghcjs_dom_document_get_element_by_id ::+        JSRef Document -> JSString -> IO (JSRef Element)+ +documentGetElementById ::+                       (IsDocument self, ToJSString elementId) =>+                         self -> elementId -> IO (Maybe Element)+documentGetElementById self elementId+  = fmap Element . maybeJSNull <$>+      (ghcjs_dom_document_get_element_by_id+         (unDocument (toDocument self))+         (toJSString elementId))+ +foreign import javascript unsafe "$1[\"adoptNode\"]($2)"+        ghcjs_dom_document_adopt_node ::+        JSRef Document -> JSRef Node -> IO (JSRef Node)+ +documentAdoptNode ::+                  (IsDocument self, IsNode source) =>+                    self -> Maybe source -> IO (Maybe Node)+documentAdoptNode self source+  = fmap Node . maybeJSNull <$>+      (ghcjs_dom_document_adopt_node (unDocument (toDocument self))+         (maybe jsNull (unNode . toNode) source))+ +foreign import javascript unsafe "$1[\"createEvent\"]($2)"+        ghcjs_dom_document_create_event ::+        JSRef Document -> JSString -> IO (JSRef Event)+ +documentCreateEvent ::+                    (IsDocument self, ToJSString eventType) =>+                      self -> eventType -> IO (Maybe Event)+documentCreateEvent self eventType+  = fmap Event . maybeJSNull <$>+      (ghcjs_dom_document_create_event (unDocument (toDocument self))+         (toJSString eventType))+ +foreign import javascript unsafe "$1[\"createRange\"]()"+        ghcjs_dom_document_create_range ::+        JSRef Document -> IO (JSRef DOMRange)+ +documentCreateRange ::+                    (IsDocument self) => self -> IO (Maybe DOMRange)+documentCreateRange self+  = fmap DOMRange . maybeJSNull <$>+      (ghcjs_dom_document_create_range (unDocument (toDocument self)))+ +foreign import javascript unsafe+        "$1[\"createNodeIterator\"]($2, $3,\n$4, $5)"+        ghcjs_dom_document_create_node_iterator ::+        JSRef Document ->+          JSRef Node ->+            Word -> JSRef NodeFilter -> Bool -> IO (JSRef NodeIterator)+ +documentCreateNodeIterator ::+                           (IsDocument self, IsNode root, IsNodeFilter filter) =>+                             self ->+                               Maybe root ->+                                 Word -> Maybe filter -> Bool -> IO (Maybe NodeIterator)+documentCreateNodeIterator self root whatToShow filter+  expandEntityReferences+  = fmap NodeIterator . maybeJSNull <$>+      (ghcjs_dom_document_create_node_iterator+         (unDocument (toDocument self))+         (maybe jsNull (unNode . toNode) root)+         whatToShow+         (maybe jsNull (unNodeFilter . toNodeFilter) filter)+         expandEntityReferences)+ +foreign import javascript unsafe+        "$1[\"createTreeWalker\"]($2, $3,\n$4, $5)"+        ghcjs_dom_document_create_tree_walker ::+        JSRef Document ->+          JSRef Node ->+            Word -> JSRef NodeFilter -> Bool -> IO (JSRef TreeWalker)+ +documentCreateTreeWalker ::+                         (IsDocument self, IsNode root, IsNodeFilter filter) =>+                           self ->+                             Maybe root -> Word -> Maybe filter -> Bool -> IO (Maybe TreeWalker)+documentCreateTreeWalker self root whatToShow filter+  expandEntityReferences+  = fmap TreeWalker . maybeJSNull <$>+      (ghcjs_dom_document_create_tree_walker+         (unDocument (toDocument self))+         (maybe jsNull (unNode . toNode) root)+         whatToShow+         (maybe jsNull (unNodeFilter . toNodeFilter) filter)+         expandEntityReferences)+ +foreign import javascript unsafe "$1[\"getOverrideStyle\"]($2, $3)"+        ghcjs_dom_document_get_override_style ::+        JSRef Document ->+          JSRef Element -> JSString -> IO (JSRef CSSStyleDeclaration)+ +documentGetOverrideStyle ::+                         (IsDocument self, IsElement element, ToJSString pseudoElement) =>+                           self ->+                             Maybe element -> pseudoElement -> IO (Maybe CSSStyleDeclaration)+documentGetOverrideStyle self element pseudoElement+  = fmap CSSStyleDeclaration . maybeJSNull <$>+      (ghcjs_dom_document_get_override_style+         (unDocument (toDocument self))+         (maybe jsNull (unElement . toElement) element)+         (toJSString pseudoElement))+ +foreign import javascript unsafe "$1[\"createExpression\"]($2, $3)"+        ghcjs_dom_document_create_expression ::+        JSRef Document ->+          JSString -> JSRef XPathNSResolver -> IO (JSRef XPathExpression)+ +documentCreateExpression ::+                         (IsDocument self, ToJSString expression,+                          IsXPathNSResolver resolver) =>+                           self -> expression -> Maybe resolver -> IO (Maybe XPathExpression)+documentCreateExpression self expression resolver+  = fmap XPathExpression . maybeJSNull <$>+      (ghcjs_dom_document_create_expression+         (unDocument (toDocument self))+         (toJSString expression)+         (maybe jsNull (unXPathNSResolver . toXPathNSResolver) resolver))+ +foreign import javascript unsafe "$1[\"createNSResolver\"]($2)"+        ghcjs_dom_document_create_ns_resolver ::+        JSRef Document -> JSRef Node -> IO (JSRef XPathNSResolver)+ +documentCreateNSResolver ::+                         (IsDocument self, IsNode nodeResolver) =>+                           self -> Maybe nodeResolver -> IO (Maybe XPathNSResolver)+documentCreateNSResolver self nodeResolver+  = fmap XPathNSResolver . maybeJSNull <$>+      (ghcjs_dom_document_create_ns_resolver+         (unDocument (toDocument self))+         (maybe jsNull (unNode . toNode) nodeResolver))+ +foreign import javascript unsafe+        "$1[\"evaluate\"]($2, $3, $4, $5,\n$6)" ghcjs_dom_document_evaluate+        ::+        JSRef Document ->+          JSString ->+            JSRef Node ->+              JSRef XPathNSResolver ->+                Word -> JSRef XPathResult -> IO (JSRef XPathResult)+ +documentEvaluate ::+                 (IsDocument self, ToJSString expression, IsNode contextNode,+                  IsXPathNSResolver resolver, IsXPathResult inResult) =>+                   self ->+                     expression ->+                       Maybe contextNode ->+                         Maybe resolver -> Word -> Maybe inResult -> IO (Maybe XPathResult)+documentEvaluate self expression contextNode resolver type'+  inResult+  = fmap XPathResult . maybeJSNull <$>+      (ghcjs_dom_document_evaluate (unDocument (toDocument self))+         (toJSString expression)+         (maybe jsNull (unNode . toNode) contextNode)+         (maybe jsNull (unXPathNSResolver . toXPathNSResolver) resolver)+         type'+         (maybe jsNull (unXPathResult . toXPathResult) inResult))+ +foreign import javascript unsafe+        "($1[\"execCommand\"]($2, $3,\n$4) ? 1 : 0)"+        ghcjs_dom_document_exec_command ::+        JSRef Document -> JSString -> Bool -> JSString -> IO Bool+ +documentExecCommand ::+                    (IsDocument self, ToJSString command, ToJSString value) =>+                      self -> command -> Bool -> value -> IO Bool+documentExecCommand self command userInterface value+  = ghcjs_dom_document_exec_command (unDocument (toDocument self))+      (toJSString command)+      userInterface+      (toJSString value)+ +foreign import javascript unsafe+        "($1[\"queryCommandEnabled\"]($2) ? 1 : 0)"+        ghcjs_dom_document_query_command_enabled ::+        JSRef Document -> JSString -> IO Bool+ +documentQueryCommandEnabled ::+                            (IsDocument self, ToJSString command) => self -> command -> IO Bool+documentQueryCommandEnabled self command+  = ghcjs_dom_document_query_command_enabled+      (unDocument (toDocument self))+      (toJSString command)+ +foreign import javascript unsafe+        "($1[\"queryCommandIndeterm\"]($2) ? 1 : 0)"+        ghcjs_dom_document_query_command_indeterm ::+        JSRef Document -> JSString -> IO Bool+ +documentQueryCommandIndeterm ::+                             (IsDocument self, ToJSString command) => self -> command -> IO Bool+documentQueryCommandIndeterm self command+  = ghcjs_dom_document_query_command_indeterm+      (unDocument (toDocument self))+      (toJSString command)+ +foreign import javascript unsafe+        "($1[\"queryCommandState\"]($2) ? 1 : 0)"+        ghcjs_dom_document_query_command_state ::+        JSRef Document -> JSString -> IO Bool+ +documentQueryCommandState ::+                          (IsDocument self, ToJSString command) => self -> command -> IO Bool+documentQueryCommandState self command+  = ghcjs_dom_document_query_command_state+      (unDocument (toDocument self))+      (toJSString command)+ +foreign import javascript unsafe+        "($1[\"queryCommandSupported\"]($2) ? 1 : 0)"+        ghcjs_dom_document_query_command_supported ::+        JSRef Document -> JSString -> IO Bool+ +documentQueryCommandSupported ::+                              (IsDocument self, ToJSString command) => self -> command -> IO Bool+documentQueryCommandSupported self command+  = ghcjs_dom_document_query_command_supported+      (unDocument (toDocument self))+      (toJSString command)+ +foreign import javascript unsafe "$1[\"queryCommandValue\"]($2)"+        ghcjs_dom_document_query_command_value ::+        JSRef Document -> JSString -> IO JSString+ +documentQueryCommandValue ::+                          (IsDocument self, ToJSString command, FromJSString result) =>+                            self -> command -> IO result+documentQueryCommandValue self command+  = fromJSString <$>+      (ghcjs_dom_document_query_command_value+         (unDocument (toDocument self))+         (toJSString command))+ +foreign import javascript unsafe "$1[\"getElementsByName\"]($2)"+        ghcjs_dom_document_get_elements_by_name ::+        JSRef Document -> JSString -> IO (JSRef NodeList)+ +documentGetElementsByName ::+                          (IsDocument self, ToJSString elementName) =>+                            self -> elementName -> IO (Maybe NodeList)+documentGetElementsByName self elementName+  = fmap NodeList . maybeJSNull <$>+      (ghcjs_dom_document_get_elements_by_name+         (unDocument (toDocument self))+         (toJSString elementName))+ +foreign import javascript unsafe "$1[\"elementFromPoint\"]($2, $3)"+        ghcjs_dom_document_element_from_point ::+        JSRef Document -> Int -> Int -> IO (JSRef Element)+ +documentElementFromPoint ::+                         (IsDocument self) => self -> Int -> Int -> IO (Maybe Element)+documentElementFromPoint self x y+  = fmap Element . maybeJSNull <$>+      (ghcjs_dom_document_element_from_point+         (unDocument (toDocument self))+         x+         y)+ +foreign import javascript unsafe+        "$1[\"caretRangeFromPoint\"]($2,\n$3)"+        ghcjs_dom_document_caret_range_from_point ::+        JSRef Document -> Int -> Int -> IO (JSRef DOMRange)+ +documentCaretRangeFromPoint ::+                            (IsDocument self) => self -> Int -> Int -> IO (Maybe DOMRange)+documentCaretRangeFromPoint self x y+  = fmap DOMRange . maybeJSNull <$>+      (ghcjs_dom_document_caret_range_from_point+         (unDocument (toDocument self))+         x+         y)+ +foreign import javascript unsafe+        "$1[\"createCSSStyleDeclaration\"]()"+        ghcjs_dom_document_create_css_style_declaration ::+        JSRef Document -> IO (JSRef CSSStyleDeclaration)+ +documentCreateCSSStyleDeclaration ::+                                  (IsDocument self) => self -> IO (Maybe CSSStyleDeclaration)+documentCreateCSSStyleDeclaration self+  = fmap CSSStyleDeclaration . maybeJSNull <$>+      (ghcjs_dom_document_create_css_style_declaration+         (unDocument (toDocument self)))+ +foreign import javascript unsafe+        "$1[\"getElementsByClassName\"]($2)"+        ghcjs_dom_document_get_elements_by_class_name ::+        JSRef Document -> JSString -> IO (JSRef NodeList)+ +documentGetElementsByClassName ::+                               (IsDocument self, ToJSString tagname) =>+                                 self -> tagname -> IO (Maybe NodeList)+documentGetElementsByClassName self tagname+  = fmap NodeList . maybeJSNull <$>+      (ghcjs_dom_document_get_elements_by_class_name+         (unDocument (toDocument self))+         (toJSString tagname))+ +foreign import javascript unsafe "($1[\"hasFocus\"]() ? 1 : 0)"+        ghcjs_dom_document_has_focus :: JSRef Document -> IO Bool+ +documentHasFocus :: (IsDocument self) => self -> IO Bool+documentHasFocus self+  = ghcjs_dom_document_has_focus (unDocument (toDocument self))+ +foreign import javascript unsafe "$1[\"querySelector\"]($2)"+        ghcjs_dom_document_query_selector ::+        JSRef Document -> JSString -> IO (JSRef Element)+ +documentQuerySelector ::+                      (IsDocument self, ToJSString selectors) =>+                        self -> selectors -> IO (Maybe Element)+documentQuerySelector self selectors+  = fmap Element . maybeJSNull <$>+      (ghcjs_dom_document_query_selector (unDocument (toDocument self))+         (toJSString selectors))+ +foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"+        ghcjs_dom_document_query_selector_all ::+        JSRef Document -> JSString -> IO (JSRef NodeList)+ +documentQuerySelectorAll ::+                         (IsDocument self, ToJSString selectors) =>+                           self -> selectors -> IO (Maybe NodeList)+documentQuerySelectorAll self selectors+  = fmap NodeList . maybeJSNull <$>+      (ghcjs_dom_document_query_selector_all+         (unDocument (toDocument self))+         (toJSString selectors))+ +foreign import javascript unsafe "$1[\"exitPointerLock\"]()"+        ghcjs_dom_document_exit_pointer_lock :: JSRef Document -> IO ()+ +documentExitPointerLock :: (IsDocument self) => self -> IO ()+documentExitPointerLock self+  = ghcjs_dom_document_exit_pointer_lock+      (unDocument (toDocument self))+ +foreign import javascript unsafe "$1[\"webkitGetNamedFlows\"]()"+        ghcjs_dom_document_webkit_get_named_flows ::+        JSRef Document -> IO (JSRef DOMNamedFlowCollection)+ +documentWebkitGetNamedFlows ::+                            (IsDocument self) => self -> IO (Maybe DOMNamedFlowCollection)+documentWebkitGetNamedFlows self+  = fmap DOMNamedFlowCollection . maybeJSNull <$>+      (ghcjs_dom_document_webkit_get_named_flows+         (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"doctype\"]"+        ghcjs_dom_document_get_doctype ::+        JSRef Document -> IO (JSRef DocumentType)+ +documentGetDoctype ::+                   (IsDocument self) => self -> IO (Maybe DocumentType)+documentGetDoctype self+  = fmap DocumentType . maybeJSNull <$>+      (ghcjs_dom_document_get_doctype (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"implementation\"]"+        ghcjs_dom_document_get_implementation ::+        JSRef Document -> IO (JSRef DOMImplementation)+ +documentGetImplementation ::+                          (IsDocument self) => self -> IO (Maybe DOMImplementation)+documentGetImplementation self+  = fmap DOMImplementation . maybeJSNull <$>+      (ghcjs_dom_document_get_implementation+         (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"documentElement\"]"+        ghcjs_dom_document_get_document_element ::+        JSRef Document -> IO (JSRef Element)+ +documentGetDocumentElement ::+                           (IsDocument self) => self -> IO (Maybe Element)+documentGetDocumentElement self+  = fmap Element . maybeJSNull <$>+      (ghcjs_dom_document_get_document_element+         (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"inputEncoding\"]"+        ghcjs_dom_document_get_input_encoding ::+        JSRef Document -> IO JSString+ +documentGetInputEncoding ::+                         (IsDocument self, FromJSString result) => self -> IO result+documentGetInputEncoding self+  = fromJSString <$>+      (ghcjs_dom_document_get_input_encoding+         (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"xmlEncoding\"]"+        ghcjs_dom_document_get_xml_encoding ::+        JSRef Document -> IO JSString+ +documentGetXmlEncoding ::+                       (IsDocument self, FromJSString result) => self -> IO result+documentGetXmlEncoding self+  = fromJSString <$>+      (ghcjs_dom_document_get_xml_encoding+         (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"xmlVersion\"] = $2;"+        ghcjs_dom_document_set_xml_version ::+        JSRef Document -> JSString -> IO ()+ +documentSetXmlVersion ::+                      (IsDocument self, ToJSString val) => self -> val -> IO ()+documentSetXmlVersion self val+  = ghcjs_dom_document_set_xml_version (unDocument (toDocument self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"xmlVersion\"]"+        ghcjs_dom_document_get_xml_version :: JSRef Document -> IO JSString+ +documentGetXmlVersion ::+                      (IsDocument self, FromJSString result) => self -> IO result+documentGetXmlVersion self+  = fromJSString <$>+      (ghcjs_dom_document_get_xml_version (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"xmlStandalone\"] = $2;"+        ghcjs_dom_document_set_xml_standalone ::+        JSRef Document -> Bool -> IO ()+ +documentSetXmlStandalone ::+                         (IsDocument self) => self -> Bool -> IO ()+documentSetXmlStandalone self val+  = ghcjs_dom_document_set_xml_standalone+      (unDocument (toDocument self))+      val+ +foreign import javascript unsafe "($1[\"xmlStandalone\"] ? 1 : 0)"+        ghcjs_dom_document_get_xml_standalone :: JSRef Document -> IO Bool+ +documentGetXmlStandalone :: (IsDocument self) => self -> IO Bool+documentGetXmlStandalone self+  = ghcjs_dom_document_get_xml_standalone+      (unDocument (toDocument self))+ +foreign import javascript unsafe "$1[\"documentURI\"] = $2;"+        ghcjs_dom_document_set_document_uri ::+        JSRef Document -> JSString -> IO ()+ +documentSetDocumentURI ::+                       (IsDocument self, ToJSString val) => self -> val -> IO ()+documentSetDocumentURI self val+  = ghcjs_dom_document_set_document_uri+      (unDocument (toDocument self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"documentURI\"]"+        ghcjs_dom_document_get_document_uri ::+        JSRef Document -> IO JSString+ +documentGetDocumentURI ::+                       (IsDocument self, FromJSString result) => self -> IO result+documentGetDocumentURI self+  = fromJSString <$>+      (ghcjs_dom_document_get_document_uri+         (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"defaultView\"]"+        ghcjs_dom_document_get_default_view ::+        JSRef Document -> IO (JSRef DOMWindow)+ +documentGetDefaultView ::+                       (IsDocument self) => self -> IO (Maybe DOMWindow)+documentGetDefaultView self+  = fmap DOMWindow . maybeJSNull <$>+      (ghcjs_dom_document_get_default_view+         (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"styleSheets\"]"+        ghcjs_dom_document_get_style_sheets ::+        JSRef Document -> IO (JSRef StyleSheetList)+ +documentGetStyleSheets ::+                       (IsDocument self) => self -> IO (Maybe StyleSheetList)+documentGetStyleSheets self+  = fmap StyleSheetList . maybeJSNull <$>+      (ghcjs_dom_document_get_style_sheets+         (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"title\"] = $2;"+        ghcjs_dom_document_set_title :: JSRef Document -> JSString -> IO ()+ +documentSetTitle ::+                 (IsDocument self, ToJSString val) => self -> val -> IO ()+documentSetTitle self val+  = ghcjs_dom_document_set_title (unDocument (toDocument self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"title\"]"+        ghcjs_dom_document_get_title :: JSRef Document -> IO JSString+ +documentGetTitle ::+                 (IsDocument self, FromJSString result) => self -> IO result+documentGetTitle self+  = fromJSString <$>+      (ghcjs_dom_document_get_title (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"referrer\"]"+        ghcjs_dom_document_get_referrer :: JSRef Document -> IO JSString+ +documentGetReferrer ::+                    (IsDocument self, FromJSString result) => self -> IO result+documentGetReferrer self+  = fromJSString <$>+      (ghcjs_dom_document_get_referrer (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"domain\"]"+        ghcjs_dom_document_get_domain :: JSRef Document -> IO JSString+ +documentGetDomain ::+                  (IsDocument self, FromJSString result) => self -> IO result+documentGetDomain self+  = fromJSString <$>+      (ghcjs_dom_document_get_domain (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"cookie\"] = $2;"+        ghcjs_dom_document_set_cookie ::+        JSRef Document -> JSString -> IO ()+ +documentSetCookie ::+                  (IsDocument self, ToJSString val) => self -> val -> IO ()+documentSetCookie self val+  = ghcjs_dom_document_set_cookie (unDocument (toDocument self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"cookie\"]"+        ghcjs_dom_document_get_cookie :: JSRef Document -> IO JSString+ +documentGetCookie ::+                  (IsDocument self, FromJSString result) => self -> IO result+documentGetCookie self+  = fromJSString <$>+      (ghcjs_dom_document_get_cookie (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"body\"] = $2;"+        ghcjs_dom_document_set_body ::+        JSRef Document -> JSRef HTMLElement -> IO ()+ +documentSetBody ::+                (IsDocument self, IsHTMLElement val) => self -> Maybe val -> IO ()+documentSetBody self val+  = ghcjs_dom_document_set_body (unDocument (toDocument self))+      (maybe jsNull (unHTMLElement . toHTMLElement) val)+ +foreign import javascript unsafe "$1[\"body\"]"+        ghcjs_dom_document_get_body ::+        JSRef Document -> IO (JSRef HTMLElement)+ +documentGetBody ::+                (IsDocument self) => self -> IO (Maybe HTMLElement)+documentGetBody self+  = fmap HTMLElement . maybeJSNull <$>+      (ghcjs_dom_document_get_body (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"head\"]"+        ghcjs_dom_document_get_head ::+        JSRef Document -> IO (JSRef HTMLHeadElement)+ +documentGetHead ::+                (IsDocument self) => self -> IO (Maybe HTMLHeadElement)+documentGetHead self+  = fmap HTMLHeadElement . maybeJSNull <$>+      (ghcjs_dom_document_get_head (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"images\"]"+        ghcjs_dom_document_get_images ::+        JSRef Document -> IO (JSRef HTMLCollection)+ +documentGetImages ::+                  (IsDocument self) => self -> IO (Maybe HTMLCollection)+documentGetImages self+  = fmap HTMLCollection . maybeJSNull <$>+      (ghcjs_dom_document_get_images (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"applets\"]"+        ghcjs_dom_document_get_applets ::+        JSRef Document -> IO (JSRef HTMLCollection)+ +documentGetApplets ::+                   (IsDocument self) => self -> IO (Maybe HTMLCollection)+documentGetApplets self+  = fmap HTMLCollection . maybeJSNull <$>+      (ghcjs_dom_document_get_applets (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"links\"]"+        ghcjs_dom_document_get_links ::+        JSRef Document -> IO (JSRef HTMLCollection)+ +documentGetLinks ::+                 (IsDocument self) => self -> IO (Maybe HTMLCollection)+documentGetLinks self+  = fmap HTMLCollection . maybeJSNull <$>+      (ghcjs_dom_document_get_links (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"forms\"]"+        ghcjs_dom_document_get_forms ::+        JSRef Document -> IO (JSRef HTMLCollection)+ +documentGetForms ::+                 (IsDocument self) => self -> IO (Maybe HTMLCollection)+documentGetForms self+  = fmap HTMLCollection . maybeJSNull <$>+      (ghcjs_dom_document_get_forms (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"anchors\"]"+        ghcjs_dom_document_get_anchors ::+        JSRef Document -> IO (JSRef HTMLCollection)+ +documentGetAnchors ::+                   (IsDocument self) => self -> IO (Maybe HTMLCollection)+documentGetAnchors self+  = fmap HTMLCollection . maybeJSNull <$>+      (ghcjs_dom_document_get_anchors (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"lastModified\"]"+        ghcjs_dom_document_get_last_modified ::+        JSRef Document -> IO JSString+ +documentGetLastModified ::+                        (IsDocument self, FromJSString result) => self -> IO result+documentGetLastModified self+  = fromJSString <$>+      (ghcjs_dom_document_get_last_modified+         (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"charset\"] = $2;"+        ghcjs_dom_document_set_charset ::+        JSRef Document -> JSString -> IO ()+ +documentSetCharset ::+                   (IsDocument self, ToJSString val) => self -> val -> IO ()+documentSetCharset self val+  = ghcjs_dom_document_set_charset (unDocument (toDocument self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"charset\"]"+        ghcjs_dom_document_get_charset :: JSRef Document -> IO JSString+ +documentGetCharset ::+                   (IsDocument self, FromJSString result) => self -> IO result+documentGetCharset self+  = fromJSString <$>+      (ghcjs_dom_document_get_charset (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"defaultCharset\"]"+        ghcjs_dom_document_get_default_charset ::+        JSRef Document -> IO JSString+ +documentGetDefaultCharset ::+                          (IsDocument self, FromJSString result) => self -> IO result+documentGetDefaultCharset self+  = fromJSString <$>+      (ghcjs_dom_document_get_default_charset+         (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"readyState\"]"+        ghcjs_dom_document_get_ready_state :: JSRef Document -> IO JSString+ +documentGetReadyState ::+                      (IsDocument self, FromJSString result) => self -> IO result+documentGetReadyState self+  = fromJSString <$>+      (ghcjs_dom_document_get_ready_state (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"characterSet\"]"+        ghcjs_dom_document_get_character_set ::+        JSRef Document -> IO JSString+ +documentGetCharacterSet ::+                        (IsDocument self, FromJSString result) => self -> IO result+documentGetCharacterSet self+  = fromJSString <$>+      (ghcjs_dom_document_get_character_set+         (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"preferredStylesheetSet\"]"+        ghcjs_dom_document_get_preferred_stylesheet_set ::+        JSRef Document -> IO JSString+ +documentGetPreferredStylesheetSet ::+                                  (IsDocument self, FromJSString result) => self -> IO result+documentGetPreferredStylesheetSet self+  = fromJSString <$>+      (ghcjs_dom_document_get_preferred_stylesheet_set+         (unDocument (toDocument self)))+ +foreign import javascript unsafe+        "$1[\"selectedStylesheetSet\"] = $2;"+        ghcjs_dom_document_set_selected_stylesheet_set ::+        JSRef Document -> JSString -> IO ()+ +documentSetSelectedStylesheetSet ::+                                 (IsDocument self, ToJSString val) => self -> val -> IO ()+documentSetSelectedStylesheetSet self val+  = ghcjs_dom_document_set_selected_stylesheet_set+      (unDocument (toDocument self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"selectedStylesheetSet\"]"+        ghcjs_dom_document_get_selected_stylesheet_set ::+        JSRef Document -> IO JSString+ +documentGetSelectedStylesheetSet ::+                                 (IsDocument self, FromJSString result) => self -> IO result+documentGetSelectedStylesheetSet self+  = fromJSString <$>+      (ghcjs_dom_document_get_selected_stylesheet_set+         (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"activeElement\"]"+        ghcjs_dom_document_get_active_element ::+        JSRef Document -> IO (JSRef Element)+ +documentGetActiveElement ::+                         (IsDocument self) => self -> IO (Maybe Element)+documentGetActiveElement self+  = fmap Element . maybeJSNull <$>+      (ghcjs_dom_document_get_active_element+         (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"compatMode\"]"+        ghcjs_dom_document_get_compat_mode :: JSRef Document -> IO JSString+ +documentGetCompatMode ::+                      (IsDocument self, FromJSString result) => self -> IO result+documentGetCompatMode self+  = fromJSString <$>+      (ghcjs_dom_document_get_compat_mode (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"pointerLockElement\"]"+        ghcjs_dom_document_get_pointer_lock_element ::+        JSRef Document -> IO (JSRef Element)+ +documentGetPointerLockElement ::+                              (IsDocument self) => self -> IO (Maybe Element)+documentGetPointerLockElement self+  = fmap Element . maybeJSNull <$>+      (ghcjs_dom_document_get_pointer_lock_element+         (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"visibilityState\"]"+        ghcjs_dom_document_get_visibility_state ::+        JSRef Document -> IO JSString+ +documentGetVisibilityState ::+                           (IsDocument self, FromJSString result) => self -> IO result+documentGetVisibilityState self+  = fromJSString <$>+      (ghcjs_dom_document_get_visibility_state+         (unDocument (toDocument self)))+ +foreign import javascript unsafe "($1[\"hidden\"] ? 1 : 0)"+        ghcjs_dom_document_get_hidden :: JSRef Document -> IO Bool+ +documentGetHidden :: (IsDocument self) => self -> IO Bool+documentGetHidden self+  = ghcjs_dom_document_get_hidden (unDocument (toDocument self))+ +foreign import javascript unsafe "$1[\"securityPolicy\"]"+        ghcjs_dom_document_get_security_policy ::+        JSRef Document -> IO (JSRef DOMSecurityPolicy)+ +documentGetSecurityPolicy ::+                          (IsDocument self) => self -> IO (Maybe DOMSecurityPolicy)+documentGetSecurityPolicy self+  = fmap DOMSecurityPolicy . maybeJSNull <$>+      (ghcjs_dom_document_get_security_policy+         (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"currentScript\"]"+        ghcjs_dom_document_get_current_script ::+        JSRef Document -> IO (JSRef HTMLScriptElement)+ +documentGetCurrentScript ::+                         (IsDocument self) => self -> IO (Maybe HTMLScriptElement)+documentGetCurrentScript self+  = fmap HTMLScriptElement . maybeJSNull <$>+      (ghcjs_dom_document_get_current_script+         (unDocument (toDocument self)))+ +foreign import javascript unsafe "$1[\"origin\"]"+        ghcjs_dom_document_get_origin :: JSRef Document -> IO JSString+ +documentGetOrigin ::+                  (IsDocument self, FromJSString result) => self -> IO result+documentGetOrigin self+  = fromJSString <$>+      (ghcjs_dom_document_get_origin (unDocument (toDocument self))) #else module GHCJS.DOM.Document (   module Graphics.UI.Gtk.WebKit.DOM.Document

src/GHCJS/DOM/DocumentType.hs view

@@ -13,28 +13,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_document_type_get_name ::         JSRef DocumentType -> IO JSString-#else -ghcjs_dom_document_type_get_name ::-                                   JSRef DocumentType -> IO JSString-ghcjs_dom_document_type_get_name = undefined-#endif   documentTypeGetName ::                     (IsDocumentType self, FromJSString result) => self -> IO result@@ -42,17 +31,10 @@   = fromJSString <$>       (ghcjs_dom_document_type_get_name          (unDocumentType (toDocumentType self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"entities\"]"         ghcjs_dom_document_type_get_entities ::         JSRef DocumentType -> IO (JSRef NamedNodeMap)-#else -ghcjs_dom_document_type_get_entities ::-                                       JSRef DocumentType -> IO (JSRef NamedNodeMap)-ghcjs_dom_document_type_get_entities = undefined-#endif   documentTypeGetEntities ::                         (IsDocumentType self) => self -> IO (Maybe NamedNodeMap)@@ -60,17 +42,10 @@   = fmap NamedNodeMap . maybeJSNull <$>       (ghcjs_dom_document_type_get_entities          (unDocumentType (toDocumentType self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"notations\"]"         ghcjs_dom_document_type_get_notations ::         JSRef DocumentType -> IO (JSRef NamedNodeMap)-#else -ghcjs_dom_document_type_get_notations ::-                                        JSRef DocumentType -> IO (JSRef NamedNodeMap)-ghcjs_dom_document_type_get_notations = undefined-#endif   documentTypeGetNotations ::                          (IsDocumentType self) => self -> IO (Maybe NamedNodeMap)@@ -78,17 +53,10 @@   = fmap NamedNodeMap . maybeJSNull <$>       (ghcjs_dom_document_type_get_notations          (unDocumentType (toDocumentType self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"publicId\"]"         ghcjs_dom_document_type_get_public_id ::         JSRef DocumentType -> IO JSString-#else -ghcjs_dom_document_type_get_public_id ::-                                        JSRef DocumentType -> IO JSString-ghcjs_dom_document_type_get_public_id = undefined-#endif   documentTypeGetPublicId ::                         (IsDocumentType self, FromJSString result) => self -> IO result@@ -96,17 +64,10 @@   = fromJSString <$>       (ghcjs_dom_document_type_get_public_id          (unDocumentType (toDocumentType self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"systemId\"]"         ghcjs_dom_document_type_get_system_id ::         JSRef DocumentType -> IO JSString-#else -ghcjs_dom_document_type_get_system_id ::-                                        JSRef DocumentType -> IO JSString-ghcjs_dom_document_type_get_system_id = undefined-#endif   documentTypeGetSystemId ::                         (IsDocumentType self, FromJSString result) => self -> IO result@@ -114,17 +75,10 @@   = fromJSString <$>       (ghcjs_dom_document_type_get_system_id          (unDocumentType (toDocumentType self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"internalSubset\"]"         ghcjs_dom_document_type_get_internal_subset ::         JSRef DocumentType -> IO JSString-#else -ghcjs_dom_document_type_get_internal_subset ::-                                              JSRef DocumentType -> IO JSString-ghcjs_dom_document_type_get_internal_subset = undefined-#endif   documentTypeGetInternalSubset ::                               (IsDocumentType self, FromJSString result) => self -> IO result

src/GHCJS/DOM/Element.hs view

@@ -30,19 +30,20 @@         elementScrollByPages, ghcjs_dom_element_get_elements_by_class_name,         elementGetElementsByClassName, ghcjs_dom_element_query_selector,         elementQuerySelector, ghcjs_dom_element_query_selector_all,-        elementQuerySelectorAll, ghcjs_dom_element_webkit_matches_selector,+        elementQuerySelectorAll, ghcjs_dom_element_matches, elementMatches,+        ghcjs_dom_element_closest, elementClosest,+        ghcjs_dom_element_webkit_matches_selector,         elementWebkitMatchesSelector,-        ghcjs_dom_element_webkit_request_pointer_lock,-        elementWebkitRequestPointerLock, ghcjs_dom_element_get_tag_name,-        elementGetTagName, ghcjs_dom_element_get_attributes,-        elementGetAttributes, ghcjs_dom_element_get_style, elementGetStyle,+        ghcjs_dom_element_request_pointer_lock, elementRequestPointerLock,+        ghcjs_dom_element_get_tag_name, elementGetTagName,+        ghcjs_dom_element_get_attributes, elementGetAttributes,+        ghcjs_dom_element_get_style, elementGetStyle,         ghcjs_dom_element_set_id, elementSetId, ghcjs_dom_element_get_id,         elementGetId, ghcjs_dom_element_get_offset_left,         elementGetOffsetLeft, ghcjs_dom_element_get_offset_top,         elementGetOffsetTop, ghcjs_dom_element_get_offset_width,         elementGetOffsetWidth, ghcjs_dom_element_get_offset_height,-        elementGetOffsetHeight, ghcjs_dom_element_get_offset_parent,-        elementGetOffsetParent, ghcjs_dom_element_get_client_left,+        elementGetOffsetHeight, ghcjs_dom_element_get_client_left,         elementGetClientLeft, ghcjs_dom_element_get_client_top,         elementGetClientTop, ghcjs_dom_element_get_client_width,         elementGetClientWidth, ghcjs_dom_element_get_client_height,@@ -52,7 +53,8 @@         elementSetScrollTop, ghcjs_dom_element_get_scroll_top,         elementGetScrollTop, ghcjs_dom_element_get_scroll_width,         elementGetScrollWidth, ghcjs_dom_element_get_scroll_height,-        elementGetScrollHeight, ghcjs_dom_element_set_class_name,+        elementGetScrollHeight, ghcjs_dom_element_get_offset_parent,+        elementGetOffsetParent, ghcjs_dom_element_set_class_name,         elementSetClassName, ghcjs_dom_element_get_class_name,         elementGetClassName, ghcjs_dom_element_get_class_list,         elementGetClassList, ghcjs_dom_element_get_first_element_child,@@ -76,38 +78,30 @@         elementOnmousedown, elementOnmouseenter, elementOnmouseleave,         elementOnmousemove, elementOnmouseout, elementOnmouseover,         elementOnmouseup, elementOnmousewheel, elementOnscroll,-        elementOnselect, elementOnsubmit, elementOnbeforecut, elementOncut,-        elementOnbeforecopy, elementOncopy, elementOnbeforepaste,-        elementOnpaste, elementOnreset, elementOnsearch,-        elementOnselectstart, elementOntouchstart, elementOntouchmove,-        elementOntouchend, elementOntouchcancel,-        elementOnwebkitfullscreenchange, elementOnwebkitfullscreenerror,-        Element, IsElement, castToElement, gTypeElement, toElement)+        elementOnselect, elementOnsubmit, elementOnwheel,+        elementOnbeforecut, elementOncut, elementOnbeforecopy,+        elementOncopy, elementOnbeforepaste, elementOnpaste,+        elementOnreset, elementOnsearch, elementOnselectstart,+        elementOntouchstart, elementOntouchmove, elementOntouchend,+        elementOntouchcancel, elementOnwebkitfullscreenchange,+        elementOnwebkitfullscreenerror, elementOnwebkitwillrevealbottom,+        elementOnwebkitwillrevealleft, elementOnwebkitwillrevealright,+        elementOnwebkitwillrevealtop, Element, IsElement, castToElement,+        gTypeElement, toElement)        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"getAttribute\"]($2)"         ghcjs_dom_element_get_attribute ::         JSRef Element -> JSString -> IO JSString-#else -ghcjs_dom_element_get_attribute ::-                                  JSRef Element -> JSString -> IO JSString-ghcjs_dom_element_get_attribute = undefined-#endif   elementGetAttribute ::                     (IsElement self, ToJSString name, FromJSString result) =>@@ -116,17 +110,10 @@   = fromJSString <$>       (ghcjs_dom_element_get_attribute (unElement (toElement self))          (toJSString name))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"setAttribute\"]($2, $3)"         ghcjs_dom_element_set_attribute ::         JSRef Element -> JSString -> JSString -> IO ()-#else -ghcjs_dom_element_set_attribute ::-                                  JSRef Element -> JSString -> JSString -> IO ()-ghcjs_dom_element_set_attribute = undefined-#endif   elementSetAttribute ::                     (IsElement self, ToJSString name, ToJSString value) =>@@ -135,34 +122,20 @@   = ghcjs_dom_element_set_attribute (unElement (toElement self))       (toJSString name)       (toJSString value)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"removeAttribute\"]($2)"         ghcjs_dom_element_remove_attribute ::         JSRef Element -> JSString -> IO ()-#else -ghcjs_dom_element_remove_attribute ::-                                     JSRef Element -> JSString -> IO ()-ghcjs_dom_element_remove_attribute = undefined-#endif   elementRemoveAttribute ::                        (IsElement self, ToJSString name) => self -> name -> IO () elementRemoveAttribute self name   = ghcjs_dom_element_remove_attribute (unElement (toElement self))       (toJSString name)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"getAttributeNode\"]($2)"         ghcjs_dom_element_get_attribute_node ::         JSRef Element -> JSString -> IO (JSRef DOMAttr)-#else -ghcjs_dom_element_get_attribute_node ::-                                       JSRef Element -> JSString -> IO (JSRef DOMAttr)-ghcjs_dom_element_get_attribute_node = undefined-#endif   elementGetAttributeNode ::                         (IsElement self, ToJSString name) =>@@ -171,17 +144,10 @@   = fmap DOMAttr . maybeJSNull <$>       (ghcjs_dom_element_get_attribute_node (unElement (toElement self))          (toJSString name))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"setAttributeNode\"]($2)"         ghcjs_dom_element_set_attribute_node ::         JSRef Element -> JSRef DOMAttr -> IO (JSRef DOMAttr)-#else -ghcjs_dom_element_set_attribute_node ::-                                       JSRef Element -> JSRef DOMAttr -> IO (JSRef DOMAttr)-ghcjs_dom_element_set_attribute_node = undefined-#endif   elementSetAttributeNode ::                         (IsElement self, IsDOMAttr newAttr) =>@@ -190,17 +156,10 @@   = fmap DOMAttr . maybeJSNull <$>       (ghcjs_dom_element_set_attribute_node (unElement (toElement self))          (maybe jsNull (unDOMAttr . toDOMAttr) newAttr))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"removeAttributeNode\"]($2)"         ghcjs_dom_element_remove_attribute_node ::         JSRef Element -> JSRef DOMAttr -> IO (JSRef DOMAttr)-#else -ghcjs_dom_element_remove_attribute_node ::-                                          JSRef Element -> JSRef DOMAttr -> IO (JSRef DOMAttr)-ghcjs_dom_element_remove_attribute_node = undefined-#endif   elementRemoveAttributeNode ::                            (IsElement self, IsDOMAttr oldAttr) =>@@ -210,17 +169,10 @@       (ghcjs_dom_element_remove_attribute_node          (unElement (toElement self))          (maybe jsNull (unDOMAttr . toDOMAttr) oldAttr))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)"         ghcjs_dom_element_get_elements_by_tag_name ::         JSRef Element -> JSString -> IO (JSRef NodeList)-#else -ghcjs_dom_element_get_elements_by_tag_name ::-                                             JSRef Element -> JSString -> IO (JSRef NodeList)-ghcjs_dom_element_get_elements_by_tag_name = undefined-#endif   elementGetElementsByTagName ::                             (IsElement self, ToJSString name) =>@@ -230,31 +182,18 @@       (ghcjs_dom_element_get_elements_by_tag_name          (unElement (toElement self))          (toJSString name))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"hasAttributes\"]() ? 1 : 0)"         ghcjs_dom_element_has_attributes :: JSRef Element -> IO Bool-#else -ghcjs_dom_element_has_attributes :: JSRef Element -> IO Bool-ghcjs_dom_element_has_attributes = undefined-#endif   elementHasAttributes :: (IsElement self) => self -> IO Bool elementHasAttributes self   = ghcjs_dom_element_has_attributes (unElement (toElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"getAttributeNS\"]($2, $3)"         ghcjs_dom_element_get_attribute_ns ::         JSRef Element -> JSString -> JSString -> IO JSString-#else -ghcjs_dom_element_get_attribute_ns ::-                                     JSRef Element -> JSString -> JSString -> IO JSString-ghcjs_dom_element_get_attribute_ns = undefined-#endif   elementGetAttributeNS ::                       (IsElement self, ToJSString namespaceURI, ToJSString localName,@@ -265,18 +204,11 @@       (ghcjs_dom_element_get_attribute_ns (unElement (toElement self))          (toJSString namespaceURI)          (toJSString localName))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"setAttributeNS\"]($2, $3, $4)"         ghcjs_dom_element_set_attribute_ns ::         JSRef Element -> JSString -> JSString -> JSString -> IO ()-#else -ghcjs_dom_element_set_attribute_ns ::-                                     JSRef Element -> JSString -> JSString -> JSString -> IO ()-ghcjs_dom_element_set_attribute_ns = undefined-#endif   elementSetAttributeNS ::                       (IsElement self, ToJSString namespaceURI, ToJSString qualifiedName,@@ -287,18 +219,11 @@       (toJSString namespaceURI)       (toJSString qualifiedName)       (toJSString value)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"removeAttributeNS\"]($2, $3)"         ghcjs_dom_element_remove_attribute_ns ::         JSRef Element -> JSString -> JSString -> IO ()-#else -ghcjs_dom_element_remove_attribute_ns ::-                                        JSRef Element -> JSString -> JSString -> IO ()-ghcjs_dom_element_remove_attribute_ns = undefined-#endif   elementRemoveAttributeNS ::                          (IsElement self, ToJSString namespaceURI, ToJSString localName) =>@@ -308,19 +233,11 @@       (unElement (toElement self))       (toJSString namespaceURI)       (toJSString localName)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"getElementsByTagNameNS\"]($2,\n$3)"         ghcjs_dom_element_get_elements_by_tag_name_ns ::         JSRef Element -> JSString -> JSString -> IO (JSRef NodeList)-#else -ghcjs_dom_element_get_elements_by_tag_name_ns ::-                                                JSRef Element ->-                                                  JSString -> JSString -> IO (JSRef NodeList)-ghcjs_dom_element_get_elements_by_tag_name_ns = undefined-#endif   elementGetElementsByTagNameNS ::                               (IsElement self, ToJSString namespaceURI, ToJSString localName) =>@@ -331,19 +248,11 @@          (unElement (toElement self))          (toJSString namespaceURI)          (toJSString localName))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"getAttributeNodeNS\"]($2, $3)"         ghcjs_dom_element_get_attribute_node_ns ::         JSRef Element -> JSString -> JSString -> IO (JSRef DOMAttr)-#else -ghcjs_dom_element_get_attribute_node_ns ::-                                          JSRef Element ->-                                            JSString -> JSString -> IO (JSRef DOMAttr)-ghcjs_dom_element_get_attribute_node_ns = undefined-#endif   elementGetAttributeNodeNS ::                           (IsElement self, ToJSString namespaceURI, ToJSString localName) =>@@ -354,17 +263,10 @@          (unElement (toElement self))          (toJSString namespaceURI)          (toJSString localName))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"setAttributeNodeNS\"]($2)"         ghcjs_dom_element_set_attribute_node_ns ::         JSRef Element -> JSRef DOMAttr -> IO (JSRef DOMAttr)-#else -ghcjs_dom_element_set_attribute_node_ns ::-                                          JSRef Element -> JSRef DOMAttr -> IO (JSRef DOMAttr)-ghcjs_dom_element_set_attribute_node_ns = undefined-#endif   elementSetAttributeNodeNS ::                           (IsElement self, IsDOMAttr newAttr) =>@@ -374,36 +276,22 @@       (ghcjs_dom_element_set_attribute_node_ns          (unElement (toElement self))          (maybe jsNull (unDOMAttr . toDOMAttr) newAttr))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"hasAttribute\"]($2) ? 1 : 0)"         ghcjs_dom_element_has_attribute ::         JSRef Element -> JSString -> IO Bool-#else -ghcjs_dom_element_has_attribute ::-                                  JSRef Element -> JSString -> IO Bool-ghcjs_dom_element_has_attribute = undefined-#endif   elementHasAttribute ::                     (IsElement self, ToJSString name) => self -> name -> IO Bool elementHasAttribute self name   = ghcjs_dom_element_has_attribute (unElement (toElement self))       (toJSString name)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"hasAttributeNS\"]($2,\n$3) ? 1 : 0)"         ghcjs_dom_element_has_attribute_ns ::         JSRef Element -> JSString -> JSString -> IO Bool-#else -ghcjs_dom_element_has_attribute_ns ::-                                     JSRef Element -> JSString -> JSString -> IO Bool-ghcjs_dom_element_has_attribute_ns = undefined-#endif   elementHasAttributeNS ::                       (IsElement self, ToJSString namespaceURI, ToJSString localName) =>@@ -412,60 +300,34 @@   = ghcjs_dom_element_has_attribute_ns (unElement (toElement self))       (toJSString namespaceURI)       (toJSString localName)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"focus\"]()"         ghcjs_dom_element_focus :: JSRef Element -> IO ()-#else -ghcjs_dom_element_focus :: JSRef Element -> IO ()-ghcjs_dom_element_focus = undefined-#endif   elementFocus :: (IsElement self) => self -> IO () elementFocus self   = ghcjs_dom_element_focus (unElement (toElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"blur\"]()"         ghcjs_dom_element_blur :: JSRef Element -> IO ()-#else -ghcjs_dom_element_blur :: JSRef Element -> IO ()-ghcjs_dom_element_blur = undefined-#endif   elementBlur :: (IsElement self) => self -> IO () elementBlur self   = ghcjs_dom_element_blur (unElement (toElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scrollIntoView\"]($2)"         ghcjs_dom_element_scroll_into_view ::         JSRef Element -> Bool -> IO ()-#else -ghcjs_dom_element_scroll_into_view ::-                                     JSRef Element -> Bool -> IO ()-ghcjs_dom_element_scroll_into_view = undefined-#endif   elementScrollIntoView :: (IsElement self) => self -> Bool -> IO () elementScrollIntoView self alignWithTop   = ghcjs_dom_element_scroll_into_view (unElement (toElement self))       alignWithTop---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"scrollIntoViewIfNeeded\"]($2)"         ghcjs_dom_element_scroll_into_view_if_needed ::         JSRef Element -> Bool -> IO ()-#else -ghcjs_dom_element_scroll_into_view_if_needed ::-                                               JSRef Element -> Bool -> IO ()-ghcjs_dom_element_scroll_into_view_if_needed = undefined-#endif   elementScrollIntoViewIfNeeded ::                               (IsElement self) => self -> Bool -> IO ()@@ -473,46 +335,27 @@   = ghcjs_dom_element_scroll_into_view_if_needed       (unElement (toElement self))       centerIfNeeded---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scrollByLines\"]($2)"         ghcjs_dom_element_scroll_by_lines :: JSRef Element -> Int -> IO ()-#else -ghcjs_dom_element_scroll_by_lines :: JSRef Element -> Int -> IO ()-ghcjs_dom_element_scroll_by_lines = undefined-#endif   elementScrollByLines :: (IsElement self) => self -> Int -> IO () elementScrollByLines self lines   = ghcjs_dom_element_scroll_by_lines (unElement (toElement self))       lines---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scrollByPages\"]($2)"         ghcjs_dom_element_scroll_by_pages :: JSRef Element -> Int -> IO ()-#else -ghcjs_dom_element_scroll_by_pages :: JSRef Element -> Int -> IO ()-ghcjs_dom_element_scroll_by_pages = undefined-#endif   elementScrollByPages :: (IsElement self) => self -> Int -> IO () elementScrollByPages self pages   = ghcjs_dom_element_scroll_by_pages (unElement (toElement self))       pages---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"getElementsByClassName\"]($2)"         ghcjs_dom_element_get_elements_by_class_name ::         JSRef Element -> JSString -> IO (JSRef NodeList)-#else -ghcjs_dom_element_get_elements_by_class_name ::-                                               JSRef Element -> JSString -> IO (JSRef NodeList)-ghcjs_dom_element_get_elements_by_class_name = undefined-#endif   elementGetElementsByClassName ::                               (IsElement self, ToJSString name) =>@@ -522,17 +365,10 @@       (ghcjs_dom_element_get_elements_by_class_name          (unElement (toElement self))          (toJSString name))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"querySelector\"]($2)"         ghcjs_dom_element_query_selector ::         JSRef Element -> JSString -> IO (JSRef Element)-#else -ghcjs_dom_element_query_selector ::-                                   JSRef Element -> JSString -> IO (JSRef Element)-ghcjs_dom_element_query_selector = undefined-#endif   elementQuerySelector ::                      (IsElement self, ToJSString selectors) =>@@ -541,17 +377,10 @@   = fmap Element . maybeJSNull <$>       (ghcjs_dom_element_query_selector (unElement (toElement self))          (toJSString selectors))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"         ghcjs_dom_element_query_selector_all ::         JSRef Element -> JSString -> IO (JSRef NodeList)-#else -ghcjs_dom_element_query_selector_all ::-                                       JSRef Element -> JSString -> IO (JSRef NodeList)-ghcjs_dom_element_query_selector_all = undefined-#endif   elementQuerySelectorAll ::                         (IsElement self, ToJSString selectors) =>@@ -560,18 +389,33 @@   = fmap NodeList . maybeJSNull <$>       (ghcjs_dom_element_query_selector_all (unElement (toElement self))          (toJSString selectors))---#ifdef ghcjs_HOST_OS + +foreign import javascript unsafe "($1[\"matches\"]($2) ? 1 : 0)"+        ghcjs_dom_element_matches :: JSRef Element -> JSString -> IO Bool+ +elementMatches ::+               (IsElement self, ToJSString selectors) =>+                 self -> selectors -> IO Bool+elementMatches self selectors+  = ghcjs_dom_element_matches (unElement (toElement self))+      (toJSString selectors)+ +foreign import javascript unsafe "$1[\"closest\"]($2)"+        ghcjs_dom_element_closest ::+        JSRef Element -> JSString -> IO (JSRef Element)+ +elementClosest ::+               (IsElement self, ToJSString selectors) =>+                 self -> selectors -> IO (Maybe Element)+elementClosest self selectors+  = fmap Element . maybeJSNull <$>+      (ghcjs_dom_element_closest (unElement (toElement self))+         (toJSString selectors))+  foreign import javascript unsafe         "($1[\"webkitMatchesSelector\"]($2) ? 1 : 0)"         ghcjs_dom_element_webkit_matches_selector ::         JSRef Element -> JSString -> IO Bool-#else -ghcjs_dom_element_webkit_matches_selector ::-                                            JSRef Element -> JSString -> IO Bool-ghcjs_dom_element_webkit_matches_selector = undefined-#endif   elementWebkitMatchesSelector ::                              (IsElement self, ToJSString selectors) =>@@ -580,363 +424,203 @@   = ghcjs_dom_element_webkit_matches_selector       (unElement (toElement self))       (toJSString selectors)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe-        "$1[\"webkitRequestPointerLock\"]()"-        ghcjs_dom_element_webkit_request_pointer_lock ::-        JSRef Element -> IO ()-#else -ghcjs_dom_element_webkit_request_pointer_lock ::-                                                JSRef Element -> IO ()-ghcjs_dom_element_webkit_request_pointer_lock = undefined-#endif  -elementWebkitRequestPointerLock ::-                                (IsElement self) => self -> IO ()-elementWebkitRequestPointerLock self-  = ghcjs_dom_element_webkit_request_pointer_lock+foreign import javascript unsafe "$1[\"requestPointerLock\"]()"+        ghcjs_dom_element_request_pointer_lock :: JSRef Element -> IO ()+ +elementRequestPointerLock :: (IsElement self) => self -> IO ()+elementRequestPointerLock self+  = ghcjs_dom_element_request_pointer_lock       (unElement (toElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"tagName\"]"         ghcjs_dom_element_get_tag_name :: JSRef Element -> IO JSString-#else -ghcjs_dom_element_get_tag_name :: JSRef Element -> IO JSString-ghcjs_dom_element_get_tag_name = undefined-#endif   elementGetTagName ::                   (IsElement self, FromJSString result) => self -> IO result elementGetTagName self   = fromJSString <$>       (ghcjs_dom_element_get_tag_name (unElement (toElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"attributes\"]"         ghcjs_dom_element_get_attributes ::         JSRef Element -> IO (JSRef NamedNodeMap)-#else -ghcjs_dom_element_get_attributes ::-                                   JSRef Element -> IO (JSRef NamedNodeMap)-ghcjs_dom_element_get_attributes = undefined-#endif   elementGetAttributes ::                      (IsElement self) => self -> IO (Maybe NamedNodeMap) elementGetAttributes self   = fmap NamedNodeMap . maybeJSNull <$>       (ghcjs_dom_element_get_attributes (unElement (toElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"style\"]"         ghcjs_dom_element_get_style ::         JSRef Element -> IO (JSRef CSSStyleDeclaration)-#else -ghcjs_dom_element_get_style ::-                              JSRef Element -> IO (JSRef CSSStyleDeclaration)-ghcjs_dom_element_get_style = undefined-#endif   elementGetStyle ::                 (IsElement self) => self -> IO (Maybe CSSStyleDeclaration) elementGetStyle self   = fmap CSSStyleDeclaration . maybeJSNull <$>       (ghcjs_dom_element_get_style (unElement (toElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"id\"] = $2;"         ghcjs_dom_element_set_id :: JSRef Element -> JSString -> IO ()-#else -ghcjs_dom_element_set_id :: JSRef Element -> JSString -> IO ()-ghcjs_dom_element_set_id = undefined-#endif   elementSetId ::              (IsElement self, ToJSString val) => self -> val -> IO () elementSetId self val   = ghcjs_dom_element_set_id (unElement (toElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"id\"]"         ghcjs_dom_element_get_id :: JSRef Element -> IO JSString-#else -ghcjs_dom_element_get_id :: JSRef Element -> IO JSString-ghcjs_dom_element_get_id = undefined-#endif   elementGetId ::              (IsElement self, FromJSString result) => self -> IO result elementGetId self   = fromJSString <$>       (ghcjs_dom_element_get_id (unElement (toElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"offsetLeft\"]"-        ghcjs_dom_element_get_offset_left :: JSRef Element -> IO Int-#else -ghcjs_dom_element_get_offset_left :: JSRef Element -> IO Int-ghcjs_dom_element_get_offset_left = undefined-#endif+        ghcjs_dom_element_get_offset_left :: JSRef Element -> IO Double  -elementGetOffsetLeft :: (IsElement self) => self -> IO Int+elementGetOffsetLeft :: (IsElement self) => self -> IO Double elementGetOffsetLeft self   = ghcjs_dom_element_get_offset_left (unElement (toElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"offsetTop\"]"-        ghcjs_dom_element_get_offset_top :: JSRef Element -> IO Int-#else -ghcjs_dom_element_get_offset_top :: JSRef Element -> IO Int-ghcjs_dom_element_get_offset_top = undefined-#endif+        ghcjs_dom_element_get_offset_top :: JSRef Element -> IO Double  -elementGetOffsetTop :: (IsElement self) => self -> IO Int+elementGetOffsetTop :: (IsElement self) => self -> IO Double elementGetOffsetTop self   = ghcjs_dom_element_get_offset_top (unElement (toElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"offsetWidth\"]"-        ghcjs_dom_element_get_offset_width :: JSRef Element -> IO Int-#else -ghcjs_dom_element_get_offset_width :: JSRef Element -> IO Int-ghcjs_dom_element_get_offset_width = undefined-#endif+        ghcjs_dom_element_get_offset_width :: JSRef Element -> IO Double  -elementGetOffsetWidth :: (IsElement self) => self -> IO Int+elementGetOffsetWidth :: (IsElement self) => self -> IO Double elementGetOffsetWidth self   = ghcjs_dom_element_get_offset_width (unElement (toElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"offsetHeight\"]"-        ghcjs_dom_element_get_offset_height :: JSRef Element -> IO Int-#else -ghcjs_dom_element_get_offset_height :: JSRef Element -> IO Int-ghcjs_dom_element_get_offset_height = undefined-#endif+        ghcjs_dom_element_get_offset_height :: JSRef Element -> IO Double  -elementGetOffsetHeight :: (IsElement self) => self -> IO Int+elementGetOffsetHeight :: (IsElement self) => self -> IO Double elementGetOffsetHeight self   = ghcjs_dom_element_get_offset_height (unElement (toElement self))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"offsetParent\"]"-        ghcjs_dom_element_get_offset_parent ::-        JSRef Element -> IO (JSRef Element)-#else -ghcjs_dom_element_get_offset_parent ::-                                      JSRef Element -> IO (JSRef Element)-ghcjs_dom_element_get_offset_parent = undefined-#endif  -elementGetOffsetParent ::-                       (IsElement self) => self -> IO (Maybe Element)-elementGetOffsetParent self-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_element_get_offset_parent (unElement (toElement self)))---#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"clientLeft\"]"-        ghcjs_dom_element_get_client_left :: JSRef Element -> IO Int-#else -ghcjs_dom_element_get_client_left :: JSRef Element -> IO Int-ghcjs_dom_element_get_client_left = undefined-#endif+        ghcjs_dom_element_get_client_left :: JSRef Element -> IO Double  -elementGetClientLeft :: (IsElement self) => self -> IO Int+elementGetClientLeft :: (IsElement self) => self -> IO Double elementGetClientLeft self   = ghcjs_dom_element_get_client_left (unElement (toElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"clientTop\"]"-        ghcjs_dom_element_get_client_top :: JSRef Element -> IO Int-#else -ghcjs_dom_element_get_client_top :: JSRef Element -> IO Int-ghcjs_dom_element_get_client_top = undefined-#endif+        ghcjs_dom_element_get_client_top :: JSRef Element -> IO Double  -elementGetClientTop :: (IsElement self) => self -> IO Int+elementGetClientTop :: (IsElement self) => self -> IO Double elementGetClientTop self   = ghcjs_dom_element_get_client_top (unElement (toElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"clientWidth\"]"-        ghcjs_dom_element_get_client_width :: JSRef Element -> IO Int-#else -ghcjs_dom_element_get_client_width :: JSRef Element -> IO Int-ghcjs_dom_element_get_client_width = undefined-#endif+        ghcjs_dom_element_get_client_width :: JSRef Element -> IO Double  -elementGetClientWidth :: (IsElement self) => self -> IO Int+elementGetClientWidth :: (IsElement self) => self -> IO Double elementGetClientWidth self   = ghcjs_dom_element_get_client_width (unElement (toElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"clientHeight\"]"-        ghcjs_dom_element_get_client_height :: JSRef Element -> IO Int-#else -ghcjs_dom_element_get_client_height :: JSRef Element -> IO Int-ghcjs_dom_element_get_client_height = undefined-#endif+        ghcjs_dom_element_get_client_height :: JSRef Element -> IO Double  -elementGetClientHeight :: (IsElement self) => self -> IO Int+elementGetClientHeight :: (IsElement self) => self -> IO Double elementGetClientHeight self   = ghcjs_dom_element_get_client_height (unElement (toElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scrollLeft\"] = $2;"         ghcjs_dom_element_set_scroll_left :: JSRef Element -> Int -> IO ()-#else -ghcjs_dom_element_set_scroll_left :: JSRef Element -> Int -> IO ()-ghcjs_dom_element_set_scroll_left = undefined-#endif   elementSetScrollLeft :: (IsElement self) => self -> Int -> IO () elementSetScrollLeft self val   = ghcjs_dom_element_set_scroll_left (unElement (toElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scrollLeft\"]"         ghcjs_dom_element_get_scroll_left :: JSRef Element -> IO Int-#else -ghcjs_dom_element_get_scroll_left :: JSRef Element -> IO Int-ghcjs_dom_element_get_scroll_left = undefined-#endif   elementGetScrollLeft :: (IsElement self) => self -> IO Int elementGetScrollLeft self   = ghcjs_dom_element_get_scroll_left (unElement (toElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scrollTop\"] = $2;"         ghcjs_dom_element_set_scroll_top :: JSRef Element -> Int -> IO ()-#else -ghcjs_dom_element_set_scroll_top :: JSRef Element -> Int -> IO ()-ghcjs_dom_element_set_scroll_top = undefined-#endif   elementSetScrollTop :: (IsElement self) => self -> Int -> IO () elementSetScrollTop self val   = ghcjs_dom_element_set_scroll_top (unElement (toElement self)) val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scrollTop\"]"         ghcjs_dom_element_get_scroll_top :: JSRef Element -> IO Int-#else -ghcjs_dom_element_get_scroll_top :: JSRef Element -> IO Int-ghcjs_dom_element_get_scroll_top = undefined-#endif   elementGetScrollTop :: (IsElement self) => self -> IO Int elementGetScrollTop self   = ghcjs_dom_element_get_scroll_top (unElement (toElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scrollWidth\"]"         ghcjs_dom_element_get_scroll_width :: JSRef Element -> IO Int-#else -ghcjs_dom_element_get_scroll_width :: JSRef Element -> IO Int-ghcjs_dom_element_get_scroll_width = undefined-#endif   elementGetScrollWidth :: (IsElement self) => self -> IO Int elementGetScrollWidth self   = ghcjs_dom_element_get_scroll_width (unElement (toElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scrollHeight\"]"         ghcjs_dom_element_get_scroll_height :: JSRef Element -> IO Int-#else -ghcjs_dom_element_get_scroll_height :: JSRef Element -> IO Int-ghcjs_dom_element_get_scroll_height = undefined-#endif   elementGetScrollHeight :: (IsElement self) => self -> IO Int elementGetScrollHeight self   = ghcjs_dom_element_get_scroll_height (unElement (toElement self))---#ifdef ghcjs_HOST_OS + +foreign import javascript unsafe "$1[\"offsetParent\"]"+        ghcjs_dom_element_get_offset_parent ::+        JSRef Element -> IO (JSRef Element)+ +elementGetOffsetParent ::+                       (IsElement self) => self -> IO (Maybe Element)+elementGetOffsetParent self+  = fmap Element . maybeJSNull <$>+      (ghcjs_dom_element_get_offset_parent (unElement (toElement self)))+  foreign import javascript unsafe "$1[\"className\"] = $2;"         ghcjs_dom_element_set_class_name ::         JSRef Element -> JSString -> IO ()-#else -ghcjs_dom_element_set_class_name ::-                                   JSRef Element -> JSString -> IO ()-ghcjs_dom_element_set_class_name = undefined-#endif   elementSetClassName ::                     (IsElement self, ToJSString val) => self -> val -> IO () elementSetClassName self val   = ghcjs_dom_element_set_class_name (unElement (toElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"className\"]"         ghcjs_dom_element_get_class_name :: JSRef Element -> IO JSString-#else -ghcjs_dom_element_get_class_name :: JSRef Element -> IO JSString-ghcjs_dom_element_get_class_name = undefined-#endif   elementGetClassName ::                     (IsElement self, FromJSString result) => self -> IO result elementGetClassName self   = fromJSString <$>       (ghcjs_dom_element_get_class_name (unElement (toElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"classList\"]"         ghcjs_dom_element_get_class_list ::         JSRef Element -> IO (JSRef DOMTokenList)-#else -ghcjs_dom_element_get_class_list ::-                                   JSRef Element -> IO (JSRef DOMTokenList)-ghcjs_dom_element_get_class_list = undefined-#endif   elementGetClassList ::                     (IsElement self) => self -> IO (Maybe DOMTokenList) elementGetClassList self   = fmap DOMTokenList . maybeJSNull <$>       (ghcjs_dom_element_get_class_list (unElement (toElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"firstElementChild\"]"         ghcjs_dom_element_get_first_element_child ::         JSRef Element -> IO (JSRef Element)-#else -ghcjs_dom_element_get_first_element_child ::-                                            JSRef Element -> IO (JSRef Element)-ghcjs_dom_element_get_first_element_child = undefined-#endif   elementGetFirstElementChild ::                             (IsElement self) => self -> IO (Maybe Element)@@ -944,17 +628,10 @@   = fmap Element . maybeJSNull <$>       (ghcjs_dom_element_get_first_element_child          (unElement (toElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"lastElementChild\"]"         ghcjs_dom_element_get_last_element_child ::         JSRef Element -> IO (JSRef Element)-#else -ghcjs_dom_element_get_last_element_child ::-                                           JSRef Element -> IO (JSRef Element)-ghcjs_dom_element_get_last_element_child = undefined-#endif   elementGetLastElementChild ::                            (IsElement self) => self -> IO (Maybe Element)@@ -962,17 +639,10 @@   = fmap Element . maybeJSNull <$>       (ghcjs_dom_element_get_last_element_child          (unElement (toElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"previousElementSibling\"]"         ghcjs_dom_element_get_previous_element_sibling ::         JSRef Element -> IO (JSRef Element)-#else -ghcjs_dom_element_get_previous_element_sibling ::-                                                 JSRef Element -> IO (JSRef Element)-ghcjs_dom_element_get_previous_element_sibling = undefined-#endif   elementGetPreviousElementSibling ::                                  (IsElement self) => self -> IO (Maybe Element)@@ -980,17 +650,10 @@   = fmap Element . maybeJSNull <$>       (ghcjs_dom_element_get_previous_element_sibling          (unElement (toElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"nextElementSibling\"]"         ghcjs_dom_element_get_next_element_sibling ::         JSRef Element -> IO (JSRef Element)-#else -ghcjs_dom_element_get_next_element_sibling ::-                                             JSRef Element -> IO (JSRef Element)-ghcjs_dom_element_get_next_element_sibling = undefined-#endif   elementGetNextElementSibling ::                              (IsElement self) => self -> IO (Maybe Element)@@ -998,33 +661,19 @@   = fmap Element . maybeJSNull <$>       (ghcjs_dom_element_get_next_element_sibling          (unElement (toElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"childElementCount\"]"         ghcjs_dom_element_get_child_element_count ::         JSRef Element -> IO Word-#else -ghcjs_dom_element_get_child_element_count ::-                                            JSRef Element -> IO Word-ghcjs_dom_element_get_child_element_count = undefined-#endif   elementGetChildElementCount :: (IsElement self) => self -> IO Word elementGetChildElementCount self   = ghcjs_dom_element_get_child_element_count       (unElement (toElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"webkitRegionOverset\"]"         ghcjs_dom_element_get_webkit_region_overset ::         JSRef Element -> IO JSString-#else -ghcjs_dom_element_get_webkit_region_overset ::-                                              JSRef Element -> IO JSString-ghcjs_dom_element_get_webkit_region_overset = undefined-#endif   elementGetWebkitRegionOverset ::                               (IsElement self, FromJSString result) => self -> IO result@@ -1161,6 +810,10 @@                 (IsElement self) => Signal self (EventM UIEvent self ()) elementOnsubmit = (connect "submit")  +elementOnwheel ::+               (IsElement self) => Signal self (EventM UIEvent self ())+elementOnwheel = (connect "wheel")+  elementOnbeforecut ::                    (IsElement self) => Signal self (EventM UIEvent self ()) elementOnbeforecut = (connect "beforecut")@@ -1221,6 +874,23 @@ elementOnwebkitfullscreenerror ::                                (IsElement self) => Signal self (EventM UIEvent self ()) elementOnwebkitfullscreenerror = (connect "webkitfullscreenerror")+ +elementOnwebkitwillrevealbottom ::+                                (IsElement self) => Signal self (EventM UIEvent self ())+elementOnwebkitwillrevealbottom+  = (connect "webkitwillrevealbottom")+ +elementOnwebkitwillrevealleft ::+                              (IsElement self) => Signal self (EventM UIEvent self ())+elementOnwebkitwillrevealleft = (connect "webkitwillrevealleft")+ +elementOnwebkitwillrevealright ::+                               (IsElement self) => Signal self (EventM UIEvent self ())+elementOnwebkitwillrevealright = (connect "webkitwillrevealright")+ +elementOnwebkitwillrevealtop ::+                             (IsElement self) => Signal self (EventM UIEvent self ())+elementOnwebkitwillrevealtop = (connect "webkitwillrevealtop") #else module GHCJS.DOM.Element (   module Graphics.UI.Gtk.WebKit.DOM.Element

src/GHCJS/DOM/Event.hs view

@@ -26,52 +26,30 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"stopPropagation\"]()"         ghcjs_dom_event_stop_propagation :: JSRef Event -> IO ()-#else -ghcjs_dom_event_stop_propagation :: JSRef Event -> IO ()-ghcjs_dom_event_stop_propagation = undefined-#endif   eventStopPropagation :: (IsEvent self) => self -> IO () eventStopPropagation self   = ghcjs_dom_event_stop_propagation (unEvent (toEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"preventDefault\"]()"         ghcjs_dom_event_prevent_default :: JSRef Event -> IO ()-#else -ghcjs_dom_event_prevent_default :: JSRef Event -> IO ()-ghcjs_dom_event_prevent_default = undefined-#endif   eventPreventDefault :: (IsEvent self) => self -> IO () eventPreventDefault self   = ghcjs_dom_event_prevent_default (unEvent (toEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"initEvent\"]($2, $3, $4)"         ghcjs_dom_event_init_event ::         JSRef Event -> JSString -> Bool -> Bool -> IO ()-#else -ghcjs_dom_event_init_event ::-                             JSRef Event -> JSString -> Bool -> Bool -> IO ()-ghcjs_dom_event_init_event = undefined-#endif   eventInitEvent ::                (IsEvent self, ToJSString eventTypeArg) =>@@ -81,16 +59,10 @@       (toJSString eventTypeArg)       canBubbleArg       cancelableArg---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"stopImmediatePropagation\"]()"         ghcjs_dom_event_stop_immediate_propagation :: JSRef Event -> IO ()-#else -ghcjs_dom_event_stop_immediate_propagation :: JSRef Event -> IO ()-ghcjs_dom_event_stop_immediate_propagation = undefined-#endif   eventStopImmediatePropagation :: (IsEvent self) => self -> IO () eventStopImmediatePropagation self@@ -116,169 +88,95 @@ cBLUR = 8192 cSELECT = 16384 cCHANGE = 32768---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"target\"]"         ghcjs_dom_event_get_target :: JSRef Event -> IO (JSRef EventTarget)-#else -ghcjs_dom_event_get_target :: JSRef Event -> IO (JSRef EventTarget)-ghcjs_dom_event_get_target = undefined-#endif   eventGetTarget :: (IsEvent self) => self -> IO (Maybe EventTarget) eventGetTarget self   = fmap EventTarget . maybeJSNull <$>       (ghcjs_dom_event_get_target (unEvent (toEvent self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"currentTarget\"]"         ghcjs_dom_event_get_current_target ::         JSRef Event -> IO (JSRef EventTarget)-#else -ghcjs_dom_event_get_current_target ::-                                     JSRef Event -> IO (JSRef EventTarget)-ghcjs_dom_event_get_current_target = undefined-#endif   eventGetCurrentTarget ::                       (IsEvent self) => self -> IO (Maybe EventTarget) eventGetCurrentTarget self   = fmap EventTarget . maybeJSNull <$>       (ghcjs_dom_event_get_current_target (unEvent (toEvent self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"eventPhase\"]"         ghcjs_dom_event_get_event_phase :: JSRef Event -> IO Word-#else -ghcjs_dom_event_get_event_phase :: JSRef Event -> IO Word-ghcjs_dom_event_get_event_phase = undefined-#endif   eventGetEventPhase :: (IsEvent self) => self -> IO Word eventGetEventPhase self   = ghcjs_dom_event_get_event_phase (unEvent (toEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"bubbles\"] ? 1 : 0)"         ghcjs_dom_event_get_bubbles :: JSRef Event -> IO Bool-#else -ghcjs_dom_event_get_bubbles :: JSRef Event -> IO Bool-ghcjs_dom_event_get_bubbles = undefined-#endif   eventGetBubbles :: (IsEvent self) => self -> IO Bool eventGetBubbles self   = ghcjs_dom_event_get_bubbles (unEvent (toEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"cancelable\"] ? 1 : 0)"         ghcjs_dom_event_get_cancelable :: JSRef Event -> IO Bool-#else -ghcjs_dom_event_get_cancelable :: JSRef Event -> IO Bool-ghcjs_dom_event_get_cancelable = undefined-#endif   eventGetCancelable :: (IsEvent self) => self -> IO Bool eventGetCancelable self   = ghcjs_dom_event_get_cancelable (unEvent (toEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"timeStamp\"]"         ghcjs_dom_event_get_time_stamp :: JSRef Event -> IO Word-#else -ghcjs_dom_event_get_time_stamp :: JSRef Event -> IO Word-ghcjs_dom_event_get_time_stamp = undefined-#endif   eventGetTimeStamp :: (IsEvent self) => self -> IO Word eventGetTimeStamp self   = fromIntegral <$>       (ghcjs_dom_event_get_time_stamp (unEvent (toEvent self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"defaultPrevented\"] ? 1 : 0)"         ghcjs_dom_event_get_default_prevented :: JSRef Event -> IO Bool-#else -ghcjs_dom_event_get_default_prevented :: JSRef Event -> IO Bool-ghcjs_dom_event_get_default_prevented = undefined-#endif   eventGetDefaultPrevented :: (IsEvent self) => self -> IO Bool eventGetDefaultPrevented self   = ghcjs_dom_event_get_default_prevented (unEvent (toEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"srcElement\"]"         ghcjs_dom_event_get_src_element ::         JSRef Event -> IO (JSRef EventTarget)-#else -ghcjs_dom_event_get_src_element ::-                                  JSRef Event -> IO (JSRef EventTarget)-ghcjs_dom_event_get_src_element = undefined-#endif   eventGetSrcElement ::                    (IsEvent self) => self -> IO (Maybe EventTarget) eventGetSrcElement self   = fmap EventTarget . maybeJSNull <$>       (ghcjs_dom_event_get_src_element (unEvent (toEvent self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"returnValue\"] = $2;"         ghcjs_dom_event_set_return_value :: JSRef Event -> Bool -> IO ()-#else -ghcjs_dom_event_set_return_value :: JSRef Event -> Bool -> IO ()-ghcjs_dom_event_set_return_value = undefined-#endif   eventSetReturnValue :: (IsEvent self) => self -> Bool -> IO () eventSetReturnValue self val   = ghcjs_dom_event_set_return_value (unEvent (toEvent self)) val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"returnValue\"] ? 1 : 0)"         ghcjs_dom_event_get_return_value :: JSRef Event -> IO Bool-#else -ghcjs_dom_event_get_return_value :: JSRef Event -> IO Bool-ghcjs_dom_event_get_return_value = undefined-#endif   eventGetReturnValue :: (IsEvent self) => self -> IO Bool eventGetReturnValue self   = ghcjs_dom_event_get_return_value (unEvent (toEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"cancelBubble\"] = $2;"         ghcjs_dom_event_set_cancel_bubble :: JSRef Event -> Bool -> IO ()-#else -ghcjs_dom_event_set_cancel_bubble :: JSRef Event -> Bool -> IO ()-ghcjs_dom_event_set_cancel_bubble = undefined-#endif   eventSetCancelBubble :: (IsEvent self) => self -> Bool -> IO () eventSetCancelBubble self val   = ghcjs_dom_event_set_cancel_bubble (unEvent (toEvent self)) val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"cancelBubble\"] ? 1 : 0)"         ghcjs_dom_event_get_cancel_bubble :: JSRef Event -> IO Bool-#else -ghcjs_dom_event_get_cancel_bubble :: JSRef Event -> IO Bool-ghcjs_dom_event_get_cancel_bubble = undefined-#endif   eventGetCancelBubble :: (IsEvent self) => self -> IO Bool eventGetCancelBubble self

src/GHCJS/DOM/EventM.hs view

@@ -37,9 +37,9 @@ , mouseClientX , mouseClientY , mouseClientXY-, mouseWebkitMovementX-, mouseWebkitMovementY-, mouseWebkitMovementXY+, mouseMovementX+, mouseMovementY+, mouseMovementXY , mouseCtrlKey , mouseShiftKey , mouseAltKey@@ -193,18 +193,18 @@     y <- mouseEventGetClientY e     return (x, y) -mouseWebkitMovementX :: IsMouseEvent e => EventM e t Int-mouseWebkitMovementX = event >>= (liftIO . mouseEventGetWebkitMovementX)+mouseMovementX :: IsMouseEvent e => EventM e t Int+mouseMovementX = event >>= (liftIO . mouseEventGetMovementX) -mouseWebkitMovementY :: IsMouseEvent e => EventM e t Int-mouseWebkitMovementY = event >>= (liftIO . mouseEventGetWebkitMovementY)+mouseMovementY :: IsMouseEvent e => EventM e t Int+mouseMovementY = event >>= (liftIO . mouseEventGetMovementY) -mouseWebkitMovementXY :: IsMouseEvent e => EventM e t (Int, Int)-mouseWebkitMovementXY = do+mouseMovementXY :: IsMouseEvent e => EventM e t (Int, Int)+mouseMovementXY = do   e <- event   liftIO $ do-    x <- mouseEventGetWebkitMovementX e-    y <- mouseEventGetWebkitMovementY e+    x <- mouseEventGetMovementX e+    y <- mouseEventGetMovementY e     return (x, y)  mouseCtrlKey :: IsMouseEvent e => EventM e t Bool

src/GHCJS/DOM/File.hs view

@@ -2,54 +2,26 @@ #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.File-       (ghcjs_dom_file_get_name, fileGetName,-        ghcjs_dom_file_get_webkit_relative_path, fileGetWebkitRelativePath,-        File, IsFile, castToFile, gTypeFile, toFile)+       (ghcjs_dom_file_get_name, fileGetName, File, IsFile, castToFile,+        gTypeFile, toFile)        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_file_get_name :: JSRef File -> IO JSString-#else -ghcjs_dom_file_get_name :: JSRef File -> IO JSString-ghcjs_dom_file_get_name = undefined-#endif   fileGetName ::             (IsFile self, FromJSString result) => self -> IO result fileGetName self   = fromJSString <$> (ghcjs_dom_file_get_name (unFile (toFile self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"webkitRelativePath\"]"-        ghcjs_dom_file_get_webkit_relative_path ::-        JSRef File -> IO JSString-#else -ghcjs_dom_file_get_webkit_relative_path ::-                                          JSRef File -> IO JSString-ghcjs_dom_file_get_webkit_relative_path = undefined-#endif- -fileGetWebkitRelativePath ::-                          (IsFile self, FromJSString result) => self -> IO result-fileGetWebkitRelativePath self-  = fromJSString <$>-      (ghcjs_dom_file_get_webkit_relative_path (unFile (toFile self))) #else module GHCJS.DOM.File (   module Graphics.UI.Gtk.WebKit.DOM.File

src/GHCJS/DOM/FileList.hs view

@@ -8,43 +8,26 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_file_list_item ::         JSRef FileList -> Word -> IO (JSRef File)-#else -ghcjs_dom_file_list_item ::-                           JSRef FileList -> Word -> IO (JSRef File)-ghcjs_dom_file_list_item = undefined-#endif   fileListItem ::              (IsFileList self) => self -> Word -> IO (Maybe File) fileListItem self index   = fmap File . maybeJSNull <$>       (ghcjs_dom_file_list_item (unFileList (toFileList self)) index)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_file_list_get_length :: JSRef FileList -> IO Word-#else -ghcjs_dom_file_list_get_length :: JSRef FileList -> IO Word-ghcjs_dom_file_list_get_length = undefined-#endif   fileListGetLength :: (IsFileList self) => self -> IO Word fileListGetLength self

src/GHCJS/DOM/Geolocation.hs view

@@ -8,28 +8,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"clearWatch\"]($2)"         ghcjs_dom_geolocation_clear_watch ::         JSRef Geolocation -> Int -> IO ()-#else -ghcjs_dom_geolocation_clear_watch ::-                                    JSRef Geolocation -> Int -> IO ()-ghcjs_dom_geolocation_clear_watch = undefined-#endif   geolocationClearWatch ::                       (IsGeolocation self) => self -> Int -> IO ()

src/GHCJS/DOM/HTMLAnchorElement.hs view

@@ -57,35 +57,27 @@         ghcjs_dom_html_anchor_element_get_search,         htmlAnchorElementGetSearch,         ghcjs_dom_html_anchor_element_get_origin,-        htmlAnchorElementGetOrigin, ghcjs_dom_html_anchor_element_get_text,-        htmlAnchorElementGetText, HTMLAnchorElement, IsHTMLAnchorElement,-        castToHTMLAnchorElement, gTypeHTMLAnchorElement,-        toHTMLAnchorElement)+        htmlAnchorElementGetOrigin, ghcjs_dom_html_anchor_element_set_text,+        htmlAnchorElementSetText, ghcjs_dom_html_anchor_element_get_text,+        htmlAnchorElementGetText,+        ghcjs_dom_html_anchor_element_get_rel_list,+        htmlAnchorElementGetRelList, HTMLAnchorElement,+        IsHTMLAnchorElement, castToHTMLAnchorElement,+        gTypeHTMLAnchorElement, toHTMLAnchorElement)        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"charset\"] = $2;"         ghcjs_dom_html_anchor_element_set_charset ::         JSRef HTMLAnchorElement -> JSString -> IO ()-#else -ghcjs_dom_html_anchor_element_set_charset ::-                                            JSRef HTMLAnchorElement -> JSString -> IO ()-ghcjs_dom_html_anchor_element_set_charset = undefined-#endif   htmlAnchorElementSetCharset ::                             (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()@@ -93,17 +85,10 @@   = ghcjs_dom_html_anchor_element_set_charset       (unHTMLAnchorElement (toHTMLAnchorElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"charset\"]"         ghcjs_dom_html_anchor_element_get_charset ::         JSRef HTMLAnchorElement -> IO JSString-#else -ghcjs_dom_html_anchor_element_get_charset ::-                                            JSRef HTMLAnchorElement -> IO JSString-ghcjs_dom_html_anchor_element_get_charset = undefined-#endif   htmlAnchorElementGetCharset ::                             (IsHTMLAnchorElement self, FromJSString result) =>@@ -112,17 +97,10 @@   = fromJSString <$>       (ghcjs_dom_html_anchor_element_get_charset          (unHTMLAnchorElement (toHTMLAnchorElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"coords\"] = $2;"         ghcjs_dom_html_anchor_element_set_coords ::         JSRef HTMLAnchorElement -> JSString -> IO ()-#else -ghcjs_dom_html_anchor_element_set_coords ::-                                           JSRef HTMLAnchorElement -> JSString -> IO ()-ghcjs_dom_html_anchor_element_set_coords = undefined-#endif   htmlAnchorElementSetCoords ::                            (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()@@ -130,17 +108,10 @@   = ghcjs_dom_html_anchor_element_set_coords       (unHTMLAnchorElement (toHTMLAnchorElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"coords\"]"         ghcjs_dom_html_anchor_element_get_coords ::         JSRef HTMLAnchorElement -> IO JSString-#else -ghcjs_dom_html_anchor_element_get_coords ::-                                           JSRef HTMLAnchorElement -> IO JSString-ghcjs_dom_html_anchor_element_get_coords = undefined-#endif   htmlAnchorElementGetCoords ::                            (IsHTMLAnchorElement self, FromJSString result) =>@@ -149,17 +120,10 @@   = fromJSString <$>       (ghcjs_dom_html_anchor_element_get_coords          (unHTMLAnchorElement (toHTMLAnchorElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"download\"] = $2;"         ghcjs_dom_html_anchor_element_set_download ::         JSRef HTMLAnchorElement -> JSString -> IO ()-#else -ghcjs_dom_html_anchor_element_set_download ::-                                             JSRef HTMLAnchorElement -> JSString -> IO ()-ghcjs_dom_html_anchor_element_set_download = undefined-#endif   htmlAnchorElementSetDownload ::                              (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()@@ -167,17 +131,10 @@   = ghcjs_dom_html_anchor_element_set_download       (unHTMLAnchorElement (toHTMLAnchorElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"download\"]"         ghcjs_dom_html_anchor_element_get_download ::         JSRef HTMLAnchorElement -> IO JSString-#else -ghcjs_dom_html_anchor_element_get_download ::-                                             JSRef HTMLAnchorElement -> IO JSString-ghcjs_dom_html_anchor_element_get_download = undefined-#endif   htmlAnchorElementGetDownload ::                              (IsHTMLAnchorElement self, FromJSString result) =>@@ -186,17 +143,10 @@   = fromJSString <$>       (ghcjs_dom_html_anchor_element_get_download          (unHTMLAnchorElement (toHTMLAnchorElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"href\"] = $2;"         ghcjs_dom_html_anchor_element_set_href ::         JSRef HTMLAnchorElement -> JSString -> IO ()-#else -ghcjs_dom_html_anchor_element_set_href ::-                                         JSRef HTMLAnchorElement -> JSString -> IO ()-ghcjs_dom_html_anchor_element_set_href = undefined-#endif   htmlAnchorElementSetHref ::                          (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()@@ -204,17 +154,10 @@   = ghcjs_dom_html_anchor_element_set_href       (unHTMLAnchorElement (toHTMLAnchorElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"href\"]"         ghcjs_dom_html_anchor_element_get_href ::         JSRef HTMLAnchorElement -> IO JSString-#else -ghcjs_dom_html_anchor_element_get_href ::-                                         JSRef HTMLAnchorElement -> IO JSString-ghcjs_dom_html_anchor_element_get_href = undefined-#endif   htmlAnchorElementGetHref ::                          (IsHTMLAnchorElement self, FromJSString result) =>@@ -223,17 +166,10 @@   = fromJSString <$>       (ghcjs_dom_html_anchor_element_get_href          (unHTMLAnchorElement (toHTMLAnchorElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"hreflang\"] = $2;"         ghcjs_dom_html_anchor_element_set_hreflang ::         JSRef HTMLAnchorElement -> JSString -> IO ()-#else -ghcjs_dom_html_anchor_element_set_hreflang ::-                                             JSRef HTMLAnchorElement -> JSString -> IO ()-ghcjs_dom_html_anchor_element_set_hreflang = undefined-#endif   htmlAnchorElementSetHreflang ::                              (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()@@ -241,17 +177,10 @@   = ghcjs_dom_html_anchor_element_set_hreflang       (unHTMLAnchorElement (toHTMLAnchorElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"hreflang\"]"         ghcjs_dom_html_anchor_element_get_hreflang ::         JSRef HTMLAnchorElement -> IO JSString-#else -ghcjs_dom_html_anchor_element_get_hreflang ::-                                             JSRef HTMLAnchorElement -> IO JSString-ghcjs_dom_html_anchor_element_get_hreflang = undefined-#endif   htmlAnchorElementGetHreflang ::                              (IsHTMLAnchorElement self, FromJSString result) =>@@ -260,17 +189,10 @@   = fromJSString <$>       (ghcjs_dom_html_anchor_element_get_hreflang          (unHTMLAnchorElement (toHTMLAnchorElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_anchor_element_set_name ::         JSRef HTMLAnchorElement -> JSString -> IO ()-#else -ghcjs_dom_html_anchor_element_set_name ::-                                         JSRef HTMLAnchorElement -> JSString -> IO ()-ghcjs_dom_html_anchor_element_set_name = undefined-#endif   htmlAnchorElementSetName ::                          (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()@@ -278,17 +200,10 @@   = ghcjs_dom_html_anchor_element_set_name       (unHTMLAnchorElement (toHTMLAnchorElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_anchor_element_get_name ::         JSRef HTMLAnchorElement -> IO JSString-#else -ghcjs_dom_html_anchor_element_get_name ::-                                         JSRef HTMLAnchorElement -> IO JSString-ghcjs_dom_html_anchor_element_get_name = undefined-#endif   htmlAnchorElementGetName ::                          (IsHTMLAnchorElement self, FromJSString result) =>@@ -297,17 +212,10 @@   = fromJSString <$>       (ghcjs_dom_html_anchor_element_get_name          (unHTMLAnchorElement (toHTMLAnchorElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"ping\"] = $2;"         ghcjs_dom_html_anchor_element_set_ping ::         JSRef HTMLAnchorElement -> JSString -> IO ()-#else -ghcjs_dom_html_anchor_element_set_ping ::-                                         JSRef HTMLAnchorElement -> JSString -> IO ()-ghcjs_dom_html_anchor_element_set_ping = undefined-#endif   htmlAnchorElementSetPing ::                          (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()@@ -315,17 +223,10 @@   = ghcjs_dom_html_anchor_element_set_ping       (unHTMLAnchorElement (toHTMLAnchorElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"ping\"]"         ghcjs_dom_html_anchor_element_get_ping ::         JSRef HTMLAnchorElement -> IO JSString-#else -ghcjs_dom_html_anchor_element_get_ping ::-                                         JSRef HTMLAnchorElement -> IO JSString-ghcjs_dom_html_anchor_element_get_ping = undefined-#endif   htmlAnchorElementGetPing ::                          (IsHTMLAnchorElement self, FromJSString result) =>@@ -334,17 +235,10 @@   = fromJSString <$>       (ghcjs_dom_html_anchor_element_get_ping          (unHTMLAnchorElement (toHTMLAnchorElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"rel\"] = $2;"         ghcjs_dom_html_anchor_element_set_rel ::         JSRef HTMLAnchorElement -> JSString -> IO ()-#else -ghcjs_dom_html_anchor_element_set_rel ::-                                        JSRef HTMLAnchorElement -> JSString -> IO ()-ghcjs_dom_html_anchor_element_set_rel = undefined-#endif   htmlAnchorElementSetRel ::                         (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()@@ -352,17 +246,10 @@   = ghcjs_dom_html_anchor_element_set_rel       (unHTMLAnchorElement (toHTMLAnchorElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"rel\"]"         ghcjs_dom_html_anchor_element_get_rel ::         JSRef HTMLAnchorElement -> IO JSString-#else -ghcjs_dom_html_anchor_element_get_rel ::-                                        JSRef HTMLAnchorElement -> IO JSString-ghcjs_dom_html_anchor_element_get_rel = undefined-#endif   htmlAnchorElementGetRel ::                         (IsHTMLAnchorElement self, FromJSString result) =>@@ -371,17 +258,10 @@   = fromJSString <$>       (ghcjs_dom_html_anchor_element_get_rel          (unHTMLAnchorElement (toHTMLAnchorElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"rev\"] = $2;"         ghcjs_dom_html_anchor_element_set_rev ::         JSRef HTMLAnchorElement -> JSString -> IO ()-#else -ghcjs_dom_html_anchor_element_set_rev ::-                                        JSRef HTMLAnchorElement -> JSString -> IO ()-ghcjs_dom_html_anchor_element_set_rev = undefined-#endif   htmlAnchorElementSetRev ::                         (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()@@ -389,17 +269,10 @@   = ghcjs_dom_html_anchor_element_set_rev       (unHTMLAnchorElement (toHTMLAnchorElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"rev\"]"         ghcjs_dom_html_anchor_element_get_rev ::         JSRef HTMLAnchorElement -> IO JSString-#else -ghcjs_dom_html_anchor_element_get_rev ::-                                        JSRef HTMLAnchorElement -> IO JSString-ghcjs_dom_html_anchor_element_get_rev = undefined-#endif   htmlAnchorElementGetRev ::                         (IsHTMLAnchorElement self, FromJSString result) =>@@ -408,17 +281,10 @@   = fromJSString <$>       (ghcjs_dom_html_anchor_element_get_rev          (unHTMLAnchorElement (toHTMLAnchorElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"shape\"] = $2;"         ghcjs_dom_html_anchor_element_set_shape ::         JSRef HTMLAnchorElement -> JSString -> IO ()-#else -ghcjs_dom_html_anchor_element_set_shape ::-                                          JSRef HTMLAnchorElement -> JSString -> IO ()-ghcjs_dom_html_anchor_element_set_shape = undefined-#endif   htmlAnchorElementSetShape ::                           (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()@@ -426,17 +292,10 @@   = ghcjs_dom_html_anchor_element_set_shape       (unHTMLAnchorElement (toHTMLAnchorElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"shape\"]"         ghcjs_dom_html_anchor_element_get_shape ::         JSRef HTMLAnchorElement -> IO JSString-#else -ghcjs_dom_html_anchor_element_get_shape ::-                                          JSRef HTMLAnchorElement -> IO JSString-ghcjs_dom_html_anchor_element_get_shape = undefined-#endif   htmlAnchorElementGetShape ::                           (IsHTMLAnchorElement self, FromJSString result) =>@@ -445,17 +304,10 @@   = fromJSString <$>       (ghcjs_dom_html_anchor_element_get_shape          (unHTMLAnchorElement (toHTMLAnchorElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"target\"] = $2;"         ghcjs_dom_html_anchor_element_set_target ::         JSRef HTMLAnchorElement -> JSString -> IO ()-#else -ghcjs_dom_html_anchor_element_set_target ::-                                           JSRef HTMLAnchorElement -> JSString -> IO ()-ghcjs_dom_html_anchor_element_set_target = undefined-#endif   htmlAnchorElementSetTarget ::                            (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()@@ -463,17 +315,10 @@   = ghcjs_dom_html_anchor_element_set_target       (unHTMLAnchorElement (toHTMLAnchorElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"target\"]"         ghcjs_dom_html_anchor_element_get_target ::         JSRef HTMLAnchorElement -> IO JSString-#else -ghcjs_dom_html_anchor_element_get_target ::-                                           JSRef HTMLAnchorElement -> IO JSString-ghcjs_dom_html_anchor_element_get_target = undefined-#endif   htmlAnchorElementGetTarget ::                            (IsHTMLAnchorElement self, FromJSString result) =>@@ -482,17 +327,10 @@   = fromJSString <$>       (ghcjs_dom_html_anchor_element_get_target          (unHTMLAnchorElement (toHTMLAnchorElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"hash\"] = $2;"         ghcjs_dom_html_anchor_element_set_hash ::         JSRef HTMLAnchorElement -> JSString -> IO ()-#else -ghcjs_dom_html_anchor_element_set_hash ::-                                         JSRef HTMLAnchorElement -> JSString -> IO ()-ghcjs_dom_html_anchor_element_set_hash = undefined-#endif   htmlAnchorElementSetHash ::                          (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()@@ -500,17 +338,10 @@   = ghcjs_dom_html_anchor_element_set_hash       (unHTMLAnchorElement (toHTMLAnchorElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"hash\"]"         ghcjs_dom_html_anchor_element_get_hash ::         JSRef HTMLAnchorElement -> IO JSString-#else -ghcjs_dom_html_anchor_element_get_hash ::-                                         JSRef HTMLAnchorElement -> IO JSString-ghcjs_dom_html_anchor_element_get_hash = undefined-#endif   htmlAnchorElementGetHash ::                          (IsHTMLAnchorElement self, FromJSString result) =>@@ -519,17 +350,10 @@   = fromJSString <$>       (ghcjs_dom_html_anchor_element_get_hash          (unHTMLAnchorElement (toHTMLAnchorElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"host\"] = $2;"         ghcjs_dom_html_anchor_element_set_host ::         JSRef HTMLAnchorElement -> JSString -> IO ()-#else -ghcjs_dom_html_anchor_element_set_host ::-                                         JSRef HTMLAnchorElement -> JSString -> IO ()-ghcjs_dom_html_anchor_element_set_host = undefined-#endif   htmlAnchorElementSetHost ::                          (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()@@ -537,17 +361,10 @@   = ghcjs_dom_html_anchor_element_set_host       (unHTMLAnchorElement (toHTMLAnchorElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"host\"]"         ghcjs_dom_html_anchor_element_get_host ::         JSRef HTMLAnchorElement -> IO JSString-#else -ghcjs_dom_html_anchor_element_get_host ::-                                         JSRef HTMLAnchorElement -> IO JSString-ghcjs_dom_html_anchor_element_get_host = undefined-#endif   htmlAnchorElementGetHost ::                          (IsHTMLAnchorElement self, FromJSString result) =>@@ -556,17 +373,10 @@   = fromJSString <$>       (ghcjs_dom_html_anchor_element_get_host          (unHTMLAnchorElement (toHTMLAnchorElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"hostname\"] = $2;"         ghcjs_dom_html_anchor_element_set_hostname ::         JSRef HTMLAnchorElement -> JSString -> IO ()-#else -ghcjs_dom_html_anchor_element_set_hostname ::-                                             JSRef HTMLAnchorElement -> JSString -> IO ()-ghcjs_dom_html_anchor_element_set_hostname = undefined-#endif   htmlAnchorElementSetHostname ::                              (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()@@ -574,17 +384,10 @@   = ghcjs_dom_html_anchor_element_set_hostname       (unHTMLAnchorElement (toHTMLAnchorElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"hostname\"]"         ghcjs_dom_html_anchor_element_get_hostname ::         JSRef HTMLAnchorElement -> IO JSString-#else -ghcjs_dom_html_anchor_element_get_hostname ::-                                             JSRef HTMLAnchorElement -> IO JSString-ghcjs_dom_html_anchor_element_get_hostname = undefined-#endif   htmlAnchorElementGetHostname ::                              (IsHTMLAnchorElement self, FromJSString result) =>@@ -593,17 +396,10 @@   = fromJSString <$>       (ghcjs_dom_html_anchor_element_get_hostname          (unHTMLAnchorElement (toHTMLAnchorElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"pathname\"] = $2;"         ghcjs_dom_html_anchor_element_set_pathname ::         JSRef HTMLAnchorElement -> JSString -> IO ()-#else -ghcjs_dom_html_anchor_element_set_pathname ::-                                             JSRef HTMLAnchorElement -> JSString -> IO ()-ghcjs_dom_html_anchor_element_set_pathname = undefined-#endif   htmlAnchorElementSetPathname ::                              (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()@@ -611,17 +407,10 @@   = ghcjs_dom_html_anchor_element_set_pathname       (unHTMLAnchorElement (toHTMLAnchorElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"pathname\"]"         ghcjs_dom_html_anchor_element_get_pathname ::         JSRef HTMLAnchorElement -> IO JSString-#else -ghcjs_dom_html_anchor_element_get_pathname ::-                                             JSRef HTMLAnchorElement -> IO JSString-ghcjs_dom_html_anchor_element_get_pathname = undefined-#endif   htmlAnchorElementGetPathname ::                              (IsHTMLAnchorElement self, FromJSString result) =>@@ -630,17 +419,10 @@   = fromJSString <$>       (ghcjs_dom_html_anchor_element_get_pathname          (unHTMLAnchorElement (toHTMLAnchorElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"port\"] = $2;"         ghcjs_dom_html_anchor_element_set_port ::         JSRef HTMLAnchorElement -> JSString -> IO ()-#else -ghcjs_dom_html_anchor_element_set_port ::-                                         JSRef HTMLAnchorElement -> JSString -> IO ()-ghcjs_dom_html_anchor_element_set_port = undefined-#endif   htmlAnchorElementSetPort ::                          (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()@@ -648,17 +430,10 @@   = ghcjs_dom_html_anchor_element_set_port       (unHTMLAnchorElement (toHTMLAnchorElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"port\"]"         ghcjs_dom_html_anchor_element_get_port ::         JSRef HTMLAnchorElement -> IO JSString-#else -ghcjs_dom_html_anchor_element_get_port ::-                                         JSRef HTMLAnchorElement -> IO JSString-ghcjs_dom_html_anchor_element_get_port = undefined-#endif   htmlAnchorElementGetPort ::                          (IsHTMLAnchorElement self, FromJSString result) =>@@ -667,17 +442,10 @@   = fromJSString <$>       (ghcjs_dom_html_anchor_element_get_port          (unHTMLAnchorElement (toHTMLAnchorElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"protocol\"] = $2;"         ghcjs_dom_html_anchor_element_set_protocol ::         JSRef HTMLAnchorElement -> JSString -> IO ()-#else -ghcjs_dom_html_anchor_element_set_protocol ::-                                             JSRef HTMLAnchorElement -> JSString -> IO ()-ghcjs_dom_html_anchor_element_set_protocol = undefined-#endif   htmlAnchorElementSetProtocol ::                              (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()@@ -685,17 +453,10 @@   = ghcjs_dom_html_anchor_element_set_protocol       (unHTMLAnchorElement (toHTMLAnchorElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"protocol\"]"         ghcjs_dom_html_anchor_element_get_protocol ::         JSRef HTMLAnchorElement -> IO JSString-#else -ghcjs_dom_html_anchor_element_get_protocol ::-                                             JSRef HTMLAnchorElement -> IO JSString-ghcjs_dom_html_anchor_element_get_protocol = undefined-#endif   htmlAnchorElementGetProtocol ::                              (IsHTMLAnchorElement self, FromJSString result) =>@@ -704,17 +465,10 @@   = fromJSString <$>       (ghcjs_dom_html_anchor_element_get_protocol          (unHTMLAnchorElement (toHTMLAnchorElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"search\"] = $2;"         ghcjs_dom_html_anchor_element_set_search ::         JSRef HTMLAnchorElement -> JSString -> IO ()-#else -ghcjs_dom_html_anchor_element_set_search ::-                                           JSRef HTMLAnchorElement -> JSString -> IO ()-ghcjs_dom_html_anchor_element_set_search = undefined-#endif   htmlAnchorElementSetSearch ::                            (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()@@ -722,17 +476,10 @@   = ghcjs_dom_html_anchor_element_set_search       (unHTMLAnchorElement (toHTMLAnchorElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"search\"]"         ghcjs_dom_html_anchor_element_get_search ::         JSRef HTMLAnchorElement -> IO JSString-#else -ghcjs_dom_html_anchor_element_get_search ::-                                           JSRef HTMLAnchorElement -> IO JSString-ghcjs_dom_html_anchor_element_get_search = undefined-#endif   htmlAnchorElementGetSearch ::                            (IsHTMLAnchorElement self, FromJSString result) =>@@ -741,17 +488,10 @@   = fromJSString <$>       (ghcjs_dom_html_anchor_element_get_search          (unHTMLAnchorElement (toHTMLAnchorElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"origin\"]"         ghcjs_dom_html_anchor_element_get_origin ::         JSRef HTMLAnchorElement -> IO JSString-#else -ghcjs_dom_html_anchor_element_get_origin ::-                                           JSRef HTMLAnchorElement -> IO JSString-ghcjs_dom_html_anchor_element_get_origin = undefined-#endif   htmlAnchorElementGetOrigin ::                            (IsHTMLAnchorElement self, FromJSString result) =>@@ -760,17 +500,21 @@   = fromJSString <$>       (ghcjs_dom_html_anchor_element_get_origin          (unHTMLAnchorElement (toHTMLAnchorElement self)))---#ifdef ghcjs_HOST_OS + +foreign import javascript unsafe "$1[\"text\"] = $2;"+        ghcjs_dom_html_anchor_element_set_text ::+        JSRef HTMLAnchorElement -> JSString -> IO ()+ +htmlAnchorElementSetText ::+                         (IsHTMLAnchorElement self, ToJSString val) => self -> val -> IO ()+htmlAnchorElementSetText self val+  = ghcjs_dom_html_anchor_element_set_text+      (unHTMLAnchorElement (toHTMLAnchorElement self))+      (toJSString val)+  foreign import javascript unsafe "$1[\"text\"]"         ghcjs_dom_html_anchor_element_get_text ::         JSRef HTMLAnchorElement -> IO JSString-#else -ghcjs_dom_html_anchor_element_get_text ::-                                         JSRef HTMLAnchorElement -> IO JSString-ghcjs_dom_html_anchor_element_get_text = undefined-#endif   htmlAnchorElementGetText ::                          (IsHTMLAnchorElement self, FromJSString result) =>@@ -778,6 +522,17 @@ htmlAnchorElementGetText self   = fromJSString <$>       (ghcjs_dom_html_anchor_element_get_text+         (unHTMLAnchorElement (toHTMLAnchorElement self)))+ +foreign import javascript unsafe "$1[\"relList\"]"+        ghcjs_dom_html_anchor_element_get_rel_list ::+        JSRef HTMLAnchorElement -> IO (JSRef DOMTokenList)+ +htmlAnchorElementGetRelList ::+                            (IsHTMLAnchorElement self) => self -> IO (Maybe DOMTokenList)+htmlAnchorElementGetRelList self+  = fmap DOMTokenList . maybeJSNull <$>+      (ghcjs_dom_html_anchor_element_get_rel_list          (unHTMLAnchorElement (toHTMLAnchorElement self))) #else module GHCJS.DOM.HTMLAnchorElement (

src/GHCJS/DOM/HTMLAppletElement.hs view

@@ -40,28 +40,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_applet_element_set_align ::         JSRef HTMLAppletElement -> JSString -> IO ()-#else -ghcjs_dom_html_applet_element_set_align ::-                                          JSRef HTMLAppletElement -> JSString -> IO ()-ghcjs_dom_html_applet_element_set_align = undefined-#endif   htmlAppletElementSetAlign ::                           (IsHTMLAppletElement self, ToJSString val) => self -> val -> IO ()@@ -69,17 +58,10 @@   = ghcjs_dom_html_applet_element_set_align       (unHTMLAppletElement (toHTMLAppletElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_applet_element_get_align ::         JSRef HTMLAppletElement -> IO JSString-#else -ghcjs_dom_html_applet_element_get_align ::-                                          JSRef HTMLAppletElement -> IO JSString-ghcjs_dom_html_applet_element_get_align = undefined-#endif   htmlAppletElementGetAlign ::                           (IsHTMLAppletElement self, FromJSString result) =>@@ -88,17 +70,10 @@   = fromJSString <$>       (ghcjs_dom_html_applet_element_get_align          (unHTMLAppletElement (toHTMLAppletElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"alt\"] = $2;"         ghcjs_dom_html_applet_element_set_alt ::         JSRef HTMLAppletElement -> JSString -> IO ()-#else -ghcjs_dom_html_applet_element_set_alt ::-                                        JSRef HTMLAppletElement -> JSString -> IO ()-ghcjs_dom_html_applet_element_set_alt = undefined-#endif   htmlAppletElementSetAlt ::                         (IsHTMLAppletElement self, ToJSString val) => self -> val -> IO ()@@ -106,17 +81,10 @@   = ghcjs_dom_html_applet_element_set_alt       (unHTMLAppletElement (toHTMLAppletElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"alt\"]"         ghcjs_dom_html_applet_element_get_alt ::         JSRef HTMLAppletElement -> IO JSString-#else -ghcjs_dom_html_applet_element_get_alt ::-                                        JSRef HTMLAppletElement -> IO JSString-ghcjs_dom_html_applet_element_get_alt = undefined-#endif   htmlAppletElementGetAlt ::                         (IsHTMLAppletElement self, FromJSString result) =>@@ -125,17 +93,10 @@   = fromJSString <$>       (ghcjs_dom_html_applet_element_get_alt          (unHTMLAppletElement (toHTMLAppletElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"archive\"] = $2;"         ghcjs_dom_html_applet_element_set_archive ::         JSRef HTMLAppletElement -> JSString -> IO ()-#else -ghcjs_dom_html_applet_element_set_archive ::-                                            JSRef HTMLAppletElement -> JSString -> IO ()-ghcjs_dom_html_applet_element_set_archive = undefined-#endif   htmlAppletElementSetArchive ::                             (IsHTMLAppletElement self, ToJSString val) => self -> val -> IO ()@@ -143,17 +104,10 @@   = ghcjs_dom_html_applet_element_set_archive       (unHTMLAppletElement (toHTMLAppletElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"archive\"]"         ghcjs_dom_html_applet_element_get_archive ::         JSRef HTMLAppletElement -> IO JSString-#else -ghcjs_dom_html_applet_element_get_archive ::-                                            JSRef HTMLAppletElement -> IO JSString-ghcjs_dom_html_applet_element_get_archive = undefined-#endif   htmlAppletElementGetArchive ::                             (IsHTMLAppletElement self, FromJSString result) =>@@ -162,17 +116,10 @@   = fromJSString <$>       (ghcjs_dom_html_applet_element_get_archive          (unHTMLAppletElement (toHTMLAppletElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"code\"] = $2;"         ghcjs_dom_html_applet_element_set_code ::         JSRef HTMLAppletElement -> JSString -> IO ()-#else -ghcjs_dom_html_applet_element_set_code ::-                                         JSRef HTMLAppletElement -> JSString -> IO ()-ghcjs_dom_html_applet_element_set_code = undefined-#endif   htmlAppletElementSetCode ::                          (IsHTMLAppletElement self, ToJSString val) => self -> val -> IO ()@@ -180,17 +127,10 @@   = ghcjs_dom_html_applet_element_set_code       (unHTMLAppletElement (toHTMLAppletElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"code\"]"         ghcjs_dom_html_applet_element_get_code ::         JSRef HTMLAppletElement -> IO JSString-#else -ghcjs_dom_html_applet_element_get_code ::-                                         JSRef HTMLAppletElement -> IO JSString-ghcjs_dom_html_applet_element_get_code = undefined-#endif   htmlAppletElementGetCode ::                          (IsHTMLAppletElement self, FromJSString result) =>@@ -199,17 +139,10 @@   = fromJSString <$>       (ghcjs_dom_html_applet_element_get_code          (unHTMLAppletElement (toHTMLAppletElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"codeBase\"] = $2;"         ghcjs_dom_html_applet_element_set_code_base ::         JSRef HTMLAppletElement -> JSString -> IO ()-#else -ghcjs_dom_html_applet_element_set_code_base ::-                                              JSRef HTMLAppletElement -> JSString -> IO ()-ghcjs_dom_html_applet_element_set_code_base = undefined-#endif   htmlAppletElementSetCodeBase ::                              (IsHTMLAppletElement self, ToJSString val) => self -> val -> IO ()@@ -217,17 +150,10 @@   = ghcjs_dom_html_applet_element_set_code_base       (unHTMLAppletElement (toHTMLAppletElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"codeBase\"]"         ghcjs_dom_html_applet_element_get_code_base ::         JSRef HTMLAppletElement -> IO JSString-#else -ghcjs_dom_html_applet_element_get_code_base ::-                                              JSRef HTMLAppletElement -> IO JSString-ghcjs_dom_html_applet_element_get_code_base = undefined-#endif   htmlAppletElementGetCodeBase ::                              (IsHTMLAppletElement self, FromJSString result) =>@@ -236,17 +162,10 @@   = fromJSString <$>       (ghcjs_dom_html_applet_element_get_code_base          (unHTMLAppletElement (toHTMLAppletElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"height\"] = $2;"         ghcjs_dom_html_applet_element_set_height ::         JSRef HTMLAppletElement -> JSString -> IO ()-#else -ghcjs_dom_html_applet_element_set_height ::-                                           JSRef HTMLAppletElement -> JSString -> IO ()-ghcjs_dom_html_applet_element_set_height = undefined-#endif   htmlAppletElementSetHeight ::                            (IsHTMLAppletElement self, ToJSString val) => self -> val -> IO ()@@ -254,17 +173,10 @@   = ghcjs_dom_html_applet_element_set_height       (unHTMLAppletElement (toHTMLAppletElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_applet_element_get_height ::         JSRef HTMLAppletElement -> IO JSString-#else -ghcjs_dom_html_applet_element_get_height ::-                                           JSRef HTMLAppletElement -> IO JSString-ghcjs_dom_html_applet_element_get_height = undefined-#endif   htmlAppletElementGetHeight ::                            (IsHTMLAppletElement self, FromJSString result) =>@@ -273,17 +185,10 @@   = fromJSString <$>       (ghcjs_dom_html_applet_element_get_height          (unHTMLAppletElement (toHTMLAppletElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"hspace\"] = $2;"         ghcjs_dom_html_applet_element_set_hspace ::         JSRef HTMLAppletElement -> Int -> IO ()-#else -ghcjs_dom_html_applet_element_set_hspace ::-                                           JSRef HTMLAppletElement -> Int -> IO ()-ghcjs_dom_html_applet_element_set_hspace = undefined-#endif   htmlAppletElementSetHspace ::                            (IsHTMLAppletElement self) => self -> Int -> IO ()@@ -291,34 +196,20 @@   = ghcjs_dom_html_applet_element_set_hspace       (unHTMLAppletElement (toHTMLAppletElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"hspace\"]"         ghcjs_dom_html_applet_element_get_hspace ::         JSRef HTMLAppletElement -> IO Int-#else -ghcjs_dom_html_applet_element_get_hspace ::-                                           JSRef HTMLAppletElement -> IO Int-ghcjs_dom_html_applet_element_get_hspace = undefined-#endif   htmlAppletElementGetHspace ::                            (IsHTMLAppletElement self) => self -> IO Int htmlAppletElementGetHspace self   = ghcjs_dom_html_applet_element_get_hspace       (unHTMLAppletElement (toHTMLAppletElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_applet_element_set_name ::         JSRef HTMLAppletElement -> JSString -> IO ()-#else -ghcjs_dom_html_applet_element_set_name ::-                                         JSRef HTMLAppletElement -> JSString -> IO ()-ghcjs_dom_html_applet_element_set_name = undefined-#endif   htmlAppletElementSetName ::                          (IsHTMLAppletElement self, ToJSString val) => self -> val -> IO ()@@ -326,17 +217,10 @@   = ghcjs_dom_html_applet_element_set_name       (unHTMLAppletElement (toHTMLAppletElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_applet_element_get_name ::         JSRef HTMLAppletElement -> IO JSString-#else -ghcjs_dom_html_applet_element_get_name ::-                                         JSRef HTMLAppletElement -> IO JSString-ghcjs_dom_html_applet_element_get_name = undefined-#endif   htmlAppletElementGetName ::                          (IsHTMLAppletElement self, FromJSString result) =>@@ -345,17 +229,10 @@   = fromJSString <$>       (ghcjs_dom_html_applet_element_get_name          (unHTMLAppletElement (toHTMLAppletElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"object\"] = $2;"         ghcjs_dom_html_applet_element_set_object ::         JSRef HTMLAppletElement -> JSString -> IO ()-#else -ghcjs_dom_html_applet_element_set_object ::-                                           JSRef HTMLAppletElement -> JSString -> IO ()-ghcjs_dom_html_applet_element_set_object = undefined-#endif   htmlAppletElementSetObject ::                            (IsHTMLAppletElement self, ToJSString val) => self -> val -> IO ()@@ -363,17 +240,10 @@   = ghcjs_dom_html_applet_element_set_object       (unHTMLAppletElement (toHTMLAppletElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"object\"]"         ghcjs_dom_html_applet_element_get_object ::         JSRef HTMLAppletElement -> IO JSString-#else -ghcjs_dom_html_applet_element_get_object ::-                                           JSRef HTMLAppletElement -> IO JSString-ghcjs_dom_html_applet_element_get_object = undefined-#endif   htmlAppletElementGetObject ::                            (IsHTMLAppletElement self, FromJSString result) =>@@ -382,17 +252,10 @@   = fromJSString <$>       (ghcjs_dom_html_applet_element_get_object          (unHTMLAppletElement (toHTMLAppletElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"vspace\"] = $2;"         ghcjs_dom_html_applet_element_set_vspace ::         JSRef HTMLAppletElement -> Int -> IO ()-#else -ghcjs_dom_html_applet_element_set_vspace ::-                                           JSRef HTMLAppletElement -> Int -> IO ()-ghcjs_dom_html_applet_element_set_vspace = undefined-#endif   htmlAppletElementSetVspace ::                            (IsHTMLAppletElement self) => self -> Int -> IO ()@@ -400,34 +263,20 @@   = ghcjs_dom_html_applet_element_set_vspace       (unHTMLAppletElement (toHTMLAppletElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"vspace\"]"         ghcjs_dom_html_applet_element_get_vspace ::         JSRef HTMLAppletElement -> IO Int-#else -ghcjs_dom_html_applet_element_get_vspace ::-                                           JSRef HTMLAppletElement -> IO Int-ghcjs_dom_html_applet_element_get_vspace = undefined-#endif   htmlAppletElementGetVspace ::                            (IsHTMLAppletElement self) => self -> IO Int htmlAppletElementGetVspace self   = ghcjs_dom_html_applet_element_get_vspace       (unHTMLAppletElement (toHTMLAppletElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_applet_element_set_width ::         JSRef HTMLAppletElement -> JSString -> IO ()-#else -ghcjs_dom_html_applet_element_set_width ::-                                          JSRef HTMLAppletElement -> JSString -> IO ()-ghcjs_dom_html_applet_element_set_width = undefined-#endif   htmlAppletElementSetWidth ::                           (IsHTMLAppletElement self, ToJSString val) => self -> val -> IO ()@@ -435,17 +284,10 @@   = ghcjs_dom_html_applet_element_set_width       (unHTMLAppletElement (toHTMLAppletElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_applet_element_get_width ::         JSRef HTMLAppletElement -> IO JSString-#else -ghcjs_dom_html_applet_element_get_width ::-                                          JSRef HTMLAppletElement -> IO JSString-ghcjs_dom_html_applet_element_get_width = undefined-#endif   htmlAppletElementGetWidth ::                           (IsHTMLAppletElement self, FromJSString result) =>

src/GHCJS/DOM/HTMLAreaElement.hs view

@@ -12,6 +12,8 @@         ghcjs_dom_html_area_element_get_no_href, htmlAreaElementGetNoHref,         ghcjs_dom_html_area_element_set_ping, htmlAreaElementSetPing,         ghcjs_dom_html_area_element_get_ping, htmlAreaElementGetPing,+        ghcjs_dom_html_area_element_set_rel, htmlAreaElementSetRel,+        ghcjs_dom_html_area_element_get_rel, htmlAreaElementGetRel,         ghcjs_dom_html_area_element_set_shape, htmlAreaElementSetShape,         ghcjs_dom_html_area_element_get_shape, htmlAreaElementGetShape,         ghcjs_dom_html_area_element_set_target, htmlAreaElementSetTarget,@@ -24,33 +26,23 @@         htmlAreaElementGetPathname, ghcjs_dom_html_area_element_get_port,         htmlAreaElementGetPort, ghcjs_dom_html_area_element_get_protocol,         htmlAreaElementGetProtocol, ghcjs_dom_html_area_element_get_search,-        htmlAreaElementGetSearch, HTMLAreaElement, IsHTMLAreaElement,+        htmlAreaElementGetSearch, ghcjs_dom_html_area_element_get_rel_list,+        htmlAreaElementGetRelList, HTMLAreaElement, IsHTMLAreaElement,         castToHTMLAreaElement, gTypeHTMLAreaElement, toHTMLAreaElement)        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"alt\"] = $2;"         ghcjs_dom_html_area_element_set_alt ::         JSRef HTMLAreaElement -> JSString -> IO ()-#else -ghcjs_dom_html_area_element_set_alt ::-                                      JSRef HTMLAreaElement -> JSString -> IO ()-ghcjs_dom_html_area_element_set_alt = undefined-#endif   htmlAreaElementSetAlt ::                       (IsHTMLAreaElement self, ToJSString val) => self -> val -> IO ()@@ -58,17 +50,10 @@   = ghcjs_dom_html_area_element_set_alt       (unHTMLAreaElement (toHTMLAreaElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"alt\"]"         ghcjs_dom_html_area_element_get_alt ::         JSRef HTMLAreaElement -> IO JSString-#else -ghcjs_dom_html_area_element_get_alt ::-                                      JSRef HTMLAreaElement -> IO JSString-ghcjs_dom_html_area_element_get_alt = undefined-#endif   htmlAreaElementGetAlt ::                       (IsHTMLAreaElement self, FromJSString result) => self -> IO result@@ -76,17 +61,10 @@   = fromJSString <$>       (ghcjs_dom_html_area_element_get_alt          (unHTMLAreaElement (toHTMLAreaElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"coords\"] = $2;"         ghcjs_dom_html_area_element_set_coords ::         JSRef HTMLAreaElement -> JSString -> IO ()-#else -ghcjs_dom_html_area_element_set_coords ::-                                         JSRef HTMLAreaElement -> JSString -> IO ()-ghcjs_dom_html_area_element_set_coords = undefined-#endif   htmlAreaElementSetCoords ::                          (IsHTMLAreaElement self, ToJSString val) => self -> val -> IO ()@@ -94,17 +72,10 @@   = ghcjs_dom_html_area_element_set_coords       (unHTMLAreaElement (toHTMLAreaElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"coords\"]"         ghcjs_dom_html_area_element_get_coords ::         JSRef HTMLAreaElement -> IO JSString-#else -ghcjs_dom_html_area_element_get_coords ::-                                         JSRef HTMLAreaElement -> IO JSString-ghcjs_dom_html_area_element_get_coords = undefined-#endif   htmlAreaElementGetCoords ::                          (IsHTMLAreaElement self, FromJSString result) => self -> IO result@@ -112,17 +83,10 @@   = fromJSString <$>       (ghcjs_dom_html_area_element_get_coords          (unHTMLAreaElement (toHTMLAreaElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"href\"] = $2;"         ghcjs_dom_html_area_element_set_href ::         JSRef HTMLAreaElement -> JSString -> IO ()-#else -ghcjs_dom_html_area_element_set_href ::-                                       JSRef HTMLAreaElement -> JSString -> IO ()-ghcjs_dom_html_area_element_set_href = undefined-#endif   htmlAreaElementSetHref ::                        (IsHTMLAreaElement self, ToJSString val) => self -> val -> IO ()@@ -130,17 +94,10 @@   = ghcjs_dom_html_area_element_set_href       (unHTMLAreaElement (toHTMLAreaElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"href\"]"         ghcjs_dom_html_area_element_get_href ::         JSRef HTMLAreaElement -> IO JSString-#else -ghcjs_dom_html_area_element_get_href ::-                                       JSRef HTMLAreaElement -> IO JSString-ghcjs_dom_html_area_element_get_href = undefined-#endif   htmlAreaElementGetHref ::                        (IsHTMLAreaElement self, FromJSString result) => self -> IO result@@ -148,17 +105,10 @@   = fromJSString <$>       (ghcjs_dom_html_area_element_get_href          (unHTMLAreaElement (toHTMLAreaElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"noHref\"] = $2;"         ghcjs_dom_html_area_element_set_no_href ::         JSRef HTMLAreaElement -> Bool -> IO ()-#else -ghcjs_dom_html_area_element_set_no_href ::-                                          JSRef HTMLAreaElement -> Bool -> IO ()-ghcjs_dom_html_area_element_set_no_href = undefined-#endif   htmlAreaElementSetNoHref ::                          (IsHTMLAreaElement self) => self -> Bool -> IO ()@@ -166,34 +116,20 @@   = ghcjs_dom_html_area_element_set_no_href       (unHTMLAreaElement (toHTMLAreaElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"noHref\"] ? 1 : 0)"         ghcjs_dom_html_area_element_get_no_href ::         JSRef HTMLAreaElement -> IO Bool-#else -ghcjs_dom_html_area_element_get_no_href ::-                                          JSRef HTMLAreaElement -> IO Bool-ghcjs_dom_html_area_element_get_no_href = undefined-#endif   htmlAreaElementGetNoHref ::                          (IsHTMLAreaElement self) => self -> IO Bool htmlAreaElementGetNoHref self   = ghcjs_dom_html_area_element_get_no_href       (unHTMLAreaElement (toHTMLAreaElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"ping\"] = $2;"         ghcjs_dom_html_area_element_set_ping ::         JSRef HTMLAreaElement -> JSString -> IO ()-#else -ghcjs_dom_html_area_element_set_ping ::-                                       JSRef HTMLAreaElement -> JSString -> IO ()-ghcjs_dom_html_area_element_set_ping = undefined-#endif   htmlAreaElementSetPing ::                        (IsHTMLAreaElement self, ToJSString val) => self -> val -> IO ()@@ -201,17 +137,10 @@   = ghcjs_dom_html_area_element_set_ping       (unHTMLAreaElement (toHTMLAreaElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"ping\"]"         ghcjs_dom_html_area_element_get_ping ::         JSRef HTMLAreaElement -> IO JSString-#else -ghcjs_dom_html_area_element_get_ping ::-                                       JSRef HTMLAreaElement -> IO JSString-ghcjs_dom_html_area_element_get_ping = undefined-#endif   htmlAreaElementGetPing ::                        (IsHTMLAreaElement self, FromJSString result) => self -> IO result@@ -219,17 +148,32 @@   = fromJSString <$>       (ghcjs_dom_html_area_element_get_ping          (unHTMLAreaElement (toHTMLAreaElement self)))---#ifdef ghcjs_HOST_OS + +foreign import javascript unsafe "$1[\"rel\"] = $2;"+        ghcjs_dom_html_area_element_set_rel ::+        JSRef HTMLAreaElement -> JSString -> IO ()+ +htmlAreaElementSetRel ::+                      (IsHTMLAreaElement self, ToJSString val) => self -> val -> IO ()+htmlAreaElementSetRel self val+  = ghcjs_dom_html_area_element_set_rel+      (unHTMLAreaElement (toHTMLAreaElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"rel\"]"+        ghcjs_dom_html_area_element_get_rel ::+        JSRef HTMLAreaElement -> IO JSString+ +htmlAreaElementGetRel ::+                      (IsHTMLAreaElement self, FromJSString result) => self -> IO result+htmlAreaElementGetRel self+  = fromJSString <$>+      (ghcjs_dom_html_area_element_get_rel+         (unHTMLAreaElement (toHTMLAreaElement self)))+  foreign import javascript unsafe "$1[\"shape\"] = $2;"         ghcjs_dom_html_area_element_set_shape ::         JSRef HTMLAreaElement -> JSString -> IO ()-#else -ghcjs_dom_html_area_element_set_shape ::-                                        JSRef HTMLAreaElement -> JSString -> IO ()-ghcjs_dom_html_area_element_set_shape = undefined-#endif   htmlAreaElementSetShape ::                         (IsHTMLAreaElement self, ToJSString val) => self -> val -> IO ()@@ -237,17 +181,10 @@   = ghcjs_dom_html_area_element_set_shape       (unHTMLAreaElement (toHTMLAreaElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"shape\"]"         ghcjs_dom_html_area_element_get_shape ::         JSRef HTMLAreaElement -> IO JSString-#else -ghcjs_dom_html_area_element_get_shape ::-                                        JSRef HTMLAreaElement -> IO JSString-ghcjs_dom_html_area_element_get_shape = undefined-#endif   htmlAreaElementGetShape ::                         (IsHTMLAreaElement self, FromJSString result) => self -> IO result@@ -255,17 +192,10 @@   = fromJSString <$>       (ghcjs_dom_html_area_element_get_shape          (unHTMLAreaElement (toHTMLAreaElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"target\"] = $2;"         ghcjs_dom_html_area_element_set_target ::         JSRef HTMLAreaElement -> JSString -> IO ()-#else -ghcjs_dom_html_area_element_set_target ::-                                         JSRef HTMLAreaElement -> JSString -> IO ()-ghcjs_dom_html_area_element_set_target = undefined-#endif   htmlAreaElementSetTarget ::                          (IsHTMLAreaElement self, ToJSString val) => self -> val -> IO ()@@ -273,17 +203,10 @@   = ghcjs_dom_html_area_element_set_target       (unHTMLAreaElement (toHTMLAreaElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"target\"]"         ghcjs_dom_html_area_element_get_target ::         JSRef HTMLAreaElement -> IO JSString-#else -ghcjs_dom_html_area_element_get_target ::-                                         JSRef HTMLAreaElement -> IO JSString-ghcjs_dom_html_area_element_get_target = undefined-#endif   htmlAreaElementGetTarget ::                          (IsHTMLAreaElement self, FromJSString result) => self -> IO result@@ -291,17 +214,10 @@   = fromJSString <$>       (ghcjs_dom_html_area_element_get_target          (unHTMLAreaElement (toHTMLAreaElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"hash\"]"         ghcjs_dom_html_area_element_get_hash ::         JSRef HTMLAreaElement -> IO JSString-#else -ghcjs_dom_html_area_element_get_hash ::-                                       JSRef HTMLAreaElement -> IO JSString-ghcjs_dom_html_area_element_get_hash = undefined-#endif   htmlAreaElementGetHash ::                        (IsHTMLAreaElement self, FromJSString result) => self -> IO result@@ -309,17 +225,10 @@   = fromJSString <$>       (ghcjs_dom_html_area_element_get_hash          (unHTMLAreaElement (toHTMLAreaElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"host\"]"         ghcjs_dom_html_area_element_get_host ::         JSRef HTMLAreaElement -> IO JSString-#else -ghcjs_dom_html_area_element_get_host ::-                                       JSRef HTMLAreaElement -> IO JSString-ghcjs_dom_html_area_element_get_host = undefined-#endif   htmlAreaElementGetHost ::                        (IsHTMLAreaElement self, FromJSString result) => self -> IO result@@ -327,17 +236,10 @@   = fromJSString <$>       (ghcjs_dom_html_area_element_get_host          (unHTMLAreaElement (toHTMLAreaElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"hostname\"]"         ghcjs_dom_html_area_element_get_hostname ::         JSRef HTMLAreaElement -> IO JSString-#else -ghcjs_dom_html_area_element_get_hostname ::-                                           JSRef HTMLAreaElement -> IO JSString-ghcjs_dom_html_area_element_get_hostname = undefined-#endif   htmlAreaElementGetHostname ::                            (IsHTMLAreaElement self, FromJSString result) => self -> IO result@@ -345,17 +247,10 @@   = fromJSString <$>       (ghcjs_dom_html_area_element_get_hostname          (unHTMLAreaElement (toHTMLAreaElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"pathname\"]"         ghcjs_dom_html_area_element_get_pathname ::         JSRef HTMLAreaElement -> IO JSString-#else -ghcjs_dom_html_area_element_get_pathname ::-                                           JSRef HTMLAreaElement -> IO JSString-ghcjs_dom_html_area_element_get_pathname = undefined-#endif   htmlAreaElementGetPathname ::                            (IsHTMLAreaElement self, FromJSString result) => self -> IO result@@ -363,17 +258,10 @@   = fromJSString <$>       (ghcjs_dom_html_area_element_get_pathname          (unHTMLAreaElement (toHTMLAreaElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"port\"]"         ghcjs_dom_html_area_element_get_port ::         JSRef HTMLAreaElement -> IO JSString-#else -ghcjs_dom_html_area_element_get_port ::-                                       JSRef HTMLAreaElement -> IO JSString-ghcjs_dom_html_area_element_get_port = undefined-#endif   htmlAreaElementGetPort ::                        (IsHTMLAreaElement self, FromJSString result) => self -> IO result@@ -381,17 +269,10 @@   = fromJSString <$>       (ghcjs_dom_html_area_element_get_port          (unHTMLAreaElement (toHTMLAreaElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"protocol\"]"         ghcjs_dom_html_area_element_get_protocol ::         JSRef HTMLAreaElement -> IO JSString-#else -ghcjs_dom_html_area_element_get_protocol ::-                                           JSRef HTMLAreaElement -> IO JSString-ghcjs_dom_html_area_element_get_protocol = undefined-#endif   htmlAreaElementGetProtocol ::                            (IsHTMLAreaElement self, FromJSString result) => self -> IO result@@ -399,23 +280,27 @@   = fromJSString <$>       (ghcjs_dom_html_area_element_get_protocol          (unHTMLAreaElement (toHTMLAreaElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"search\"]"         ghcjs_dom_html_area_element_get_search ::         JSRef HTMLAreaElement -> IO JSString-#else -ghcjs_dom_html_area_element_get_search ::-                                         JSRef HTMLAreaElement -> IO JSString-ghcjs_dom_html_area_element_get_search = undefined-#endif   htmlAreaElementGetSearch ::                          (IsHTMLAreaElement self, FromJSString result) => self -> IO result htmlAreaElementGetSearch self   = fromJSString <$>       (ghcjs_dom_html_area_element_get_search+         (unHTMLAreaElement (toHTMLAreaElement self)))+ +foreign import javascript unsafe "$1[\"relList\"]"+        ghcjs_dom_html_area_element_get_rel_list ::+        JSRef HTMLAreaElement -> IO (JSRef DOMTokenList)+ +htmlAreaElementGetRelList ::+                          (IsHTMLAreaElement self) => self -> IO (Maybe DOMTokenList)+htmlAreaElementGetRelList self+  = fmap DOMTokenList . maybeJSNull <$>+      (ghcjs_dom_html_area_element_get_rel_list          (unHTMLAreaElement (toHTMLAreaElement self))) #else module GHCJS.DOM.HTMLAreaElement (

src/GHCJS/DOM/HTMLBRElement.hs view

@@ -9,28 +9,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"clear\"] = $2;"         ghcjs_dom_htmlbr_element_set_clear ::         JSRef HTMLBRElement -> JSString -> IO ()-#else -ghcjs_dom_htmlbr_element_set_clear ::-                                     JSRef HTMLBRElement -> JSString -> IO ()-ghcjs_dom_htmlbr_element_set_clear = undefined-#endif   htmlbrElementSetClear ::                       (IsHTMLBRElement self, ToJSString val) => self -> val -> IO ()@@ -38,17 +27,10 @@   = ghcjs_dom_htmlbr_element_set_clear       (unHTMLBRElement (toHTMLBRElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"clear\"]"         ghcjs_dom_htmlbr_element_get_clear ::         JSRef HTMLBRElement -> IO JSString-#else -ghcjs_dom_htmlbr_element_get_clear ::-                                     JSRef HTMLBRElement -> IO JSString-ghcjs_dom_htmlbr_element_get_clear = undefined-#endif   htmlbrElementGetClear ::                       (IsHTMLBRElement self, FromJSString result) => self -> IO result

src/GHCJS/DOM/HTMLBaseElement.hs view

@@ -11,28 +11,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"href\"] = $2;"         ghcjs_dom_html_base_element_set_href ::         JSRef HTMLBaseElement -> JSString -> IO ()-#else -ghcjs_dom_html_base_element_set_href ::-                                       JSRef HTMLBaseElement -> JSString -> IO ()-ghcjs_dom_html_base_element_set_href = undefined-#endif   htmlBaseElementSetHref ::                        (IsHTMLBaseElement self, ToJSString val) => self -> val -> IO ()@@ -40,17 +29,10 @@   = ghcjs_dom_html_base_element_set_href       (unHTMLBaseElement (toHTMLBaseElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"href\"]"         ghcjs_dom_html_base_element_get_href ::         JSRef HTMLBaseElement -> IO JSString-#else -ghcjs_dom_html_base_element_get_href ::-                                       JSRef HTMLBaseElement -> IO JSString-ghcjs_dom_html_base_element_get_href = undefined-#endif   htmlBaseElementGetHref ::                        (IsHTMLBaseElement self, FromJSString result) => self -> IO result@@ -58,17 +40,10 @@   = fromJSString <$>       (ghcjs_dom_html_base_element_get_href          (unHTMLBaseElement (toHTMLBaseElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"target\"] = $2;"         ghcjs_dom_html_base_element_set_target ::         JSRef HTMLBaseElement -> JSString -> IO ()-#else -ghcjs_dom_html_base_element_set_target ::-                                         JSRef HTMLBaseElement -> JSString -> IO ()-ghcjs_dom_html_base_element_set_target = undefined-#endif   htmlBaseElementSetTarget ::                          (IsHTMLBaseElement self, ToJSString val) => self -> val -> IO ()@@ -76,17 +51,10 @@   = ghcjs_dom_html_base_element_set_target       (unHTMLBaseElement (toHTMLBaseElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"target\"]"         ghcjs_dom_html_base_element_get_target ::         JSRef HTMLBaseElement -> IO JSString-#else -ghcjs_dom_html_base_element_get_target ::-                                         JSRef HTMLBaseElement -> IO JSString-ghcjs_dom_html_base_element_get_target = undefined-#endif   htmlBaseElementGetTarget ::                          (IsHTMLBaseElement self, FromJSString result) => self -> IO result

src/GHCJS/DOM/HTMLBaseFontElement.hs view

@@ -19,28 +19,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"color\"] = $2;"         ghcjs_dom_html_base_font_element_set_color ::         JSRef HTMLBaseFontElement -> JSString -> IO ()-#else -ghcjs_dom_html_base_font_element_set_color ::-                                             JSRef HTMLBaseFontElement -> JSString -> IO ()-ghcjs_dom_html_base_font_element_set_color = undefined-#endif   htmlBaseFontElementSetColor ::                             (IsHTMLBaseFontElement self, ToJSString val) =>@@ -49,17 +38,10 @@   = ghcjs_dom_html_base_font_element_set_color       (unHTMLBaseFontElement (toHTMLBaseFontElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"color\"]"         ghcjs_dom_html_base_font_element_get_color ::         JSRef HTMLBaseFontElement -> IO JSString-#else -ghcjs_dom_html_base_font_element_get_color ::-                                             JSRef HTMLBaseFontElement -> IO JSString-ghcjs_dom_html_base_font_element_get_color = undefined-#endif   htmlBaseFontElementGetColor ::                             (IsHTMLBaseFontElement self, FromJSString result) =>@@ -68,17 +50,10 @@   = fromJSString <$>       (ghcjs_dom_html_base_font_element_get_color          (unHTMLBaseFontElement (toHTMLBaseFontElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"face\"] = $2;"         ghcjs_dom_html_base_font_element_set_face ::         JSRef HTMLBaseFontElement -> JSString -> IO ()-#else -ghcjs_dom_html_base_font_element_set_face ::-                                            JSRef HTMLBaseFontElement -> JSString -> IO ()-ghcjs_dom_html_base_font_element_set_face = undefined-#endif   htmlBaseFontElementSetFace ::                            (IsHTMLBaseFontElement self, ToJSString val) =>@@ -87,17 +62,10 @@   = ghcjs_dom_html_base_font_element_set_face       (unHTMLBaseFontElement (toHTMLBaseFontElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"face\"]"         ghcjs_dom_html_base_font_element_get_face ::         JSRef HTMLBaseFontElement -> IO JSString-#else -ghcjs_dom_html_base_font_element_get_face ::-                                            JSRef HTMLBaseFontElement -> IO JSString-ghcjs_dom_html_base_font_element_get_face = undefined-#endif   htmlBaseFontElementGetFace ::                            (IsHTMLBaseFontElement self, FromJSString result) =>@@ -106,17 +74,10 @@   = fromJSString <$>       (ghcjs_dom_html_base_font_element_get_face          (unHTMLBaseFontElement (toHTMLBaseFontElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"size\"] = $2;"         ghcjs_dom_html_base_font_element_set_size ::         JSRef HTMLBaseFontElement -> Int -> IO ()-#else -ghcjs_dom_html_base_font_element_set_size ::-                                            JSRef HTMLBaseFontElement -> Int -> IO ()-ghcjs_dom_html_base_font_element_set_size = undefined-#endif   htmlBaseFontElementSetSize ::                            (IsHTMLBaseFontElement self) => self -> Int -> IO ()@@ -124,17 +85,10 @@   = ghcjs_dom_html_base_font_element_set_size       (unHTMLBaseFontElement (toHTMLBaseFontElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"size\"]"         ghcjs_dom_html_base_font_element_get_size ::         JSRef HTMLBaseFontElement -> IO Int-#else -ghcjs_dom_html_base_font_element_get_size ::-                                            JSRef HTMLBaseFontElement -> IO Int-ghcjs_dom_html_base_font_element_get_size = undefined-#endif   htmlBaseFontElementGetSize ::                            (IsHTMLBaseFontElement self) => self -> IO Int

src/GHCJS/DOM/HTMLBodyElement.hs view

@@ -29,28 +29,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"aLink\"] = $2;"         ghcjs_dom_html_body_element_set_a_link ::         JSRef HTMLBodyElement -> JSString -> IO ()-#else -ghcjs_dom_html_body_element_set_a_link ::-                                         JSRef HTMLBodyElement -> JSString -> IO ()-ghcjs_dom_html_body_element_set_a_link = undefined-#endif   htmlBodyElementSetALink ::                         (IsHTMLBodyElement self, ToJSString val) => self -> val -> IO ()@@ -58,17 +47,10 @@   = ghcjs_dom_html_body_element_set_a_link       (unHTMLBodyElement (toHTMLBodyElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"aLink\"]"         ghcjs_dom_html_body_element_get_a_link ::         JSRef HTMLBodyElement -> IO JSString-#else -ghcjs_dom_html_body_element_get_a_link ::-                                         JSRef HTMLBodyElement -> IO JSString-ghcjs_dom_html_body_element_get_a_link = undefined-#endif   htmlBodyElementGetALink ::                         (IsHTMLBodyElement self, FromJSString result) => self -> IO result@@ -76,17 +58,10 @@   = fromJSString <$>       (ghcjs_dom_html_body_element_get_a_link          (unHTMLBodyElement (toHTMLBodyElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"background\"] = $2;"         ghcjs_dom_html_body_element_set_background ::         JSRef HTMLBodyElement -> JSString -> IO ()-#else -ghcjs_dom_html_body_element_set_background ::-                                             JSRef HTMLBodyElement -> JSString -> IO ()-ghcjs_dom_html_body_element_set_background = undefined-#endif   htmlBodyElementSetBackground ::                              (IsHTMLBodyElement self, ToJSString val) => self -> val -> IO ()@@ -94,17 +69,10 @@   = ghcjs_dom_html_body_element_set_background       (unHTMLBodyElement (toHTMLBodyElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"background\"]"         ghcjs_dom_html_body_element_get_background ::         JSRef HTMLBodyElement -> IO JSString-#else -ghcjs_dom_html_body_element_get_background ::-                                             JSRef HTMLBodyElement -> IO JSString-ghcjs_dom_html_body_element_get_background = undefined-#endif   htmlBodyElementGetBackground ::                              (IsHTMLBodyElement self, FromJSString result) => self -> IO result@@ -112,17 +80,10 @@   = fromJSString <$>       (ghcjs_dom_html_body_element_get_background          (unHTMLBodyElement (toHTMLBodyElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"bgColor\"] = $2;"         ghcjs_dom_html_body_element_set_bg_color ::         JSRef HTMLBodyElement -> JSString -> IO ()-#else -ghcjs_dom_html_body_element_set_bg_color ::-                                           JSRef HTMLBodyElement -> JSString -> IO ()-ghcjs_dom_html_body_element_set_bg_color = undefined-#endif   htmlBodyElementSetBgColor ::                           (IsHTMLBodyElement self, ToJSString val) => self -> val -> IO ()@@ -130,17 +91,10 @@   = ghcjs_dom_html_body_element_set_bg_color       (unHTMLBodyElement (toHTMLBodyElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"bgColor\"]"         ghcjs_dom_html_body_element_get_bg_color ::         JSRef HTMLBodyElement -> IO JSString-#else -ghcjs_dom_html_body_element_get_bg_color ::-                                           JSRef HTMLBodyElement -> IO JSString-ghcjs_dom_html_body_element_get_bg_color = undefined-#endif   htmlBodyElementGetBgColor ::                           (IsHTMLBodyElement self, FromJSString result) => self -> IO result@@ -148,17 +102,10 @@   = fromJSString <$>       (ghcjs_dom_html_body_element_get_bg_color          (unHTMLBodyElement (toHTMLBodyElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"link\"] = $2;"         ghcjs_dom_html_body_element_set_link ::         JSRef HTMLBodyElement -> JSString -> IO ()-#else -ghcjs_dom_html_body_element_set_link ::-                                       JSRef HTMLBodyElement -> JSString -> IO ()-ghcjs_dom_html_body_element_set_link = undefined-#endif   htmlBodyElementSetLink ::                        (IsHTMLBodyElement self, ToJSString val) => self -> val -> IO ()@@ -166,17 +113,10 @@   = ghcjs_dom_html_body_element_set_link       (unHTMLBodyElement (toHTMLBodyElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"link\"]"         ghcjs_dom_html_body_element_get_link ::         JSRef HTMLBodyElement -> IO JSString-#else -ghcjs_dom_html_body_element_get_link ::-                                       JSRef HTMLBodyElement -> IO JSString-ghcjs_dom_html_body_element_get_link = undefined-#endif   htmlBodyElementGetLink ::                        (IsHTMLBodyElement self, FromJSString result) => self -> IO result@@ -184,17 +124,10 @@   = fromJSString <$>       (ghcjs_dom_html_body_element_get_link          (unHTMLBodyElement (toHTMLBodyElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"text\"] = $2;"         ghcjs_dom_html_body_element_set_text ::         JSRef HTMLBodyElement -> JSString -> IO ()-#else -ghcjs_dom_html_body_element_set_text ::-                                       JSRef HTMLBodyElement -> JSString -> IO ()-ghcjs_dom_html_body_element_set_text = undefined-#endif   htmlBodyElementSetText ::                        (IsHTMLBodyElement self, ToJSString val) => self -> val -> IO ()@@ -202,17 +135,10 @@   = ghcjs_dom_html_body_element_set_text       (unHTMLBodyElement (toHTMLBodyElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"text\"]"         ghcjs_dom_html_body_element_get_text ::         JSRef HTMLBodyElement -> IO JSString-#else -ghcjs_dom_html_body_element_get_text ::-                                       JSRef HTMLBodyElement -> IO JSString-ghcjs_dom_html_body_element_get_text = undefined-#endif   htmlBodyElementGetText ::                        (IsHTMLBodyElement self, FromJSString result) => self -> IO result@@ -220,17 +146,10 @@   = fromJSString <$>       (ghcjs_dom_html_body_element_get_text          (unHTMLBodyElement (toHTMLBodyElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"vLink\"] = $2;"         ghcjs_dom_html_body_element_set_v_link ::         JSRef HTMLBodyElement -> JSString -> IO ()-#else -ghcjs_dom_html_body_element_set_v_link ::-                                         JSRef HTMLBodyElement -> JSString -> IO ()-ghcjs_dom_html_body_element_set_v_link = undefined-#endif   htmlBodyElementSetVLink ::                         (IsHTMLBodyElement self, ToJSString val) => self -> val -> IO ()@@ -238,17 +157,10 @@   = ghcjs_dom_html_body_element_set_v_link       (unHTMLBodyElement (toHTMLBodyElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"vLink\"]"         ghcjs_dom_html_body_element_get_v_link ::         JSRef HTMLBodyElement -> IO JSString-#else -ghcjs_dom_html_body_element_get_v_link ::-                                         JSRef HTMLBodyElement -> IO JSString-ghcjs_dom_html_body_element_get_v_link = undefined-#endif   htmlBodyElementGetVLink ::                         (IsHTMLBodyElement self, FromJSString result) => self -> IO result

src/GHCJS/DOM/HTMLButtonElement.hs view

@@ -52,46 +52,28 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)"         ghcjs_dom_html_button_element_check_validity ::         JSRef HTMLButtonElement -> IO Bool-#else -ghcjs_dom_html_button_element_check_validity ::-                                               JSRef HTMLButtonElement -> IO Bool-ghcjs_dom_html_button_element_check_validity = undefined-#endif   htmlButtonElementCheckValidity ::                                (IsHTMLButtonElement self) => self -> IO Bool htmlButtonElementCheckValidity self   = ghcjs_dom_html_button_element_check_validity       (unHTMLButtonElement (toHTMLButtonElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         ghcjs_dom_html_button_element_set_custom_validity ::         JSRef HTMLButtonElement -> JSString -> IO ()-#else -ghcjs_dom_html_button_element_set_custom_validity ::-                                                    JSRef HTMLButtonElement -> JSString -> IO ()-ghcjs_dom_html_button_element_set_custom_validity = undefined-#endif   htmlButtonElementSetCustomValidity ::                                    (IsHTMLButtonElement self, ToJSString error) =>@@ -100,17 +82,10 @@   = ghcjs_dom_html_button_element_set_custom_validity       (unHTMLButtonElement (toHTMLButtonElement self))       (toJSString error)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"autofocus\"] = $2;"         ghcjs_dom_html_button_element_set_autofocus ::         JSRef HTMLButtonElement -> Bool -> IO ()-#else -ghcjs_dom_html_button_element_set_autofocus ::-                                              JSRef HTMLButtonElement -> Bool -> IO ()-ghcjs_dom_html_button_element_set_autofocus = undefined-#endif   htmlButtonElementSetAutofocus ::                               (IsHTMLButtonElement self) => self -> Bool -> IO ()@@ -118,34 +93,20 @@   = ghcjs_dom_html_button_element_set_autofocus       (unHTMLButtonElement (toHTMLButtonElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"         ghcjs_dom_html_button_element_get_autofocus ::         JSRef HTMLButtonElement -> IO Bool-#else -ghcjs_dom_html_button_element_get_autofocus ::-                                              JSRef HTMLButtonElement -> IO Bool-ghcjs_dom_html_button_element_get_autofocus = undefined-#endif   htmlButtonElementGetAutofocus ::                               (IsHTMLButtonElement self) => self -> IO Bool htmlButtonElementGetAutofocus self   = ghcjs_dom_html_button_element_get_autofocus       (unHTMLButtonElement (toHTMLButtonElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"disabled\"] = $2;"         ghcjs_dom_html_button_element_set_disabled ::         JSRef HTMLButtonElement -> Bool -> IO ()-#else -ghcjs_dom_html_button_element_set_disabled ::-                                             JSRef HTMLButtonElement -> Bool -> IO ()-ghcjs_dom_html_button_element_set_disabled = undefined-#endif   htmlButtonElementSetDisabled ::                              (IsHTMLButtonElement self) => self -> Bool -> IO ()@@ -153,34 +114,20 @@   = ghcjs_dom_html_button_element_set_disabled       (unHTMLButtonElement (toHTMLButtonElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"         ghcjs_dom_html_button_element_get_disabled ::         JSRef HTMLButtonElement -> IO Bool-#else -ghcjs_dom_html_button_element_get_disabled ::-                                             JSRef HTMLButtonElement -> IO Bool-ghcjs_dom_html_button_element_get_disabled = undefined-#endif   htmlButtonElementGetDisabled ::                              (IsHTMLButtonElement self) => self -> IO Bool htmlButtonElementGetDisabled self   = ghcjs_dom_html_button_element_get_disabled       (unHTMLButtonElement (toHTMLButtonElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"form\"]"         ghcjs_dom_html_button_element_get_form ::         JSRef HTMLButtonElement -> IO (JSRef HTMLFormElement)-#else -ghcjs_dom_html_button_element_get_form ::-                                         JSRef HTMLButtonElement -> IO (JSRef HTMLFormElement)-ghcjs_dom_html_button_element_get_form = undefined-#endif   htmlButtonElementGetForm ::                          (IsHTMLButtonElement self) => self -> IO (Maybe HTMLFormElement)@@ -188,17 +135,10 @@   = fmap HTMLFormElement . maybeJSNull <$>       (ghcjs_dom_html_button_element_get_form          (unHTMLButtonElement (toHTMLButtonElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"formAction\"] = $2;"         ghcjs_dom_html_button_element_set_form_action ::         JSRef HTMLButtonElement -> JSString -> IO ()-#else -ghcjs_dom_html_button_element_set_form_action ::-                                                JSRef HTMLButtonElement -> JSString -> IO ()-ghcjs_dom_html_button_element_set_form_action = undefined-#endif   htmlButtonElementSetFormAction ::                                (IsHTMLButtonElement self, ToJSString val) => self -> val -> IO ()@@ -206,17 +146,10 @@   = ghcjs_dom_html_button_element_set_form_action       (unHTMLButtonElement (toHTMLButtonElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"formAction\"]"         ghcjs_dom_html_button_element_get_form_action ::         JSRef HTMLButtonElement -> IO JSString-#else -ghcjs_dom_html_button_element_get_form_action ::-                                                JSRef HTMLButtonElement -> IO JSString-ghcjs_dom_html_button_element_get_form_action = undefined-#endif   htmlButtonElementGetFormAction ::                                (IsHTMLButtonElement self, FromJSString result) =>@@ -225,17 +158,10 @@   = fromJSString <$>       (ghcjs_dom_html_button_element_get_form_action          (unHTMLButtonElement (toHTMLButtonElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"formEnctype\"] = $2;"         ghcjs_dom_html_button_element_set_form_enctype ::         JSRef HTMLButtonElement -> JSString -> IO ()-#else -ghcjs_dom_html_button_element_set_form_enctype ::-                                                 JSRef HTMLButtonElement -> JSString -> IO ()-ghcjs_dom_html_button_element_set_form_enctype = undefined-#endif   htmlButtonElementSetFormEnctype ::                                 (IsHTMLButtonElement self, ToJSString val) => self -> val -> IO ()@@ -243,17 +169,10 @@   = ghcjs_dom_html_button_element_set_form_enctype       (unHTMLButtonElement (toHTMLButtonElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"formEnctype\"]"         ghcjs_dom_html_button_element_get_form_enctype ::         JSRef HTMLButtonElement -> IO JSString-#else -ghcjs_dom_html_button_element_get_form_enctype ::-                                                 JSRef HTMLButtonElement -> IO JSString-ghcjs_dom_html_button_element_get_form_enctype = undefined-#endif   htmlButtonElementGetFormEnctype ::                                 (IsHTMLButtonElement self, FromJSString result) =>@@ -262,17 +181,10 @@   = fromJSString <$>       (ghcjs_dom_html_button_element_get_form_enctype          (unHTMLButtonElement (toHTMLButtonElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"formMethod\"] = $2;"         ghcjs_dom_html_button_element_set_form_method ::         JSRef HTMLButtonElement -> JSString -> IO ()-#else -ghcjs_dom_html_button_element_set_form_method ::-                                                JSRef HTMLButtonElement -> JSString -> IO ()-ghcjs_dom_html_button_element_set_form_method = undefined-#endif   htmlButtonElementSetFormMethod ::                                (IsHTMLButtonElement self, ToJSString val) => self -> val -> IO ()@@ -280,17 +192,10 @@   = ghcjs_dom_html_button_element_set_form_method       (unHTMLButtonElement (toHTMLButtonElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"formMethod\"]"         ghcjs_dom_html_button_element_get_form_method ::         JSRef HTMLButtonElement -> IO JSString-#else -ghcjs_dom_html_button_element_get_form_method ::-                                                JSRef HTMLButtonElement -> IO JSString-ghcjs_dom_html_button_element_get_form_method = undefined-#endif   htmlButtonElementGetFormMethod ::                                (IsHTMLButtonElement self, FromJSString result) =>@@ -299,17 +204,10 @@   = fromJSString <$>       (ghcjs_dom_html_button_element_get_form_method          (unHTMLButtonElement (toHTMLButtonElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;"         ghcjs_dom_html_button_element_set_form_no_validate ::         JSRef HTMLButtonElement -> Bool -> IO ()-#else -ghcjs_dom_html_button_element_set_form_no_validate ::-                                                     JSRef HTMLButtonElement -> Bool -> IO ()-ghcjs_dom_html_button_element_set_form_no_validate = undefined-#endif   htmlButtonElementSetFormNoValidate ::                                    (IsHTMLButtonElement self) => self -> Bool -> IO ()@@ -317,34 +215,20 @@   = ghcjs_dom_html_button_element_set_form_no_validate       (unHTMLButtonElement (toHTMLButtonElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"formNoValidate\"] ? 1 : 0)"         ghcjs_dom_html_button_element_get_form_no_validate ::         JSRef HTMLButtonElement -> IO Bool-#else -ghcjs_dom_html_button_element_get_form_no_validate ::-                                                     JSRef HTMLButtonElement -> IO Bool-ghcjs_dom_html_button_element_get_form_no_validate = undefined-#endif   htmlButtonElementGetFormNoValidate ::                                    (IsHTMLButtonElement self) => self -> IO Bool htmlButtonElementGetFormNoValidate self   = ghcjs_dom_html_button_element_get_form_no_validate       (unHTMLButtonElement (toHTMLButtonElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"formTarget\"] = $2;"         ghcjs_dom_html_button_element_set_form_target ::         JSRef HTMLButtonElement -> JSString -> IO ()-#else -ghcjs_dom_html_button_element_set_form_target ::-                                                JSRef HTMLButtonElement -> JSString -> IO ()-ghcjs_dom_html_button_element_set_form_target = undefined-#endif   htmlButtonElementSetFormTarget ::                                (IsHTMLButtonElement self, ToJSString val) => self -> val -> IO ()@@ -352,17 +236,10 @@   = ghcjs_dom_html_button_element_set_form_target       (unHTMLButtonElement (toHTMLButtonElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"formTarget\"]"         ghcjs_dom_html_button_element_get_form_target ::         JSRef HTMLButtonElement -> IO JSString-#else -ghcjs_dom_html_button_element_get_form_target ::-                                                JSRef HTMLButtonElement -> IO JSString-ghcjs_dom_html_button_element_get_form_target = undefined-#endif   htmlButtonElementGetFormTarget ::                                (IsHTMLButtonElement self, FromJSString result) =>@@ -371,17 +248,10 @@   = fromJSString <$>       (ghcjs_dom_html_button_element_get_form_target          (unHTMLButtonElement (toHTMLButtonElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_button_element_set_name ::         JSRef HTMLButtonElement -> JSString -> IO ()-#else -ghcjs_dom_html_button_element_set_name ::-                                         JSRef HTMLButtonElement -> JSString -> IO ()-ghcjs_dom_html_button_element_set_name = undefined-#endif   htmlButtonElementSetName ::                          (IsHTMLButtonElement self, ToJSString val) => self -> val -> IO ()@@ -389,17 +259,10 @@   = ghcjs_dom_html_button_element_set_name       (unHTMLButtonElement (toHTMLButtonElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_button_element_get_name ::         JSRef HTMLButtonElement -> IO JSString-#else -ghcjs_dom_html_button_element_get_name ::-                                         JSRef HTMLButtonElement -> IO JSString-ghcjs_dom_html_button_element_get_name = undefined-#endif   htmlButtonElementGetName ::                          (IsHTMLButtonElement self, FromJSString result) =>@@ -408,17 +271,10 @@   = fromJSString <$>       (ghcjs_dom_html_button_element_get_name          (unHTMLButtonElement (toHTMLButtonElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"value\"] = $2;"         ghcjs_dom_html_button_element_set_value ::         JSRef HTMLButtonElement -> JSString -> IO ()-#else -ghcjs_dom_html_button_element_set_value ::-                                          JSRef HTMLButtonElement -> JSString -> IO ()-ghcjs_dom_html_button_element_set_value = undefined-#endif   htmlButtonElementSetValue ::                           (IsHTMLButtonElement self, ToJSString val) => self -> val -> IO ()@@ -426,17 +282,10 @@   = ghcjs_dom_html_button_element_set_value       (unHTMLButtonElement (toHTMLButtonElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"value\"]"         ghcjs_dom_html_button_element_get_value ::         JSRef HTMLButtonElement -> IO JSString-#else -ghcjs_dom_html_button_element_get_value ::-                                          JSRef HTMLButtonElement -> IO JSString-ghcjs_dom_html_button_element_get_value = undefined-#endif   htmlButtonElementGetValue ::                           (IsHTMLButtonElement self, FromJSString result) =>@@ -445,34 +294,20 @@   = fromJSString <$>       (ghcjs_dom_html_button_element_get_value          (unHTMLButtonElement (toHTMLButtonElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"         ghcjs_dom_html_button_element_get_will_validate ::         JSRef HTMLButtonElement -> IO Bool-#else -ghcjs_dom_html_button_element_get_will_validate ::-                                                  JSRef HTMLButtonElement -> IO Bool-ghcjs_dom_html_button_element_get_will_validate = undefined-#endif   htmlButtonElementGetWillValidate ::                                  (IsHTMLButtonElement self) => self -> IO Bool htmlButtonElementGetWillValidate self   = ghcjs_dom_html_button_element_get_will_validate       (unHTMLButtonElement (toHTMLButtonElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"validity\"]"         ghcjs_dom_html_button_element_get_validity ::         JSRef HTMLButtonElement -> IO (JSRef ValidityState)-#else -ghcjs_dom_html_button_element_get_validity ::-                                             JSRef HTMLButtonElement -> IO (JSRef ValidityState)-ghcjs_dom_html_button_element_get_validity = undefined-#endif   htmlButtonElementGetValidity ::                              (IsHTMLButtonElement self) => self -> IO (Maybe ValidityState)@@ -480,17 +315,10 @@   = fmap ValidityState . maybeJSNull <$>       (ghcjs_dom_html_button_element_get_validity          (unHTMLButtonElement (toHTMLButtonElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"validationMessage\"]"         ghcjs_dom_html_button_element_get_validation_message ::         JSRef HTMLButtonElement -> IO JSString-#else -ghcjs_dom_html_button_element_get_validation_message ::-                                                       JSRef HTMLButtonElement -> IO JSString-ghcjs_dom_html_button_element_get_validation_message = undefined-#endif   htmlButtonElementGetValidationMessage ::                                       (IsHTMLButtonElement self, FromJSString result) =>@@ -499,17 +327,10 @@   = fromJSString <$>       (ghcjs_dom_html_button_element_get_validation_message          (unHTMLButtonElement (toHTMLButtonElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"labels\"]"         ghcjs_dom_html_button_element_get_labels ::         JSRef HTMLButtonElement -> IO (JSRef NodeList)-#else -ghcjs_dom_html_button_element_get_labels ::-                                           JSRef HTMLButtonElement -> IO (JSRef NodeList)-ghcjs_dom_html_button_element_get_labels = undefined-#endif   htmlButtonElementGetLabels ::                            (IsHTMLButtonElement self) => self -> IO (Maybe NodeList)

src/GHCJS/DOM/HTMLCanvasElement.hs view

@@ -14,28 +14,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_canvas_element_set_width ::         JSRef HTMLCanvasElement -> Int -> IO ()-#else -ghcjs_dom_html_canvas_element_set_width ::-                                          JSRef HTMLCanvasElement -> Int -> IO ()-ghcjs_dom_html_canvas_element_set_width = undefined-#endif   htmlCanvasElementSetWidth ::                           (IsHTMLCanvasElement self) => self -> Int -> IO ()@@ -43,34 +32,20 @@   = ghcjs_dom_html_canvas_element_set_width       (unHTMLCanvasElement (toHTMLCanvasElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_canvas_element_get_width ::         JSRef HTMLCanvasElement -> IO Int-#else -ghcjs_dom_html_canvas_element_get_width ::-                                          JSRef HTMLCanvasElement -> IO Int-ghcjs_dom_html_canvas_element_get_width = undefined-#endif   htmlCanvasElementGetWidth ::                           (IsHTMLCanvasElement self) => self -> IO Int htmlCanvasElementGetWidth self   = ghcjs_dom_html_canvas_element_get_width       (unHTMLCanvasElement (toHTMLCanvasElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"height\"] = $2;"         ghcjs_dom_html_canvas_element_set_height ::         JSRef HTMLCanvasElement -> Int -> IO ()-#else -ghcjs_dom_html_canvas_element_set_height ::-                                           JSRef HTMLCanvasElement -> Int -> IO ()-ghcjs_dom_html_canvas_element_set_height = undefined-#endif   htmlCanvasElementSetHeight ::                            (IsHTMLCanvasElement self) => self -> Int -> IO ()@@ -78,17 +53,10 @@   = ghcjs_dom_html_canvas_element_set_height       (unHTMLCanvasElement (toHTMLCanvasElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_canvas_element_get_height ::         JSRef HTMLCanvasElement -> IO Int-#else -ghcjs_dom_html_canvas_element_get_height ::-                                           JSRef HTMLCanvasElement -> IO Int-ghcjs_dom_html_canvas_element_get_height = undefined-#endif   htmlCanvasElementGetHeight ::                            (IsHTMLCanvasElement self) => self -> IO Int

src/GHCJS/DOM/HTMLCollection.hs view

@@ -10,28 +10,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_html_collection_item ::         JSRef HTMLCollection -> Word -> IO (JSRef Node)-#else -ghcjs_dom_html_collection_item ::-                                 JSRef HTMLCollection -> Word -> IO (JSRef Node)-ghcjs_dom_html_collection_item = undefined-#endif   htmlCollectionItem ::                    (IsHTMLCollection self) => self -> Word -> IO (Maybe Node)@@ -40,17 +29,10 @@       (ghcjs_dom_html_collection_item          (unHTMLCollection (toHTMLCollection self))          index)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"namedItem\"]($2)"         ghcjs_dom_html_collection_named_item ::         JSRef HTMLCollection -> JSString -> IO (JSRef Node)-#else -ghcjs_dom_html_collection_named_item ::-                                       JSRef HTMLCollection -> JSString -> IO (JSRef Node)-ghcjs_dom_html_collection_named_item = undefined-#endif   htmlCollectionNamedItem ::                         (IsHTMLCollection self, ToJSString name) =>@@ -60,17 +42,10 @@       (ghcjs_dom_html_collection_named_item          (unHTMLCollection (toHTMLCollection self))          (toJSString name))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_html_collection_get_length ::         JSRef HTMLCollection -> IO Word-#else -ghcjs_dom_html_collection_get_length ::-                                       JSRef HTMLCollection -> IO Word-ghcjs_dom_html_collection_get_length = undefined-#endif   htmlCollectionGetLength ::                         (IsHTMLCollection self) => self -> IO Word

src/GHCJS/DOM/HTMLDListElement.hs view

@@ -10,28 +10,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"compact\"] = $2;"         ghcjs_dom_htmld_list_element_set_compact ::         JSRef HTMLDListElement -> Bool -> IO ()-#else -ghcjs_dom_htmld_list_element_set_compact ::-                                           JSRef HTMLDListElement -> Bool -> IO ()-ghcjs_dom_htmld_list_element_set_compact = undefined-#endif   htmldListElementSetCompact ::                            (IsHTMLDListElement self) => self -> Bool -> IO ()@@ -39,17 +28,10 @@   = ghcjs_dom_htmld_list_element_set_compact       (unHTMLDListElement (toHTMLDListElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"         ghcjs_dom_htmld_list_element_get_compact ::         JSRef HTMLDListElement -> IO Bool-#else -ghcjs_dom_htmld_list_element_get_compact ::-                                           JSRef HTMLDListElement -> IO Bool-ghcjs_dom_htmld_list_element_get_compact = undefined-#endif   htmldListElementGetCompact ::                            (IsHTMLDListElement self) => self -> IO Bool

src/GHCJS/DOM/HTMLDetailsElement.hs view

@@ -10,28 +10,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"open\"] = $2;"         ghcjs_dom_html_details_element_set_open ::         JSRef HTMLDetailsElement -> Bool -> IO ()-#else -ghcjs_dom_html_details_element_set_open ::-                                          JSRef HTMLDetailsElement -> Bool -> IO ()-ghcjs_dom_html_details_element_set_open = undefined-#endif   htmlDetailsElementSetOpen ::                           (IsHTMLDetailsElement self) => self -> Bool -> IO ()@@ -39,17 +28,10 @@   = ghcjs_dom_html_details_element_set_open       (unHTMLDetailsElement (toHTMLDetailsElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"open\"] ? 1 : 0)"         ghcjs_dom_html_details_element_get_open ::         JSRef HTMLDetailsElement -> IO Bool-#else -ghcjs_dom_html_details_element_get_open ::-                                          JSRef HTMLDetailsElement -> IO Bool-ghcjs_dom_html_details_element_get_open = undefined-#endif   htmlDetailsElementGetOpen ::                           (IsHTMLDetailsElement self) => self -> IO Bool

src/GHCJS/DOM/HTMLDirectoryElement.hs view

@@ -11,28 +11,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"compact\"] = $2;"         ghcjs_dom_html_directory_element_set_compact ::         JSRef HTMLDirectoryElement -> Bool -> IO ()-#else -ghcjs_dom_html_directory_element_set_compact ::-                                               JSRef HTMLDirectoryElement -> Bool -> IO ()-ghcjs_dom_html_directory_element_set_compact = undefined-#endif   htmlDirectoryElementSetCompact ::                                (IsHTMLDirectoryElement self) => self -> Bool -> IO ()@@ -40,17 +29,10 @@   = ghcjs_dom_html_directory_element_set_compact       (unHTMLDirectoryElement (toHTMLDirectoryElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"         ghcjs_dom_html_directory_element_get_compact ::         JSRef HTMLDirectoryElement -> IO Bool-#else -ghcjs_dom_html_directory_element_get_compact ::-                                               JSRef HTMLDirectoryElement -> IO Bool-ghcjs_dom_html_directory_element_get_compact = undefined-#endif   htmlDirectoryElementGetCompact ::                                (IsHTMLDirectoryElement self) => self -> IO Bool

src/GHCJS/DOM/HTMLDivElement.hs view

@@ -9,28 +9,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_div_element_set_align ::         JSRef HTMLDivElement -> JSString -> IO ()-#else -ghcjs_dom_html_div_element_set_align ::-                                       JSRef HTMLDivElement -> JSString -> IO ()-ghcjs_dom_html_div_element_set_align = undefined-#endif   htmlDivElementSetAlign ::                        (IsHTMLDivElement self, ToJSString val) => self -> val -> IO ()@@ -38,17 +27,10 @@   = ghcjs_dom_html_div_element_set_align       (unHTMLDivElement (toHTMLDivElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_div_element_get_align ::         JSRef HTMLDivElement -> IO JSString-#else -ghcjs_dom_html_div_element_get_align ::-                                       JSRef HTMLDivElement -> IO JSString-ghcjs_dom_html_div_element_get_align = undefined-#endif   htmlDivElementGetAlign ::                        (IsHTMLDivElement self, FromJSString result) => self -> IO result

src/GHCJS/DOM/HTMLDocument.hs view

@@ -6,7 +6,6 @@         ghcjs_dom_html_document_clear, htmlDocumentClear,         ghcjs_dom_html_document_capture_events, htmlDocumentCaptureEvents,         ghcjs_dom_html_document_release_events, htmlDocumentReleaseEvents,-        ghcjs_dom_html_document_has_focus, htmlDocumentHasFocus,         ghcjs_dom_html_document_get_embeds, htmlDocumentGetEmbeds,         ghcjs_dom_html_document_get_plugins, htmlDocumentGetPlugins,         ghcjs_dom_html_document_get_scripts, htmlDocumentGetScripts,@@ -17,118 +16,66 @@         ghcjs_dom_html_document_set_design_mode, htmlDocumentSetDesignMode,         ghcjs_dom_html_document_get_design_mode, htmlDocumentGetDesignMode,         ghcjs_dom_html_document_get_compat_mode, htmlDocumentGetCompatMode,-        ghcjs_dom_html_document_get_active_element,-        htmlDocumentGetActiveElement, ghcjs_dom_html_document_set_bg_color,-        htmlDocumentSetBgColor, ghcjs_dom_html_document_get_bg_color,-        htmlDocumentGetBgColor, ghcjs_dom_html_document_set_fg_color,-        htmlDocumentSetFgColor, ghcjs_dom_html_document_get_fg_color,-        htmlDocumentGetFgColor, ghcjs_dom_html_document_set_alink_color,-        htmlDocumentSetAlinkColor, ghcjs_dom_html_document_get_alink_color,-        htmlDocumentGetAlinkColor, ghcjs_dom_html_document_set_link_color,-        htmlDocumentSetLinkColor, ghcjs_dom_html_document_get_link_color,-        htmlDocumentGetLinkColor, ghcjs_dom_html_document_set_vlink_color,-        htmlDocumentSetVlinkColor, ghcjs_dom_html_document_get_vlink_color,-        htmlDocumentGetVlinkColor, HTMLDocument, IsHTMLDocument,-        castToHTMLDocument, gTypeHTMLDocument, toHTMLDocument)+        ghcjs_dom_html_document_set_bg_color, htmlDocumentSetBgColor,+        ghcjs_dom_html_document_get_bg_color, htmlDocumentGetBgColor,+        ghcjs_dom_html_document_set_fg_color, htmlDocumentSetFgColor,+        ghcjs_dom_html_document_get_fg_color, htmlDocumentGetFgColor,+        ghcjs_dom_html_document_set_alink_color, htmlDocumentSetAlinkColor,+        ghcjs_dom_html_document_get_alink_color, htmlDocumentGetAlinkColor,+        ghcjs_dom_html_document_set_link_color, htmlDocumentSetLinkColor,+        ghcjs_dom_html_document_get_link_color, htmlDocumentGetLinkColor,+        ghcjs_dom_html_document_set_vlink_color, htmlDocumentSetVlinkColor,+        ghcjs_dom_html_document_get_vlink_color, htmlDocumentGetVlinkColor,+        HTMLDocument, IsHTMLDocument, castToHTMLDocument,+        gTypeHTMLDocument, toHTMLDocument)        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"close\"]()"         ghcjs_dom_html_document_close :: JSRef HTMLDocument -> IO ()-#else -ghcjs_dom_html_document_close :: JSRef HTMLDocument -> IO ()-ghcjs_dom_html_document_close = undefined-#endif   htmlDocumentClose :: (IsHTMLDocument self) => self -> IO () htmlDocumentClose self   = ghcjs_dom_html_document_close       (unHTMLDocument (toHTMLDocument self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"clear\"]()"         ghcjs_dom_html_document_clear :: JSRef HTMLDocument -> IO ()-#else -ghcjs_dom_html_document_clear :: JSRef HTMLDocument -> IO ()-ghcjs_dom_html_document_clear = undefined-#endif   htmlDocumentClear :: (IsHTMLDocument self) => self -> IO () htmlDocumentClear self   = ghcjs_dom_html_document_clear       (unHTMLDocument (toHTMLDocument self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"captureEvents\"]()"         ghcjs_dom_html_document_capture_events ::         JSRef HTMLDocument -> IO ()-#else -ghcjs_dom_html_document_capture_events ::-                                         JSRef HTMLDocument -> IO ()-ghcjs_dom_html_document_capture_events = undefined-#endif   htmlDocumentCaptureEvents :: (IsHTMLDocument self) => self -> IO () htmlDocumentCaptureEvents self   = ghcjs_dom_html_document_capture_events       (unHTMLDocument (toHTMLDocument self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"releaseEvents\"]()"         ghcjs_dom_html_document_release_events ::         JSRef HTMLDocument -> IO ()-#else -ghcjs_dom_html_document_release_events ::-                                         JSRef HTMLDocument -> IO ()-ghcjs_dom_html_document_release_events = undefined-#endif   htmlDocumentReleaseEvents :: (IsHTMLDocument self) => self -> IO () htmlDocumentReleaseEvents self   = ghcjs_dom_html_document_release_events       (unHTMLDocument (toHTMLDocument self))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "($1[\"hasFocus\"]() ? 1 : 0)"-        ghcjs_dom_html_document_has_focus :: JSRef HTMLDocument -> IO Bool-#else -ghcjs_dom_html_document_has_focus :: JSRef HTMLDocument -> IO Bool-ghcjs_dom_html_document_has_focus = undefined-#endif  -htmlDocumentHasFocus :: (IsHTMLDocument self) => self -> IO Bool-htmlDocumentHasFocus self-  = ghcjs_dom_html_document_has_focus-      (unHTMLDocument (toHTMLDocument self))---#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"embeds\"]"         ghcjs_dom_html_document_get_embeds ::         JSRef HTMLDocument -> IO (JSRef HTMLCollection)-#else -ghcjs_dom_html_document_get_embeds ::-                                     JSRef HTMLDocument -> IO (JSRef HTMLCollection)-ghcjs_dom_html_document_get_embeds = undefined-#endif   htmlDocumentGetEmbeds ::                       (IsHTMLDocument self) => self -> IO (Maybe HTMLCollection)@@ -136,17 +83,10 @@   = fmap HTMLCollection . maybeJSNull <$>       (ghcjs_dom_html_document_get_embeds          (unHTMLDocument (toHTMLDocument self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"plugins\"]"         ghcjs_dom_html_document_get_plugins ::         JSRef HTMLDocument -> IO (JSRef HTMLCollection)-#else -ghcjs_dom_html_document_get_plugins ::-                                      JSRef HTMLDocument -> IO (JSRef HTMLCollection)-ghcjs_dom_html_document_get_plugins = undefined-#endif   htmlDocumentGetPlugins ::                        (IsHTMLDocument self) => self -> IO (Maybe HTMLCollection)@@ -154,17 +94,10 @@   = fmap HTMLCollection . maybeJSNull <$>       (ghcjs_dom_html_document_get_plugins          (unHTMLDocument (toHTMLDocument self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scripts\"]"         ghcjs_dom_html_document_get_scripts ::         JSRef HTMLDocument -> IO (JSRef HTMLCollection)-#else -ghcjs_dom_html_document_get_scripts ::-                                      JSRef HTMLDocument -> IO (JSRef HTMLCollection)-ghcjs_dom_html_document_get_scripts = undefined-#endif   htmlDocumentGetScripts ::                        (IsHTMLDocument self) => self -> IO (Maybe HTMLCollection)@@ -172,45 +105,26 @@   = fmap HTMLCollection . maybeJSNull <$>       (ghcjs_dom_html_document_get_scripts          (unHTMLDocument (toHTMLDocument self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_document_get_width :: JSRef HTMLDocument -> IO Int-#else -ghcjs_dom_html_document_get_width :: JSRef HTMLDocument -> IO Int-ghcjs_dom_html_document_get_width = undefined-#endif   htmlDocumentGetWidth :: (IsHTMLDocument self) => self -> IO Int htmlDocumentGetWidth self   = ghcjs_dom_html_document_get_width       (unHTMLDocument (toHTMLDocument self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_document_get_height :: JSRef HTMLDocument -> IO Int-#else -ghcjs_dom_html_document_get_height :: JSRef HTMLDocument -> IO Int-ghcjs_dom_html_document_get_height = undefined-#endif   htmlDocumentGetHeight :: (IsHTMLDocument self) => self -> IO Int htmlDocumentGetHeight self   = ghcjs_dom_html_document_get_height       (unHTMLDocument (toHTMLDocument self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"dir\"] = $2;"         ghcjs_dom_html_document_set_dir ::         JSRef HTMLDocument -> JSString -> IO ()-#else -ghcjs_dom_html_document_set_dir ::-                                  JSRef HTMLDocument -> JSString -> IO ()-ghcjs_dom_html_document_set_dir = undefined-#endif   htmlDocumentSetDir ::                    (IsHTMLDocument self, ToJSString val) => self -> val -> IO ()@@ -218,17 +132,10 @@   = ghcjs_dom_html_document_set_dir       (unHTMLDocument (toHTMLDocument self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"dir\"]"         ghcjs_dom_html_document_get_dir ::         JSRef HTMLDocument -> IO JSString-#else -ghcjs_dom_html_document_get_dir ::-                                  JSRef HTMLDocument -> IO JSString-ghcjs_dom_html_document_get_dir = undefined-#endif   htmlDocumentGetDir ::                    (IsHTMLDocument self, FromJSString result) => self -> IO result@@ -236,17 +143,10 @@   = fromJSString <$>       (ghcjs_dom_html_document_get_dir          (unHTMLDocument (toHTMLDocument self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"designMode\"] = $2;"         ghcjs_dom_html_document_set_design_mode ::         JSRef HTMLDocument -> JSString -> IO ()-#else -ghcjs_dom_html_document_set_design_mode ::-                                          JSRef HTMLDocument -> JSString -> IO ()-ghcjs_dom_html_document_set_design_mode = undefined-#endif   htmlDocumentSetDesignMode ::                           (IsHTMLDocument self, ToJSString val) => self -> val -> IO ()@@ -254,17 +154,10 @@   = ghcjs_dom_html_document_set_design_mode       (unHTMLDocument (toHTMLDocument self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"designMode\"]"         ghcjs_dom_html_document_get_design_mode ::         JSRef HTMLDocument -> IO JSString-#else -ghcjs_dom_html_document_get_design_mode ::-                                          JSRef HTMLDocument -> IO JSString-ghcjs_dom_html_document_get_design_mode = undefined-#endif   htmlDocumentGetDesignMode ::                           (IsHTMLDocument self, FromJSString result) => self -> IO result@@ -272,17 +165,10 @@   = fromJSString <$>       (ghcjs_dom_html_document_get_design_mode          (unHTMLDocument (toHTMLDocument self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"compatMode\"]"         ghcjs_dom_html_document_get_compat_mode ::         JSRef HTMLDocument -> IO JSString-#else -ghcjs_dom_html_document_get_compat_mode ::-                                          JSRef HTMLDocument -> IO JSString-ghcjs_dom_html_document_get_compat_mode = undefined-#endif   htmlDocumentGetCompatMode ::                           (IsHTMLDocument self, FromJSString result) => self -> IO result@@ -290,35 +176,10 @@   = fromJSString <$>       (ghcjs_dom_html_document_get_compat_mode          (unHTMLDocument (toHTMLDocument self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"activeElement\"]"-        ghcjs_dom_html_document_get_active_element ::-        JSRef HTMLDocument -> IO (JSRef Element)-#else -ghcjs_dom_html_document_get_active_element ::-                                             JSRef HTMLDocument -> IO (JSRef Element)-ghcjs_dom_html_document_get_active_element = undefined-#endif  -htmlDocumentGetActiveElement ::-                             (IsHTMLDocument self) => self -> IO (Maybe Element)-htmlDocumentGetActiveElement self-  = fmap Element . maybeJSNull <$>-      (ghcjs_dom_html_document_get_active_element-         (unHTMLDocument (toHTMLDocument self)))---#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"bgColor\"] = $2;"         ghcjs_dom_html_document_set_bg_color ::         JSRef HTMLDocument -> JSString -> IO ()-#else -ghcjs_dom_html_document_set_bg_color ::-                                       JSRef HTMLDocument -> JSString -> IO ()-ghcjs_dom_html_document_set_bg_color = undefined-#endif   htmlDocumentSetBgColor ::                        (IsHTMLDocument self, ToJSString val) => self -> val -> IO ()@@ -326,17 +187,10 @@   = ghcjs_dom_html_document_set_bg_color       (unHTMLDocument (toHTMLDocument self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"bgColor\"]"         ghcjs_dom_html_document_get_bg_color ::         JSRef HTMLDocument -> IO JSString-#else -ghcjs_dom_html_document_get_bg_color ::-                                       JSRef HTMLDocument -> IO JSString-ghcjs_dom_html_document_get_bg_color = undefined-#endif   htmlDocumentGetBgColor ::                        (IsHTMLDocument self, FromJSString result) => self -> IO result@@ -344,17 +198,10 @@   = fromJSString <$>       (ghcjs_dom_html_document_get_bg_color          (unHTMLDocument (toHTMLDocument self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"fgColor\"] = $2;"         ghcjs_dom_html_document_set_fg_color ::         JSRef HTMLDocument -> JSString -> IO ()-#else -ghcjs_dom_html_document_set_fg_color ::-                                       JSRef HTMLDocument -> JSString -> IO ()-ghcjs_dom_html_document_set_fg_color = undefined-#endif   htmlDocumentSetFgColor ::                        (IsHTMLDocument self, ToJSString val) => self -> val -> IO ()@@ -362,17 +209,10 @@   = ghcjs_dom_html_document_set_fg_color       (unHTMLDocument (toHTMLDocument self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"fgColor\"]"         ghcjs_dom_html_document_get_fg_color ::         JSRef HTMLDocument -> IO JSString-#else -ghcjs_dom_html_document_get_fg_color ::-                                       JSRef HTMLDocument -> IO JSString-ghcjs_dom_html_document_get_fg_color = undefined-#endif   htmlDocumentGetFgColor ::                        (IsHTMLDocument self, FromJSString result) => self -> IO result@@ -380,17 +220,10 @@   = fromJSString <$>       (ghcjs_dom_html_document_get_fg_color          (unHTMLDocument (toHTMLDocument self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"alinkColor\"] = $2;"         ghcjs_dom_html_document_set_alink_color ::         JSRef HTMLDocument -> JSString -> IO ()-#else -ghcjs_dom_html_document_set_alink_color ::-                                          JSRef HTMLDocument -> JSString -> IO ()-ghcjs_dom_html_document_set_alink_color = undefined-#endif   htmlDocumentSetAlinkColor ::                           (IsHTMLDocument self, ToJSString val) => self -> val -> IO ()@@ -398,17 +231,10 @@   = ghcjs_dom_html_document_set_alink_color       (unHTMLDocument (toHTMLDocument self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"alinkColor\"]"         ghcjs_dom_html_document_get_alink_color ::         JSRef HTMLDocument -> IO JSString-#else -ghcjs_dom_html_document_get_alink_color ::-                                          JSRef HTMLDocument -> IO JSString-ghcjs_dom_html_document_get_alink_color = undefined-#endif   htmlDocumentGetAlinkColor ::                           (IsHTMLDocument self, FromJSString result) => self -> IO result@@ -416,17 +242,10 @@   = fromJSString <$>       (ghcjs_dom_html_document_get_alink_color          (unHTMLDocument (toHTMLDocument self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"linkColor\"] = $2;"         ghcjs_dom_html_document_set_link_color ::         JSRef HTMLDocument -> JSString -> IO ()-#else -ghcjs_dom_html_document_set_link_color ::-                                         JSRef HTMLDocument -> JSString -> IO ()-ghcjs_dom_html_document_set_link_color = undefined-#endif   htmlDocumentSetLinkColor ::                          (IsHTMLDocument self, ToJSString val) => self -> val -> IO ()@@ -434,17 +253,10 @@   = ghcjs_dom_html_document_set_link_color       (unHTMLDocument (toHTMLDocument self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"linkColor\"]"         ghcjs_dom_html_document_get_link_color ::         JSRef HTMLDocument -> IO JSString-#else -ghcjs_dom_html_document_get_link_color ::-                                         JSRef HTMLDocument -> IO JSString-ghcjs_dom_html_document_get_link_color = undefined-#endif   htmlDocumentGetLinkColor ::                          (IsHTMLDocument self, FromJSString result) => self -> IO result@@ -452,17 +264,10 @@   = fromJSString <$>       (ghcjs_dom_html_document_get_link_color          (unHTMLDocument (toHTMLDocument self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"vlinkColor\"] = $2;"         ghcjs_dom_html_document_set_vlink_color ::         JSRef HTMLDocument -> JSString -> IO ()-#else -ghcjs_dom_html_document_set_vlink_color ::-                                          JSRef HTMLDocument -> JSString -> IO ()-ghcjs_dom_html_document_set_vlink_color = undefined-#endif   htmlDocumentSetVlinkColor ::                           (IsHTMLDocument self, ToJSString val) => self -> val -> IO ()@@ -470,17 +275,10 @@   = ghcjs_dom_html_document_set_vlink_color       (unHTMLDocument (toHTMLDocument self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"vlinkColor\"]"         ghcjs_dom_html_document_get_vlink_color ::         JSRef HTMLDocument -> IO JSString-#else -ghcjs_dom_html_document_get_vlink_color ::-                                          JSRef HTMLDocument -> IO JSString-ghcjs_dom_html_document_get_vlink_color = undefined-#endif   htmlDocumentGetVlinkColor ::                           (IsHTMLDocument self, FromJSString result) => self -> IO result

src/GHCJS/DOM/HTMLElement.hs view

@@ -50,31 +50,19 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"insertAdjacentElement\"]($2,\n$3)"         ghcjs_dom_html_element_insert_adjacent_element ::         JSRef HTMLElement ->           JSString -> JSRef Element -> IO (JSRef Element)-#else -ghcjs_dom_html_element_insert_adjacent_element ::-                                                 JSRef HTMLElement ->-                                                   JSString -> JSRef Element -> IO (JSRef Element)-ghcjs_dom_html_element_insert_adjacent_element = undefined-#endif   htmlElementInsertAdjacentElement ::                                  (IsHTMLElement self, ToJSString where', IsElement element) =>@@ -85,18 +73,11 @@          (unHTMLElement (toHTMLElement self))          (toJSString where')          (maybe jsNull (unElement . toElement) element))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"insertAdjacentHTML\"]($2, $3)"         ghcjs_dom_html_element_insert_adjacent_html ::         JSRef HTMLElement -> JSString -> JSString -> IO ()-#else -ghcjs_dom_html_element_insert_adjacent_html ::-                                              JSRef HTMLElement -> JSString -> JSString -> IO ()-ghcjs_dom_html_element_insert_adjacent_html = undefined-#endif   htmlElementInsertAdjacentHTML ::                               (IsHTMLElement self, ToJSString where', ToJSString html) =>@@ -106,18 +87,11 @@       (unHTMLElement (toHTMLElement self))       (toJSString where')       (toJSString html)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"insertAdjacentText\"]($2, $3)"         ghcjs_dom_html_element_insert_adjacent_text ::         JSRef HTMLElement -> JSString -> JSString -> IO ()-#else -ghcjs_dom_html_element_insert_adjacent_text ::-                                              JSRef HTMLElement -> JSString -> JSString -> IO ()-ghcjs_dom_html_element_insert_adjacent_text = undefined-#endif   htmlElementInsertAdjacentText ::                               (IsHTMLElement self, ToJSString where', ToJSString text) =>@@ -127,30 +101,17 @@       (unHTMLElement (toHTMLElement self))       (toJSString where')       (toJSString text)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"click\"]()"         ghcjs_dom_html_element_click :: JSRef HTMLElement -> IO ()-#else -ghcjs_dom_html_element_click :: JSRef HTMLElement -> IO ()-ghcjs_dom_html_element_click = undefined-#endif   htmlElementClick :: (IsHTMLElement self) => self -> IO () htmlElementClick self   = ghcjs_dom_html_element_click (unHTMLElement (toHTMLElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"title\"] = $2;"         ghcjs_dom_html_element_set_title ::         JSRef HTMLElement -> JSString -> IO ()-#else -ghcjs_dom_html_element_set_title ::-                                   JSRef HTMLElement -> JSString -> IO ()-ghcjs_dom_html_element_set_title = undefined-#endif   htmlElementSetTitle ::                     (IsHTMLElement self, ToJSString val) => self -> val -> IO ()@@ -158,17 +119,10 @@   = ghcjs_dom_html_element_set_title       (unHTMLElement (toHTMLElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"title\"]"         ghcjs_dom_html_element_get_title ::         JSRef HTMLElement -> IO JSString-#else -ghcjs_dom_html_element_get_title ::-                                   JSRef HTMLElement -> IO JSString-ghcjs_dom_html_element_get_title = undefined-#endif   htmlElementGetTitle ::                     (IsHTMLElement self, FromJSString result) => self -> IO result@@ -176,17 +130,10 @@   = fromJSString <$>       (ghcjs_dom_html_element_get_title          (unHTMLElement (toHTMLElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"lang\"] = $2;"         ghcjs_dom_html_element_set_lang ::         JSRef HTMLElement -> JSString -> IO ()-#else -ghcjs_dom_html_element_set_lang ::-                                  JSRef HTMLElement -> JSString -> IO ()-ghcjs_dom_html_element_set_lang = undefined-#endif   htmlElementSetLang ::                    (IsHTMLElement self, ToJSString val) => self -> val -> IO ()@@ -194,15 +141,9 @@   = ghcjs_dom_html_element_set_lang       (unHTMLElement (toHTMLElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"lang\"]"         ghcjs_dom_html_element_get_lang :: JSRef HTMLElement -> IO JSString-#else -ghcjs_dom_html_element_get_lang :: JSRef HTMLElement -> IO JSString-ghcjs_dom_html_element_get_lang = undefined-#endif   htmlElementGetLang ::                    (IsHTMLElement self, FromJSString result) => self -> IO result@@ -210,17 +151,10 @@   = fromJSString <$>       (ghcjs_dom_html_element_get_lang          (unHTMLElement (toHTMLElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"translate\"] = $2;"         ghcjs_dom_html_element_set_translate ::         JSRef HTMLElement -> Bool -> IO ()-#else -ghcjs_dom_html_element_set_translate ::-                                       JSRef HTMLElement -> Bool -> IO ()-ghcjs_dom_html_element_set_translate = undefined-#endif   htmlElementSetTranslate ::                         (IsHTMLElement self) => self -> Bool -> IO ()@@ -228,33 +162,19 @@   = ghcjs_dom_html_element_set_translate       (unHTMLElement (toHTMLElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"translate\"] ? 1 : 0)"         ghcjs_dom_html_element_get_translate ::         JSRef HTMLElement -> IO Bool-#else -ghcjs_dom_html_element_get_translate ::-                                       JSRef HTMLElement -> IO Bool-ghcjs_dom_html_element_get_translate = undefined-#endif   htmlElementGetTranslate :: (IsHTMLElement self) => self -> IO Bool htmlElementGetTranslate self   = ghcjs_dom_html_element_get_translate       (unHTMLElement (toHTMLElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"dir\"] = $2;"         ghcjs_dom_html_element_set_dir ::         JSRef HTMLElement -> JSString -> IO ()-#else -ghcjs_dom_html_element_set_dir ::-                                 JSRef HTMLElement -> JSString -> IO ()-ghcjs_dom_html_element_set_dir = undefined-#endif   htmlElementSetDir ::                   (IsHTMLElement self, ToJSString val) => self -> val -> IO ()@@ -262,15 +182,9 @@   = ghcjs_dom_html_element_set_dir       (unHTMLElement (toHTMLElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"dir\"]"         ghcjs_dom_html_element_get_dir :: JSRef HTMLElement -> IO JSString-#else -ghcjs_dom_html_element_get_dir :: JSRef HTMLElement -> IO JSString-ghcjs_dom_html_element_get_dir = undefined-#endif   htmlElementGetDir ::                   (IsHTMLElement self, FromJSString result) => self -> IO result@@ -278,17 +192,10 @@   = fromJSString <$>       (ghcjs_dom_html_element_get_dir          (unHTMLElement (toHTMLElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"tabIndex\"] = $2;"         ghcjs_dom_html_element_set_tab_index ::         JSRef HTMLElement -> Int -> IO ()-#else -ghcjs_dom_html_element_set_tab_index ::-                                       JSRef HTMLElement -> Int -> IO ()-ghcjs_dom_html_element_set_tab_index = undefined-#endif   htmlElementSetTabIndex ::                        (IsHTMLElement self) => self -> Int -> IO ()@@ -296,31 +203,18 @@   = ghcjs_dom_html_element_set_tab_index       (unHTMLElement (toHTMLElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"tabIndex\"]"         ghcjs_dom_html_element_get_tab_index :: JSRef HTMLElement -> IO Int-#else -ghcjs_dom_html_element_get_tab_index :: JSRef HTMLElement -> IO Int-ghcjs_dom_html_element_get_tab_index = undefined-#endif   htmlElementGetTabIndex :: (IsHTMLElement self) => self -> IO Int htmlElementGetTabIndex self   = ghcjs_dom_html_element_get_tab_index       (unHTMLElement (toHTMLElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"draggable\"] = $2;"         ghcjs_dom_html_element_set_draggable ::         JSRef HTMLElement -> Bool -> IO ()-#else -ghcjs_dom_html_element_set_draggable ::-                                       JSRef HTMLElement -> Bool -> IO ()-ghcjs_dom_html_element_set_draggable = undefined-#endif   htmlElementSetDraggable ::                         (IsHTMLElement self) => self -> Bool -> IO ()@@ -328,33 +222,19 @@   = ghcjs_dom_html_element_set_draggable       (unHTMLElement (toHTMLElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"draggable\"] ? 1 : 0)"         ghcjs_dom_html_element_get_draggable ::         JSRef HTMLElement -> IO Bool-#else -ghcjs_dom_html_element_get_draggable ::-                                       JSRef HTMLElement -> IO Bool-ghcjs_dom_html_element_get_draggable = undefined-#endif   htmlElementGetDraggable :: (IsHTMLElement self) => self -> IO Bool htmlElementGetDraggable self   = ghcjs_dom_html_element_get_draggable       (unHTMLElement (toHTMLElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"webkitdropzone\"] = $2;"         ghcjs_dom_html_element_set_webkitdropzone ::         JSRef HTMLElement -> JSString -> IO ()-#else -ghcjs_dom_html_element_set_webkitdropzone ::-                                            JSRef HTMLElement -> JSString -> IO ()-ghcjs_dom_html_element_set_webkitdropzone = undefined-#endif   htmlElementSetWebkitdropzone ::                              (IsHTMLElement self, ToJSString val) => self -> val -> IO ()@@ -362,17 +242,10 @@   = ghcjs_dom_html_element_set_webkitdropzone       (unHTMLElement (toHTMLElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"webkitdropzone\"]"         ghcjs_dom_html_element_get_webkitdropzone ::         JSRef HTMLElement -> IO JSString-#else -ghcjs_dom_html_element_get_webkitdropzone ::-                                            JSRef HTMLElement -> IO JSString-ghcjs_dom_html_element_get_webkitdropzone = undefined-#endif   htmlElementGetWebkitdropzone ::                              (IsHTMLElement self, FromJSString result) => self -> IO result@@ -380,17 +253,10 @@   = fromJSString <$>       (ghcjs_dom_html_element_get_webkitdropzone          (unHTMLElement (toHTMLElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"hidden\"] = $2;"         ghcjs_dom_html_element_set_hidden ::         JSRef HTMLElement -> Bool -> IO ()-#else -ghcjs_dom_html_element_set_hidden ::-                                    JSRef HTMLElement -> Bool -> IO ()-ghcjs_dom_html_element_set_hidden = undefined-#endif   htmlElementSetHidden ::                      (IsHTMLElement self) => self -> Bool -> IO ()@@ -398,31 +264,18 @@   = ghcjs_dom_html_element_set_hidden       (unHTMLElement (toHTMLElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"hidden\"] ? 1 : 0)"         ghcjs_dom_html_element_get_hidden :: JSRef HTMLElement -> IO Bool-#else -ghcjs_dom_html_element_get_hidden :: JSRef HTMLElement -> IO Bool-ghcjs_dom_html_element_get_hidden = undefined-#endif   htmlElementGetHidden :: (IsHTMLElement self) => self -> IO Bool htmlElementGetHidden self   = ghcjs_dom_html_element_get_hidden       (unHTMLElement (toHTMLElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"accessKey\"] = $2;"         ghcjs_dom_html_element_set_access_key ::         JSRef HTMLElement -> JSString -> IO ()-#else -ghcjs_dom_html_element_set_access_key ::-                                        JSRef HTMLElement -> JSString -> IO ()-ghcjs_dom_html_element_set_access_key = undefined-#endif   htmlElementSetAccessKey ::                         (IsHTMLElement self, ToJSString val) => self -> val -> IO ()@@ -430,17 +283,10 @@   = ghcjs_dom_html_element_set_access_key       (unHTMLElement (toHTMLElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"accessKey\"]"         ghcjs_dom_html_element_get_access_key ::         JSRef HTMLElement -> IO JSString-#else -ghcjs_dom_html_element_get_access_key ::-                                        JSRef HTMLElement -> IO JSString-ghcjs_dom_html_element_get_access_key = undefined-#endif   htmlElementGetAccessKey ::                         (IsHTMLElement self, FromJSString result) => self -> IO result@@ -448,17 +294,10 @@   = fromJSString <$>       (ghcjs_dom_html_element_get_access_key          (unHTMLElement (toHTMLElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"innerHTML\"] = $2;"         ghcjs_dom_html_element_set_inner_html ::         JSRef HTMLElement -> JSString -> IO ()-#else -ghcjs_dom_html_element_set_inner_html ::-                                        JSRef HTMLElement -> JSString -> IO ()-ghcjs_dom_html_element_set_inner_html = undefined-#endif   htmlElementSetInnerHTML ::                         (IsHTMLElement self, ToJSString val) => self -> val -> IO ()@@ -466,17 +305,10 @@   = ghcjs_dom_html_element_set_inner_html       (unHTMLElement (toHTMLElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"innerHTML\"]"         ghcjs_dom_html_element_get_inner_html ::         JSRef HTMLElement -> IO JSString-#else -ghcjs_dom_html_element_get_inner_html ::-                                        JSRef HTMLElement -> IO JSString-ghcjs_dom_html_element_get_inner_html = undefined-#endif   htmlElementGetInnerHTML ::                         (IsHTMLElement self, FromJSString result) => self -> IO result@@ -484,17 +316,10 @@   = fromJSString <$>       (ghcjs_dom_html_element_get_inner_html          (unHTMLElement (toHTMLElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"innerText\"] = $2;"         ghcjs_dom_html_element_set_inner_text ::         JSRef HTMLElement -> JSString -> IO ()-#else -ghcjs_dom_html_element_set_inner_text ::-                                        JSRef HTMLElement -> JSString -> IO ()-ghcjs_dom_html_element_set_inner_text = undefined-#endif   htmlElementSetInnerText ::                         (IsHTMLElement self, ToJSString val) => self -> val -> IO ()@@ -502,17 +327,10 @@   = ghcjs_dom_html_element_set_inner_text       (unHTMLElement (toHTMLElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"innerText\"]"         ghcjs_dom_html_element_get_inner_text ::         JSRef HTMLElement -> IO JSString-#else -ghcjs_dom_html_element_get_inner_text ::-                                        JSRef HTMLElement -> IO JSString-ghcjs_dom_html_element_get_inner_text = undefined-#endif   htmlElementGetInnerText ::                         (IsHTMLElement self, FromJSString result) => self -> IO result@@ -520,17 +338,10 @@   = fromJSString <$>       (ghcjs_dom_html_element_get_inner_text          (unHTMLElement (toHTMLElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"outerHTML\"] = $2;"         ghcjs_dom_html_element_set_outer_html ::         JSRef HTMLElement -> JSString -> IO ()-#else -ghcjs_dom_html_element_set_outer_html ::-                                        JSRef HTMLElement -> JSString -> IO ()-ghcjs_dom_html_element_set_outer_html = undefined-#endif   htmlElementSetOuterHTML ::                         (IsHTMLElement self, ToJSString val) => self -> val -> IO ()@@ -538,17 +349,10 @@   = ghcjs_dom_html_element_set_outer_html       (unHTMLElement (toHTMLElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"outerHTML\"]"         ghcjs_dom_html_element_get_outer_html ::         JSRef HTMLElement -> IO JSString-#else -ghcjs_dom_html_element_get_outer_html ::-                                        JSRef HTMLElement -> IO JSString-ghcjs_dom_html_element_get_outer_html = undefined-#endif   htmlElementGetOuterHTML ::                         (IsHTMLElement self, FromJSString result) => self -> IO result@@ -556,17 +360,10 @@   = fromJSString <$>       (ghcjs_dom_html_element_get_outer_html          (unHTMLElement (toHTMLElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"outerText\"] = $2;"         ghcjs_dom_html_element_set_outer_text ::         JSRef HTMLElement -> JSString -> IO ()-#else -ghcjs_dom_html_element_set_outer_text ::-                                        JSRef HTMLElement -> JSString -> IO ()-ghcjs_dom_html_element_set_outer_text = undefined-#endif   htmlElementSetOuterText ::                         (IsHTMLElement self, ToJSString val) => self -> val -> IO ()@@ -574,17 +371,10 @@   = ghcjs_dom_html_element_set_outer_text       (unHTMLElement (toHTMLElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"outerText\"]"         ghcjs_dom_html_element_get_outer_text ::         JSRef HTMLElement -> IO JSString-#else -ghcjs_dom_html_element_get_outer_text ::-                                        JSRef HTMLElement -> IO JSString-ghcjs_dom_html_element_get_outer_text = undefined-#endif   htmlElementGetOuterText ::                         (IsHTMLElement self, FromJSString result) => self -> IO result@@ -592,17 +382,10 @@   = fromJSString <$>       (ghcjs_dom_html_element_get_outer_text          (unHTMLElement (toHTMLElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"children\"]"         ghcjs_dom_html_element_get_children ::         JSRef HTMLElement -> IO (JSRef HTMLCollection)-#else -ghcjs_dom_html_element_get_children ::-                                      JSRef HTMLElement -> IO (JSRef HTMLCollection)-ghcjs_dom_html_element_get_children = undefined-#endif   htmlElementGetChildren ::                        (IsHTMLElement self) => self -> IO (Maybe HTMLCollection)@@ -610,17 +393,10 @@   = fmap HTMLCollection . maybeJSNull <$>       (ghcjs_dom_html_element_get_children          (unHTMLElement (toHTMLElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"contentEditable\"] = $2;"         ghcjs_dom_html_element_set_content_editable ::         JSRef HTMLElement -> JSString -> IO ()-#else -ghcjs_dom_html_element_set_content_editable ::-                                              JSRef HTMLElement -> JSString -> IO ()-ghcjs_dom_html_element_set_content_editable = undefined-#endif   htmlElementSetContentEditable ::                               (IsHTMLElement self, ToJSString val) => self -> val -> IO ()@@ -628,17 +404,10 @@   = ghcjs_dom_html_element_set_content_editable       (unHTMLElement (toHTMLElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"contentEditable\"]"         ghcjs_dom_html_element_get_content_editable ::         JSRef HTMLElement -> IO JSString-#else -ghcjs_dom_html_element_get_content_editable ::-                                              JSRef HTMLElement -> IO JSString-ghcjs_dom_html_element_get_content_editable = undefined-#endif   htmlElementGetContentEditable ::                               (IsHTMLElement self, FromJSString result) => self -> IO result@@ -646,35 +415,21 @@   = fromJSString <$>       (ghcjs_dom_html_element_get_content_editable          (unHTMLElement (toHTMLElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"isContentEditable\"] ? 1 : 0)"         ghcjs_dom_html_element_get_is_content_editable ::         JSRef HTMLElement -> IO Bool-#else -ghcjs_dom_html_element_get_is_content_editable ::-                                                 JSRef HTMLElement -> IO Bool-ghcjs_dom_html_element_get_is_content_editable = undefined-#endif   htmlElementGetIsContentEditable ::                                 (IsHTMLElement self) => self -> IO Bool htmlElementGetIsContentEditable self   = ghcjs_dom_html_element_get_is_content_editable       (unHTMLElement (toHTMLElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"spellcheck\"] = $2;"         ghcjs_dom_html_element_set_spellcheck ::         JSRef HTMLElement -> Bool -> IO ()-#else -ghcjs_dom_html_element_set_spellcheck ::-                                        JSRef HTMLElement -> Bool -> IO ()-ghcjs_dom_html_element_set_spellcheck = undefined-#endif   htmlElementSetSpellcheck ::                          (IsHTMLElement self) => self -> Bool -> IO ()@@ -682,17 +437,10 @@   = ghcjs_dom_html_element_set_spellcheck       (unHTMLElement (toHTMLElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"spellcheck\"] ? 1 : 0)"         ghcjs_dom_html_element_get_spellcheck ::         JSRef HTMLElement -> IO Bool-#else -ghcjs_dom_html_element_get_spellcheck ::-                                        JSRef HTMLElement -> IO Bool-ghcjs_dom_html_element_get_spellcheck = undefined-#endif   htmlElementGetSpellcheck :: (IsHTMLElement self) => self -> IO Bool htmlElementGetSpellcheck self

src/GHCJS/DOM/HTMLEmbedElement.hs view

@@ -17,28 +17,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_embed_element_set_align ::         JSRef HTMLEmbedElement -> JSString -> IO ()-#else -ghcjs_dom_html_embed_element_set_align ::-                                         JSRef HTMLEmbedElement -> JSString -> IO ()-ghcjs_dom_html_embed_element_set_align = undefined-#endif   htmlEmbedElementSetAlign ::                          (IsHTMLEmbedElement self, ToJSString val) => self -> val -> IO ()@@ -46,17 +35,10 @@   = ghcjs_dom_html_embed_element_set_align       (unHTMLEmbedElement (toHTMLEmbedElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_embed_element_get_align ::         JSRef HTMLEmbedElement -> IO JSString-#else -ghcjs_dom_html_embed_element_get_align ::-                                         JSRef HTMLEmbedElement -> IO JSString-ghcjs_dom_html_embed_element_get_align = undefined-#endif   htmlEmbedElementGetAlign ::                          (IsHTMLEmbedElement self, FromJSString result) => self -> IO result@@ -64,17 +46,10 @@   = fromJSString <$>       (ghcjs_dom_html_embed_element_get_align          (unHTMLEmbedElement (toHTMLEmbedElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"height\"] = $2;"         ghcjs_dom_html_embed_element_set_height ::         JSRef HTMLEmbedElement -> Int -> IO ()-#else -ghcjs_dom_html_embed_element_set_height ::-                                          JSRef HTMLEmbedElement -> Int -> IO ()-ghcjs_dom_html_embed_element_set_height = undefined-#endif   htmlEmbedElementSetHeight ::                           (IsHTMLEmbedElement self) => self -> Int -> IO ()@@ -82,34 +57,20 @@   = ghcjs_dom_html_embed_element_set_height       (unHTMLEmbedElement (toHTMLEmbedElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_embed_element_get_height ::         JSRef HTMLEmbedElement -> IO Int-#else -ghcjs_dom_html_embed_element_get_height ::-                                          JSRef HTMLEmbedElement -> IO Int-ghcjs_dom_html_embed_element_get_height = undefined-#endif   htmlEmbedElementGetHeight ::                           (IsHTMLEmbedElement self) => self -> IO Int htmlEmbedElementGetHeight self   = ghcjs_dom_html_embed_element_get_height       (unHTMLEmbedElement (toHTMLEmbedElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_embed_element_set_name ::         JSRef HTMLEmbedElement -> JSString -> IO ()-#else -ghcjs_dom_html_embed_element_set_name ::-                                        JSRef HTMLEmbedElement -> JSString -> IO ()-ghcjs_dom_html_embed_element_set_name = undefined-#endif   htmlEmbedElementSetName ::                         (IsHTMLEmbedElement self, ToJSString val) => self -> val -> IO ()@@ -117,17 +78,10 @@   = ghcjs_dom_html_embed_element_set_name       (unHTMLEmbedElement (toHTMLEmbedElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_embed_element_get_name ::         JSRef HTMLEmbedElement -> IO JSString-#else -ghcjs_dom_html_embed_element_get_name ::-                                        JSRef HTMLEmbedElement -> IO JSString-ghcjs_dom_html_embed_element_get_name = undefined-#endif   htmlEmbedElementGetName ::                         (IsHTMLEmbedElement self, FromJSString result) => self -> IO result@@ -135,17 +89,10 @@   = fromJSString <$>       (ghcjs_dom_html_embed_element_get_name          (unHTMLEmbedElement (toHTMLEmbedElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"src\"] = $2;"         ghcjs_dom_html_embed_element_set_src ::         JSRef HTMLEmbedElement -> JSString -> IO ()-#else -ghcjs_dom_html_embed_element_set_src ::-                                       JSRef HTMLEmbedElement -> JSString -> IO ()-ghcjs_dom_html_embed_element_set_src = undefined-#endif   htmlEmbedElementSetSrc ::                        (IsHTMLEmbedElement self, ToJSString val) => self -> val -> IO ()@@ -153,17 +100,10 @@   = ghcjs_dom_html_embed_element_set_src       (unHTMLEmbedElement (toHTMLEmbedElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"src\"]"         ghcjs_dom_html_embed_element_get_src ::         JSRef HTMLEmbedElement -> IO JSString-#else -ghcjs_dom_html_embed_element_get_src ::-                                       JSRef HTMLEmbedElement -> IO JSString-ghcjs_dom_html_embed_element_get_src = undefined-#endif   htmlEmbedElementGetSrc ::                        (IsHTMLEmbedElement self, FromJSString result) => self -> IO result@@ -171,17 +111,10 @@   = fromJSString <$>       (ghcjs_dom_html_embed_element_get_src          (unHTMLEmbedElement (toHTMLEmbedElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_embed_element_set_width ::         JSRef HTMLEmbedElement -> Int -> IO ()-#else -ghcjs_dom_html_embed_element_set_width ::-                                         JSRef HTMLEmbedElement -> Int -> IO ()-ghcjs_dom_html_embed_element_set_width = undefined-#endif   htmlEmbedElementSetWidth ::                          (IsHTMLEmbedElement self) => self -> Int -> IO ()@@ -189,17 +122,10 @@   = ghcjs_dom_html_embed_element_set_width       (unHTMLEmbedElement (toHTMLEmbedElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_embed_element_get_width ::         JSRef HTMLEmbedElement -> IO Int-#else -ghcjs_dom_html_embed_element_get_width ::-                                         JSRef HTMLEmbedElement -> IO Int-ghcjs_dom_html_embed_element_get_width = undefined-#endif   htmlEmbedElementGetWidth ::                          (IsHTMLEmbedElement self) => self -> IO Int

src/GHCJS/DOM/HTMLFieldSetElement.hs view

@@ -29,47 +29,28 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)"         ghcjs_dom_html_field_set_element_check_validity ::         JSRef HTMLFieldSetElement -> IO Bool-#else -ghcjs_dom_html_field_set_element_check_validity ::-                                                  JSRef HTMLFieldSetElement -> IO Bool-ghcjs_dom_html_field_set_element_check_validity = undefined-#endif   htmlFieldSetElementCheckValidity ::                                  (IsHTMLFieldSetElement self) => self -> IO Bool htmlFieldSetElementCheckValidity self   = ghcjs_dom_html_field_set_element_check_validity       (unHTMLFieldSetElement (toHTMLFieldSetElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         ghcjs_dom_html_field_set_element_set_custom_validity ::         JSRef HTMLFieldSetElement -> JSString -> IO ()-#else -ghcjs_dom_html_field_set_element_set_custom_validity ::-                                                       JSRef HTMLFieldSetElement ->-                                                         JSString -> IO ()-ghcjs_dom_html_field_set_element_set_custom_validity = undefined-#endif   htmlFieldSetElementSetCustomValidity ::                                      (IsHTMLFieldSetElement self, ToJSString error) =>@@ -78,17 +59,10 @@   = ghcjs_dom_html_field_set_element_set_custom_validity       (unHTMLFieldSetElement (toHTMLFieldSetElement self))       (toJSString error)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"disabled\"] = $2;"         ghcjs_dom_html_field_set_element_set_disabled ::         JSRef HTMLFieldSetElement -> Bool -> IO ()-#else -ghcjs_dom_html_field_set_element_set_disabled ::-                                                JSRef HTMLFieldSetElement -> Bool -> IO ()-ghcjs_dom_html_field_set_element_set_disabled = undefined-#endif   htmlFieldSetElementSetDisabled ::                                (IsHTMLFieldSetElement self) => self -> Bool -> IO ()@@ -96,34 +70,20 @@   = ghcjs_dom_html_field_set_element_set_disabled       (unHTMLFieldSetElement (toHTMLFieldSetElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"         ghcjs_dom_html_field_set_element_get_disabled ::         JSRef HTMLFieldSetElement -> IO Bool-#else -ghcjs_dom_html_field_set_element_get_disabled ::-                                                JSRef HTMLFieldSetElement -> IO Bool-ghcjs_dom_html_field_set_element_get_disabled = undefined-#endif   htmlFieldSetElementGetDisabled ::                                (IsHTMLFieldSetElement self) => self -> IO Bool htmlFieldSetElementGetDisabled self   = ghcjs_dom_html_field_set_element_get_disabled       (unHTMLFieldSetElement (toHTMLFieldSetElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"form\"]"         ghcjs_dom_html_field_set_element_get_form ::         JSRef HTMLFieldSetElement -> IO (JSRef HTMLFormElement)-#else -ghcjs_dom_html_field_set_element_get_form ::-                                            JSRef HTMLFieldSetElement -> IO (JSRef HTMLFormElement)-ghcjs_dom_html_field_set_element_get_form = undefined-#endif   htmlFieldSetElementGetForm ::                            (IsHTMLFieldSetElement self) => self -> IO (Maybe HTMLFormElement)@@ -131,17 +91,10 @@   = fmap HTMLFormElement . maybeJSNull <$>       (ghcjs_dom_html_field_set_element_get_form          (unHTMLFieldSetElement (toHTMLFieldSetElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_field_set_element_set_name ::         JSRef HTMLFieldSetElement -> JSString -> IO ()-#else -ghcjs_dom_html_field_set_element_set_name ::-                                            JSRef HTMLFieldSetElement -> JSString -> IO ()-ghcjs_dom_html_field_set_element_set_name = undefined-#endif   htmlFieldSetElementSetName ::                            (IsHTMLFieldSetElement self, ToJSString val) =>@@ -150,17 +103,10 @@   = ghcjs_dom_html_field_set_element_set_name       (unHTMLFieldSetElement (toHTMLFieldSetElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_field_set_element_get_name ::         JSRef HTMLFieldSetElement -> IO JSString-#else -ghcjs_dom_html_field_set_element_get_name ::-                                            JSRef HTMLFieldSetElement -> IO JSString-ghcjs_dom_html_field_set_element_get_name = undefined-#endif   htmlFieldSetElementGetName ::                            (IsHTMLFieldSetElement self, FromJSString result) =>@@ -169,18 +115,10 @@   = fromJSString <$>       (ghcjs_dom_html_field_set_element_get_name          (unHTMLFieldSetElement (toHTMLFieldSetElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"elements\"]"         ghcjs_dom_html_field_set_element_get_elements ::         JSRef HTMLFieldSetElement -> IO (JSRef HTMLCollection)-#else -ghcjs_dom_html_field_set_element_get_elements ::-                                                JSRef HTMLFieldSetElement ->-                                                  IO (JSRef HTMLCollection)-ghcjs_dom_html_field_set_element_get_elements = undefined-#endif   htmlFieldSetElementGetElements ::                                (IsHTMLFieldSetElement self) => self -> IO (Maybe HTMLCollection)@@ -188,35 +126,20 @@   = fmap HTMLCollection . maybeJSNull <$>       (ghcjs_dom_html_field_set_element_get_elements          (unHTMLFieldSetElement (toHTMLFieldSetElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"         ghcjs_dom_html_field_set_element_get_will_validate ::         JSRef HTMLFieldSetElement -> IO Bool-#else -ghcjs_dom_html_field_set_element_get_will_validate ::-                                                     JSRef HTMLFieldSetElement -> IO Bool-ghcjs_dom_html_field_set_element_get_will_validate = undefined-#endif   htmlFieldSetElementGetWillValidate ::                                    (IsHTMLFieldSetElement self) => self -> IO Bool htmlFieldSetElementGetWillValidate self   = ghcjs_dom_html_field_set_element_get_will_validate       (unHTMLFieldSetElement (toHTMLFieldSetElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"validity\"]"         ghcjs_dom_html_field_set_element_get_validity ::         JSRef HTMLFieldSetElement -> IO (JSRef ValidityState)-#else -ghcjs_dom_html_field_set_element_get_validity ::-                                                JSRef HTMLFieldSetElement ->-                                                  IO (JSRef ValidityState)-ghcjs_dom_html_field_set_element_get_validity = undefined-#endif   htmlFieldSetElementGetValidity ::                                (IsHTMLFieldSetElement self) => self -> IO (Maybe ValidityState)@@ -224,17 +147,10 @@   = fmap ValidityState . maybeJSNull <$>       (ghcjs_dom_html_field_set_element_get_validity          (unHTMLFieldSetElement (toHTMLFieldSetElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"validationMessage\"]"         ghcjs_dom_html_field_set_element_get_validation_message ::         JSRef HTMLFieldSetElement -> IO JSString-#else -ghcjs_dom_html_field_set_element_get_validation_message ::-                                                          JSRef HTMLFieldSetElement -> IO JSString-ghcjs_dom_html_field_set_element_get_validation_message = undefined-#endif   htmlFieldSetElementGetValidationMessage ::                                         (IsHTMLFieldSetElement self, FromJSString result) =>

src/GHCJS/DOM/HTMLFontElement.hs view

@@ -13,28 +13,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"color\"] = $2;"         ghcjs_dom_html_font_element_set_color ::         JSRef HTMLFontElement -> JSString -> IO ()-#else -ghcjs_dom_html_font_element_set_color ::-                                        JSRef HTMLFontElement -> JSString -> IO ()-ghcjs_dom_html_font_element_set_color = undefined-#endif   htmlFontElementSetColor ::                         (IsHTMLFontElement self, ToJSString val) => self -> val -> IO ()@@ -42,17 +31,10 @@   = ghcjs_dom_html_font_element_set_color       (unHTMLFontElement (toHTMLFontElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"color\"]"         ghcjs_dom_html_font_element_get_color ::         JSRef HTMLFontElement -> IO JSString-#else -ghcjs_dom_html_font_element_get_color ::-                                        JSRef HTMLFontElement -> IO JSString-ghcjs_dom_html_font_element_get_color = undefined-#endif   htmlFontElementGetColor ::                         (IsHTMLFontElement self, FromJSString result) => self -> IO result@@ -60,17 +42,10 @@   = fromJSString <$>       (ghcjs_dom_html_font_element_get_color          (unHTMLFontElement (toHTMLFontElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"face\"] = $2;"         ghcjs_dom_html_font_element_set_face ::         JSRef HTMLFontElement -> JSString -> IO ()-#else -ghcjs_dom_html_font_element_set_face ::-                                       JSRef HTMLFontElement -> JSString -> IO ()-ghcjs_dom_html_font_element_set_face = undefined-#endif   htmlFontElementSetFace ::                        (IsHTMLFontElement self, ToJSString val) => self -> val -> IO ()@@ -78,17 +53,10 @@   = ghcjs_dom_html_font_element_set_face       (unHTMLFontElement (toHTMLFontElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"face\"]"         ghcjs_dom_html_font_element_get_face ::         JSRef HTMLFontElement -> IO JSString-#else -ghcjs_dom_html_font_element_get_face ::-                                       JSRef HTMLFontElement -> IO JSString-ghcjs_dom_html_font_element_get_face = undefined-#endif   htmlFontElementGetFace ::                        (IsHTMLFontElement self, FromJSString result) => self -> IO result@@ -96,17 +64,10 @@   = fromJSString <$>       (ghcjs_dom_html_font_element_get_face          (unHTMLFontElement (toHTMLFontElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"size\"] = $2;"         ghcjs_dom_html_font_element_set_size ::         JSRef HTMLFontElement -> JSString -> IO ()-#else -ghcjs_dom_html_font_element_set_size ::-                                       JSRef HTMLFontElement -> JSString -> IO ()-ghcjs_dom_html_font_element_set_size = undefined-#endif   htmlFontElementSetSize ::                        (IsHTMLFontElement self, ToJSString val) => self -> val -> IO ()@@ -114,17 +75,10 @@   = ghcjs_dom_html_font_element_set_size       (unHTMLFontElement (toHTMLFontElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"size\"]"         ghcjs_dom_html_font_element_get_size ::         JSRef HTMLFontElement -> IO JSString-#else -ghcjs_dom_html_font_element_get_size ::-                                       JSRef HTMLFontElement -> IO JSString-ghcjs_dom_html_font_element_get_size = undefined-#endif   htmlFontElementGetSize ::                        (IsHTMLFontElement self, FromJSString result) => self -> IO result

src/GHCJS/DOM/HTMLFormElement.hs view

@@ -7,6 +7,8 @@         ghcjs_dom_html_form_element_reset, htmlFormElementReset,         ghcjs_dom_html_form_element_check_validity,         htmlFormElementCheckValidity,+        ghcjs_dom_html_form_element_request_autocomplete,+        htmlFormElementRequestAutocomplete,         ghcjs_dom_html_form_element_set_accept_charset,         htmlFormElementSetAcceptCharset,         ghcjs_dom_html_form_element_get_accept_charset,@@ -35,33 +37,31 @@         ghcjs_dom_html_form_element_get_target, htmlFormElementGetTarget,         ghcjs_dom_html_form_element_get_elements,         htmlFormElementGetElements, ghcjs_dom_html_form_element_get_length,-        htmlFormElementGetLength, HTMLFormElement, IsHTMLFormElement,-        castToHTMLFormElement, gTypeHTMLFormElement, toHTMLFormElement)+        htmlFormElementGetLength,+        ghcjs_dom_html_form_element_set_autocorrect,+        htmlFormElementSetAutocorrect,+        ghcjs_dom_html_form_element_get_autocorrect,+        htmlFormElementGetAutocorrect,+        ghcjs_dom_html_form_element_set_autocapitalize,+        htmlFormElementSetAutocapitalize,+        ghcjs_dom_html_form_element_get_autocapitalize,+        htmlFormElementGetAutocapitalize, HTMLFormElement,+        IsHTMLFormElement, castToHTMLFormElement, gTypeHTMLFormElement,+        toHTMLFormElement)        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"_get\"]($2)"         ghcjs_dom_html_form_element_get ::         JSRef HTMLFormElement -> Word -> IO (JSRef Element)-#else -ghcjs_dom_html_form_element_get ::-                                  JSRef HTMLFormElement -> Word -> IO (JSRef Element)-ghcjs_dom_html_form_element_get = undefined-#endif   htmlFormElement_get ::                     (IsHTMLFormElement self) => self -> Word -> IO (Maybe Element)@@ -70,65 +70,48 @@       (ghcjs_dom_html_form_element_get          (unHTMLFormElement (toHTMLFormElement self))          index)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"submit\"]()"         ghcjs_dom_html_form_element_submit ::         JSRef HTMLFormElement -> IO ()-#else -ghcjs_dom_html_form_element_submit ::-                                     JSRef HTMLFormElement -> IO ()-ghcjs_dom_html_form_element_submit = undefined-#endif   htmlFormElementSubmit :: (IsHTMLFormElement self) => self -> IO () htmlFormElementSubmit self   = ghcjs_dom_html_form_element_submit       (unHTMLFormElement (toHTMLFormElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"reset\"]()"         ghcjs_dom_html_form_element_reset :: JSRef HTMLFormElement -> IO ()-#else -ghcjs_dom_html_form_element_reset :: JSRef HTMLFormElement -> IO ()-ghcjs_dom_html_form_element_reset = undefined-#endif   htmlFormElementReset :: (IsHTMLFormElement self) => self -> IO () htmlFormElementReset self   = ghcjs_dom_html_form_element_reset       (unHTMLFormElement (toHTMLFormElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)"         ghcjs_dom_html_form_element_check_validity ::         JSRef HTMLFormElement -> IO Bool-#else -ghcjs_dom_html_form_element_check_validity ::-                                             JSRef HTMLFormElement -> IO Bool-ghcjs_dom_html_form_element_check_validity = undefined-#endif   htmlFormElementCheckValidity ::                              (IsHTMLFormElement self) => self -> IO Bool htmlFormElementCheckValidity self   = ghcjs_dom_html_form_element_check_validity       (unHTMLFormElement (toHTMLFormElement self))---#ifdef ghcjs_HOST_OS + +foreign import javascript unsafe "$1[\"requestAutocomplete\"]()"+        ghcjs_dom_html_form_element_request_autocomplete ::+        JSRef HTMLFormElement -> IO ()+ +htmlFormElementRequestAutocomplete ::+                                   (IsHTMLFormElement self) => self -> IO ()+htmlFormElementRequestAutocomplete self+  = ghcjs_dom_html_form_element_request_autocomplete+      (unHTMLFormElement (toHTMLFormElement self))+  foreign import javascript unsafe "$1[\"acceptCharset\"] = $2;"         ghcjs_dom_html_form_element_set_accept_charset ::         JSRef HTMLFormElement -> JSString -> IO ()-#else -ghcjs_dom_html_form_element_set_accept_charset ::-                                                 JSRef HTMLFormElement -> JSString -> IO ()-ghcjs_dom_html_form_element_set_accept_charset = undefined-#endif   htmlFormElementSetAcceptCharset ::                                 (IsHTMLFormElement self, ToJSString val) => self -> val -> IO ()@@ -136,17 +119,10 @@   = ghcjs_dom_html_form_element_set_accept_charset       (unHTMLFormElement (toHTMLFormElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"acceptCharset\"]"         ghcjs_dom_html_form_element_get_accept_charset ::         JSRef HTMLFormElement -> IO JSString-#else -ghcjs_dom_html_form_element_get_accept_charset ::-                                                 JSRef HTMLFormElement -> IO JSString-ghcjs_dom_html_form_element_get_accept_charset = undefined-#endif   htmlFormElementGetAcceptCharset ::                                 (IsHTMLFormElement self, FromJSString result) => self -> IO result@@ -154,17 +130,10 @@   = fromJSString <$>       (ghcjs_dom_html_form_element_get_accept_charset          (unHTMLFormElement (toHTMLFormElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"action\"] = $2;"         ghcjs_dom_html_form_element_set_action ::         JSRef HTMLFormElement -> JSString -> IO ()-#else -ghcjs_dom_html_form_element_set_action ::-                                         JSRef HTMLFormElement -> JSString -> IO ()-ghcjs_dom_html_form_element_set_action = undefined-#endif   htmlFormElementSetAction ::                          (IsHTMLFormElement self, ToJSString val) => self -> val -> IO ()@@ -172,17 +141,10 @@   = ghcjs_dom_html_form_element_set_action       (unHTMLFormElement (toHTMLFormElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"action\"]"         ghcjs_dom_html_form_element_get_action ::         JSRef HTMLFormElement -> IO JSString-#else -ghcjs_dom_html_form_element_get_action ::-                                         JSRef HTMLFormElement -> IO JSString-ghcjs_dom_html_form_element_get_action = undefined-#endif   htmlFormElementGetAction ::                          (IsHTMLFormElement self, FromJSString result) => self -> IO result@@ -190,17 +152,10 @@   = fromJSString <$>       (ghcjs_dom_html_form_element_get_action          (unHTMLFormElement (toHTMLFormElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"autocomplete\"] = $2;"         ghcjs_dom_html_form_element_set_autocomplete ::         JSRef HTMLFormElement -> JSString -> IO ()-#else -ghcjs_dom_html_form_element_set_autocomplete ::-                                               JSRef HTMLFormElement -> JSString -> IO ()-ghcjs_dom_html_form_element_set_autocomplete = undefined-#endif   htmlFormElementSetAutocomplete ::                                (IsHTMLFormElement self, ToJSString val) => self -> val -> IO ()@@ -208,17 +163,10 @@   = ghcjs_dom_html_form_element_set_autocomplete       (unHTMLFormElement (toHTMLFormElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"autocomplete\"]"         ghcjs_dom_html_form_element_get_autocomplete ::         JSRef HTMLFormElement -> IO JSString-#else -ghcjs_dom_html_form_element_get_autocomplete ::-                                               JSRef HTMLFormElement -> IO JSString-ghcjs_dom_html_form_element_get_autocomplete = undefined-#endif   htmlFormElementGetAutocomplete ::                                (IsHTMLFormElement self, FromJSString result) => self -> IO result@@ -226,17 +174,10 @@   = fromJSString <$>       (ghcjs_dom_html_form_element_get_autocomplete          (unHTMLFormElement (toHTMLFormElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"enctype\"] = $2;"         ghcjs_dom_html_form_element_set_enctype ::         JSRef HTMLFormElement -> JSString -> IO ()-#else -ghcjs_dom_html_form_element_set_enctype ::-                                          JSRef HTMLFormElement -> JSString -> IO ()-ghcjs_dom_html_form_element_set_enctype = undefined-#endif   htmlFormElementSetEnctype ::                           (IsHTMLFormElement self, ToJSString val) => self -> val -> IO ()@@ -244,17 +185,10 @@   = ghcjs_dom_html_form_element_set_enctype       (unHTMLFormElement (toHTMLFormElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"enctype\"]"         ghcjs_dom_html_form_element_get_enctype ::         JSRef HTMLFormElement -> IO JSString-#else -ghcjs_dom_html_form_element_get_enctype ::-                                          JSRef HTMLFormElement -> IO JSString-ghcjs_dom_html_form_element_get_enctype = undefined-#endif   htmlFormElementGetEnctype ::                           (IsHTMLFormElement self, FromJSString result) => self -> IO result@@ -262,17 +196,10 @@   = fromJSString <$>       (ghcjs_dom_html_form_element_get_enctype          (unHTMLFormElement (toHTMLFormElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"encoding\"] = $2;"         ghcjs_dom_html_form_element_set_encoding ::         JSRef HTMLFormElement -> JSString -> IO ()-#else -ghcjs_dom_html_form_element_set_encoding ::-                                           JSRef HTMLFormElement -> JSString -> IO ()-ghcjs_dom_html_form_element_set_encoding = undefined-#endif   htmlFormElementSetEncoding ::                            (IsHTMLFormElement self, ToJSString val) => self -> val -> IO ()@@ -280,17 +207,10 @@   = ghcjs_dom_html_form_element_set_encoding       (unHTMLFormElement (toHTMLFormElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"encoding\"]"         ghcjs_dom_html_form_element_get_encoding ::         JSRef HTMLFormElement -> IO JSString-#else -ghcjs_dom_html_form_element_get_encoding ::-                                           JSRef HTMLFormElement -> IO JSString-ghcjs_dom_html_form_element_get_encoding = undefined-#endif   htmlFormElementGetEncoding ::                            (IsHTMLFormElement self, FromJSString result) => self -> IO result@@ -298,17 +218,10 @@   = fromJSString <$>       (ghcjs_dom_html_form_element_get_encoding          (unHTMLFormElement (toHTMLFormElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"method\"] = $2;"         ghcjs_dom_html_form_element_set_method ::         JSRef HTMLFormElement -> JSString -> IO ()-#else -ghcjs_dom_html_form_element_set_method ::-                                         JSRef HTMLFormElement -> JSString -> IO ()-ghcjs_dom_html_form_element_set_method = undefined-#endif   htmlFormElementSetMethod ::                          (IsHTMLFormElement self, ToJSString val) => self -> val -> IO ()@@ -316,17 +229,10 @@   = ghcjs_dom_html_form_element_set_method       (unHTMLFormElement (toHTMLFormElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"method\"]"         ghcjs_dom_html_form_element_get_method ::         JSRef HTMLFormElement -> IO JSString-#else -ghcjs_dom_html_form_element_get_method ::-                                         JSRef HTMLFormElement -> IO JSString-ghcjs_dom_html_form_element_get_method = undefined-#endif   htmlFormElementGetMethod ::                          (IsHTMLFormElement self, FromJSString result) => self -> IO result@@ -334,17 +240,10 @@   = fromJSString <$>       (ghcjs_dom_html_form_element_get_method          (unHTMLFormElement (toHTMLFormElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_form_element_set_name ::         JSRef HTMLFormElement -> JSString -> IO ()-#else -ghcjs_dom_html_form_element_set_name ::-                                       JSRef HTMLFormElement -> JSString -> IO ()-ghcjs_dom_html_form_element_set_name = undefined-#endif   htmlFormElementSetName ::                        (IsHTMLFormElement self, ToJSString val) => self -> val -> IO ()@@ -352,17 +251,10 @@   = ghcjs_dom_html_form_element_set_name       (unHTMLFormElement (toHTMLFormElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_form_element_get_name ::         JSRef HTMLFormElement -> IO JSString-#else -ghcjs_dom_html_form_element_get_name ::-                                       JSRef HTMLFormElement -> IO JSString-ghcjs_dom_html_form_element_get_name = undefined-#endif   htmlFormElementGetName ::                        (IsHTMLFormElement self, FromJSString result) => self -> IO result@@ -370,17 +262,10 @@   = fromJSString <$>       (ghcjs_dom_html_form_element_get_name          (unHTMLFormElement (toHTMLFormElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"noValidate\"] = $2;"         ghcjs_dom_html_form_element_set_no_validate ::         JSRef HTMLFormElement -> Bool -> IO ()-#else -ghcjs_dom_html_form_element_set_no_validate ::-                                              JSRef HTMLFormElement -> Bool -> IO ()-ghcjs_dom_html_form_element_set_no_validate = undefined-#endif   htmlFormElementSetNoValidate ::                              (IsHTMLFormElement self) => self -> Bool -> IO ()@@ -388,34 +273,20 @@   = ghcjs_dom_html_form_element_set_no_validate       (unHTMLFormElement (toHTMLFormElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"noValidate\"] ? 1 : 0)"         ghcjs_dom_html_form_element_get_no_validate ::         JSRef HTMLFormElement -> IO Bool-#else -ghcjs_dom_html_form_element_get_no_validate ::-                                              JSRef HTMLFormElement -> IO Bool-ghcjs_dom_html_form_element_get_no_validate = undefined-#endif   htmlFormElementGetNoValidate ::                              (IsHTMLFormElement self) => self -> IO Bool htmlFormElementGetNoValidate self   = ghcjs_dom_html_form_element_get_no_validate       (unHTMLFormElement (toHTMLFormElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"target\"] = $2;"         ghcjs_dom_html_form_element_set_target ::         JSRef HTMLFormElement -> JSString -> IO ()-#else -ghcjs_dom_html_form_element_set_target ::-                                         JSRef HTMLFormElement -> JSString -> IO ()-ghcjs_dom_html_form_element_set_target = undefined-#endif   htmlFormElementSetTarget ::                          (IsHTMLFormElement self, ToJSString val) => self -> val -> IO ()@@ -423,17 +294,10 @@   = ghcjs_dom_html_form_element_set_target       (unHTMLFormElement (toHTMLFormElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"target\"]"         ghcjs_dom_html_form_element_get_target ::         JSRef HTMLFormElement -> IO JSString-#else -ghcjs_dom_html_form_element_get_target ::-                                         JSRef HTMLFormElement -> IO JSString-ghcjs_dom_html_form_element_get_target = undefined-#endif   htmlFormElementGetTarget ::                          (IsHTMLFormElement self, FromJSString result) => self -> IO result@@ -441,17 +305,10 @@   = fromJSString <$>       (ghcjs_dom_html_form_element_get_target          (unHTMLFormElement (toHTMLFormElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"elements\"]"         ghcjs_dom_html_form_element_get_elements ::         JSRef HTMLFormElement -> IO (JSRef HTMLCollection)-#else -ghcjs_dom_html_form_element_get_elements ::-                                           JSRef HTMLFormElement -> IO (JSRef HTMLCollection)-ghcjs_dom_html_form_element_get_elements = undefined-#endif   htmlFormElementGetElements ::                            (IsHTMLFormElement self) => self -> IO (Maybe HTMLCollection)@@ -459,23 +316,59 @@   = fmap HTMLCollection . maybeJSNull <$>       (ghcjs_dom_html_form_element_get_elements          (unHTMLFormElement (toHTMLFormElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_html_form_element_get_length ::         JSRef HTMLFormElement -> IO Int-#else -ghcjs_dom_html_form_element_get_length ::-                                         JSRef HTMLFormElement -> IO Int-ghcjs_dom_html_form_element_get_length = undefined-#endif   htmlFormElementGetLength ::                          (IsHTMLFormElement self) => self -> IO Int htmlFormElementGetLength self   = ghcjs_dom_html_form_element_get_length       (unHTMLFormElement (toHTMLFormElement self))+ +foreign import javascript unsafe "$1[\"autocorrect\"] = $2;"+        ghcjs_dom_html_form_element_set_autocorrect ::+        JSRef HTMLFormElement -> Bool -> IO ()+ +htmlFormElementSetAutocorrect ::+                              (IsHTMLFormElement self) => self -> Bool -> IO ()+htmlFormElementSetAutocorrect self val+  = ghcjs_dom_html_form_element_set_autocorrect+      (unHTMLFormElement (toHTMLFormElement self))+      val+ +foreign import javascript unsafe "($1[\"autocorrect\"] ? 1 : 0)"+        ghcjs_dom_html_form_element_get_autocorrect ::+        JSRef HTMLFormElement -> IO Bool+ +htmlFormElementGetAutocorrect ::+                              (IsHTMLFormElement self) => self -> IO Bool+htmlFormElementGetAutocorrect self+  = ghcjs_dom_html_form_element_get_autocorrect+      (unHTMLFormElement (toHTMLFormElement self))+ +foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;"+        ghcjs_dom_html_form_element_set_autocapitalize ::+        JSRef HTMLFormElement -> JSString -> IO ()+ +htmlFormElementSetAutocapitalize ::+                                 (IsHTMLFormElement self, ToJSString val) => self -> val -> IO ()+htmlFormElementSetAutocapitalize self val+  = ghcjs_dom_html_form_element_set_autocapitalize+      (unHTMLFormElement (toHTMLFormElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"autocapitalize\"]"+        ghcjs_dom_html_form_element_get_autocapitalize ::+        JSRef HTMLFormElement -> IO JSString+ +htmlFormElementGetAutocapitalize ::+                                 (IsHTMLFormElement self, FromJSString result) => self -> IO result+htmlFormElementGetAutocapitalize self+  = fromJSString <$>+      (ghcjs_dom_html_form_element_get_autocapitalize+         (unHTMLFormElement (toHTMLFormElement self))) #else module GHCJS.DOM.HTMLFormElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLFormElement

src/GHCJS/DOM/HTMLFrameElement.hs view

@@ -41,28 +41,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"frameBorder\"] = $2;"         ghcjs_dom_html_frame_element_set_frame_border ::         JSRef HTMLFrameElement -> JSString -> IO ()-#else -ghcjs_dom_html_frame_element_set_frame_border ::-                                                JSRef HTMLFrameElement -> JSString -> IO ()-ghcjs_dom_html_frame_element_set_frame_border = undefined-#endif   htmlFrameElementSetFrameBorder ::                                (IsHTMLFrameElement self, ToJSString val) => self -> val -> IO ()@@ -70,17 +59,10 @@   = ghcjs_dom_html_frame_element_set_frame_border       (unHTMLFrameElement (toHTMLFrameElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"frameBorder\"]"         ghcjs_dom_html_frame_element_get_frame_border ::         JSRef HTMLFrameElement -> IO JSString-#else -ghcjs_dom_html_frame_element_get_frame_border ::-                                                JSRef HTMLFrameElement -> IO JSString-ghcjs_dom_html_frame_element_get_frame_border = undefined-#endif   htmlFrameElementGetFrameBorder ::                                (IsHTMLFrameElement self, FromJSString result) => self -> IO result@@ -88,17 +70,10 @@   = fromJSString <$>       (ghcjs_dom_html_frame_element_get_frame_border          (unHTMLFrameElement (toHTMLFrameElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"longDesc\"] = $2;"         ghcjs_dom_html_frame_element_set_long_desc ::         JSRef HTMLFrameElement -> JSString -> IO ()-#else -ghcjs_dom_html_frame_element_set_long_desc ::-                                             JSRef HTMLFrameElement -> JSString -> IO ()-ghcjs_dom_html_frame_element_set_long_desc = undefined-#endif   htmlFrameElementSetLongDesc ::                             (IsHTMLFrameElement self, ToJSString val) => self -> val -> IO ()@@ -106,17 +81,10 @@   = ghcjs_dom_html_frame_element_set_long_desc       (unHTMLFrameElement (toHTMLFrameElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"longDesc\"]"         ghcjs_dom_html_frame_element_get_long_desc ::         JSRef HTMLFrameElement -> IO JSString-#else -ghcjs_dom_html_frame_element_get_long_desc ::-                                             JSRef HTMLFrameElement -> IO JSString-ghcjs_dom_html_frame_element_get_long_desc = undefined-#endif   htmlFrameElementGetLongDesc ::                             (IsHTMLFrameElement self, FromJSString result) => self -> IO result@@ -124,17 +92,10 @@   = fromJSString <$>       (ghcjs_dom_html_frame_element_get_long_desc          (unHTMLFrameElement (toHTMLFrameElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"marginHeight\"] = $2;"         ghcjs_dom_html_frame_element_set_margin_height ::         JSRef HTMLFrameElement -> JSString -> IO ()-#else -ghcjs_dom_html_frame_element_set_margin_height ::-                                                 JSRef HTMLFrameElement -> JSString -> IO ()-ghcjs_dom_html_frame_element_set_margin_height = undefined-#endif   htmlFrameElementSetMarginHeight ::                                 (IsHTMLFrameElement self, ToJSString val) => self -> val -> IO ()@@ -142,17 +103,10 @@   = ghcjs_dom_html_frame_element_set_margin_height       (unHTMLFrameElement (toHTMLFrameElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"marginHeight\"]"         ghcjs_dom_html_frame_element_get_margin_height ::         JSRef HTMLFrameElement -> IO JSString-#else -ghcjs_dom_html_frame_element_get_margin_height ::-                                                 JSRef HTMLFrameElement -> IO JSString-ghcjs_dom_html_frame_element_get_margin_height = undefined-#endif   htmlFrameElementGetMarginHeight ::                                 (IsHTMLFrameElement self, FromJSString result) => self -> IO result@@ -160,17 +114,10 @@   = fromJSString <$>       (ghcjs_dom_html_frame_element_get_margin_height          (unHTMLFrameElement (toHTMLFrameElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"marginWidth\"] = $2;"         ghcjs_dom_html_frame_element_set_margin_width ::         JSRef HTMLFrameElement -> JSString -> IO ()-#else -ghcjs_dom_html_frame_element_set_margin_width ::-                                                JSRef HTMLFrameElement -> JSString -> IO ()-ghcjs_dom_html_frame_element_set_margin_width = undefined-#endif   htmlFrameElementSetMarginWidth ::                                (IsHTMLFrameElement self, ToJSString val) => self -> val -> IO ()@@ -178,17 +125,10 @@   = ghcjs_dom_html_frame_element_set_margin_width       (unHTMLFrameElement (toHTMLFrameElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"marginWidth\"]"         ghcjs_dom_html_frame_element_get_margin_width ::         JSRef HTMLFrameElement -> IO JSString-#else -ghcjs_dom_html_frame_element_get_margin_width ::-                                                JSRef HTMLFrameElement -> IO JSString-ghcjs_dom_html_frame_element_get_margin_width = undefined-#endif   htmlFrameElementGetMarginWidth ::                                (IsHTMLFrameElement self, FromJSString result) => self -> IO result@@ -196,17 +136,10 @@   = fromJSString <$>       (ghcjs_dom_html_frame_element_get_margin_width          (unHTMLFrameElement (toHTMLFrameElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_frame_element_set_name ::         JSRef HTMLFrameElement -> JSString -> IO ()-#else -ghcjs_dom_html_frame_element_set_name ::-                                        JSRef HTMLFrameElement -> JSString -> IO ()-ghcjs_dom_html_frame_element_set_name = undefined-#endif   htmlFrameElementSetName ::                         (IsHTMLFrameElement self, ToJSString val) => self -> val -> IO ()@@ -214,17 +147,10 @@   = ghcjs_dom_html_frame_element_set_name       (unHTMLFrameElement (toHTMLFrameElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_frame_element_get_name ::         JSRef HTMLFrameElement -> IO JSString-#else -ghcjs_dom_html_frame_element_get_name ::-                                        JSRef HTMLFrameElement -> IO JSString-ghcjs_dom_html_frame_element_get_name = undefined-#endif   htmlFrameElementGetName ::                         (IsHTMLFrameElement self, FromJSString result) => self -> IO result@@ -232,17 +158,10 @@   = fromJSString <$>       (ghcjs_dom_html_frame_element_get_name          (unHTMLFrameElement (toHTMLFrameElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"noResize\"] = $2;"         ghcjs_dom_html_frame_element_set_no_resize ::         JSRef HTMLFrameElement -> Bool -> IO ()-#else -ghcjs_dom_html_frame_element_set_no_resize ::-                                             JSRef HTMLFrameElement -> Bool -> IO ()-ghcjs_dom_html_frame_element_set_no_resize = undefined-#endif   htmlFrameElementSetNoResize ::                             (IsHTMLFrameElement self) => self -> Bool -> IO ()@@ -250,34 +169,20 @@   = ghcjs_dom_html_frame_element_set_no_resize       (unHTMLFrameElement (toHTMLFrameElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"noResize\"] ? 1 : 0)"         ghcjs_dom_html_frame_element_get_no_resize ::         JSRef HTMLFrameElement -> IO Bool-#else -ghcjs_dom_html_frame_element_get_no_resize ::-                                             JSRef HTMLFrameElement -> IO Bool-ghcjs_dom_html_frame_element_get_no_resize = undefined-#endif   htmlFrameElementGetNoResize ::                             (IsHTMLFrameElement self) => self -> IO Bool htmlFrameElementGetNoResize self   = ghcjs_dom_html_frame_element_get_no_resize       (unHTMLFrameElement (toHTMLFrameElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scrolling\"] = $2;"         ghcjs_dom_html_frame_element_set_scrolling ::         JSRef HTMLFrameElement -> JSString -> IO ()-#else -ghcjs_dom_html_frame_element_set_scrolling ::-                                             JSRef HTMLFrameElement -> JSString -> IO ()-ghcjs_dom_html_frame_element_set_scrolling = undefined-#endif   htmlFrameElementSetScrolling ::                              (IsHTMLFrameElement self, ToJSString val) => self -> val -> IO ()@@ -285,17 +190,10 @@   = ghcjs_dom_html_frame_element_set_scrolling       (unHTMLFrameElement (toHTMLFrameElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scrolling\"]"         ghcjs_dom_html_frame_element_get_scrolling ::         JSRef HTMLFrameElement -> IO JSString-#else -ghcjs_dom_html_frame_element_get_scrolling ::-                                             JSRef HTMLFrameElement -> IO JSString-ghcjs_dom_html_frame_element_get_scrolling = undefined-#endif   htmlFrameElementGetScrolling ::                              (IsHTMLFrameElement self, FromJSString result) => self -> IO result@@ -303,17 +201,10 @@   = fromJSString <$>       (ghcjs_dom_html_frame_element_get_scrolling          (unHTMLFrameElement (toHTMLFrameElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"src\"] = $2;"         ghcjs_dom_html_frame_element_set_src ::         JSRef HTMLFrameElement -> JSString -> IO ()-#else -ghcjs_dom_html_frame_element_set_src ::-                                       JSRef HTMLFrameElement -> JSString -> IO ()-ghcjs_dom_html_frame_element_set_src = undefined-#endif   htmlFrameElementSetSrc ::                        (IsHTMLFrameElement self, ToJSString val) => self -> val -> IO ()@@ -321,17 +212,10 @@   = ghcjs_dom_html_frame_element_set_src       (unHTMLFrameElement (toHTMLFrameElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"src\"]"         ghcjs_dom_html_frame_element_get_src ::         JSRef HTMLFrameElement -> IO JSString-#else -ghcjs_dom_html_frame_element_get_src ::-                                       JSRef HTMLFrameElement -> IO JSString-ghcjs_dom_html_frame_element_get_src = undefined-#endif   htmlFrameElementGetSrc ::                        (IsHTMLFrameElement self, FromJSString result) => self -> IO result@@ -339,17 +223,10 @@   = fromJSString <$>       (ghcjs_dom_html_frame_element_get_src          (unHTMLFrameElement (toHTMLFrameElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"contentDocument\"]"         ghcjs_dom_html_frame_element_get_content_document ::         JSRef HTMLFrameElement -> IO (JSRef Document)-#else -ghcjs_dom_html_frame_element_get_content_document ::-                                                    JSRef HTMLFrameElement -> IO (JSRef Document)-ghcjs_dom_html_frame_element_get_content_document = undefined-#endif   htmlFrameElementGetContentDocument ::                                    (IsHTMLFrameElement self) => self -> IO (Maybe Document)@@ -357,17 +234,10 @@   = fmap Document . maybeJSNull <$>       (ghcjs_dom_html_frame_element_get_content_document          (unHTMLFrameElement (toHTMLFrameElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"contentWindow\"]"         ghcjs_dom_html_frame_element_get_content_window ::         JSRef HTMLFrameElement -> IO (JSRef DOMWindow)-#else -ghcjs_dom_html_frame_element_get_content_window ::-                                                  JSRef HTMLFrameElement -> IO (JSRef DOMWindow)-ghcjs_dom_html_frame_element_get_content_window = undefined-#endif   htmlFrameElementGetContentWindow ::                                  (IsHTMLFrameElement self) => self -> IO (Maybe DOMWindow)@@ -375,34 +245,20 @@   = fmap DOMWindow . maybeJSNull <$>       (ghcjs_dom_html_frame_element_get_content_window          (unHTMLFrameElement (toHTMLFrameElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_frame_element_get_width ::         JSRef HTMLFrameElement -> IO Int-#else -ghcjs_dom_html_frame_element_get_width ::-                                         JSRef HTMLFrameElement -> IO Int-ghcjs_dom_html_frame_element_get_width = undefined-#endif   htmlFrameElementGetWidth ::                          (IsHTMLFrameElement self) => self -> IO Int htmlFrameElementGetWidth self   = ghcjs_dom_html_frame_element_get_width       (unHTMLFrameElement (toHTMLFrameElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_frame_element_get_height ::         JSRef HTMLFrameElement -> IO Int-#else -ghcjs_dom_html_frame_element_get_height ::-                                          JSRef HTMLFrameElement -> IO Int-ghcjs_dom_html_frame_element_get_height = undefined-#endif   htmlFrameElementGetHeight ::                           (IsHTMLFrameElement self) => self -> IO Int

src/GHCJS/DOM/HTMLFrameSetElement.hs view

@@ -22,28 +22,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"cols\"] = $2;"         ghcjs_dom_html_frame_set_element_set_cols ::         JSRef HTMLFrameSetElement -> JSString -> IO ()-#else -ghcjs_dom_html_frame_set_element_set_cols ::-                                            JSRef HTMLFrameSetElement -> JSString -> IO ()-ghcjs_dom_html_frame_set_element_set_cols = undefined-#endif   htmlFrameSetElementSetCols ::                            (IsHTMLFrameSetElement self, ToJSString val) =>@@ -52,17 +41,10 @@   = ghcjs_dom_html_frame_set_element_set_cols       (unHTMLFrameSetElement (toHTMLFrameSetElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"cols\"]"         ghcjs_dom_html_frame_set_element_get_cols ::         JSRef HTMLFrameSetElement -> IO JSString-#else -ghcjs_dom_html_frame_set_element_get_cols ::-                                            JSRef HTMLFrameSetElement -> IO JSString-ghcjs_dom_html_frame_set_element_get_cols = undefined-#endif   htmlFrameSetElementGetCols ::                            (IsHTMLFrameSetElement self, FromJSString result) =>@@ -71,17 +53,10 @@   = fromJSString <$>       (ghcjs_dom_html_frame_set_element_get_cols          (unHTMLFrameSetElement (toHTMLFrameSetElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"rows\"] = $2;"         ghcjs_dom_html_frame_set_element_set_rows ::         JSRef HTMLFrameSetElement -> JSString -> IO ()-#else -ghcjs_dom_html_frame_set_element_set_rows ::-                                            JSRef HTMLFrameSetElement -> JSString -> IO ()-ghcjs_dom_html_frame_set_element_set_rows = undefined-#endif   htmlFrameSetElementSetRows ::                            (IsHTMLFrameSetElement self, ToJSString val) =>@@ -90,17 +65,10 @@   = ghcjs_dom_html_frame_set_element_set_rows       (unHTMLFrameSetElement (toHTMLFrameSetElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"rows\"]"         ghcjs_dom_html_frame_set_element_get_rows ::         JSRef HTMLFrameSetElement -> IO JSString-#else -ghcjs_dom_html_frame_set_element_get_rows ::-                                            JSRef HTMLFrameSetElement -> IO JSString-ghcjs_dom_html_frame_set_element_get_rows = undefined-#endif   htmlFrameSetElementGetRows ::                            (IsHTMLFrameSetElement self, FromJSString result) =>

src/GHCJS/DOM/HTMLHRElement.hs view

@@ -15,28 +15,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_htmlhr_element_set_align ::         JSRef HTMLHRElement -> JSString -> IO ()-#else -ghcjs_dom_htmlhr_element_set_align ::-                                     JSRef HTMLHRElement -> JSString -> IO ()-ghcjs_dom_htmlhr_element_set_align = undefined-#endif   htmlhrElementSetAlign ::                       (IsHTMLHRElement self, ToJSString val) => self -> val -> IO ()@@ -44,17 +33,10 @@   = ghcjs_dom_htmlhr_element_set_align       (unHTMLHRElement (toHTMLHRElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_htmlhr_element_get_align ::         JSRef HTMLHRElement -> IO JSString-#else -ghcjs_dom_htmlhr_element_get_align ::-                                     JSRef HTMLHRElement -> IO JSString-ghcjs_dom_htmlhr_element_get_align = undefined-#endif   htmlhrElementGetAlign ::                       (IsHTMLHRElement self, FromJSString result) => self -> IO result@@ -62,17 +44,10 @@   = fromJSString <$>       (ghcjs_dom_htmlhr_element_get_align          (unHTMLHRElement (toHTMLHRElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"noShade\"] = $2;"         ghcjs_dom_htmlhr_element_set_no_shade ::         JSRef HTMLHRElement -> Bool -> IO ()-#else -ghcjs_dom_htmlhr_element_set_no_shade ::-                                        JSRef HTMLHRElement -> Bool -> IO ()-ghcjs_dom_htmlhr_element_set_no_shade = undefined-#endif   htmlhrElementSetNoShade ::                         (IsHTMLHRElement self) => self -> Bool -> IO ()@@ -80,34 +55,20 @@   = ghcjs_dom_htmlhr_element_set_no_shade       (unHTMLHRElement (toHTMLHRElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"noShade\"] ? 1 : 0)"         ghcjs_dom_htmlhr_element_get_no_shade ::         JSRef HTMLHRElement -> IO Bool-#else -ghcjs_dom_htmlhr_element_get_no_shade ::-                                        JSRef HTMLHRElement -> IO Bool-ghcjs_dom_htmlhr_element_get_no_shade = undefined-#endif   htmlhrElementGetNoShade ::                         (IsHTMLHRElement self) => self -> IO Bool htmlhrElementGetNoShade self   = ghcjs_dom_htmlhr_element_get_no_shade       (unHTMLHRElement (toHTMLHRElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"size\"] = $2;"         ghcjs_dom_htmlhr_element_set_size ::         JSRef HTMLHRElement -> JSString -> IO ()-#else -ghcjs_dom_htmlhr_element_set_size ::-                                    JSRef HTMLHRElement -> JSString -> IO ()-ghcjs_dom_htmlhr_element_set_size = undefined-#endif   htmlhrElementSetSize ::                      (IsHTMLHRElement self, ToJSString val) => self -> val -> IO ()@@ -115,17 +76,10 @@   = ghcjs_dom_htmlhr_element_set_size       (unHTMLHRElement (toHTMLHRElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"size\"]"         ghcjs_dom_htmlhr_element_get_size ::         JSRef HTMLHRElement -> IO JSString-#else -ghcjs_dom_htmlhr_element_get_size ::-                                    JSRef HTMLHRElement -> IO JSString-ghcjs_dom_htmlhr_element_get_size = undefined-#endif   htmlhrElementGetSize ::                      (IsHTMLHRElement self, FromJSString result) => self -> IO result@@ -133,17 +87,10 @@   = fromJSString <$>       (ghcjs_dom_htmlhr_element_get_size          (unHTMLHRElement (toHTMLHRElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_htmlhr_element_set_width ::         JSRef HTMLHRElement -> JSString -> IO ()-#else -ghcjs_dom_htmlhr_element_set_width ::-                                     JSRef HTMLHRElement -> JSString -> IO ()-ghcjs_dom_htmlhr_element_set_width = undefined-#endif   htmlhrElementSetWidth ::                       (IsHTMLHRElement self, ToJSString val) => self -> val -> IO ()@@ -151,17 +98,10 @@   = ghcjs_dom_htmlhr_element_set_width       (unHTMLHRElement (toHTMLHRElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_htmlhr_element_get_width ::         JSRef HTMLHRElement -> IO JSString-#else -ghcjs_dom_htmlhr_element_get_width ::-                                     JSRef HTMLHRElement -> IO JSString-ghcjs_dom_htmlhr_element_get_width = undefined-#endif   htmlhrElementGetWidth ::                       (IsHTMLHRElement self, FromJSString result) => self -> IO result

src/GHCJS/DOM/HTMLHeadElement.hs view

@@ -9,28 +9,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"profile\"] = $2;"         ghcjs_dom_html_head_element_set_profile ::         JSRef HTMLHeadElement -> JSString -> IO ()-#else -ghcjs_dom_html_head_element_set_profile ::-                                          JSRef HTMLHeadElement -> JSString -> IO ()-ghcjs_dom_html_head_element_set_profile = undefined-#endif   htmlHeadElementSetProfile ::                           (IsHTMLHeadElement self, ToJSString val) => self -> val -> IO ()@@ -38,17 +27,10 @@   = ghcjs_dom_html_head_element_set_profile       (unHTMLHeadElement (toHTMLHeadElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"profile\"]"         ghcjs_dom_html_head_element_get_profile ::         JSRef HTMLHeadElement -> IO JSString-#else -ghcjs_dom_html_head_element_get_profile ::-                                          JSRef HTMLHeadElement -> IO JSString-ghcjs_dom_html_head_element_get_profile = undefined-#endif   htmlHeadElementGetProfile ::                           (IsHTMLHeadElement self, FromJSString result) => self -> IO result

src/GHCJS/DOM/HTMLHeadingElement.hs view

@@ -11,28 +11,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_heading_element_set_align ::         JSRef HTMLHeadingElement -> JSString -> IO ()-#else -ghcjs_dom_html_heading_element_set_align ::-                                           JSRef HTMLHeadingElement -> JSString -> IO ()-ghcjs_dom_html_heading_element_set_align = undefined-#endif   htmlHeadingElementSetAlign ::                            (IsHTMLHeadingElement self, ToJSString val) => self -> val -> IO ()@@ -40,17 +29,10 @@   = ghcjs_dom_html_heading_element_set_align       (unHTMLHeadingElement (toHTMLHeadingElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_heading_element_get_align ::         JSRef HTMLHeadingElement -> IO JSString-#else -ghcjs_dom_html_heading_element_get_align ::-                                           JSRef HTMLHeadingElement -> IO JSString-ghcjs_dom_html_heading_element_get_align = undefined-#endif   htmlHeadingElementGetAlign ::                            (IsHTMLHeadingElement self, FromJSString result) =>

src/GHCJS/DOM/HTMLHtmlElement.hs view

@@ -13,28 +13,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"version\"] = $2;"         ghcjs_dom_html_html_element_set_version ::         JSRef HTMLHtmlElement -> JSString -> IO ()-#else -ghcjs_dom_html_html_element_set_version ::-                                          JSRef HTMLHtmlElement -> JSString -> IO ()-ghcjs_dom_html_html_element_set_version = undefined-#endif   htmlHtmlElementSetVersion ::                           (IsHTMLHtmlElement self, ToJSString val) => self -> val -> IO ()@@ -42,17 +31,10 @@   = ghcjs_dom_html_html_element_set_version       (unHTMLHtmlElement (toHTMLHtmlElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"version\"]"         ghcjs_dom_html_html_element_get_version ::         JSRef HTMLHtmlElement -> IO JSString-#else -ghcjs_dom_html_html_element_get_version ::-                                          JSRef HTMLHtmlElement -> IO JSString-ghcjs_dom_html_html_element_get_version = undefined-#endif   htmlHtmlElementGetVersion ::                           (IsHTMLHtmlElement self, FromJSString result) => self -> IO result@@ -60,17 +42,10 @@   = fromJSString <$>       (ghcjs_dom_html_html_element_get_version          (unHTMLHtmlElement (toHTMLHtmlElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"manifest\"] = $2;"         ghcjs_dom_html_html_element_set_manifest ::         JSRef HTMLHtmlElement -> JSString -> IO ()-#else -ghcjs_dom_html_html_element_set_manifest ::-                                           JSRef HTMLHtmlElement -> JSString -> IO ()-ghcjs_dom_html_html_element_set_manifest = undefined-#endif   htmlHtmlElementSetManifest ::                            (IsHTMLHtmlElement self, ToJSString val) => self -> val -> IO ()@@ -78,17 +53,10 @@   = ghcjs_dom_html_html_element_set_manifest       (unHTMLHtmlElement (toHTMLHtmlElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"manifest\"]"         ghcjs_dom_html_html_element_get_manifest ::         JSRef HTMLHtmlElement -> IO JSString-#else -ghcjs_dom_html_html_element_get_manifest ::-                                           JSRef HTMLHtmlElement -> IO JSString-ghcjs_dom_html_html_element_get_manifest = undefined-#endif   htmlHtmlElementGetManifest ::                            (IsHTMLHtmlElement self, FromJSString result) => self -> IO result

src/GHCJS/DOM/HTMLIFrameElement.hs view

@@ -31,10 +31,6 @@         htmliFrameElementSetSandbox,         ghcjs_dom_html_iframe_element_get_sandbox,         htmliFrameElementGetSandbox,-        ghcjs_dom_html_iframe_element_set_seamless,-        htmliFrameElementSetSeamless,-        ghcjs_dom_html_iframe_element_get_seamless,-        htmliFrameElementGetSeamless,         ghcjs_dom_html_iframe_element_set_scrolling,         htmliFrameElementSetScrolling,         ghcjs_dom_html_iframe_element_get_scrolling,@@ -56,28 +52,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_iframe_element_set_align ::         JSRef HTMLIFrameElement -> JSString -> IO ()-#else -ghcjs_dom_html_iframe_element_set_align ::-                                          JSRef HTMLIFrameElement -> JSString -> IO ()-ghcjs_dom_html_iframe_element_set_align = undefined-#endif   htmliFrameElementSetAlign ::                           (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()@@ -85,17 +70,10 @@   = ghcjs_dom_html_iframe_element_set_align       (unHTMLIFrameElement (toHTMLIFrameElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_iframe_element_get_align ::         JSRef HTMLIFrameElement -> IO JSString-#else -ghcjs_dom_html_iframe_element_get_align ::-                                          JSRef HTMLIFrameElement -> IO JSString-ghcjs_dom_html_iframe_element_get_align = undefined-#endif   htmliFrameElementGetAlign ::                           (IsHTMLIFrameElement self, FromJSString result) =>@@ -104,17 +82,10 @@   = fromJSString <$>       (ghcjs_dom_html_iframe_element_get_align          (unHTMLIFrameElement (toHTMLIFrameElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"frameBorder\"] = $2;"         ghcjs_dom_html_iframe_element_set_frame_border ::         JSRef HTMLIFrameElement -> JSString -> IO ()-#else -ghcjs_dom_html_iframe_element_set_frame_border ::-                                                 JSRef HTMLIFrameElement -> JSString -> IO ()-ghcjs_dom_html_iframe_element_set_frame_border = undefined-#endif   htmliFrameElementSetFrameBorder ::                                 (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()@@ -122,17 +93,10 @@   = ghcjs_dom_html_iframe_element_set_frame_border       (unHTMLIFrameElement (toHTMLIFrameElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"frameBorder\"]"         ghcjs_dom_html_iframe_element_get_frame_border ::         JSRef HTMLIFrameElement -> IO JSString-#else -ghcjs_dom_html_iframe_element_get_frame_border ::-                                                 JSRef HTMLIFrameElement -> IO JSString-ghcjs_dom_html_iframe_element_get_frame_border = undefined-#endif   htmliFrameElementGetFrameBorder ::                                 (IsHTMLIFrameElement self, FromJSString result) =>@@ -141,17 +105,10 @@   = fromJSString <$>       (ghcjs_dom_html_iframe_element_get_frame_border          (unHTMLIFrameElement (toHTMLIFrameElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"height\"] = $2;"         ghcjs_dom_html_iframe_element_set_height ::         JSRef HTMLIFrameElement -> JSString -> IO ()-#else -ghcjs_dom_html_iframe_element_set_height ::-                                           JSRef HTMLIFrameElement -> JSString -> IO ()-ghcjs_dom_html_iframe_element_set_height = undefined-#endif   htmliFrameElementSetHeight ::                            (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()@@ -159,17 +116,10 @@   = ghcjs_dom_html_iframe_element_set_height       (unHTMLIFrameElement (toHTMLIFrameElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_iframe_element_get_height ::         JSRef HTMLIFrameElement -> IO JSString-#else -ghcjs_dom_html_iframe_element_get_height ::-                                           JSRef HTMLIFrameElement -> IO JSString-ghcjs_dom_html_iframe_element_get_height = undefined-#endif   htmliFrameElementGetHeight ::                            (IsHTMLIFrameElement self, FromJSString result) =>@@ -178,17 +128,10 @@   = fromJSString <$>       (ghcjs_dom_html_iframe_element_get_height          (unHTMLIFrameElement (toHTMLIFrameElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"longDesc\"] = $2;"         ghcjs_dom_html_iframe_element_set_long_desc ::         JSRef HTMLIFrameElement -> JSString -> IO ()-#else -ghcjs_dom_html_iframe_element_set_long_desc ::-                                              JSRef HTMLIFrameElement -> JSString -> IO ()-ghcjs_dom_html_iframe_element_set_long_desc = undefined-#endif   htmliFrameElementSetLongDesc ::                              (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()@@ -196,17 +139,10 @@   = ghcjs_dom_html_iframe_element_set_long_desc       (unHTMLIFrameElement (toHTMLIFrameElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"longDesc\"]"         ghcjs_dom_html_iframe_element_get_long_desc ::         JSRef HTMLIFrameElement -> IO JSString-#else -ghcjs_dom_html_iframe_element_get_long_desc ::-                                              JSRef HTMLIFrameElement -> IO JSString-ghcjs_dom_html_iframe_element_get_long_desc = undefined-#endif   htmliFrameElementGetLongDesc ::                              (IsHTMLIFrameElement self, FromJSString result) =>@@ -215,17 +151,10 @@   = fromJSString <$>       (ghcjs_dom_html_iframe_element_get_long_desc          (unHTMLIFrameElement (toHTMLIFrameElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"marginHeight\"] = $2;"         ghcjs_dom_html_iframe_element_set_margin_height ::         JSRef HTMLIFrameElement -> JSString -> IO ()-#else -ghcjs_dom_html_iframe_element_set_margin_height ::-                                                  JSRef HTMLIFrameElement -> JSString -> IO ()-ghcjs_dom_html_iframe_element_set_margin_height = undefined-#endif   htmliFrameElementSetMarginHeight ::                                  (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()@@ -233,17 +162,10 @@   = ghcjs_dom_html_iframe_element_set_margin_height       (unHTMLIFrameElement (toHTMLIFrameElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"marginHeight\"]"         ghcjs_dom_html_iframe_element_get_margin_height ::         JSRef HTMLIFrameElement -> IO JSString-#else -ghcjs_dom_html_iframe_element_get_margin_height ::-                                                  JSRef HTMLIFrameElement -> IO JSString-ghcjs_dom_html_iframe_element_get_margin_height = undefined-#endif   htmliFrameElementGetMarginHeight ::                                  (IsHTMLIFrameElement self, FromJSString result) =>@@ -252,17 +174,10 @@   = fromJSString <$>       (ghcjs_dom_html_iframe_element_get_margin_height          (unHTMLIFrameElement (toHTMLIFrameElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"marginWidth\"] = $2;"         ghcjs_dom_html_iframe_element_set_margin_width ::         JSRef HTMLIFrameElement -> JSString -> IO ()-#else -ghcjs_dom_html_iframe_element_set_margin_width ::-                                                 JSRef HTMLIFrameElement -> JSString -> IO ()-ghcjs_dom_html_iframe_element_set_margin_width = undefined-#endif   htmliFrameElementSetMarginWidth ::                                 (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()@@ -270,17 +185,10 @@   = ghcjs_dom_html_iframe_element_set_margin_width       (unHTMLIFrameElement (toHTMLIFrameElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"marginWidth\"]"         ghcjs_dom_html_iframe_element_get_margin_width ::         JSRef HTMLIFrameElement -> IO JSString-#else -ghcjs_dom_html_iframe_element_get_margin_width ::-                                                 JSRef HTMLIFrameElement -> IO JSString-ghcjs_dom_html_iframe_element_get_margin_width = undefined-#endif   htmliFrameElementGetMarginWidth ::                                 (IsHTMLIFrameElement self, FromJSString result) =>@@ -289,17 +197,10 @@   = fromJSString <$>       (ghcjs_dom_html_iframe_element_get_margin_width          (unHTMLIFrameElement (toHTMLIFrameElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_iframe_element_set_name ::         JSRef HTMLIFrameElement -> JSString -> IO ()-#else -ghcjs_dom_html_iframe_element_set_name ::-                                         JSRef HTMLIFrameElement -> JSString -> IO ()-ghcjs_dom_html_iframe_element_set_name = undefined-#endif   htmliFrameElementSetName ::                          (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()@@ -307,17 +208,10 @@   = ghcjs_dom_html_iframe_element_set_name       (unHTMLIFrameElement (toHTMLIFrameElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_iframe_element_get_name ::         JSRef HTMLIFrameElement -> IO JSString-#else -ghcjs_dom_html_iframe_element_get_name ::-                                         JSRef HTMLIFrameElement -> IO JSString-ghcjs_dom_html_iframe_element_get_name = undefined-#endif   htmliFrameElementGetName ::                          (IsHTMLIFrameElement self, FromJSString result) =>@@ -326,17 +220,10 @@   = fromJSString <$>       (ghcjs_dom_html_iframe_element_get_name          (unHTMLIFrameElement (toHTMLIFrameElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"sandbox\"] = $2;"         ghcjs_dom_html_iframe_element_set_sandbox ::         JSRef HTMLIFrameElement -> JSString -> IO ()-#else -ghcjs_dom_html_iframe_element_set_sandbox ::-                                            JSRef HTMLIFrameElement -> JSString -> IO ()-ghcjs_dom_html_iframe_element_set_sandbox = undefined-#endif   htmliFrameElementSetSandbox ::                             (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()@@ -344,17 +231,10 @@   = ghcjs_dom_html_iframe_element_set_sandbox       (unHTMLIFrameElement (toHTMLIFrameElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"sandbox\"]"         ghcjs_dom_html_iframe_element_get_sandbox ::         JSRef HTMLIFrameElement -> IO JSString-#else -ghcjs_dom_html_iframe_element_get_sandbox ::-                                            JSRef HTMLIFrameElement -> IO JSString-ghcjs_dom_html_iframe_element_get_sandbox = undefined-#endif   htmliFrameElementGetSandbox ::                             (IsHTMLIFrameElement self, FromJSString result) =>@@ -363,52 +243,10 @@   = fromJSString <$>       (ghcjs_dom_html_iframe_element_get_sandbox          (unHTMLIFrameElement (toHTMLIFrameElement self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"seamless\"] = $2;"-        ghcjs_dom_html_iframe_element_set_seamless ::-        JSRef HTMLIFrameElement -> Bool -> IO ()-#else -ghcjs_dom_html_iframe_element_set_seamless ::-                                             JSRef HTMLIFrameElement -> Bool -> IO ()-ghcjs_dom_html_iframe_element_set_seamless = undefined-#endif  -htmliFrameElementSetSeamless ::-                             (IsHTMLIFrameElement self) => self -> Bool -> IO ()-htmliFrameElementSetSeamless self val-  = ghcjs_dom_html_iframe_element_set_seamless-      (unHTMLIFrameElement (toHTMLIFrameElement self))-      val---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "($1[\"seamless\"] ? 1 : 0)"-        ghcjs_dom_html_iframe_element_get_seamless ::-        JSRef HTMLIFrameElement -> IO Bool-#else -ghcjs_dom_html_iframe_element_get_seamless ::-                                             JSRef HTMLIFrameElement -> IO Bool-ghcjs_dom_html_iframe_element_get_seamless = undefined-#endif- -htmliFrameElementGetSeamless ::-                             (IsHTMLIFrameElement self) => self -> IO Bool-htmliFrameElementGetSeamless self-  = ghcjs_dom_html_iframe_element_get_seamless-      (unHTMLIFrameElement (toHTMLIFrameElement self))---#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"scrolling\"] = $2;"         ghcjs_dom_html_iframe_element_set_scrolling ::         JSRef HTMLIFrameElement -> JSString -> IO ()-#else -ghcjs_dom_html_iframe_element_set_scrolling ::-                                              JSRef HTMLIFrameElement -> JSString -> IO ()-ghcjs_dom_html_iframe_element_set_scrolling = undefined-#endif   htmliFrameElementSetScrolling ::                               (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()@@ -416,17 +254,10 @@   = ghcjs_dom_html_iframe_element_set_scrolling       (unHTMLIFrameElement (toHTMLIFrameElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scrolling\"]"         ghcjs_dom_html_iframe_element_get_scrolling ::         JSRef HTMLIFrameElement -> IO JSString-#else -ghcjs_dom_html_iframe_element_get_scrolling ::-                                              JSRef HTMLIFrameElement -> IO JSString-ghcjs_dom_html_iframe_element_get_scrolling = undefined-#endif   htmliFrameElementGetScrolling ::                               (IsHTMLIFrameElement self, FromJSString result) =>@@ -435,17 +266,10 @@   = fromJSString <$>       (ghcjs_dom_html_iframe_element_get_scrolling          (unHTMLIFrameElement (toHTMLIFrameElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"src\"] = $2;"         ghcjs_dom_html_iframe_element_set_src ::         JSRef HTMLIFrameElement -> JSString -> IO ()-#else -ghcjs_dom_html_iframe_element_set_src ::-                                        JSRef HTMLIFrameElement -> JSString -> IO ()-ghcjs_dom_html_iframe_element_set_src = undefined-#endif   htmliFrameElementSetSrc ::                         (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()@@ -453,17 +277,10 @@   = ghcjs_dom_html_iframe_element_set_src       (unHTMLIFrameElement (toHTMLIFrameElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"src\"]"         ghcjs_dom_html_iframe_element_get_src ::         JSRef HTMLIFrameElement -> IO JSString-#else -ghcjs_dom_html_iframe_element_get_src ::-                                        JSRef HTMLIFrameElement -> IO JSString-ghcjs_dom_html_iframe_element_get_src = undefined-#endif   htmliFrameElementGetSrc ::                         (IsHTMLIFrameElement self, FromJSString result) =>@@ -472,17 +289,10 @@   = fromJSString <$>       (ghcjs_dom_html_iframe_element_get_src          (unHTMLIFrameElement (toHTMLIFrameElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"srcdoc\"] = $2;"         ghcjs_dom_html_iframe_element_set_srcdoc ::         JSRef HTMLIFrameElement -> JSString -> IO ()-#else -ghcjs_dom_html_iframe_element_set_srcdoc ::-                                           JSRef HTMLIFrameElement -> JSString -> IO ()-ghcjs_dom_html_iframe_element_set_srcdoc = undefined-#endif   htmliFrameElementSetSrcdoc ::                            (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()@@ -490,17 +300,10 @@   = ghcjs_dom_html_iframe_element_set_srcdoc       (unHTMLIFrameElement (toHTMLIFrameElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"srcdoc\"]"         ghcjs_dom_html_iframe_element_get_srcdoc ::         JSRef HTMLIFrameElement -> IO JSString-#else -ghcjs_dom_html_iframe_element_get_srcdoc ::-                                           JSRef HTMLIFrameElement -> IO JSString-ghcjs_dom_html_iframe_element_get_srcdoc = undefined-#endif   htmliFrameElementGetSrcdoc ::                            (IsHTMLIFrameElement self, FromJSString result) =>@@ -509,17 +312,10 @@   = fromJSString <$>       (ghcjs_dom_html_iframe_element_get_srcdoc          (unHTMLIFrameElement (toHTMLIFrameElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_iframe_element_set_width ::         JSRef HTMLIFrameElement -> JSString -> IO ()-#else -ghcjs_dom_html_iframe_element_set_width ::-                                          JSRef HTMLIFrameElement -> JSString -> IO ()-ghcjs_dom_html_iframe_element_set_width = undefined-#endif   htmliFrameElementSetWidth ::                           (IsHTMLIFrameElement self, ToJSString val) => self -> val -> IO ()@@ -527,17 +323,10 @@   = ghcjs_dom_html_iframe_element_set_width       (unHTMLIFrameElement (toHTMLIFrameElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_iframe_element_get_width ::         JSRef HTMLIFrameElement -> IO JSString-#else -ghcjs_dom_html_iframe_element_get_width ::-                                          JSRef HTMLIFrameElement -> IO JSString-ghcjs_dom_html_iframe_element_get_width = undefined-#endif   htmliFrameElementGetWidth ::                           (IsHTMLIFrameElement self, FromJSString result) =>@@ -546,17 +335,10 @@   = fromJSString <$>       (ghcjs_dom_html_iframe_element_get_width          (unHTMLIFrameElement (toHTMLIFrameElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"contentDocument\"]"         ghcjs_dom_html_iframe_element_get_content_document ::         JSRef HTMLIFrameElement -> IO (JSRef Document)-#else -ghcjs_dom_html_iframe_element_get_content_document ::-                                                     JSRef HTMLIFrameElement -> IO (JSRef Document)-ghcjs_dom_html_iframe_element_get_content_document = undefined-#endif   htmliFrameElementGetContentDocument ::                                     (IsHTMLIFrameElement self) => self -> IO (Maybe Document)@@ -564,17 +346,10 @@   = fmap Document . maybeJSNull <$>       (ghcjs_dom_html_iframe_element_get_content_document          (unHTMLIFrameElement (toHTMLIFrameElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"contentWindow\"]"         ghcjs_dom_html_iframe_element_get_content_window ::         JSRef HTMLIFrameElement -> IO (JSRef DOMWindow)-#else -ghcjs_dom_html_iframe_element_get_content_window ::-                                                   JSRef HTMLIFrameElement -> IO (JSRef DOMWindow)-ghcjs_dom_html_iframe_element_get_content_window = undefined-#endif   htmliFrameElementGetContentWindow ::                                   (IsHTMLIFrameElement self) => self -> IO (Maybe DOMWindow)

src/GHCJS/DOM/HTMLImageElement.hs view

@@ -51,28 +51,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_image_element_set_name ::         JSRef HTMLImageElement -> JSString -> IO ()-#else -ghcjs_dom_html_image_element_set_name ::-                                        JSRef HTMLImageElement -> JSString -> IO ()-ghcjs_dom_html_image_element_set_name = undefined-#endif   htmlImageElementSetName ::                         (IsHTMLImageElement self, ToJSString val) => self -> val -> IO ()@@ -80,17 +69,10 @@   = ghcjs_dom_html_image_element_set_name       (unHTMLImageElement (toHTMLImageElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_image_element_get_name ::         JSRef HTMLImageElement -> IO JSString-#else -ghcjs_dom_html_image_element_get_name ::-                                        JSRef HTMLImageElement -> IO JSString-ghcjs_dom_html_image_element_get_name = undefined-#endif   htmlImageElementGetName ::                         (IsHTMLImageElement self, FromJSString result) => self -> IO result@@ -98,17 +80,10 @@   = fromJSString <$>       (ghcjs_dom_html_image_element_get_name          (unHTMLImageElement (toHTMLImageElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_image_element_set_align ::         JSRef HTMLImageElement -> JSString -> IO ()-#else -ghcjs_dom_html_image_element_set_align ::-                                         JSRef HTMLImageElement -> JSString -> IO ()-ghcjs_dom_html_image_element_set_align = undefined-#endif   htmlImageElementSetAlign ::                          (IsHTMLImageElement self, ToJSString val) => self -> val -> IO ()@@ -116,17 +91,10 @@   = ghcjs_dom_html_image_element_set_align       (unHTMLImageElement (toHTMLImageElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_image_element_get_align ::         JSRef HTMLImageElement -> IO JSString-#else -ghcjs_dom_html_image_element_get_align ::-                                         JSRef HTMLImageElement -> IO JSString-ghcjs_dom_html_image_element_get_align = undefined-#endif   htmlImageElementGetAlign ::                          (IsHTMLImageElement self, FromJSString result) => self -> IO result@@ -134,17 +102,10 @@   = fromJSString <$>       (ghcjs_dom_html_image_element_get_align          (unHTMLImageElement (toHTMLImageElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"alt\"] = $2;"         ghcjs_dom_html_image_element_set_alt ::         JSRef HTMLImageElement -> JSString -> IO ()-#else -ghcjs_dom_html_image_element_set_alt ::-                                       JSRef HTMLImageElement -> JSString -> IO ()-ghcjs_dom_html_image_element_set_alt = undefined-#endif   htmlImageElementSetAlt ::                        (IsHTMLImageElement self, ToJSString val) => self -> val -> IO ()@@ -152,17 +113,10 @@   = ghcjs_dom_html_image_element_set_alt       (unHTMLImageElement (toHTMLImageElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"alt\"]"         ghcjs_dom_html_image_element_get_alt ::         JSRef HTMLImageElement -> IO JSString-#else -ghcjs_dom_html_image_element_get_alt ::-                                       JSRef HTMLImageElement -> IO JSString-ghcjs_dom_html_image_element_get_alt = undefined-#endif   htmlImageElementGetAlt ::                        (IsHTMLImageElement self, FromJSString result) => self -> IO result@@ -170,17 +124,10 @@   = fromJSString <$>       (ghcjs_dom_html_image_element_get_alt          (unHTMLImageElement (toHTMLImageElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"border\"] = $2;"         ghcjs_dom_html_image_element_set_border ::         JSRef HTMLImageElement -> JSString -> IO ()-#else -ghcjs_dom_html_image_element_set_border ::-                                          JSRef HTMLImageElement -> JSString -> IO ()-ghcjs_dom_html_image_element_set_border = undefined-#endif   htmlImageElementSetBorder ::                           (IsHTMLImageElement self, ToJSString val) => self -> val -> IO ()@@ -188,17 +135,10 @@   = ghcjs_dom_html_image_element_set_border       (unHTMLImageElement (toHTMLImageElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"border\"]"         ghcjs_dom_html_image_element_get_border ::         JSRef HTMLImageElement -> IO JSString-#else -ghcjs_dom_html_image_element_get_border ::-                                          JSRef HTMLImageElement -> IO JSString-ghcjs_dom_html_image_element_get_border = undefined-#endif   htmlImageElementGetBorder ::                           (IsHTMLImageElement self, FromJSString result) => self -> IO result@@ -206,17 +146,10 @@   = fromJSString <$>       (ghcjs_dom_html_image_element_get_border          (unHTMLImageElement (toHTMLImageElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"crossOrigin\"] = $2;"         ghcjs_dom_html_image_element_set_cross_origin ::         JSRef HTMLImageElement -> JSString -> IO ()-#else -ghcjs_dom_html_image_element_set_cross_origin ::-                                                JSRef HTMLImageElement -> JSString -> IO ()-ghcjs_dom_html_image_element_set_cross_origin = undefined-#endif   htmlImageElementSetCrossOrigin ::                                (IsHTMLImageElement self, ToJSString val) => self -> val -> IO ()@@ -224,17 +157,10 @@   = ghcjs_dom_html_image_element_set_cross_origin       (unHTMLImageElement (toHTMLImageElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"crossOrigin\"]"         ghcjs_dom_html_image_element_get_cross_origin ::         JSRef HTMLImageElement -> IO JSString-#else -ghcjs_dom_html_image_element_get_cross_origin ::-                                                JSRef HTMLImageElement -> IO JSString-ghcjs_dom_html_image_element_get_cross_origin = undefined-#endif   htmlImageElementGetCrossOrigin ::                                (IsHTMLImageElement self, FromJSString result) => self -> IO result@@ -242,17 +168,10 @@   = fromJSString <$>       (ghcjs_dom_html_image_element_get_cross_origin          (unHTMLImageElement (toHTMLImageElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"height\"] = $2;"         ghcjs_dom_html_image_element_set_height ::         JSRef HTMLImageElement -> Int -> IO ()-#else -ghcjs_dom_html_image_element_set_height ::-                                          JSRef HTMLImageElement -> Int -> IO ()-ghcjs_dom_html_image_element_set_height = undefined-#endif   htmlImageElementSetHeight ::                           (IsHTMLImageElement self) => self -> Int -> IO ()@@ -260,34 +179,20 @@   = ghcjs_dom_html_image_element_set_height       (unHTMLImageElement (toHTMLImageElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_image_element_get_height ::         JSRef HTMLImageElement -> IO Int-#else -ghcjs_dom_html_image_element_get_height ::-                                          JSRef HTMLImageElement -> IO Int-ghcjs_dom_html_image_element_get_height = undefined-#endif   htmlImageElementGetHeight ::                           (IsHTMLImageElement self) => self -> IO Int htmlImageElementGetHeight self   = ghcjs_dom_html_image_element_get_height       (unHTMLImageElement (toHTMLImageElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"hspace\"] = $2;"         ghcjs_dom_html_image_element_set_hspace ::         JSRef HTMLImageElement -> Int -> IO ()-#else -ghcjs_dom_html_image_element_set_hspace ::-                                          JSRef HTMLImageElement -> Int -> IO ()-ghcjs_dom_html_image_element_set_hspace = undefined-#endif   htmlImageElementSetHspace ::                           (IsHTMLImageElement self) => self -> Int -> IO ()@@ -295,34 +200,20 @@   = ghcjs_dom_html_image_element_set_hspace       (unHTMLImageElement (toHTMLImageElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"hspace\"]"         ghcjs_dom_html_image_element_get_hspace ::         JSRef HTMLImageElement -> IO Int-#else -ghcjs_dom_html_image_element_get_hspace ::-                                          JSRef HTMLImageElement -> IO Int-ghcjs_dom_html_image_element_get_hspace = undefined-#endif   htmlImageElementGetHspace ::                           (IsHTMLImageElement self) => self -> IO Int htmlImageElementGetHspace self   = ghcjs_dom_html_image_element_get_hspace       (unHTMLImageElement (toHTMLImageElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"isMap\"] = $2;"         ghcjs_dom_html_image_element_set_is_map ::         JSRef HTMLImageElement -> Bool -> IO ()-#else -ghcjs_dom_html_image_element_set_is_map ::-                                          JSRef HTMLImageElement -> Bool -> IO ()-ghcjs_dom_html_image_element_set_is_map = undefined-#endif   htmlImageElementSetIsMap ::                          (IsHTMLImageElement self) => self -> Bool -> IO ()@@ -330,34 +221,20 @@   = ghcjs_dom_html_image_element_set_is_map       (unHTMLImageElement (toHTMLImageElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"isMap\"] ? 1 : 0)"         ghcjs_dom_html_image_element_get_is_map ::         JSRef HTMLImageElement -> IO Bool-#else -ghcjs_dom_html_image_element_get_is_map ::-                                          JSRef HTMLImageElement -> IO Bool-ghcjs_dom_html_image_element_get_is_map = undefined-#endif   htmlImageElementGetIsMap ::                          (IsHTMLImageElement self) => self -> IO Bool htmlImageElementGetIsMap self   = ghcjs_dom_html_image_element_get_is_map       (unHTMLImageElement (toHTMLImageElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"longDesc\"] = $2;"         ghcjs_dom_html_image_element_set_long_desc ::         JSRef HTMLImageElement -> JSString -> IO ()-#else -ghcjs_dom_html_image_element_set_long_desc ::-                                             JSRef HTMLImageElement -> JSString -> IO ()-ghcjs_dom_html_image_element_set_long_desc = undefined-#endif   htmlImageElementSetLongDesc ::                             (IsHTMLImageElement self, ToJSString val) => self -> val -> IO ()@@ -365,17 +242,10 @@   = ghcjs_dom_html_image_element_set_long_desc       (unHTMLImageElement (toHTMLImageElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"longDesc\"]"         ghcjs_dom_html_image_element_get_long_desc ::         JSRef HTMLImageElement -> IO JSString-#else -ghcjs_dom_html_image_element_get_long_desc ::-                                             JSRef HTMLImageElement -> IO JSString-ghcjs_dom_html_image_element_get_long_desc = undefined-#endif   htmlImageElementGetLongDesc ::                             (IsHTMLImageElement self, FromJSString result) => self -> IO result@@ -383,17 +253,10 @@   = fromJSString <$>       (ghcjs_dom_html_image_element_get_long_desc          (unHTMLImageElement (toHTMLImageElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"src\"] = $2;"         ghcjs_dom_html_image_element_set_src ::         JSRef HTMLImageElement -> JSString -> IO ()-#else -ghcjs_dom_html_image_element_set_src ::-                                       JSRef HTMLImageElement -> JSString -> IO ()-ghcjs_dom_html_image_element_set_src = undefined-#endif   htmlImageElementSetSrc ::                        (IsHTMLImageElement self, ToJSString val) => self -> val -> IO ()@@ -401,17 +264,10 @@   = ghcjs_dom_html_image_element_set_src       (unHTMLImageElement (toHTMLImageElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"src\"]"         ghcjs_dom_html_image_element_get_src ::         JSRef HTMLImageElement -> IO JSString-#else -ghcjs_dom_html_image_element_get_src ::-                                       JSRef HTMLImageElement -> IO JSString-ghcjs_dom_html_image_element_get_src = undefined-#endif   htmlImageElementGetSrc ::                        (IsHTMLImageElement self, FromJSString result) => self -> IO result@@ -419,17 +275,10 @@   = fromJSString <$>       (ghcjs_dom_html_image_element_get_src          (unHTMLImageElement (toHTMLImageElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"srcset\"] = $2;"         ghcjs_dom_html_image_element_set_srcset ::         JSRef HTMLImageElement -> JSString -> IO ()-#else -ghcjs_dom_html_image_element_set_srcset ::-                                          JSRef HTMLImageElement -> JSString -> IO ()-ghcjs_dom_html_image_element_set_srcset = undefined-#endif   htmlImageElementSetSrcset ::                           (IsHTMLImageElement self, ToJSString val) => self -> val -> IO ()@@ -437,17 +286,10 @@   = ghcjs_dom_html_image_element_set_srcset       (unHTMLImageElement (toHTMLImageElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"srcset\"]"         ghcjs_dom_html_image_element_get_srcset ::         JSRef HTMLImageElement -> IO JSString-#else -ghcjs_dom_html_image_element_get_srcset ::-                                          JSRef HTMLImageElement -> IO JSString-ghcjs_dom_html_image_element_get_srcset = undefined-#endif   htmlImageElementGetSrcset ::                           (IsHTMLImageElement self, FromJSString result) => self -> IO result@@ -455,17 +297,10 @@   = fromJSString <$>       (ghcjs_dom_html_image_element_get_srcset          (unHTMLImageElement (toHTMLImageElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"useMap\"] = $2;"         ghcjs_dom_html_image_element_set_use_map ::         JSRef HTMLImageElement -> JSString -> IO ()-#else -ghcjs_dom_html_image_element_set_use_map ::-                                           JSRef HTMLImageElement -> JSString -> IO ()-ghcjs_dom_html_image_element_set_use_map = undefined-#endif   htmlImageElementSetUseMap ::                           (IsHTMLImageElement self, ToJSString val) => self -> val -> IO ()@@ -473,17 +308,10 @@   = ghcjs_dom_html_image_element_set_use_map       (unHTMLImageElement (toHTMLImageElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"useMap\"]"         ghcjs_dom_html_image_element_get_use_map ::         JSRef HTMLImageElement -> IO JSString-#else -ghcjs_dom_html_image_element_get_use_map ::-                                           JSRef HTMLImageElement -> IO JSString-ghcjs_dom_html_image_element_get_use_map = undefined-#endif   htmlImageElementGetUseMap ::                           (IsHTMLImageElement self, FromJSString result) => self -> IO result@@ -491,17 +319,10 @@   = fromJSString <$>       (ghcjs_dom_html_image_element_get_use_map          (unHTMLImageElement (toHTMLImageElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"vspace\"] = $2;"         ghcjs_dom_html_image_element_set_vspace ::         JSRef HTMLImageElement -> Int -> IO ()-#else -ghcjs_dom_html_image_element_set_vspace ::-                                          JSRef HTMLImageElement -> Int -> IO ()-ghcjs_dom_html_image_element_set_vspace = undefined-#endif   htmlImageElementSetVspace ::                           (IsHTMLImageElement self) => self -> Int -> IO ()@@ -509,34 +330,20 @@   = ghcjs_dom_html_image_element_set_vspace       (unHTMLImageElement (toHTMLImageElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"vspace\"]"         ghcjs_dom_html_image_element_get_vspace ::         JSRef HTMLImageElement -> IO Int-#else -ghcjs_dom_html_image_element_get_vspace ::-                                          JSRef HTMLImageElement -> IO Int-ghcjs_dom_html_image_element_get_vspace = undefined-#endif   htmlImageElementGetVspace ::                           (IsHTMLImageElement self) => self -> IO Int htmlImageElementGetVspace self   = ghcjs_dom_html_image_element_get_vspace       (unHTMLImageElement (toHTMLImageElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_image_element_set_width ::         JSRef HTMLImageElement -> Int -> IO ()-#else -ghcjs_dom_html_image_element_set_width ::-                                         JSRef HTMLImageElement -> Int -> IO ()-ghcjs_dom_html_image_element_set_width = undefined-#endif   htmlImageElementSetWidth ::                          (IsHTMLImageElement self) => self -> Int -> IO ()@@ -544,51 +351,30 @@   = ghcjs_dom_html_image_element_set_width       (unHTMLImageElement (toHTMLImageElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_image_element_get_width ::         JSRef HTMLImageElement -> IO Int-#else -ghcjs_dom_html_image_element_get_width ::-                                         JSRef HTMLImageElement -> IO Int-ghcjs_dom_html_image_element_get_width = undefined-#endif   htmlImageElementGetWidth ::                          (IsHTMLImageElement self) => self -> IO Int htmlImageElementGetWidth self   = ghcjs_dom_html_image_element_get_width       (unHTMLImageElement (toHTMLImageElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"complete\"] ? 1 : 0)"         ghcjs_dom_html_image_element_get_complete ::         JSRef HTMLImageElement -> IO Bool-#else -ghcjs_dom_html_image_element_get_complete ::-                                            JSRef HTMLImageElement -> IO Bool-ghcjs_dom_html_image_element_get_complete = undefined-#endif   htmlImageElementGetComplete ::                             (IsHTMLImageElement self) => self -> IO Bool htmlImageElementGetComplete self   = ghcjs_dom_html_image_element_get_complete       (unHTMLImageElement (toHTMLImageElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"lowsrc\"] = $2;"         ghcjs_dom_html_image_element_set_lowsrc ::         JSRef HTMLImageElement -> JSString -> IO ()-#else -ghcjs_dom_html_image_element_set_lowsrc ::-                                          JSRef HTMLImageElement -> JSString -> IO ()-ghcjs_dom_html_image_element_set_lowsrc = undefined-#endif   htmlImageElementSetLowsrc ::                           (IsHTMLImageElement self, ToJSString val) => self -> val -> IO ()@@ -596,17 +382,10 @@   = ghcjs_dom_html_image_element_set_lowsrc       (unHTMLImageElement (toHTMLImageElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"lowsrc\"]"         ghcjs_dom_html_image_element_get_lowsrc ::         JSRef HTMLImageElement -> IO JSString-#else -ghcjs_dom_html_image_element_get_lowsrc ::-                                          JSRef HTMLImageElement -> IO JSString-ghcjs_dom_html_image_element_get_lowsrc = undefined-#endif   htmlImageElementGetLowsrc ::                           (IsHTMLImageElement self, FromJSString result) => self -> IO result@@ -614,67 +393,39 @@   = fromJSString <$>       (ghcjs_dom_html_image_element_get_lowsrc          (unHTMLImageElement (toHTMLImageElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"naturalHeight\"]"         ghcjs_dom_html_image_element_get_natural_height ::         JSRef HTMLImageElement -> IO Int-#else -ghcjs_dom_html_image_element_get_natural_height ::-                                                  JSRef HTMLImageElement -> IO Int-ghcjs_dom_html_image_element_get_natural_height = undefined-#endif   htmlImageElementGetNaturalHeight ::                                  (IsHTMLImageElement self) => self -> IO Int htmlImageElementGetNaturalHeight self   = ghcjs_dom_html_image_element_get_natural_height       (unHTMLImageElement (toHTMLImageElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"naturalWidth\"]"         ghcjs_dom_html_image_element_get_natural_width ::         JSRef HTMLImageElement -> IO Int-#else -ghcjs_dom_html_image_element_get_natural_width ::-                                                 JSRef HTMLImageElement -> IO Int-ghcjs_dom_html_image_element_get_natural_width = undefined-#endif   htmlImageElementGetNaturalWidth ::                                 (IsHTMLImageElement self) => self -> IO Int htmlImageElementGetNaturalWidth self   = ghcjs_dom_html_image_element_get_natural_width       (unHTMLImageElement (toHTMLImageElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"x\"]"         ghcjs_dom_html_image_element_get_x ::         JSRef HTMLImageElement -> IO Int-#else -ghcjs_dom_html_image_element_get_x ::-                                     JSRef HTMLImageElement -> IO Int-ghcjs_dom_html_image_element_get_x = undefined-#endif   htmlImageElementGetX :: (IsHTMLImageElement self) => self -> IO Int htmlImageElementGetX self   = ghcjs_dom_html_image_element_get_x       (unHTMLImageElement (toHTMLImageElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"y\"]"         ghcjs_dom_html_image_element_get_y ::         JSRef HTMLImageElement -> IO Int-#else -ghcjs_dom_html_image_element_get_y ::-                                     JSRef HTMLImageElement -> IO Int-ghcjs_dom_html_image_element_get_y = undefined-#endif   htmlImageElementGetY :: (IsHTMLImageElement self) => self -> IO Int htmlImageElementGetY self

src/GHCJS/DOM/HTMLInputElement.hs view

@@ -11,1799 +11,1139 @@         ghcjs_dom_html_input_element_select, htmlInputElementSelect,         ghcjs_dom_html_input_element_set_range_text,         htmlInputElementSetRangeText,-        ghcjs_dom_html_input_element_set_value_for_user,-        htmlInputElementSetValueForUser,-        ghcjs_dom_html_input_element_set_accept, htmlInputElementSetAccept,-        ghcjs_dom_html_input_element_get_accept, htmlInputElementGetAccept,-        ghcjs_dom_html_input_element_set_alt, htmlInputElementSetAlt,-        ghcjs_dom_html_input_element_get_alt, htmlInputElementGetAlt,-        ghcjs_dom_html_input_element_set_autocomplete,-        htmlInputElementSetAutocomplete,-        ghcjs_dom_html_input_element_get_autocomplete,-        htmlInputElementGetAutocomplete,-        ghcjs_dom_html_input_element_set_autofocus,-        htmlInputElementSetAutofocus,-        ghcjs_dom_html_input_element_get_autofocus,-        htmlInputElementGetAutofocus,-        ghcjs_dom_html_input_element_set_default_checked,-        htmlInputElementSetDefaultChecked,-        ghcjs_dom_html_input_element_get_default_checked,-        htmlInputElementGetDefaultChecked,-        ghcjs_dom_html_input_element_set_checked,-        htmlInputElementSetChecked,-        ghcjs_dom_html_input_element_get_checked,-        htmlInputElementGetChecked,-        ghcjs_dom_html_input_element_set_dir_name,-        htmlInputElementSetDirName,-        ghcjs_dom_html_input_element_get_dir_name,-        htmlInputElementGetDirName,-        ghcjs_dom_html_input_element_set_disabled,-        htmlInputElementSetDisabled,-        ghcjs_dom_html_input_element_get_disabled,-        htmlInputElementGetDisabled, ghcjs_dom_html_input_element_get_form,-        htmlInputElementGetForm, ghcjs_dom_html_input_element_set_files,-        htmlInputElementSetFiles, ghcjs_dom_html_input_element_get_files,-        htmlInputElementGetFiles,-        ghcjs_dom_html_input_element_set_form_action,-        htmlInputElementSetFormAction,-        ghcjs_dom_html_input_element_get_form_action,-        htmlInputElementGetFormAction,-        ghcjs_dom_html_input_element_set_form_enctype,-        htmlInputElementSetFormEnctype,-        ghcjs_dom_html_input_element_get_form_enctype,-        htmlInputElementGetFormEnctype,-        ghcjs_dom_html_input_element_set_form_method,-        htmlInputElementSetFormMethod,-        ghcjs_dom_html_input_element_get_form_method,-        htmlInputElementGetFormMethod,-        ghcjs_dom_html_input_element_set_form_no_validate,-        htmlInputElementSetFormNoValidate,-        ghcjs_dom_html_input_element_get_form_no_validate,-        htmlInputElementGetFormNoValidate,-        ghcjs_dom_html_input_element_set_form_target,-        htmlInputElementSetFormTarget,-        ghcjs_dom_html_input_element_get_form_target,-        htmlInputElementGetFormTarget,-        ghcjs_dom_html_input_element_set_height, htmlInputElementSetHeight,-        ghcjs_dom_html_input_element_get_height, htmlInputElementGetHeight,-        ghcjs_dom_html_input_element_set_indeterminate,-        htmlInputElementSetIndeterminate,-        ghcjs_dom_html_input_element_get_indeterminate,-        htmlInputElementGetIndeterminate,-        ghcjs_dom_html_input_element_get_list, htmlInputElementGetList,-        ghcjs_dom_html_input_element_set_max, htmlInputElementSetMax,-        ghcjs_dom_html_input_element_get_max, htmlInputElementGetMax,-        ghcjs_dom_html_input_element_set_max_length,-        htmlInputElementSetMaxLength,-        ghcjs_dom_html_input_element_get_max_length,-        htmlInputElementGetMaxLength, ghcjs_dom_html_input_element_set_min,-        htmlInputElementSetMin, ghcjs_dom_html_input_element_get_min,-        htmlInputElementGetMin, ghcjs_dom_html_input_element_set_multiple,-        htmlInputElementSetMultiple,-        ghcjs_dom_html_input_element_get_multiple,-        htmlInputElementGetMultiple, ghcjs_dom_html_input_element_set_name,-        htmlInputElementSetName, ghcjs_dom_html_input_element_get_name,-        htmlInputElementGetName, ghcjs_dom_html_input_element_set_pattern,-        htmlInputElementSetPattern,-        ghcjs_dom_html_input_element_get_pattern,-        htmlInputElementGetPattern,-        ghcjs_dom_html_input_element_set_placeholder,-        htmlInputElementSetPlaceholder,-        ghcjs_dom_html_input_element_get_placeholder,-        htmlInputElementGetPlaceholder,-        ghcjs_dom_html_input_element_set_read_only,-        htmlInputElementSetReadOnly,-        ghcjs_dom_html_input_element_get_read_only,-        htmlInputElementGetReadOnly,-        ghcjs_dom_html_input_element_set_required,-        htmlInputElementSetRequired,-        ghcjs_dom_html_input_element_get_required,-        htmlInputElementGetRequired, ghcjs_dom_html_input_element_set_size,-        htmlInputElementSetSize, ghcjs_dom_html_input_element_get_size,-        htmlInputElementGetSize, ghcjs_dom_html_input_element_set_src,-        htmlInputElementSetSrc, ghcjs_dom_html_input_element_get_src,-        htmlInputElementGetSrc, ghcjs_dom_html_input_element_set_step,-        htmlInputElementSetStep, ghcjs_dom_html_input_element_get_step,-        htmlInputElementGetStep,-        ghcjs_dom_html_input_element_set_default_value,-        htmlInputElementSetDefaultValue,-        ghcjs_dom_html_input_element_get_default_value,-        htmlInputElementGetDefaultValue,-        ghcjs_dom_html_input_element_set_value, htmlInputElementSetValue,-        ghcjs_dom_html_input_element_get_value, htmlInputElementGetValue,-        ghcjs_dom_html_input_element_set_value_as_number,-        htmlInputElementSetValueAsNumber,-        ghcjs_dom_html_input_element_get_value_as_number,-        htmlInputElementGetValueAsNumber,-        ghcjs_dom_html_input_element_set_width, htmlInputElementSetWidth,-        ghcjs_dom_html_input_element_get_width, htmlInputElementGetWidth,-        ghcjs_dom_html_input_element_get_will_validate,-        htmlInputElementGetWillValidate,-        ghcjs_dom_html_input_element_get_validity,-        htmlInputElementGetValidity,-        ghcjs_dom_html_input_element_get_validation_message,-        htmlInputElementGetValidationMessage,-        ghcjs_dom_html_input_element_get_labels, htmlInputElementGetLabels,-        ghcjs_dom_html_input_element_set_align, htmlInputElementSetAlign,-        ghcjs_dom_html_input_element_get_align, htmlInputElementGetAlign,-        ghcjs_dom_html_input_element_set_webkitdirectory,-        htmlInputElementSetWebkitdirectory,-        ghcjs_dom_html_input_element_get_webkitdirectory,-        htmlInputElementGetWebkitdirectory,-        ghcjs_dom_html_input_element_set_use_map,-        htmlInputElementSetUseMap,-        ghcjs_dom_html_input_element_get_use_map,-        htmlInputElementGetUseMap,-        ghcjs_dom_html_input_element_set_incremental,-        htmlInputElementSetIncremental,-        ghcjs_dom_html_input_element_get_incremental,-        htmlInputElementGetIncremental,-        ghcjs_dom_html_input_element_set_webkit_speech,-        htmlInputElementSetWebkitSpeech,-        ghcjs_dom_html_input_element_get_webkit_speech,-        htmlInputElementGetWebkitSpeech,-        ghcjs_dom_html_input_element_set_webkit_grammar,-        htmlInputElementSetWebkitGrammar,-        ghcjs_dom_html_input_element_get_webkit_grammar,-        htmlInputElementGetWebkitGrammar,-        htmlInputElementOnwebkitspeechchange,-        ghcjs_dom_html_input_element_set_capture,-        htmlInputElementSetCapture,-        ghcjs_dom_html_input_element_get_capture,-        htmlInputElementGetCapture, HTMLInputElement, IsHTMLInputElement,-        castToHTMLInputElement, gTypeHTMLInputElement, toHTMLInputElement)-       where-import GHCJS.Types-import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM----#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"stepUp\"]($2)"-        ghcjs_dom_html_input_element_step_up ::-        JSRef HTMLInputElement -> Int -> IO ()-#else-ghcjs_dom_html_input_element_step_up ::-                                       JSRef HTMLInputElement -> Int -> IO ()-ghcjs_dom_html_input_element_step_up = undefined-#endif--htmlInputElementStepUp ::-                       (IsHTMLInputElement self) => self -> Int -> IO ()-htmlInputElementStepUp self n-  = ghcjs_dom_html_input_element_step_up-      (unHTMLInputElement (toHTMLInputElement self))-      n---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"stepDown\"]($2)"-        ghcjs_dom_html_input_element_step_down ::-        JSRef HTMLInputElement -> Int -> IO ()-#else-ghcjs_dom_html_input_element_step_down ::-                                         JSRef HTMLInputElement -> Int -> IO ()-ghcjs_dom_html_input_element_step_down = undefined-#endif--htmlInputElementStepDown ::-                         (IsHTMLInputElement self) => self -> Int -> IO ()-htmlInputElementStepDown self n-  = ghcjs_dom_html_input_element_step_down-      (unHTMLInputElement (toHTMLInputElement self))-      n---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe-        "($1[\"checkValidity\"]() ? 1 : 0)"-        ghcjs_dom_html_input_element_check_validity ::-        JSRef HTMLInputElement -> IO Bool-#else-ghcjs_dom_html_input_element_check_validity ::-                                              JSRef HTMLInputElement -> IO Bool-ghcjs_dom_html_input_element_check_validity = undefined-#endif--htmlInputElementCheckValidity ::-                              (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementCheckValidity self-  = ghcjs_dom_html_input_element_check_validity-      (unHTMLInputElement (toHTMLInputElement self))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"-        ghcjs_dom_html_input_element_set_custom_validity ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_custom_validity ::-                                                   JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_custom_validity = undefined-#endif--htmlInputElementSetCustomValidity ::-                                  (IsHTMLInputElement self, ToJSString error) =>-                                    self -> error -> IO ()-htmlInputElementSetCustomValidity self error-  = ghcjs_dom_html_input_element_set_custom_validity-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString error)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"select\"]()"-        ghcjs_dom_html_input_element_select ::-        JSRef HTMLInputElement -> IO ()-#else-ghcjs_dom_html_input_element_select ::-                                      JSRef HTMLInputElement -> IO ()-ghcjs_dom_html_input_element_select = undefined-#endif--htmlInputElementSelect ::-                       (IsHTMLInputElement self) => self -> IO ()-htmlInputElementSelect self-  = ghcjs_dom_html_input_element_select-      (unHTMLInputElement (toHTMLInputElement self))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe-        "$1[\"setRangeText\"]($2, $3, $4,\n$5)"-        ghcjs_dom_html_input_element_set_range_text ::-        JSRef HTMLInputElement ->-          JSString -> Word -> Word -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_range_text ::-                                              JSRef HTMLInputElement ->-                                                JSString -> Word -> Word -> JSString -> IO ()-ghcjs_dom_html_input_element_set_range_text = undefined-#endif--htmlInputElementSetRangeText ::-                             (IsHTMLInputElement self, ToJSString replacement,-                              ToJSString selectionMode) =>-                               self -> replacement -> Word -> Word -> selectionMode -> IO ()-htmlInputElementSetRangeText self replacement start end-  selectionMode-  = ghcjs_dom_html_input_element_set_range_text-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString replacement)-      start-      end-      (toJSString selectionMode)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"setValueForUser\"]($2)"-        ghcjs_dom_html_input_element_set_value_for_user ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_value_for_user ::-                                                  JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_value_for_user = undefined-#endif--htmlInputElementSetValueForUser ::-                                (IsHTMLInputElement self, ToJSString value) =>-                                  self -> value -> IO ()-htmlInputElementSetValueForUser self value-  = ghcjs_dom_html_input_element_set_value_for_user-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString value)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"accept\"] = $2;"-        ghcjs_dom_html_input_element_set_accept ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_accept ::-                                          JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_accept = undefined-#endif--htmlInputElementSetAccept ::-                          (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetAccept self val-  = ghcjs_dom_html_input_element_set_accept-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"accept\"]"-        ghcjs_dom_html_input_element_get_accept ::-        JSRef HTMLInputElement -> IO JSString-#else-ghcjs_dom_html_input_element_get_accept ::-                                          JSRef HTMLInputElement -> IO JSString-ghcjs_dom_html_input_element_get_accept = undefined-#endif--htmlInputElementGetAccept ::-                          (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetAccept self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_accept-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"alt\"] = $2;"-        ghcjs_dom_html_input_element_set_alt ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_alt ::-                                       JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_alt = undefined-#endif--htmlInputElementSetAlt ::-                       (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetAlt self val-  = ghcjs_dom_html_input_element_set_alt-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"alt\"]"-        ghcjs_dom_html_input_element_get_alt ::-        JSRef HTMLInputElement -> IO JSString-#else-ghcjs_dom_html_input_element_get_alt ::-                                       JSRef HTMLInputElement -> IO JSString-ghcjs_dom_html_input_element_get_alt = undefined-#endif--htmlInputElementGetAlt ::-                       (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetAlt self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_alt-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"autocomplete\"] = $2;"-        ghcjs_dom_html_input_element_set_autocomplete ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_autocomplete ::-                                                JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_autocomplete = undefined-#endif--htmlInputElementSetAutocomplete ::-                                (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetAutocomplete self val-  = ghcjs_dom_html_input_element_set_autocomplete-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"autocomplete\"]"-        ghcjs_dom_html_input_element_get_autocomplete ::-        JSRef HTMLInputElement -> IO JSString-#else-ghcjs_dom_html_input_element_get_autocomplete ::-                                                JSRef HTMLInputElement -> IO JSString-ghcjs_dom_html_input_element_get_autocomplete = undefined-#endif--htmlInputElementGetAutocomplete ::-                                (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetAutocomplete self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_autocomplete-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"autofocus\"] = $2;"-        ghcjs_dom_html_input_element_set_autofocus ::-        JSRef HTMLInputElement -> Bool -> IO ()-#else-ghcjs_dom_html_input_element_set_autofocus ::-                                             JSRef HTMLInputElement -> Bool -> IO ()-ghcjs_dom_html_input_element_set_autofocus = undefined-#endif--htmlInputElementSetAutofocus ::-                             (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetAutofocus self val-  = ghcjs_dom_html_input_element_set_autofocus-      (unHTMLInputElement (toHTMLInputElement self))-      val---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_autofocus ::-        JSRef HTMLInputElement -> IO Bool-#else-ghcjs_dom_html_input_element_get_autofocus ::-                                             JSRef HTMLInputElement -> IO Bool-ghcjs_dom_html_input_element_get_autofocus = undefined-#endif--htmlInputElementGetAutofocus ::-                             (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetAutofocus self-  = ghcjs_dom_html_input_element_get_autofocus-      (unHTMLInputElement (toHTMLInputElement self))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"defaultChecked\"] = $2;"-        ghcjs_dom_html_input_element_set_default_checked ::-        JSRef HTMLInputElement -> Bool -> IO ()-#else-ghcjs_dom_html_input_element_set_default_checked ::-                                                   JSRef HTMLInputElement -> Bool -> IO ()-ghcjs_dom_html_input_element_set_default_checked = undefined-#endif--htmlInputElementSetDefaultChecked ::-                                  (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetDefaultChecked self val-  = ghcjs_dom_html_input_element_set_default_checked-      (unHTMLInputElement (toHTMLInputElement self))-      val---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "($1[\"defaultChecked\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_default_checked ::-        JSRef HTMLInputElement -> IO Bool-#else-ghcjs_dom_html_input_element_get_default_checked ::-                                                   JSRef HTMLInputElement -> IO Bool-ghcjs_dom_html_input_element_get_default_checked = undefined-#endif--htmlInputElementGetDefaultChecked ::-                                  (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetDefaultChecked self-  = ghcjs_dom_html_input_element_get_default_checked-      (unHTMLInputElement (toHTMLInputElement self))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"checked\"] = $2;"-        ghcjs_dom_html_input_element_set_checked ::-        JSRef HTMLInputElement -> Bool -> IO ()-#else-ghcjs_dom_html_input_element_set_checked ::-                                           JSRef HTMLInputElement -> Bool -> IO ()-ghcjs_dom_html_input_element_set_checked = undefined-#endif--htmlInputElementSetChecked ::-                           (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetChecked self val-  = ghcjs_dom_html_input_element_set_checked-      (unHTMLInputElement (toHTMLInputElement self))-      val---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "($1[\"checked\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_checked ::-        JSRef HTMLInputElement -> IO Bool-#else-ghcjs_dom_html_input_element_get_checked ::-                                           JSRef HTMLInputElement -> IO Bool-ghcjs_dom_html_input_element_get_checked = undefined-#endif--htmlInputElementGetChecked ::-                           (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetChecked self-  = ghcjs_dom_html_input_element_get_checked-      (unHTMLInputElement (toHTMLInputElement self))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"dirName\"] = $2;"-        ghcjs_dom_html_input_element_set_dir_name ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_dir_name ::-                                            JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_dir_name = undefined-#endif--htmlInputElementSetDirName ::-                           (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetDirName self val-  = ghcjs_dom_html_input_element_set_dir_name-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"dirName\"]"-        ghcjs_dom_html_input_element_get_dir_name ::-        JSRef HTMLInputElement -> IO JSString-#else-ghcjs_dom_html_input_element_get_dir_name ::-                                            JSRef HTMLInputElement -> IO JSString-ghcjs_dom_html_input_element_get_dir_name = undefined-#endif--htmlInputElementGetDirName ::-                           (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetDirName self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_dir_name-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"disabled\"] = $2;"-        ghcjs_dom_html_input_element_set_disabled ::-        JSRef HTMLInputElement -> Bool -> IO ()-#else-ghcjs_dom_html_input_element_set_disabled ::-                                            JSRef HTMLInputElement -> Bool -> IO ()-ghcjs_dom_html_input_element_set_disabled = undefined-#endif--htmlInputElementSetDisabled ::-                            (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetDisabled self val-  = ghcjs_dom_html_input_element_set_disabled-      (unHTMLInputElement (toHTMLInputElement self))-      val---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_disabled ::-        JSRef HTMLInputElement -> IO Bool-#else-ghcjs_dom_html_input_element_get_disabled ::-                                            JSRef HTMLInputElement -> IO Bool-ghcjs_dom_html_input_element_get_disabled = undefined-#endif--htmlInputElementGetDisabled ::-                            (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetDisabled self-  = ghcjs_dom_html_input_element_get_disabled-      (unHTMLInputElement (toHTMLInputElement self))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"form\"]"-        ghcjs_dom_html_input_element_get_form ::-        JSRef HTMLInputElement -> IO (JSRef HTMLFormElement)-#else-ghcjs_dom_html_input_element_get_form ::-                                        JSRef HTMLInputElement -> IO (JSRef HTMLFormElement)-ghcjs_dom_html_input_element_get_form = undefined-#endif--htmlInputElementGetForm ::-                        (IsHTMLInputElement self) => self -> IO (Maybe HTMLFormElement)-htmlInputElementGetForm self-  = fmap HTMLFormElement . maybeJSNull <$>-      (ghcjs_dom_html_input_element_get_form-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"files\"] = $2;"-        ghcjs_dom_html_input_element_set_files ::-        JSRef HTMLInputElement -> JSRef FileList -> IO ()-#else-ghcjs_dom_html_input_element_set_files ::-                                         JSRef HTMLInputElement -> JSRef FileList -> IO ()-ghcjs_dom_html_input_element_set_files = undefined-#endif--htmlInputElementSetFiles ::-                         (IsHTMLInputElement self, IsFileList val) =>-                           self -> Maybe val -> IO ()-htmlInputElementSetFiles self val-  = ghcjs_dom_html_input_element_set_files-      (unHTMLInputElement (toHTMLInputElement self))-      (maybe jsNull (unFileList . toFileList) val)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"files\"]"-        ghcjs_dom_html_input_element_get_files ::-        JSRef HTMLInputElement -> IO (JSRef FileList)-#else-ghcjs_dom_html_input_element_get_files ::-                                         JSRef HTMLInputElement -> IO (JSRef FileList)-ghcjs_dom_html_input_element_get_files = undefined-#endif--htmlInputElementGetFiles ::-                         (IsHTMLInputElement self) => self -> IO (Maybe FileList)-htmlInputElementGetFiles self-  = fmap FileList . maybeJSNull <$>-      (ghcjs_dom_html_input_element_get_files-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"formAction\"] = $2;"-        ghcjs_dom_html_input_element_set_form_action ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_form_action ::-                                               JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_form_action = undefined-#endif--htmlInputElementSetFormAction ::-                              (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetFormAction self val-  = ghcjs_dom_html_input_element_set_form_action-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"formAction\"]"-        ghcjs_dom_html_input_element_get_form_action ::-        JSRef HTMLInputElement -> IO JSString-#else-ghcjs_dom_html_input_element_get_form_action ::-                                               JSRef HTMLInputElement -> IO JSString-ghcjs_dom_html_input_element_get_form_action = undefined-#endif--htmlInputElementGetFormAction ::-                              (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetFormAction self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_form_action-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"formEnctype\"] = $2;"-        ghcjs_dom_html_input_element_set_form_enctype ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_form_enctype ::-                                                JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_form_enctype = undefined-#endif--htmlInputElementSetFormEnctype ::-                               (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetFormEnctype self val-  = ghcjs_dom_html_input_element_set_form_enctype-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"formEnctype\"]"-        ghcjs_dom_html_input_element_get_form_enctype ::-        JSRef HTMLInputElement -> IO JSString-#else-ghcjs_dom_html_input_element_get_form_enctype ::-                                                JSRef HTMLInputElement -> IO JSString-ghcjs_dom_html_input_element_get_form_enctype = undefined-#endif--htmlInputElementGetFormEnctype ::-                               (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetFormEnctype self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_form_enctype-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"formMethod\"] = $2;"-        ghcjs_dom_html_input_element_set_form_method ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_form_method ::-                                               JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_form_method = undefined-#endif--htmlInputElementSetFormMethod ::-                              (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetFormMethod self val-  = ghcjs_dom_html_input_element_set_form_method-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"formMethod\"]"-        ghcjs_dom_html_input_element_get_form_method ::-        JSRef HTMLInputElement -> IO JSString-#else-ghcjs_dom_html_input_element_get_form_method ::-                                               JSRef HTMLInputElement -> IO JSString-ghcjs_dom_html_input_element_get_form_method = undefined-#endif--htmlInputElementGetFormMethod ::-                              (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetFormMethod self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_form_method-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;"-        ghcjs_dom_html_input_element_set_form_no_validate ::-        JSRef HTMLInputElement -> Bool -> IO ()-#else-ghcjs_dom_html_input_element_set_form_no_validate ::-                                                    JSRef HTMLInputElement -> Bool -> IO ()-ghcjs_dom_html_input_element_set_form_no_validate = undefined-#endif--htmlInputElementSetFormNoValidate ::-                                  (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetFormNoValidate self val-  = ghcjs_dom_html_input_element_set_form_no_validate-      (unHTMLInputElement (toHTMLInputElement self))-      val---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "($1[\"formNoValidate\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_form_no_validate ::-        JSRef HTMLInputElement -> IO Bool-#else-ghcjs_dom_html_input_element_get_form_no_validate ::-                                                    JSRef HTMLInputElement -> IO Bool-ghcjs_dom_html_input_element_get_form_no_validate = undefined-#endif--htmlInputElementGetFormNoValidate ::-                                  (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetFormNoValidate self-  = ghcjs_dom_html_input_element_get_form_no_validate-      (unHTMLInputElement (toHTMLInputElement self))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"formTarget\"] = $2;"-        ghcjs_dom_html_input_element_set_form_target ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_form_target ::-                                               JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_form_target = undefined-#endif--htmlInputElementSetFormTarget ::-                              (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetFormTarget self val-  = ghcjs_dom_html_input_element_set_form_target-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"formTarget\"]"-        ghcjs_dom_html_input_element_get_form_target ::-        JSRef HTMLInputElement -> IO JSString-#else-ghcjs_dom_html_input_element_get_form_target ::-                                               JSRef HTMLInputElement -> IO JSString-ghcjs_dom_html_input_element_get_form_target = undefined-#endif--htmlInputElementGetFormTarget ::-                              (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetFormTarget self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_form_target-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"height\"] = $2;"-        ghcjs_dom_html_input_element_set_height ::-        JSRef HTMLInputElement -> Word -> IO ()-#else-ghcjs_dom_html_input_element_set_height ::-                                          JSRef HTMLInputElement -> Word -> IO ()-ghcjs_dom_html_input_element_set_height = undefined-#endif--htmlInputElementSetHeight ::-                          (IsHTMLInputElement self) => self -> Word -> IO ()-htmlInputElementSetHeight self val-  = ghcjs_dom_html_input_element_set_height-      (unHTMLInputElement (toHTMLInputElement self))-      val---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"height\"]"-        ghcjs_dom_html_input_element_get_height ::-        JSRef HTMLInputElement -> IO Word-#else-ghcjs_dom_html_input_element_get_height ::-                                          JSRef HTMLInputElement -> IO Word-ghcjs_dom_html_input_element_get_height = undefined-#endif--htmlInputElementGetHeight ::-                          (IsHTMLInputElement self) => self -> IO Word-htmlInputElementGetHeight self-  = ghcjs_dom_html_input_element_get_height-      (unHTMLInputElement (toHTMLInputElement self))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"indeterminate\"] = $2;"-        ghcjs_dom_html_input_element_set_indeterminate ::-        JSRef HTMLInputElement -> Bool -> IO ()-#else-ghcjs_dom_html_input_element_set_indeterminate ::-                                                 JSRef HTMLInputElement -> Bool -> IO ()-ghcjs_dom_html_input_element_set_indeterminate = undefined-#endif--htmlInputElementSetIndeterminate ::-                                 (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetIndeterminate self val-  = ghcjs_dom_html_input_element_set_indeterminate-      (unHTMLInputElement (toHTMLInputElement self))-      val---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "($1[\"indeterminate\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_indeterminate ::-        JSRef HTMLInputElement -> IO Bool-#else-ghcjs_dom_html_input_element_get_indeterminate ::-                                                 JSRef HTMLInputElement -> IO Bool-ghcjs_dom_html_input_element_get_indeterminate = undefined-#endif--htmlInputElementGetIndeterminate ::-                                 (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetIndeterminate self-  = ghcjs_dom_html_input_element_get_indeterminate-      (unHTMLInputElement (toHTMLInputElement self))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"list\"]"-        ghcjs_dom_html_input_element_get_list ::-        JSRef HTMLInputElement -> IO (JSRef HTMLElement)-#else-ghcjs_dom_html_input_element_get_list ::-                                        JSRef HTMLInputElement -> IO (JSRef HTMLElement)-ghcjs_dom_html_input_element_get_list = undefined-#endif--htmlInputElementGetList ::-                        (IsHTMLInputElement self) => self -> IO (Maybe HTMLElement)-htmlInputElementGetList self-  = fmap HTMLElement . maybeJSNull <$>-      (ghcjs_dom_html_input_element_get_list-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"max\"] = $2;"-        ghcjs_dom_html_input_element_set_max ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_max ::-                                       JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_max = undefined-#endif--htmlInputElementSetMax ::-                       (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetMax self val-  = ghcjs_dom_html_input_element_set_max-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"max\"]"-        ghcjs_dom_html_input_element_get_max ::-        JSRef HTMLInputElement -> IO JSString-#else-ghcjs_dom_html_input_element_get_max ::-                                       JSRef HTMLInputElement -> IO JSString-ghcjs_dom_html_input_element_get_max = undefined-#endif--htmlInputElementGetMax ::-                       (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetMax self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_max-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"maxLength\"] = $2;"-        ghcjs_dom_html_input_element_set_max_length ::-        JSRef HTMLInputElement -> Int -> IO ()-#else-ghcjs_dom_html_input_element_set_max_length ::-                                              JSRef HTMLInputElement -> Int -> IO ()-ghcjs_dom_html_input_element_set_max_length = undefined-#endif--htmlInputElementSetMaxLength ::-                             (IsHTMLInputElement self) => self -> Int -> IO ()-htmlInputElementSetMaxLength self val-  = ghcjs_dom_html_input_element_set_max_length-      (unHTMLInputElement (toHTMLInputElement self))-      val---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"maxLength\"]"-        ghcjs_dom_html_input_element_get_max_length ::-        JSRef HTMLInputElement -> IO Int-#else-ghcjs_dom_html_input_element_get_max_length ::-                                              JSRef HTMLInputElement -> IO Int-ghcjs_dom_html_input_element_get_max_length = undefined-#endif--htmlInputElementGetMaxLength ::-                             (IsHTMLInputElement self) => self -> IO Int-htmlInputElementGetMaxLength self-  = ghcjs_dom_html_input_element_get_max_length-      (unHTMLInputElement (toHTMLInputElement self))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"min\"] = $2;"-        ghcjs_dom_html_input_element_set_min ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_min ::-                                       JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_min = undefined-#endif--htmlInputElementSetMin ::-                       (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetMin self val-  = ghcjs_dom_html_input_element_set_min-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"min\"]"-        ghcjs_dom_html_input_element_get_min ::-        JSRef HTMLInputElement -> IO JSString-#else-ghcjs_dom_html_input_element_get_min ::-                                       JSRef HTMLInputElement -> IO JSString-ghcjs_dom_html_input_element_get_min = undefined-#endif--htmlInputElementGetMin ::-                       (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetMin self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_min-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"multiple\"] = $2;"-        ghcjs_dom_html_input_element_set_multiple ::-        JSRef HTMLInputElement -> Bool -> IO ()-#else-ghcjs_dom_html_input_element_set_multiple ::-                                            JSRef HTMLInputElement -> Bool -> IO ()-ghcjs_dom_html_input_element_set_multiple = undefined-#endif--htmlInputElementSetMultiple ::-                            (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetMultiple self val-  = ghcjs_dom_html_input_element_set_multiple-      (unHTMLInputElement (toHTMLInputElement self))-      val---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "($1[\"multiple\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_multiple ::-        JSRef HTMLInputElement -> IO Bool-#else-ghcjs_dom_html_input_element_get_multiple ::-                                            JSRef HTMLInputElement -> IO Bool-ghcjs_dom_html_input_element_get_multiple = undefined-#endif--htmlInputElementGetMultiple ::-                            (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetMultiple self-  = ghcjs_dom_html_input_element_get_multiple-      (unHTMLInputElement (toHTMLInputElement self))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"name\"] = $2;"-        ghcjs_dom_html_input_element_set_name ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_name ::-                                        JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_name = undefined-#endif--htmlInputElementSetName ::-                        (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetName self val-  = ghcjs_dom_html_input_element_set_name-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"name\"]"-        ghcjs_dom_html_input_element_get_name ::-        JSRef HTMLInputElement -> IO JSString-#else-ghcjs_dom_html_input_element_get_name ::-                                        JSRef HTMLInputElement -> IO JSString-ghcjs_dom_html_input_element_get_name = undefined-#endif--htmlInputElementGetName ::-                        (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetName self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_name-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"pattern\"] = $2;"-        ghcjs_dom_html_input_element_set_pattern ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_pattern ::-                                           JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_pattern = undefined-#endif--htmlInputElementSetPattern ::-                           (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetPattern self val-  = ghcjs_dom_html_input_element_set_pattern-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"pattern\"]"-        ghcjs_dom_html_input_element_get_pattern ::-        JSRef HTMLInputElement -> IO JSString-#else-ghcjs_dom_html_input_element_get_pattern ::-                                           JSRef HTMLInputElement -> IO JSString-ghcjs_dom_html_input_element_get_pattern = undefined-#endif--htmlInputElementGetPattern ::-                           (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetPattern self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_pattern-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"placeholder\"] = $2;"-        ghcjs_dom_html_input_element_set_placeholder ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_placeholder ::-                                               JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_placeholder = undefined-#endif--htmlInputElementSetPlaceholder ::-                               (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetPlaceholder self val-  = ghcjs_dom_html_input_element_set_placeholder-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"placeholder\"]"-        ghcjs_dom_html_input_element_get_placeholder ::-        JSRef HTMLInputElement -> IO JSString-#else-ghcjs_dom_html_input_element_get_placeholder ::-                                               JSRef HTMLInputElement -> IO JSString-ghcjs_dom_html_input_element_get_placeholder = undefined-#endif--htmlInputElementGetPlaceholder ::-                               (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetPlaceholder self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_placeholder-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"readOnly\"] = $2;"-        ghcjs_dom_html_input_element_set_read_only ::-        JSRef HTMLInputElement -> Bool -> IO ()-#else-ghcjs_dom_html_input_element_set_read_only ::-                                             JSRef HTMLInputElement -> Bool -> IO ()-ghcjs_dom_html_input_element_set_read_only = undefined-#endif--htmlInputElementSetReadOnly ::-                            (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetReadOnly self val-  = ghcjs_dom_html_input_element_set_read_only-      (unHTMLInputElement (toHTMLInputElement self))-      val---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "($1[\"readOnly\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_read_only ::-        JSRef HTMLInputElement -> IO Bool-#else-ghcjs_dom_html_input_element_get_read_only ::-                                             JSRef HTMLInputElement -> IO Bool-ghcjs_dom_html_input_element_get_read_only = undefined-#endif--htmlInputElementGetReadOnly ::-                            (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetReadOnly self-  = ghcjs_dom_html_input_element_get_read_only-      (unHTMLInputElement (toHTMLInputElement self))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"required\"] = $2;"-        ghcjs_dom_html_input_element_set_required ::-        JSRef HTMLInputElement -> Bool -> IO ()-#else-ghcjs_dom_html_input_element_set_required ::-                                            JSRef HTMLInputElement -> Bool -> IO ()-ghcjs_dom_html_input_element_set_required = undefined-#endif--htmlInputElementSetRequired ::-                            (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetRequired self val-  = ghcjs_dom_html_input_element_set_required-      (unHTMLInputElement (toHTMLInputElement self))-      val---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_required ::-        JSRef HTMLInputElement -> IO Bool-#else-ghcjs_dom_html_input_element_get_required ::-                                            JSRef HTMLInputElement -> IO Bool-ghcjs_dom_html_input_element_get_required = undefined-#endif--htmlInputElementGetRequired ::-                            (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetRequired self-  = ghcjs_dom_html_input_element_get_required-      (unHTMLInputElement (toHTMLInputElement self))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"size\"] = $2;"-        ghcjs_dom_html_input_element_set_size ::-        JSRef HTMLInputElement -> Word -> IO ()-#else-ghcjs_dom_html_input_element_set_size ::-                                        JSRef HTMLInputElement -> Word -> IO ()-ghcjs_dom_html_input_element_set_size = undefined-#endif--htmlInputElementSetSize ::-                        (IsHTMLInputElement self) => self -> Word -> IO ()-htmlInputElementSetSize self val-  = ghcjs_dom_html_input_element_set_size-      (unHTMLInputElement (toHTMLInputElement self))-      val---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"size\"]"-        ghcjs_dom_html_input_element_get_size ::-        JSRef HTMLInputElement -> IO Word-#else-ghcjs_dom_html_input_element_get_size ::-                                        JSRef HTMLInputElement -> IO Word-ghcjs_dom_html_input_element_get_size = undefined-#endif--htmlInputElementGetSize ::-                        (IsHTMLInputElement self) => self -> IO Word-htmlInputElementGetSize self-  = ghcjs_dom_html_input_element_get_size-      (unHTMLInputElement (toHTMLInputElement self))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"src\"] = $2;"-        ghcjs_dom_html_input_element_set_src ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_src ::-                                       JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_src = undefined-#endif--htmlInputElementSetSrc ::-                       (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetSrc self val-  = ghcjs_dom_html_input_element_set_src-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"src\"]"-        ghcjs_dom_html_input_element_get_src ::-        JSRef HTMLInputElement -> IO JSString-#else-ghcjs_dom_html_input_element_get_src ::-                                       JSRef HTMLInputElement -> IO JSString-ghcjs_dom_html_input_element_get_src = undefined-#endif--htmlInputElementGetSrc ::-                       (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetSrc self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_src-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"step\"] = $2;"-        ghcjs_dom_html_input_element_set_step ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_step ::-                                        JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_step = undefined-#endif--htmlInputElementSetStep ::-                        (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetStep self val-  = ghcjs_dom_html_input_element_set_step-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"step\"]"-        ghcjs_dom_html_input_element_get_step ::-        JSRef HTMLInputElement -> IO JSString-#else-ghcjs_dom_html_input_element_get_step ::-                                        JSRef HTMLInputElement -> IO JSString-ghcjs_dom_html_input_element_get_step = undefined-#endif--htmlInputElementGetStep ::-                        (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetStep self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_step-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"defaultValue\"] = $2;"-        ghcjs_dom_html_input_element_set_default_value ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_default_value ::-                                                 JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_default_value = undefined-#endif--htmlInputElementSetDefaultValue ::-                                (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetDefaultValue self val-  = ghcjs_dom_html_input_element_set_default_value-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"defaultValue\"]"-        ghcjs_dom_html_input_element_get_default_value ::-        JSRef HTMLInputElement -> IO JSString-#else-ghcjs_dom_html_input_element_get_default_value ::-                                                 JSRef HTMLInputElement -> IO JSString-ghcjs_dom_html_input_element_get_default_value = undefined-#endif--htmlInputElementGetDefaultValue ::-                                (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetDefaultValue self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_default_value-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"value\"] = $2;"-        ghcjs_dom_html_input_element_set_value ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_value ::-                                         JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_value = undefined-#endif--htmlInputElementSetValue ::-                         (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetValue self val-  = ghcjs_dom_html_input_element_set_value-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"value\"]"-        ghcjs_dom_html_input_element_get_value ::-        JSRef HTMLInputElement -> IO JSString-#else-ghcjs_dom_html_input_element_get_value ::-                                         JSRef HTMLInputElement -> IO JSString-ghcjs_dom_html_input_element_get_value = undefined-#endif--htmlInputElementGetValue ::-                         (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetValue self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_value-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"valueAsNumber\"] = $2;"-        ghcjs_dom_html_input_element_set_value_as_number ::-        JSRef HTMLInputElement -> Double -> IO ()-#else-ghcjs_dom_html_input_element_set_value_as_number ::-                                                   JSRef HTMLInputElement -> Double -> IO ()-ghcjs_dom_html_input_element_set_value_as_number = undefined-#endif--htmlInputElementSetValueAsNumber ::-                                 (IsHTMLInputElement self) => self -> Double -> IO ()-htmlInputElementSetValueAsNumber self val-  = ghcjs_dom_html_input_element_set_value_as_number-      (unHTMLInputElement (toHTMLInputElement self))-      val---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"valueAsNumber\"]"-        ghcjs_dom_html_input_element_get_value_as_number ::-        JSRef HTMLInputElement -> IO Double-#else-ghcjs_dom_html_input_element_get_value_as_number ::-                                                   JSRef HTMLInputElement -> IO Double-ghcjs_dom_html_input_element_get_value_as_number = undefined-#endif--htmlInputElementGetValueAsNumber ::-                                 (IsHTMLInputElement self) => self -> IO Double-htmlInputElementGetValueAsNumber self-  = ghcjs_dom_html_input_element_get_value_as_number-      (unHTMLInputElement (toHTMLInputElement self))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"width\"] = $2;"-        ghcjs_dom_html_input_element_set_width ::-        JSRef HTMLInputElement -> Word -> IO ()-#else-ghcjs_dom_html_input_element_set_width ::-                                         JSRef HTMLInputElement -> Word -> IO ()-ghcjs_dom_html_input_element_set_width = undefined-#endif--htmlInputElementSetWidth ::-                         (IsHTMLInputElement self) => self -> Word -> IO ()-htmlInputElementSetWidth self val-  = ghcjs_dom_html_input_element_set_width-      (unHTMLInputElement (toHTMLInputElement self))-      val---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"width\"]"-        ghcjs_dom_html_input_element_get_width ::-        JSRef HTMLInputElement -> IO Word-#else-ghcjs_dom_html_input_element_get_width ::-                                         JSRef HTMLInputElement -> IO Word-ghcjs_dom_html_input_element_get_width = undefined-#endif--htmlInputElementGetWidth ::-                         (IsHTMLInputElement self) => self -> IO Word-htmlInputElementGetWidth self-  = ghcjs_dom_html_input_element_get_width-      (unHTMLInputElement (toHTMLInputElement self))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_will_validate ::-        JSRef HTMLInputElement -> IO Bool-#else-ghcjs_dom_html_input_element_get_will_validate ::-                                                 JSRef HTMLInputElement -> IO Bool-ghcjs_dom_html_input_element_get_will_validate = undefined-#endif--htmlInputElementGetWillValidate ::-                                (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetWillValidate self-  = ghcjs_dom_html_input_element_get_will_validate-      (unHTMLInputElement (toHTMLInputElement self))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"validity\"]"-        ghcjs_dom_html_input_element_get_validity ::-        JSRef HTMLInputElement -> IO (JSRef ValidityState)-#else-ghcjs_dom_html_input_element_get_validity ::-                                            JSRef HTMLInputElement -> IO (JSRef ValidityState)-ghcjs_dom_html_input_element_get_validity = undefined-#endif--htmlInputElementGetValidity ::-                            (IsHTMLInputElement self) => self -> IO (Maybe ValidityState)-htmlInputElementGetValidity self-  = fmap ValidityState . maybeJSNull <$>-      (ghcjs_dom_html_input_element_get_validity-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"validationMessage\"]"-        ghcjs_dom_html_input_element_get_validation_message ::-        JSRef HTMLInputElement -> IO JSString-#else-ghcjs_dom_html_input_element_get_validation_message ::-                                                      JSRef HTMLInputElement -> IO JSString-ghcjs_dom_html_input_element_get_validation_message = undefined-#endif--htmlInputElementGetValidationMessage ::-                                     (IsHTMLInputElement self, FromJSString result) =>-                                       self -> IO result-htmlInputElementGetValidationMessage self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_validation_message-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"labels\"]"-        ghcjs_dom_html_input_element_get_labels ::-        JSRef HTMLInputElement -> IO (JSRef NodeList)-#else-ghcjs_dom_html_input_element_get_labels ::-                                          JSRef HTMLInputElement -> IO (JSRef NodeList)-ghcjs_dom_html_input_element_get_labels = undefined-#endif--htmlInputElementGetLabels ::-                          (IsHTMLInputElement self) => self -> IO (Maybe NodeList)-htmlInputElementGetLabels self-  = fmap NodeList . maybeJSNull <$>-      (ghcjs_dom_html_input_element_get_labels-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"align\"] = $2;"-        ghcjs_dom_html_input_element_set_align ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_align ::-                                         JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_align = undefined-#endif--htmlInputElementSetAlign ::-                         (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetAlign self val-  = ghcjs_dom_html_input_element_set_align-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"align\"]"-        ghcjs_dom_html_input_element_get_align ::-        JSRef HTMLInputElement -> IO JSString-#else-ghcjs_dom_html_input_element_get_align ::-                                         JSRef HTMLInputElement -> IO JSString-ghcjs_dom_html_input_element_get_align = undefined-#endif--htmlInputElementGetAlign ::-                         (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetAlign self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_align-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"webkitdirectory\"] = $2;"-        ghcjs_dom_html_input_element_set_webkitdirectory ::-        JSRef HTMLInputElement -> Bool -> IO ()-#else-ghcjs_dom_html_input_element_set_webkitdirectory ::-                                                   JSRef HTMLInputElement -> Bool -> IO ()-ghcjs_dom_html_input_element_set_webkitdirectory = undefined-#endif--htmlInputElementSetWebkitdirectory ::-                                   (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetWebkitdirectory self val-  = ghcjs_dom_html_input_element_set_webkitdirectory-      (unHTMLInputElement (toHTMLInputElement self))-      val---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe-        "($1[\"webkitdirectory\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_webkitdirectory ::-        JSRef HTMLInputElement -> IO Bool-#else-ghcjs_dom_html_input_element_get_webkitdirectory ::-                                                   JSRef HTMLInputElement -> IO Bool-ghcjs_dom_html_input_element_get_webkitdirectory = undefined-#endif--htmlInputElementGetWebkitdirectory ::-                                   (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetWebkitdirectory self-  = ghcjs_dom_html_input_element_get_webkitdirectory-      (unHTMLInputElement (toHTMLInputElement self))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"useMap\"] = $2;"-        ghcjs_dom_html_input_element_set_use_map ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_use_map ::-                                           JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_use_map = undefined-#endif--htmlInputElementSetUseMap ::-                          (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetUseMap self val-  = ghcjs_dom_html_input_element_set_use_map-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"useMap\"]"-        ghcjs_dom_html_input_element_get_use_map ::-        JSRef HTMLInputElement -> IO JSString-#else-ghcjs_dom_html_input_element_get_use_map ::-                                           JSRef HTMLInputElement -> IO JSString-ghcjs_dom_html_input_element_get_use_map = undefined-#endif--htmlInputElementGetUseMap ::-                          (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetUseMap self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_use_map-         (unHTMLInputElement (toHTMLInputElement self)))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"incremental\"] = $2;"-        ghcjs_dom_html_input_element_set_incremental ::-        JSRef HTMLInputElement -> Bool -> IO ()-#else-ghcjs_dom_html_input_element_set_incremental ::-                                               JSRef HTMLInputElement -> Bool -> IO ()-ghcjs_dom_html_input_element_set_incremental = undefined-#endif--htmlInputElementSetIncremental ::-                               (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetIncremental self val-  = ghcjs_dom_html_input_element_set_incremental-      (unHTMLInputElement (toHTMLInputElement self))-      val---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "($1[\"incremental\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_incremental ::-        JSRef HTMLInputElement -> IO Bool-#else-ghcjs_dom_html_input_element_get_incremental ::-                                               JSRef HTMLInputElement -> IO Bool-ghcjs_dom_html_input_element_get_incremental = undefined-#endif--htmlInputElementGetIncremental ::-                               (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetIncremental self-  = ghcjs_dom_html_input_element_get_incremental-      (unHTMLInputElement (toHTMLInputElement self))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"webkitSpeech\"] = $2;"-        ghcjs_dom_html_input_element_set_webkit_speech ::-        JSRef HTMLInputElement -> Bool -> IO ()-#else-ghcjs_dom_html_input_element_set_webkit_speech ::-                                                 JSRef HTMLInputElement -> Bool -> IO ()-ghcjs_dom_html_input_element_set_webkit_speech = undefined-#endif--htmlInputElementSetWebkitSpeech ::-                                (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetWebkitSpeech self val-  = ghcjs_dom_html_input_element_set_webkit_speech-      (unHTMLInputElement (toHTMLInputElement self))-      val---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "($1[\"webkitSpeech\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_webkit_speech ::-        JSRef HTMLInputElement -> IO Bool-#else-ghcjs_dom_html_input_element_get_webkit_speech ::-                                                 JSRef HTMLInputElement -> IO Bool-ghcjs_dom_html_input_element_get_webkit_speech = undefined-#endif--htmlInputElementGetWebkitSpeech ::-                                (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetWebkitSpeech self-  = ghcjs_dom_html_input_element_get_webkit_speech-      (unHTMLInputElement (toHTMLInputElement self))---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"webkitGrammar\"] = $2;"-        ghcjs_dom_html_input_element_set_webkit_grammar ::-        JSRef HTMLInputElement -> Bool -> IO ()-#else-ghcjs_dom_html_input_element_set_webkit_grammar ::-                                                  JSRef HTMLInputElement -> Bool -> IO ()-ghcjs_dom_html_input_element_set_webkit_grammar = undefined-#endif--htmlInputElementSetWebkitGrammar ::-                                 (IsHTMLInputElement self) => self -> Bool -> IO ()-htmlInputElementSetWebkitGrammar self val-  = ghcjs_dom_html_input_element_set_webkit_grammar-      (unHTMLInputElement (toHTMLInputElement self))-      val---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "($1[\"webkitGrammar\"] ? 1 : 0)"-        ghcjs_dom_html_input_element_get_webkit_grammar ::-        JSRef HTMLInputElement -> IO Bool-#else-ghcjs_dom_html_input_element_get_webkit_grammar ::-                                                  JSRef HTMLInputElement -> IO Bool-ghcjs_dom_html_input_element_get_webkit_grammar = undefined-#endif--htmlInputElementGetWebkitGrammar ::-                                 (IsHTMLInputElement self) => self -> IO Bool-htmlInputElementGetWebkitGrammar self-  = ghcjs_dom_html_input_element_get_webkit_grammar-      (unHTMLInputElement (toHTMLInputElement self))--htmlInputElementOnwebkitspeechchange ::-                                     (IsHTMLInputElement self) =>-                                       Signal self (EventM UIEvent self ())-htmlInputElementOnwebkitspeechchange-  = (connect "webkitspeechchange")---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"capture\"] = $2;"-        ghcjs_dom_html_input_element_set_capture ::-        JSRef HTMLInputElement -> JSString -> IO ()-#else-ghcjs_dom_html_input_element_set_capture ::-                                           JSRef HTMLInputElement -> JSString -> IO ()-ghcjs_dom_html_input_element_set_capture = undefined-#endif--htmlInputElementSetCapture ::-                           (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()-htmlInputElementSetCapture self val-  = ghcjs_dom_html_input_element_set_capture-      (unHTMLInputElement (toHTMLInputElement self))-      (toJSString val)---#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$1[\"capture\"]"-        ghcjs_dom_html_input_element_get_capture ::-        JSRef HTMLInputElement -> IO JSString-#else-ghcjs_dom_html_input_element_get_capture ::-                                           JSRef HTMLInputElement -> IO JSString-ghcjs_dom_html_input_element_get_capture = undefined-#endif--htmlInputElementGetCapture ::-                           (IsHTMLInputElement self, FromJSString result) => self -> IO result-htmlInputElementGetCapture self-  = fromJSString <$>-      (ghcjs_dom_html_input_element_get_capture-         (unHTMLInputElement (toHTMLInputElement self)))+        ghcjs_dom_html_input_element_set_range_text4,+        htmlInputElementSetRangeText4,+        ghcjs_dom_html_input_element_set_value_for_user,+        htmlInputElementSetValueForUser,+        ghcjs_dom_html_input_element_set_accept, htmlInputElementSetAccept,+        ghcjs_dom_html_input_element_get_accept, htmlInputElementGetAccept,+        ghcjs_dom_html_input_element_set_alt, htmlInputElementSetAlt,+        ghcjs_dom_html_input_element_get_alt, htmlInputElementGetAlt,+        ghcjs_dom_html_input_element_set_autocomplete,+        htmlInputElementSetAutocomplete,+        ghcjs_dom_html_input_element_get_autocomplete,+        htmlInputElementGetAutocomplete,+        ghcjs_dom_html_input_element_set_autofocus,+        htmlInputElementSetAutofocus,+        ghcjs_dom_html_input_element_get_autofocus,+        htmlInputElementGetAutofocus,+        ghcjs_dom_html_input_element_set_default_checked,+        htmlInputElementSetDefaultChecked,+        ghcjs_dom_html_input_element_get_default_checked,+        htmlInputElementGetDefaultChecked,+        ghcjs_dom_html_input_element_set_checked,+        htmlInputElementSetChecked,+        ghcjs_dom_html_input_element_get_checked,+        htmlInputElementGetChecked,+        ghcjs_dom_html_input_element_set_dir_name,+        htmlInputElementSetDirName,+        ghcjs_dom_html_input_element_get_dir_name,+        htmlInputElementGetDirName,+        ghcjs_dom_html_input_element_set_disabled,+        htmlInputElementSetDisabled,+        ghcjs_dom_html_input_element_get_disabled,+        htmlInputElementGetDisabled, ghcjs_dom_html_input_element_get_form,+        htmlInputElementGetForm, ghcjs_dom_html_input_element_set_files,+        htmlInputElementSetFiles, ghcjs_dom_html_input_element_get_files,+        htmlInputElementGetFiles,+        ghcjs_dom_html_input_element_set_form_action,+        htmlInputElementSetFormAction,+        ghcjs_dom_html_input_element_get_form_action,+        htmlInputElementGetFormAction,+        ghcjs_dom_html_input_element_set_form_enctype,+        htmlInputElementSetFormEnctype,+        ghcjs_dom_html_input_element_get_form_enctype,+        htmlInputElementGetFormEnctype,+        ghcjs_dom_html_input_element_set_form_method,+        htmlInputElementSetFormMethod,+        ghcjs_dom_html_input_element_get_form_method,+        htmlInputElementGetFormMethod,+        ghcjs_dom_html_input_element_set_form_no_validate,+        htmlInputElementSetFormNoValidate,+        ghcjs_dom_html_input_element_get_form_no_validate,+        htmlInputElementGetFormNoValidate,+        ghcjs_dom_html_input_element_set_form_target,+        htmlInputElementSetFormTarget,+        ghcjs_dom_html_input_element_get_form_target,+        htmlInputElementGetFormTarget,+        ghcjs_dom_html_input_element_set_height, htmlInputElementSetHeight,+        ghcjs_dom_html_input_element_get_height, htmlInputElementGetHeight,+        ghcjs_dom_html_input_element_set_indeterminate,+        htmlInputElementSetIndeterminate,+        ghcjs_dom_html_input_element_get_indeterminate,+        htmlInputElementGetIndeterminate,+        ghcjs_dom_html_input_element_get_list, htmlInputElementGetList,+        ghcjs_dom_html_input_element_set_max, htmlInputElementSetMax,+        ghcjs_dom_html_input_element_get_max, htmlInputElementGetMax,+        ghcjs_dom_html_input_element_set_max_length,+        htmlInputElementSetMaxLength,+        ghcjs_dom_html_input_element_get_max_length,+        htmlInputElementGetMaxLength, ghcjs_dom_html_input_element_set_min,+        htmlInputElementSetMin, ghcjs_dom_html_input_element_get_min,+        htmlInputElementGetMin, ghcjs_dom_html_input_element_set_multiple,+        htmlInputElementSetMultiple,+        ghcjs_dom_html_input_element_get_multiple,+        htmlInputElementGetMultiple, ghcjs_dom_html_input_element_set_name,+        htmlInputElementSetName, ghcjs_dom_html_input_element_get_name,+        htmlInputElementGetName, ghcjs_dom_html_input_element_set_pattern,+        htmlInputElementSetPattern,+        ghcjs_dom_html_input_element_get_pattern,+        htmlInputElementGetPattern,+        ghcjs_dom_html_input_element_set_placeholder,+        htmlInputElementSetPlaceholder,+        ghcjs_dom_html_input_element_get_placeholder,+        htmlInputElementGetPlaceholder,+        ghcjs_dom_html_input_element_set_read_only,+        htmlInputElementSetReadOnly,+        ghcjs_dom_html_input_element_get_read_only,+        htmlInputElementGetReadOnly,+        ghcjs_dom_html_input_element_set_required,+        htmlInputElementSetRequired,+        ghcjs_dom_html_input_element_get_required,+        htmlInputElementGetRequired, ghcjs_dom_html_input_element_set_size,+        htmlInputElementSetSize, ghcjs_dom_html_input_element_get_size,+        htmlInputElementGetSize, ghcjs_dom_html_input_element_set_src,+        htmlInputElementSetSrc, ghcjs_dom_html_input_element_get_src,+        htmlInputElementGetSrc, ghcjs_dom_html_input_element_set_step,+        htmlInputElementSetStep, ghcjs_dom_html_input_element_get_step,+        htmlInputElementGetStep,+        ghcjs_dom_html_input_element_set_default_value,+        htmlInputElementSetDefaultValue,+        ghcjs_dom_html_input_element_get_default_value,+        htmlInputElementGetDefaultValue,+        ghcjs_dom_html_input_element_set_value, htmlInputElementSetValue,+        ghcjs_dom_html_input_element_get_value, htmlInputElementGetValue,+        ghcjs_dom_html_input_element_set_value_as_number,+        htmlInputElementSetValueAsNumber,+        ghcjs_dom_html_input_element_get_value_as_number,+        htmlInputElementGetValueAsNumber,+        ghcjs_dom_html_input_element_set_width, htmlInputElementSetWidth,+        ghcjs_dom_html_input_element_get_width, htmlInputElementGetWidth,+        ghcjs_dom_html_input_element_get_will_validate,+        htmlInputElementGetWillValidate,+        ghcjs_dom_html_input_element_get_validity,+        htmlInputElementGetValidity,+        ghcjs_dom_html_input_element_get_validation_message,+        htmlInputElementGetValidationMessage,+        ghcjs_dom_html_input_element_get_labels, htmlInputElementGetLabels,+        ghcjs_dom_html_input_element_set_align, htmlInputElementSetAlign,+        ghcjs_dom_html_input_element_get_align, htmlInputElementGetAlign,+        ghcjs_dom_html_input_element_set_use_map,+        htmlInputElementSetUseMap,+        ghcjs_dom_html_input_element_get_use_map,+        htmlInputElementGetUseMap,+        ghcjs_dom_html_input_element_set_incremental,+        htmlInputElementSetIncremental,+        ghcjs_dom_html_input_element_get_incremental,+        htmlInputElementGetIncremental,+        ghcjs_dom_html_input_element_set_autocorrect,+        htmlInputElementSetAutocorrect,+        ghcjs_dom_html_input_element_get_autocorrect,+        htmlInputElementGetAutocorrect,+        ghcjs_dom_html_input_element_set_autocapitalize,+        htmlInputElementSetAutocapitalize,+        ghcjs_dom_html_input_element_get_autocapitalize,+        htmlInputElementGetAutocapitalize,+        ghcjs_dom_html_input_element_set_capture,+        htmlInputElementSetCapture,+        ghcjs_dom_html_input_element_get_capture,+        htmlInputElementGetCapture, HTMLInputElement, IsHTMLInputElement,+        castToHTMLInputElement, gTypeHTMLInputElement, toHTMLInputElement)+       where+import GHCJS.Types+import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int+import Data.Word+import GHCJS.DOM.Types+import Control.Applicative ((<$>))+import GHCJS.DOM.EventM++ +foreign import javascript unsafe "$1[\"stepUp\"]($2)"+        ghcjs_dom_html_input_element_step_up ::+        JSRef HTMLInputElement -> Int -> IO ()+ +htmlInputElementStepUp ::+                       (IsHTMLInputElement self) => self -> Int -> IO ()+htmlInputElementStepUp self n+  = ghcjs_dom_html_input_element_step_up+      (unHTMLInputElement (toHTMLInputElement self))+      n+ +foreign import javascript unsafe "$1[\"stepDown\"]($2)"+        ghcjs_dom_html_input_element_step_down ::+        JSRef HTMLInputElement -> Int -> IO ()+ +htmlInputElementStepDown ::+                         (IsHTMLInputElement self) => self -> Int -> IO ()+htmlInputElementStepDown self n+  = ghcjs_dom_html_input_element_step_down+      (unHTMLInputElement (toHTMLInputElement self))+      n+ +foreign import javascript unsafe+        "($1[\"checkValidity\"]() ? 1 : 0)"+        ghcjs_dom_html_input_element_check_validity ::+        JSRef HTMLInputElement -> IO Bool+ +htmlInputElementCheckValidity ::+                              (IsHTMLInputElement self) => self -> IO Bool+htmlInputElementCheckValidity self+  = ghcjs_dom_html_input_element_check_validity+      (unHTMLInputElement (toHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"+        ghcjs_dom_html_input_element_set_custom_validity ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetCustomValidity ::+                                  (IsHTMLInputElement self, ToJSString error) =>+                                    self -> error -> IO ()+htmlInputElementSetCustomValidity self error+  = ghcjs_dom_html_input_element_set_custom_validity+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString error)+ +foreign import javascript unsafe "$1[\"select\"]()"+        ghcjs_dom_html_input_element_select ::+        JSRef HTMLInputElement -> IO ()+ +htmlInputElementSelect ::+                       (IsHTMLInputElement self) => self -> IO ()+htmlInputElementSelect self+  = ghcjs_dom_html_input_element_select+      (unHTMLInputElement (toHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"setRangeText\"]($2)"+        ghcjs_dom_html_input_element_set_range_text ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetRangeText ::+                             (IsHTMLInputElement self, ToJSString replacement) =>+                               self -> replacement -> IO ()+htmlInputElementSetRangeText self replacement+  = ghcjs_dom_html_input_element_set_range_text+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString replacement)+ +foreign import javascript unsafe+        "$1[\"setRangeText\"]($2, $3, $4,\n$5)"+        ghcjs_dom_html_input_element_set_range_text4 ::+        JSRef HTMLInputElement ->+          JSString -> Word -> Word -> JSString -> IO ()+ +htmlInputElementSetRangeText4 ::+                              (IsHTMLInputElement self, ToJSString replacement,+                               ToJSString selectionMode) =>+                                self -> replacement -> Word -> Word -> selectionMode -> IO ()+htmlInputElementSetRangeText4 self replacement start end+  selectionMode+  = ghcjs_dom_html_input_element_set_range_text4+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString replacement)+      start+      end+      (toJSString selectionMode)+ +foreign import javascript unsafe "$1[\"setValueForUser\"]($2)"+        ghcjs_dom_html_input_element_set_value_for_user ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetValueForUser ::+                                (IsHTMLInputElement self, ToJSString value) =>+                                  self -> value -> IO ()+htmlInputElementSetValueForUser self value+  = ghcjs_dom_html_input_element_set_value_for_user+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString value)+ +foreign import javascript unsafe "$1[\"accept\"] = $2;"+        ghcjs_dom_html_input_element_set_accept ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetAccept ::+                          (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()+htmlInputElementSetAccept self val+  = ghcjs_dom_html_input_element_set_accept+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"accept\"]"+        ghcjs_dom_html_input_element_get_accept ::+        JSRef HTMLInputElement -> IO JSString+ +htmlInputElementGetAccept ::+                          (IsHTMLInputElement self, FromJSString result) => self -> IO result+htmlInputElementGetAccept self+  = fromJSString <$>+      (ghcjs_dom_html_input_element_get_accept+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"alt\"] = $2;"+        ghcjs_dom_html_input_element_set_alt ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetAlt ::+                       (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()+htmlInputElementSetAlt self val+  = ghcjs_dom_html_input_element_set_alt+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"alt\"]"+        ghcjs_dom_html_input_element_get_alt ::+        JSRef HTMLInputElement -> IO JSString+ +htmlInputElementGetAlt ::+                       (IsHTMLInputElement self, FromJSString result) => self -> IO result+htmlInputElementGetAlt self+  = fromJSString <$>+      (ghcjs_dom_html_input_element_get_alt+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"autocomplete\"] = $2;"+        ghcjs_dom_html_input_element_set_autocomplete ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetAutocomplete ::+                                (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()+htmlInputElementSetAutocomplete self val+  = ghcjs_dom_html_input_element_set_autocomplete+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"autocomplete\"]"+        ghcjs_dom_html_input_element_get_autocomplete ::+        JSRef HTMLInputElement -> IO JSString+ +htmlInputElementGetAutocomplete ::+                                (IsHTMLInputElement self, FromJSString result) => self -> IO result+htmlInputElementGetAutocomplete self+  = fromJSString <$>+      (ghcjs_dom_html_input_element_get_autocomplete+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"autofocus\"] = $2;"+        ghcjs_dom_html_input_element_set_autofocus ::+        JSRef HTMLInputElement -> Bool -> IO ()+ +htmlInputElementSetAutofocus ::+                             (IsHTMLInputElement self) => self -> Bool -> IO ()+htmlInputElementSetAutofocus self val+  = ghcjs_dom_html_input_element_set_autofocus+      (unHTMLInputElement (toHTMLInputElement self))+      val+ +foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"+        ghcjs_dom_html_input_element_get_autofocus ::+        JSRef HTMLInputElement -> IO Bool+ +htmlInputElementGetAutofocus ::+                             (IsHTMLInputElement self) => self -> IO Bool+htmlInputElementGetAutofocus self+  = ghcjs_dom_html_input_element_get_autofocus+      (unHTMLInputElement (toHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"defaultChecked\"] = $2;"+        ghcjs_dom_html_input_element_set_default_checked ::+        JSRef HTMLInputElement -> Bool -> IO ()+ +htmlInputElementSetDefaultChecked ::+                                  (IsHTMLInputElement self) => self -> Bool -> IO ()+htmlInputElementSetDefaultChecked self val+  = ghcjs_dom_html_input_element_set_default_checked+      (unHTMLInputElement (toHTMLInputElement self))+      val+ +foreign import javascript unsafe "($1[\"defaultChecked\"] ? 1 : 0)"+        ghcjs_dom_html_input_element_get_default_checked ::+        JSRef HTMLInputElement -> IO Bool+ +htmlInputElementGetDefaultChecked ::+                                  (IsHTMLInputElement self) => self -> IO Bool+htmlInputElementGetDefaultChecked self+  = ghcjs_dom_html_input_element_get_default_checked+      (unHTMLInputElement (toHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"checked\"] = $2;"+        ghcjs_dom_html_input_element_set_checked ::+        JSRef HTMLInputElement -> Bool -> IO ()+ +htmlInputElementSetChecked ::+                           (IsHTMLInputElement self) => self -> Bool -> IO ()+htmlInputElementSetChecked self val+  = ghcjs_dom_html_input_element_set_checked+      (unHTMLInputElement (toHTMLInputElement self))+      val+ +foreign import javascript unsafe "($1[\"checked\"] ? 1 : 0)"+        ghcjs_dom_html_input_element_get_checked ::+        JSRef HTMLInputElement -> IO Bool+ +htmlInputElementGetChecked ::+                           (IsHTMLInputElement self) => self -> IO Bool+htmlInputElementGetChecked self+  = ghcjs_dom_html_input_element_get_checked+      (unHTMLInputElement (toHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"dirName\"] = $2;"+        ghcjs_dom_html_input_element_set_dir_name ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetDirName ::+                           (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()+htmlInputElementSetDirName self val+  = ghcjs_dom_html_input_element_set_dir_name+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"dirName\"]"+        ghcjs_dom_html_input_element_get_dir_name ::+        JSRef HTMLInputElement -> IO JSString+ +htmlInputElementGetDirName ::+                           (IsHTMLInputElement self, FromJSString result) => self -> IO result+htmlInputElementGetDirName self+  = fromJSString <$>+      (ghcjs_dom_html_input_element_get_dir_name+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"disabled\"] = $2;"+        ghcjs_dom_html_input_element_set_disabled ::+        JSRef HTMLInputElement -> Bool -> IO ()+ +htmlInputElementSetDisabled ::+                            (IsHTMLInputElement self) => self -> Bool -> IO ()+htmlInputElementSetDisabled self val+  = ghcjs_dom_html_input_element_set_disabled+      (unHTMLInputElement (toHTMLInputElement self))+      val+ +foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"+        ghcjs_dom_html_input_element_get_disabled ::+        JSRef HTMLInputElement -> IO Bool+ +htmlInputElementGetDisabled ::+                            (IsHTMLInputElement self) => self -> IO Bool+htmlInputElementGetDisabled self+  = ghcjs_dom_html_input_element_get_disabled+      (unHTMLInputElement (toHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"form\"]"+        ghcjs_dom_html_input_element_get_form ::+        JSRef HTMLInputElement -> IO (JSRef HTMLFormElement)+ +htmlInputElementGetForm ::+                        (IsHTMLInputElement self) => self -> IO (Maybe HTMLFormElement)+htmlInputElementGetForm self+  = fmap HTMLFormElement . maybeJSNull <$>+      (ghcjs_dom_html_input_element_get_form+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"files\"] = $2;"+        ghcjs_dom_html_input_element_set_files ::+        JSRef HTMLInputElement -> JSRef FileList -> IO ()+ +htmlInputElementSetFiles ::+                         (IsHTMLInputElement self, IsFileList val) =>+                           self -> Maybe val -> IO ()+htmlInputElementSetFiles self val+  = ghcjs_dom_html_input_element_set_files+      (unHTMLInputElement (toHTMLInputElement self))+      (maybe jsNull (unFileList . toFileList) val)+ +foreign import javascript unsafe "$1[\"files\"]"+        ghcjs_dom_html_input_element_get_files ::+        JSRef HTMLInputElement -> IO (JSRef FileList)+ +htmlInputElementGetFiles ::+                         (IsHTMLInputElement self) => self -> IO (Maybe FileList)+htmlInputElementGetFiles self+  = fmap FileList . maybeJSNull <$>+      (ghcjs_dom_html_input_element_get_files+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"formAction\"] = $2;"+        ghcjs_dom_html_input_element_set_form_action ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetFormAction ::+                              (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()+htmlInputElementSetFormAction self val+  = ghcjs_dom_html_input_element_set_form_action+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"formAction\"]"+        ghcjs_dom_html_input_element_get_form_action ::+        JSRef HTMLInputElement -> IO JSString+ +htmlInputElementGetFormAction ::+                              (IsHTMLInputElement self, FromJSString result) => self -> IO result+htmlInputElementGetFormAction self+  = fromJSString <$>+      (ghcjs_dom_html_input_element_get_form_action+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"formEnctype\"] = $2;"+        ghcjs_dom_html_input_element_set_form_enctype ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetFormEnctype ::+                               (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()+htmlInputElementSetFormEnctype self val+  = ghcjs_dom_html_input_element_set_form_enctype+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"formEnctype\"]"+        ghcjs_dom_html_input_element_get_form_enctype ::+        JSRef HTMLInputElement -> IO JSString+ +htmlInputElementGetFormEnctype ::+                               (IsHTMLInputElement self, FromJSString result) => self -> IO result+htmlInputElementGetFormEnctype self+  = fromJSString <$>+      (ghcjs_dom_html_input_element_get_form_enctype+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"formMethod\"] = $2;"+        ghcjs_dom_html_input_element_set_form_method ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetFormMethod ::+                              (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()+htmlInputElementSetFormMethod self val+  = ghcjs_dom_html_input_element_set_form_method+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"formMethod\"]"+        ghcjs_dom_html_input_element_get_form_method ::+        JSRef HTMLInputElement -> IO JSString+ +htmlInputElementGetFormMethod ::+                              (IsHTMLInputElement self, FromJSString result) => self -> IO result+htmlInputElementGetFormMethod self+  = fromJSString <$>+      (ghcjs_dom_html_input_element_get_form_method+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;"+        ghcjs_dom_html_input_element_set_form_no_validate ::+        JSRef HTMLInputElement -> Bool -> IO ()+ +htmlInputElementSetFormNoValidate ::+                                  (IsHTMLInputElement self) => self -> Bool -> IO ()+htmlInputElementSetFormNoValidate self val+  = ghcjs_dom_html_input_element_set_form_no_validate+      (unHTMLInputElement (toHTMLInputElement self))+      val+ +foreign import javascript unsafe "($1[\"formNoValidate\"] ? 1 : 0)"+        ghcjs_dom_html_input_element_get_form_no_validate ::+        JSRef HTMLInputElement -> IO Bool+ +htmlInputElementGetFormNoValidate ::+                                  (IsHTMLInputElement self) => self -> IO Bool+htmlInputElementGetFormNoValidate self+  = ghcjs_dom_html_input_element_get_form_no_validate+      (unHTMLInputElement (toHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"formTarget\"] = $2;"+        ghcjs_dom_html_input_element_set_form_target ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetFormTarget ::+                              (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()+htmlInputElementSetFormTarget self val+  = ghcjs_dom_html_input_element_set_form_target+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"formTarget\"]"+        ghcjs_dom_html_input_element_get_form_target ::+        JSRef HTMLInputElement -> IO JSString+ +htmlInputElementGetFormTarget ::+                              (IsHTMLInputElement self, FromJSString result) => self -> IO result+htmlInputElementGetFormTarget self+  = fromJSString <$>+      (ghcjs_dom_html_input_element_get_form_target+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"height\"] = $2;"+        ghcjs_dom_html_input_element_set_height ::+        JSRef HTMLInputElement -> Word -> IO ()+ +htmlInputElementSetHeight ::+                          (IsHTMLInputElement self) => self -> Word -> IO ()+htmlInputElementSetHeight self val+  = ghcjs_dom_html_input_element_set_height+      (unHTMLInputElement (toHTMLInputElement self))+      val+ +foreign import javascript unsafe "$1[\"height\"]"+        ghcjs_dom_html_input_element_get_height ::+        JSRef HTMLInputElement -> IO Word+ +htmlInputElementGetHeight ::+                          (IsHTMLInputElement self) => self -> IO Word+htmlInputElementGetHeight self+  = ghcjs_dom_html_input_element_get_height+      (unHTMLInputElement (toHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"indeterminate\"] = $2;"+        ghcjs_dom_html_input_element_set_indeterminate ::+        JSRef HTMLInputElement -> Bool -> IO ()+ +htmlInputElementSetIndeterminate ::+                                 (IsHTMLInputElement self) => self -> Bool -> IO ()+htmlInputElementSetIndeterminate self val+  = ghcjs_dom_html_input_element_set_indeterminate+      (unHTMLInputElement (toHTMLInputElement self))+      val+ +foreign import javascript unsafe "($1[\"indeterminate\"] ? 1 : 0)"+        ghcjs_dom_html_input_element_get_indeterminate ::+        JSRef HTMLInputElement -> IO Bool+ +htmlInputElementGetIndeterminate ::+                                 (IsHTMLInputElement self) => self -> IO Bool+htmlInputElementGetIndeterminate self+  = ghcjs_dom_html_input_element_get_indeterminate+      (unHTMLInputElement (toHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"list\"]"+        ghcjs_dom_html_input_element_get_list ::+        JSRef HTMLInputElement -> IO (JSRef HTMLElement)+ +htmlInputElementGetList ::+                        (IsHTMLInputElement self) => self -> IO (Maybe HTMLElement)+htmlInputElementGetList self+  = fmap HTMLElement . maybeJSNull <$>+      (ghcjs_dom_html_input_element_get_list+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"max\"] = $2;"+        ghcjs_dom_html_input_element_set_max ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetMax ::+                       (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()+htmlInputElementSetMax self val+  = ghcjs_dom_html_input_element_set_max+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"max\"]"+        ghcjs_dom_html_input_element_get_max ::+        JSRef HTMLInputElement -> IO JSString+ +htmlInputElementGetMax ::+                       (IsHTMLInputElement self, FromJSString result) => self -> IO result+htmlInputElementGetMax self+  = fromJSString <$>+      (ghcjs_dom_html_input_element_get_max+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"maxLength\"] = $2;"+        ghcjs_dom_html_input_element_set_max_length ::+        JSRef HTMLInputElement -> Int -> IO ()+ +htmlInputElementSetMaxLength ::+                             (IsHTMLInputElement self) => self -> Int -> IO ()+htmlInputElementSetMaxLength self val+  = ghcjs_dom_html_input_element_set_max_length+      (unHTMLInputElement (toHTMLInputElement self))+      val+ +foreign import javascript unsafe "$1[\"maxLength\"]"+        ghcjs_dom_html_input_element_get_max_length ::+        JSRef HTMLInputElement -> IO Int+ +htmlInputElementGetMaxLength ::+                             (IsHTMLInputElement self) => self -> IO Int+htmlInputElementGetMaxLength self+  = ghcjs_dom_html_input_element_get_max_length+      (unHTMLInputElement (toHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"min\"] = $2;"+        ghcjs_dom_html_input_element_set_min ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetMin ::+                       (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()+htmlInputElementSetMin self val+  = ghcjs_dom_html_input_element_set_min+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"min\"]"+        ghcjs_dom_html_input_element_get_min ::+        JSRef HTMLInputElement -> IO JSString+ +htmlInputElementGetMin ::+                       (IsHTMLInputElement self, FromJSString result) => self -> IO result+htmlInputElementGetMin self+  = fromJSString <$>+      (ghcjs_dom_html_input_element_get_min+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"multiple\"] = $2;"+        ghcjs_dom_html_input_element_set_multiple ::+        JSRef HTMLInputElement -> Bool -> IO ()+ +htmlInputElementSetMultiple ::+                            (IsHTMLInputElement self) => self -> Bool -> IO ()+htmlInputElementSetMultiple self val+  = ghcjs_dom_html_input_element_set_multiple+      (unHTMLInputElement (toHTMLInputElement self))+      val+ +foreign import javascript unsafe "($1[\"multiple\"] ? 1 : 0)"+        ghcjs_dom_html_input_element_get_multiple ::+        JSRef HTMLInputElement -> IO Bool+ +htmlInputElementGetMultiple ::+                            (IsHTMLInputElement self) => self -> IO Bool+htmlInputElementGetMultiple self+  = ghcjs_dom_html_input_element_get_multiple+      (unHTMLInputElement (toHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"name\"] = $2;"+        ghcjs_dom_html_input_element_set_name ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetName ::+                        (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()+htmlInputElementSetName self val+  = ghcjs_dom_html_input_element_set_name+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"name\"]"+        ghcjs_dom_html_input_element_get_name ::+        JSRef HTMLInputElement -> IO JSString+ +htmlInputElementGetName ::+                        (IsHTMLInputElement self, FromJSString result) => self -> IO result+htmlInputElementGetName self+  = fromJSString <$>+      (ghcjs_dom_html_input_element_get_name+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"pattern\"] = $2;"+        ghcjs_dom_html_input_element_set_pattern ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetPattern ::+                           (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()+htmlInputElementSetPattern self val+  = ghcjs_dom_html_input_element_set_pattern+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"pattern\"]"+        ghcjs_dom_html_input_element_get_pattern ::+        JSRef HTMLInputElement -> IO JSString+ +htmlInputElementGetPattern ::+                           (IsHTMLInputElement self, FromJSString result) => self -> IO result+htmlInputElementGetPattern self+  = fromJSString <$>+      (ghcjs_dom_html_input_element_get_pattern+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"placeholder\"] = $2;"+        ghcjs_dom_html_input_element_set_placeholder ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetPlaceholder ::+                               (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()+htmlInputElementSetPlaceholder self val+  = ghcjs_dom_html_input_element_set_placeholder+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"placeholder\"]"+        ghcjs_dom_html_input_element_get_placeholder ::+        JSRef HTMLInputElement -> IO JSString+ +htmlInputElementGetPlaceholder ::+                               (IsHTMLInputElement self, FromJSString result) => self -> IO result+htmlInputElementGetPlaceholder self+  = fromJSString <$>+      (ghcjs_dom_html_input_element_get_placeholder+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"readOnly\"] = $2;"+        ghcjs_dom_html_input_element_set_read_only ::+        JSRef HTMLInputElement -> Bool -> IO ()+ +htmlInputElementSetReadOnly ::+                            (IsHTMLInputElement self) => self -> Bool -> IO ()+htmlInputElementSetReadOnly self val+  = ghcjs_dom_html_input_element_set_read_only+      (unHTMLInputElement (toHTMLInputElement self))+      val+ +foreign import javascript unsafe "($1[\"readOnly\"] ? 1 : 0)"+        ghcjs_dom_html_input_element_get_read_only ::+        JSRef HTMLInputElement -> IO Bool+ +htmlInputElementGetReadOnly ::+                            (IsHTMLInputElement self) => self -> IO Bool+htmlInputElementGetReadOnly self+  = ghcjs_dom_html_input_element_get_read_only+      (unHTMLInputElement (toHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"required\"] = $2;"+        ghcjs_dom_html_input_element_set_required ::+        JSRef HTMLInputElement -> Bool -> IO ()+ +htmlInputElementSetRequired ::+                            (IsHTMLInputElement self) => self -> Bool -> IO ()+htmlInputElementSetRequired self val+  = ghcjs_dom_html_input_element_set_required+      (unHTMLInputElement (toHTMLInputElement self))+      val+ +foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"+        ghcjs_dom_html_input_element_get_required ::+        JSRef HTMLInputElement -> IO Bool+ +htmlInputElementGetRequired ::+                            (IsHTMLInputElement self) => self -> IO Bool+htmlInputElementGetRequired self+  = ghcjs_dom_html_input_element_get_required+      (unHTMLInputElement (toHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"size\"] = $2;"+        ghcjs_dom_html_input_element_set_size ::+        JSRef HTMLInputElement -> Word -> IO ()+ +htmlInputElementSetSize ::+                        (IsHTMLInputElement self) => self -> Word -> IO ()+htmlInputElementSetSize self val+  = ghcjs_dom_html_input_element_set_size+      (unHTMLInputElement (toHTMLInputElement self))+      val+ +foreign import javascript unsafe "$1[\"size\"]"+        ghcjs_dom_html_input_element_get_size ::+        JSRef HTMLInputElement -> IO Word+ +htmlInputElementGetSize ::+                        (IsHTMLInputElement self) => self -> IO Word+htmlInputElementGetSize self+  = ghcjs_dom_html_input_element_get_size+      (unHTMLInputElement (toHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"src\"] = $2;"+        ghcjs_dom_html_input_element_set_src ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetSrc ::+                       (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()+htmlInputElementSetSrc self val+  = ghcjs_dom_html_input_element_set_src+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"src\"]"+        ghcjs_dom_html_input_element_get_src ::+        JSRef HTMLInputElement -> IO JSString+ +htmlInputElementGetSrc ::+                       (IsHTMLInputElement self, FromJSString result) => self -> IO result+htmlInputElementGetSrc self+  = fromJSString <$>+      (ghcjs_dom_html_input_element_get_src+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"step\"] = $2;"+        ghcjs_dom_html_input_element_set_step ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetStep ::+                        (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()+htmlInputElementSetStep self val+  = ghcjs_dom_html_input_element_set_step+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"step\"]"+        ghcjs_dom_html_input_element_get_step ::+        JSRef HTMLInputElement -> IO JSString+ +htmlInputElementGetStep ::+                        (IsHTMLInputElement self, FromJSString result) => self -> IO result+htmlInputElementGetStep self+  = fromJSString <$>+      (ghcjs_dom_html_input_element_get_step+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"defaultValue\"] = $2;"+        ghcjs_dom_html_input_element_set_default_value ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetDefaultValue ::+                                (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()+htmlInputElementSetDefaultValue self val+  = ghcjs_dom_html_input_element_set_default_value+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"defaultValue\"]"+        ghcjs_dom_html_input_element_get_default_value ::+        JSRef HTMLInputElement -> IO JSString+ +htmlInputElementGetDefaultValue ::+                                (IsHTMLInputElement self, FromJSString result) => self -> IO result+htmlInputElementGetDefaultValue self+  = fromJSString <$>+      (ghcjs_dom_html_input_element_get_default_value+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"value\"] = $2;"+        ghcjs_dom_html_input_element_set_value ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetValue ::+                         (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()+htmlInputElementSetValue self val+  = ghcjs_dom_html_input_element_set_value+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"value\"]"+        ghcjs_dom_html_input_element_get_value ::+        JSRef HTMLInputElement -> IO JSString+ +htmlInputElementGetValue ::+                         (IsHTMLInputElement self, FromJSString result) => self -> IO result+htmlInputElementGetValue self+  = fromJSString <$>+      (ghcjs_dom_html_input_element_get_value+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"valueAsNumber\"] = $2;"+        ghcjs_dom_html_input_element_set_value_as_number ::+        JSRef HTMLInputElement -> Double -> IO ()+ +htmlInputElementSetValueAsNumber ::+                                 (IsHTMLInputElement self) => self -> Double -> IO ()+htmlInputElementSetValueAsNumber self val+  = ghcjs_dom_html_input_element_set_value_as_number+      (unHTMLInputElement (toHTMLInputElement self))+      val+ +foreign import javascript unsafe "$1[\"valueAsNumber\"]"+        ghcjs_dom_html_input_element_get_value_as_number ::+        JSRef HTMLInputElement -> IO Double+ +htmlInputElementGetValueAsNumber ::+                                 (IsHTMLInputElement self) => self -> IO Double+htmlInputElementGetValueAsNumber self+  = ghcjs_dom_html_input_element_get_value_as_number+      (unHTMLInputElement (toHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"width\"] = $2;"+        ghcjs_dom_html_input_element_set_width ::+        JSRef HTMLInputElement -> Word -> IO ()+ +htmlInputElementSetWidth ::+                         (IsHTMLInputElement self) => self -> Word -> IO ()+htmlInputElementSetWidth self val+  = ghcjs_dom_html_input_element_set_width+      (unHTMLInputElement (toHTMLInputElement self))+      val+ +foreign import javascript unsafe "$1[\"width\"]"+        ghcjs_dom_html_input_element_get_width ::+        JSRef HTMLInputElement -> IO Word+ +htmlInputElementGetWidth ::+                         (IsHTMLInputElement self) => self -> IO Word+htmlInputElementGetWidth self+  = ghcjs_dom_html_input_element_get_width+      (unHTMLInputElement (toHTMLInputElement self))+ +foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"+        ghcjs_dom_html_input_element_get_will_validate ::+        JSRef HTMLInputElement -> IO Bool+ +htmlInputElementGetWillValidate ::+                                (IsHTMLInputElement self) => self -> IO Bool+htmlInputElementGetWillValidate self+  = ghcjs_dom_html_input_element_get_will_validate+      (unHTMLInputElement (toHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"validity\"]"+        ghcjs_dom_html_input_element_get_validity ::+        JSRef HTMLInputElement -> IO (JSRef ValidityState)+ +htmlInputElementGetValidity ::+                            (IsHTMLInputElement self) => self -> IO (Maybe ValidityState)+htmlInputElementGetValidity self+  = fmap ValidityState . maybeJSNull <$>+      (ghcjs_dom_html_input_element_get_validity+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"validationMessage\"]"+        ghcjs_dom_html_input_element_get_validation_message ::+        JSRef HTMLInputElement -> IO JSString+ +htmlInputElementGetValidationMessage ::+                                     (IsHTMLInputElement self, FromJSString result) =>+                                       self -> IO result+htmlInputElementGetValidationMessage self+  = fromJSString <$>+      (ghcjs_dom_html_input_element_get_validation_message+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"labels\"]"+        ghcjs_dom_html_input_element_get_labels ::+        JSRef HTMLInputElement -> IO (JSRef NodeList)+ +htmlInputElementGetLabels ::+                          (IsHTMLInputElement self) => self -> IO (Maybe NodeList)+htmlInputElementGetLabels self+  = fmap NodeList . maybeJSNull <$>+      (ghcjs_dom_html_input_element_get_labels+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"align\"] = $2;"+        ghcjs_dom_html_input_element_set_align ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetAlign ::+                         (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()+htmlInputElementSetAlign self val+  = ghcjs_dom_html_input_element_set_align+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"align\"]"+        ghcjs_dom_html_input_element_get_align ::+        JSRef HTMLInputElement -> IO JSString+ +htmlInputElementGetAlign ::+                         (IsHTMLInputElement self, FromJSString result) => self -> IO result+htmlInputElementGetAlign self+  = fromJSString <$>+      (ghcjs_dom_html_input_element_get_align+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"useMap\"] = $2;"+        ghcjs_dom_html_input_element_set_use_map ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetUseMap ::+                          (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()+htmlInputElementSetUseMap self val+  = ghcjs_dom_html_input_element_set_use_map+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"useMap\"]"+        ghcjs_dom_html_input_element_get_use_map ::+        JSRef HTMLInputElement -> IO JSString+ +htmlInputElementGetUseMap ::+                          (IsHTMLInputElement self, FromJSString result) => self -> IO result+htmlInputElementGetUseMap self+  = fromJSString <$>+      (ghcjs_dom_html_input_element_get_use_map+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"incremental\"] = $2;"+        ghcjs_dom_html_input_element_set_incremental ::+        JSRef HTMLInputElement -> Bool -> IO ()+ +htmlInputElementSetIncremental ::+                               (IsHTMLInputElement self) => self -> Bool -> IO ()+htmlInputElementSetIncremental self val+  = ghcjs_dom_html_input_element_set_incremental+      (unHTMLInputElement (toHTMLInputElement self))+      val+ +foreign import javascript unsafe "($1[\"incremental\"] ? 1 : 0)"+        ghcjs_dom_html_input_element_get_incremental ::+        JSRef HTMLInputElement -> IO Bool+ +htmlInputElementGetIncremental ::+                               (IsHTMLInputElement self) => self -> IO Bool+htmlInputElementGetIncremental self+  = ghcjs_dom_html_input_element_get_incremental+      (unHTMLInputElement (toHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"autocorrect\"] = $2;"+        ghcjs_dom_html_input_element_set_autocorrect ::+        JSRef HTMLInputElement -> Bool -> IO ()+ +htmlInputElementSetAutocorrect ::+                               (IsHTMLInputElement self) => self -> Bool -> IO ()+htmlInputElementSetAutocorrect self val+  = ghcjs_dom_html_input_element_set_autocorrect+      (unHTMLInputElement (toHTMLInputElement self))+      val+ +foreign import javascript unsafe "($1[\"autocorrect\"] ? 1 : 0)"+        ghcjs_dom_html_input_element_get_autocorrect ::+        JSRef HTMLInputElement -> IO Bool+ +htmlInputElementGetAutocorrect ::+                               (IsHTMLInputElement self) => self -> IO Bool+htmlInputElementGetAutocorrect self+  = ghcjs_dom_html_input_element_get_autocorrect+      (unHTMLInputElement (toHTMLInputElement self))+ +foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;"+        ghcjs_dom_html_input_element_set_autocapitalize ::+        JSRef HTMLInputElement -> JSString -> IO ()+ +htmlInputElementSetAutocapitalize ::+                                  (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()+htmlInputElementSetAutocapitalize self val+  = ghcjs_dom_html_input_element_set_autocapitalize+      (unHTMLInputElement (toHTMLInputElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"autocapitalize\"]"+        ghcjs_dom_html_input_element_get_autocapitalize ::+        JSRef HTMLInputElement -> IO JSString+ +htmlInputElementGetAutocapitalize ::+                                  (IsHTMLInputElement self, FromJSString result) =>+                                    self -> IO result+htmlInputElementGetAutocapitalize self+  = fromJSString <$>+      (ghcjs_dom_html_input_element_get_autocapitalize+         (unHTMLInputElement (toHTMLInputElement self)))+ +foreign import javascript unsafe "$1[\"capture\"] = $2;"+        ghcjs_dom_html_input_element_set_capture ::+        JSRef HTMLInputElement -> Bool -> IO ()+ +htmlInputElementSetCapture ::+                           (IsHTMLInputElement self) => self -> Bool -> IO ()+htmlInputElementSetCapture self val+  = ghcjs_dom_html_input_element_set_capture+      (unHTMLInputElement (toHTMLInputElement self))+      val+ +foreign import javascript unsafe "($1[\"capture\"] ? 1 : 0)"+        ghcjs_dom_html_input_element_get_capture ::+        JSRef HTMLInputElement -> IO Bool+ +htmlInputElementGetCapture ::+                           (IsHTMLInputElement self) => self -> IO Bool+htmlInputElementGetCapture self+  = ghcjs_dom_html_input_element_get_capture+      (unHTMLInputElement (toHTMLInputElement self)) #else module GHCJS.DOM.HTMLInputElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLInputElement

src/GHCJS/DOM/HTMLKeygenElement.hs view

@@ -38,46 +38,28 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)"         ghcjs_dom_html_keygen_element_check_validity ::         JSRef HTMLKeygenElement -> IO Bool-#else -ghcjs_dom_html_keygen_element_check_validity ::-                                               JSRef HTMLKeygenElement -> IO Bool-ghcjs_dom_html_keygen_element_check_validity = undefined-#endif   htmlKeygenElementCheckValidity ::                                (IsHTMLKeygenElement self) => self -> IO Bool htmlKeygenElementCheckValidity self   = ghcjs_dom_html_keygen_element_check_validity       (unHTMLKeygenElement (toHTMLKeygenElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         ghcjs_dom_html_keygen_element_set_custom_validity ::         JSRef HTMLKeygenElement -> JSString -> IO ()-#else -ghcjs_dom_html_keygen_element_set_custom_validity ::-                                                    JSRef HTMLKeygenElement -> JSString -> IO ()-ghcjs_dom_html_keygen_element_set_custom_validity = undefined-#endif   htmlKeygenElementSetCustomValidity ::                                    (IsHTMLKeygenElement self, ToJSString error) =>@@ -86,17 +68,10 @@   = ghcjs_dom_html_keygen_element_set_custom_validity       (unHTMLKeygenElement (toHTMLKeygenElement self))       (toJSString error)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"autofocus\"] = $2;"         ghcjs_dom_html_keygen_element_set_autofocus ::         JSRef HTMLKeygenElement -> Bool -> IO ()-#else -ghcjs_dom_html_keygen_element_set_autofocus ::-                                              JSRef HTMLKeygenElement -> Bool -> IO ()-ghcjs_dom_html_keygen_element_set_autofocus = undefined-#endif   htmlKeygenElementSetAutofocus ::                               (IsHTMLKeygenElement self) => self -> Bool -> IO ()@@ -104,34 +79,20 @@   = ghcjs_dom_html_keygen_element_set_autofocus       (unHTMLKeygenElement (toHTMLKeygenElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"         ghcjs_dom_html_keygen_element_get_autofocus ::         JSRef HTMLKeygenElement -> IO Bool-#else -ghcjs_dom_html_keygen_element_get_autofocus ::-                                              JSRef HTMLKeygenElement -> IO Bool-ghcjs_dom_html_keygen_element_get_autofocus = undefined-#endif   htmlKeygenElementGetAutofocus ::                               (IsHTMLKeygenElement self) => self -> IO Bool htmlKeygenElementGetAutofocus self   = ghcjs_dom_html_keygen_element_get_autofocus       (unHTMLKeygenElement (toHTMLKeygenElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"challenge\"] = $2;"         ghcjs_dom_html_keygen_element_set_challenge ::         JSRef HTMLKeygenElement -> JSString -> IO ()-#else -ghcjs_dom_html_keygen_element_set_challenge ::-                                              JSRef HTMLKeygenElement -> JSString -> IO ()-ghcjs_dom_html_keygen_element_set_challenge = undefined-#endif   htmlKeygenElementSetChallenge ::                               (IsHTMLKeygenElement self, ToJSString val) => self -> val -> IO ()@@ -139,17 +100,10 @@   = ghcjs_dom_html_keygen_element_set_challenge       (unHTMLKeygenElement (toHTMLKeygenElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"challenge\"]"         ghcjs_dom_html_keygen_element_get_challenge ::         JSRef HTMLKeygenElement -> IO JSString-#else -ghcjs_dom_html_keygen_element_get_challenge ::-                                              JSRef HTMLKeygenElement -> IO JSString-ghcjs_dom_html_keygen_element_get_challenge = undefined-#endif   htmlKeygenElementGetChallenge ::                               (IsHTMLKeygenElement self, FromJSString result) =>@@ -158,17 +112,10 @@   = fromJSString <$>       (ghcjs_dom_html_keygen_element_get_challenge          (unHTMLKeygenElement (toHTMLKeygenElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"disabled\"] = $2;"         ghcjs_dom_html_keygen_element_set_disabled ::         JSRef HTMLKeygenElement -> Bool -> IO ()-#else -ghcjs_dom_html_keygen_element_set_disabled ::-                                             JSRef HTMLKeygenElement -> Bool -> IO ()-ghcjs_dom_html_keygen_element_set_disabled = undefined-#endif   htmlKeygenElementSetDisabled ::                              (IsHTMLKeygenElement self) => self -> Bool -> IO ()@@ -176,34 +123,20 @@   = ghcjs_dom_html_keygen_element_set_disabled       (unHTMLKeygenElement (toHTMLKeygenElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"         ghcjs_dom_html_keygen_element_get_disabled ::         JSRef HTMLKeygenElement -> IO Bool-#else -ghcjs_dom_html_keygen_element_get_disabled ::-                                             JSRef HTMLKeygenElement -> IO Bool-ghcjs_dom_html_keygen_element_get_disabled = undefined-#endif   htmlKeygenElementGetDisabled ::                              (IsHTMLKeygenElement self) => self -> IO Bool htmlKeygenElementGetDisabled self   = ghcjs_dom_html_keygen_element_get_disabled       (unHTMLKeygenElement (toHTMLKeygenElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"form\"]"         ghcjs_dom_html_keygen_element_get_form ::         JSRef HTMLKeygenElement -> IO (JSRef HTMLFormElement)-#else -ghcjs_dom_html_keygen_element_get_form ::-                                         JSRef HTMLKeygenElement -> IO (JSRef HTMLFormElement)-ghcjs_dom_html_keygen_element_get_form = undefined-#endif   htmlKeygenElementGetForm ::                          (IsHTMLKeygenElement self) => self -> IO (Maybe HTMLFormElement)@@ -211,17 +144,10 @@   = fmap HTMLFormElement . maybeJSNull <$>       (ghcjs_dom_html_keygen_element_get_form          (unHTMLKeygenElement (toHTMLKeygenElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"keytype\"] = $2;"         ghcjs_dom_html_keygen_element_set_keytype ::         JSRef HTMLKeygenElement -> JSString -> IO ()-#else -ghcjs_dom_html_keygen_element_set_keytype ::-                                            JSRef HTMLKeygenElement -> JSString -> IO ()-ghcjs_dom_html_keygen_element_set_keytype = undefined-#endif   htmlKeygenElementSetKeytype ::                             (IsHTMLKeygenElement self, ToJSString val) => self -> val -> IO ()@@ -229,17 +155,10 @@   = ghcjs_dom_html_keygen_element_set_keytype       (unHTMLKeygenElement (toHTMLKeygenElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"keytype\"]"         ghcjs_dom_html_keygen_element_get_keytype ::         JSRef HTMLKeygenElement -> IO JSString-#else -ghcjs_dom_html_keygen_element_get_keytype ::-                                            JSRef HTMLKeygenElement -> IO JSString-ghcjs_dom_html_keygen_element_get_keytype = undefined-#endif   htmlKeygenElementGetKeytype ::                             (IsHTMLKeygenElement self, FromJSString result) =>@@ -248,17 +167,10 @@   = fromJSString <$>       (ghcjs_dom_html_keygen_element_get_keytype          (unHTMLKeygenElement (toHTMLKeygenElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_keygen_element_set_name ::         JSRef HTMLKeygenElement -> JSString -> IO ()-#else -ghcjs_dom_html_keygen_element_set_name ::-                                         JSRef HTMLKeygenElement -> JSString -> IO ()-ghcjs_dom_html_keygen_element_set_name = undefined-#endif   htmlKeygenElementSetName ::                          (IsHTMLKeygenElement self, ToJSString val) => self -> val -> IO ()@@ -266,17 +178,10 @@   = ghcjs_dom_html_keygen_element_set_name       (unHTMLKeygenElement (toHTMLKeygenElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_keygen_element_get_name ::         JSRef HTMLKeygenElement -> IO JSString-#else -ghcjs_dom_html_keygen_element_get_name ::-                                         JSRef HTMLKeygenElement -> IO JSString-ghcjs_dom_html_keygen_element_get_name = undefined-#endif   htmlKeygenElementGetName ::                          (IsHTMLKeygenElement self, FromJSString result) =>@@ -285,34 +190,20 @@   = fromJSString <$>       (ghcjs_dom_html_keygen_element_get_name          (unHTMLKeygenElement (toHTMLKeygenElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"         ghcjs_dom_html_keygen_element_get_will_validate ::         JSRef HTMLKeygenElement -> IO Bool-#else -ghcjs_dom_html_keygen_element_get_will_validate ::-                                                  JSRef HTMLKeygenElement -> IO Bool-ghcjs_dom_html_keygen_element_get_will_validate = undefined-#endif   htmlKeygenElementGetWillValidate ::                                  (IsHTMLKeygenElement self) => self -> IO Bool htmlKeygenElementGetWillValidate self   = ghcjs_dom_html_keygen_element_get_will_validate       (unHTMLKeygenElement (toHTMLKeygenElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"validity\"]"         ghcjs_dom_html_keygen_element_get_validity ::         JSRef HTMLKeygenElement -> IO (JSRef ValidityState)-#else -ghcjs_dom_html_keygen_element_get_validity ::-                                             JSRef HTMLKeygenElement -> IO (JSRef ValidityState)-ghcjs_dom_html_keygen_element_get_validity = undefined-#endif   htmlKeygenElementGetValidity ::                              (IsHTMLKeygenElement self) => self -> IO (Maybe ValidityState)@@ -320,17 +211,10 @@   = fmap ValidityState . maybeJSNull <$>       (ghcjs_dom_html_keygen_element_get_validity          (unHTMLKeygenElement (toHTMLKeygenElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"validationMessage\"]"         ghcjs_dom_html_keygen_element_get_validation_message ::         JSRef HTMLKeygenElement -> IO JSString-#else -ghcjs_dom_html_keygen_element_get_validation_message ::-                                                       JSRef HTMLKeygenElement -> IO JSString-ghcjs_dom_html_keygen_element_get_validation_message = undefined-#endif   htmlKeygenElementGetValidationMessage ::                                       (IsHTMLKeygenElement self, FromJSString result) =>@@ -339,17 +223,10 @@   = fromJSString <$>       (ghcjs_dom_html_keygen_element_get_validation_message          (unHTMLKeygenElement (toHTMLKeygenElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"labels\"]"         ghcjs_dom_html_keygen_element_get_labels ::         JSRef HTMLKeygenElement -> IO (JSRef NodeList)-#else -ghcjs_dom_html_keygen_element_get_labels ::-                                           JSRef HTMLKeygenElement -> IO (JSRef NodeList)-ghcjs_dom_html_keygen_element_get_labels = undefined-#endif   htmlKeygenElementGetLabels ::                            (IsHTMLKeygenElement self) => self -> IO (Maybe NodeList)

src/GHCJS/DOM/HTMLLIElement.hs view

@@ -9,28 +9,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"value\"] = $2;"         ghcjs_dom_htmlli_element_set_value ::         JSRef HTMLLIElement -> Int -> IO ()-#else -ghcjs_dom_htmlli_element_set_value ::-                                     JSRef HTMLLIElement -> Int -> IO ()-ghcjs_dom_htmlli_element_set_value = undefined-#endif   htmlliElementSetValue ::                       (IsHTMLLIElement self) => self -> Int -> IO ()@@ -38,15 +27,9 @@   = ghcjs_dom_htmlli_element_set_value       (unHTMLLIElement (toHTMLLIElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"value\"]"         ghcjs_dom_htmlli_element_get_value :: JSRef HTMLLIElement -> IO Int-#else -ghcjs_dom_htmlli_element_get_value :: JSRef HTMLLIElement -> IO Int-ghcjs_dom_htmlli_element_get_value = undefined-#endif   htmlliElementGetValue :: (IsHTMLLIElement self) => self -> IO Int htmlliElementGetValue self

src/GHCJS/DOM/HTMLLabelElement.hs view

@@ -13,28 +13,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"form\"]"         ghcjs_dom_html_label_element_get_form ::         JSRef HTMLLabelElement -> IO (JSRef HTMLFormElement)-#else -ghcjs_dom_html_label_element_get_form ::-                                        JSRef HTMLLabelElement -> IO (JSRef HTMLFormElement)-ghcjs_dom_html_label_element_get_form = undefined-#endif   htmlLabelElementGetForm ::                         (IsHTMLLabelElement self) => self -> IO (Maybe HTMLFormElement)@@ -42,17 +31,10 @@   = fmap HTMLFormElement . maybeJSNull <$>       (ghcjs_dom_html_label_element_get_form          (unHTMLLabelElement (toHTMLLabelElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"htmlFor\"] = $2;"         ghcjs_dom_html_label_element_set_html_for ::         JSRef HTMLLabelElement -> JSString -> IO ()-#else -ghcjs_dom_html_label_element_set_html_for ::-                                            JSRef HTMLLabelElement -> JSString -> IO ()-ghcjs_dom_html_label_element_set_html_for = undefined-#endif   htmlLabelElementSetHtmlFor ::                            (IsHTMLLabelElement self, ToJSString val) => self -> val -> IO ()@@ -60,17 +42,10 @@   = ghcjs_dom_html_label_element_set_html_for       (unHTMLLabelElement (toHTMLLabelElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"htmlFor\"]"         ghcjs_dom_html_label_element_get_html_for ::         JSRef HTMLLabelElement -> IO JSString-#else -ghcjs_dom_html_label_element_get_html_for ::-                                            JSRef HTMLLabelElement -> IO JSString-ghcjs_dom_html_label_element_get_html_for = undefined-#endif   htmlLabelElementGetHtmlFor ::                            (IsHTMLLabelElement self, FromJSString result) => self -> IO result@@ -78,17 +53,10 @@   = fromJSString <$>       (ghcjs_dom_html_label_element_get_html_for          (unHTMLLabelElement (toHTMLLabelElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"control\"]"         ghcjs_dom_html_label_element_get_control ::         JSRef HTMLLabelElement -> IO (JSRef HTMLElement)-#else -ghcjs_dom_html_label_element_get_control ::-                                           JSRef HTMLLabelElement -> IO (JSRef HTMLElement)-ghcjs_dom_html_label_element_get_control = undefined-#endif   htmlLabelElementGetControl ::                            (IsHTMLLabelElement self) => self -> IO (Maybe HTMLElement)

src/GHCJS/DOM/HTMLLegendElement.hs view

@@ -10,28 +10,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"form\"]"         ghcjs_dom_html_legend_element_get_form ::         JSRef HTMLLegendElement -> IO (JSRef HTMLFormElement)-#else -ghcjs_dom_html_legend_element_get_form ::-                                         JSRef HTMLLegendElement -> IO (JSRef HTMLFormElement)-ghcjs_dom_html_legend_element_get_form = undefined-#endif   htmlLegendElementGetForm ::                          (IsHTMLLegendElement self) => self -> IO (Maybe HTMLFormElement)@@ -39,17 +28,10 @@   = fmap HTMLFormElement . maybeJSNull <$>       (ghcjs_dom_html_legend_element_get_form          (unHTMLLegendElement (toHTMLLegendElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_legend_element_set_align ::         JSRef HTMLLegendElement -> JSString -> IO ()-#else -ghcjs_dom_html_legend_element_set_align ::-                                          JSRef HTMLLegendElement -> JSString -> IO ()-ghcjs_dom_html_legend_element_set_align = undefined-#endif   htmlLegendElementSetAlign ::                           (IsHTMLLegendElement self, ToJSString val) => self -> val -> IO ()@@ -57,17 +39,10 @@   = ghcjs_dom_html_legend_element_set_align       (unHTMLLegendElement (toHTMLLegendElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_legend_element_get_align ::         JSRef HTMLLegendElement -> IO JSString-#else -ghcjs_dom_html_legend_element_get_align ::-                                          JSRef HTMLLegendElement -> IO JSString-ghcjs_dom_html_legend_element_get_align = undefined-#endif   htmlLegendElementGetAlign ::                           (IsHTMLLegendElement self, FromJSString result) =>

src/GHCJS/DOM/HTMLLinkElement.hs view

@@ -22,33 +22,23 @@         htmlLinkElementGetRev, ghcjs_dom_html_link_element_set_target,         htmlLinkElementSetTarget, ghcjs_dom_html_link_element_get_target,         htmlLinkElementGetTarget, ghcjs_dom_html_link_element_get_sheet,-        htmlLinkElementGetSheet, HTMLLinkElement, IsHTMLLinkElement,+        htmlLinkElementGetSheet, ghcjs_dom_html_link_element_get_rel_list,+        htmlLinkElementGetRelList, HTMLLinkElement, IsHTMLLinkElement,         castToHTMLLinkElement, gTypeHTMLLinkElement, toHTMLLinkElement)        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"disabled\"] = $2;"         ghcjs_dom_html_link_element_set_disabled ::         JSRef HTMLLinkElement -> Bool -> IO ()-#else -ghcjs_dom_html_link_element_set_disabled ::-                                           JSRef HTMLLinkElement -> Bool -> IO ()-ghcjs_dom_html_link_element_set_disabled = undefined-#endif   htmlLinkElementSetDisabled ::                            (IsHTMLLinkElement self) => self -> Bool -> IO ()@@ -56,34 +46,20 @@   = ghcjs_dom_html_link_element_set_disabled       (unHTMLLinkElement (toHTMLLinkElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"         ghcjs_dom_html_link_element_get_disabled ::         JSRef HTMLLinkElement -> IO Bool-#else -ghcjs_dom_html_link_element_get_disabled ::-                                           JSRef HTMLLinkElement -> IO Bool-ghcjs_dom_html_link_element_get_disabled = undefined-#endif   htmlLinkElementGetDisabled ::                            (IsHTMLLinkElement self) => self -> IO Bool htmlLinkElementGetDisabled self   = ghcjs_dom_html_link_element_get_disabled       (unHTMLLinkElement (toHTMLLinkElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"charset\"] = $2;"         ghcjs_dom_html_link_element_set_charset ::         JSRef HTMLLinkElement -> JSString -> IO ()-#else -ghcjs_dom_html_link_element_set_charset ::-                                          JSRef HTMLLinkElement -> JSString -> IO ()-ghcjs_dom_html_link_element_set_charset = undefined-#endif   htmlLinkElementSetCharset ::                           (IsHTMLLinkElement self, ToJSString val) => self -> val -> IO ()@@ -91,17 +67,10 @@   = ghcjs_dom_html_link_element_set_charset       (unHTMLLinkElement (toHTMLLinkElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"charset\"]"         ghcjs_dom_html_link_element_get_charset ::         JSRef HTMLLinkElement -> IO JSString-#else -ghcjs_dom_html_link_element_get_charset ::-                                          JSRef HTMLLinkElement -> IO JSString-ghcjs_dom_html_link_element_get_charset = undefined-#endif   htmlLinkElementGetCharset ::                           (IsHTMLLinkElement self, FromJSString result) => self -> IO result@@ -109,17 +78,10 @@   = fromJSString <$>       (ghcjs_dom_html_link_element_get_charset          (unHTMLLinkElement (toHTMLLinkElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"href\"] = $2;"         ghcjs_dom_html_link_element_set_href ::         JSRef HTMLLinkElement -> JSString -> IO ()-#else -ghcjs_dom_html_link_element_set_href ::-                                       JSRef HTMLLinkElement -> JSString -> IO ()-ghcjs_dom_html_link_element_set_href = undefined-#endif   htmlLinkElementSetHref ::                        (IsHTMLLinkElement self, ToJSString val) => self -> val -> IO ()@@ -127,17 +89,10 @@   = ghcjs_dom_html_link_element_set_href       (unHTMLLinkElement (toHTMLLinkElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"href\"]"         ghcjs_dom_html_link_element_get_href ::         JSRef HTMLLinkElement -> IO JSString-#else -ghcjs_dom_html_link_element_get_href ::-                                       JSRef HTMLLinkElement -> IO JSString-ghcjs_dom_html_link_element_get_href = undefined-#endif   htmlLinkElementGetHref ::                        (IsHTMLLinkElement self, FromJSString result) => self -> IO result@@ -145,17 +100,10 @@   = fromJSString <$>       (ghcjs_dom_html_link_element_get_href          (unHTMLLinkElement (toHTMLLinkElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"hreflang\"] = $2;"         ghcjs_dom_html_link_element_set_hreflang ::         JSRef HTMLLinkElement -> JSString -> IO ()-#else -ghcjs_dom_html_link_element_set_hreflang ::-                                           JSRef HTMLLinkElement -> JSString -> IO ()-ghcjs_dom_html_link_element_set_hreflang = undefined-#endif   htmlLinkElementSetHreflang ::                            (IsHTMLLinkElement self, ToJSString val) => self -> val -> IO ()@@ -163,17 +111,10 @@   = ghcjs_dom_html_link_element_set_hreflang       (unHTMLLinkElement (toHTMLLinkElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"hreflang\"]"         ghcjs_dom_html_link_element_get_hreflang ::         JSRef HTMLLinkElement -> IO JSString-#else -ghcjs_dom_html_link_element_get_hreflang ::-                                           JSRef HTMLLinkElement -> IO JSString-ghcjs_dom_html_link_element_get_hreflang = undefined-#endif   htmlLinkElementGetHreflang ::                            (IsHTMLLinkElement self, FromJSString result) => self -> IO result@@ -181,17 +122,10 @@   = fromJSString <$>       (ghcjs_dom_html_link_element_get_hreflang          (unHTMLLinkElement (toHTMLLinkElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"media\"] = $2;"         ghcjs_dom_html_link_element_set_media ::         JSRef HTMLLinkElement -> JSString -> IO ()-#else -ghcjs_dom_html_link_element_set_media ::-                                        JSRef HTMLLinkElement -> JSString -> IO ()-ghcjs_dom_html_link_element_set_media = undefined-#endif   htmlLinkElementSetMedia ::                         (IsHTMLLinkElement self, ToJSString val) => self -> val -> IO ()@@ -199,17 +133,10 @@   = ghcjs_dom_html_link_element_set_media       (unHTMLLinkElement (toHTMLLinkElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"media\"]"         ghcjs_dom_html_link_element_get_media ::         JSRef HTMLLinkElement -> IO JSString-#else -ghcjs_dom_html_link_element_get_media ::-                                        JSRef HTMLLinkElement -> IO JSString-ghcjs_dom_html_link_element_get_media = undefined-#endif   htmlLinkElementGetMedia ::                         (IsHTMLLinkElement self, FromJSString result) => self -> IO result@@ -217,17 +144,10 @@   = fromJSString <$>       (ghcjs_dom_html_link_element_get_media          (unHTMLLinkElement (toHTMLLinkElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"rel\"] = $2;"         ghcjs_dom_html_link_element_set_rel ::         JSRef HTMLLinkElement -> JSString -> IO ()-#else -ghcjs_dom_html_link_element_set_rel ::-                                      JSRef HTMLLinkElement -> JSString -> IO ()-ghcjs_dom_html_link_element_set_rel = undefined-#endif   htmlLinkElementSetRel ::                       (IsHTMLLinkElement self, ToJSString val) => self -> val -> IO ()@@ -235,17 +155,10 @@   = ghcjs_dom_html_link_element_set_rel       (unHTMLLinkElement (toHTMLLinkElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"rel\"]"         ghcjs_dom_html_link_element_get_rel ::         JSRef HTMLLinkElement -> IO JSString-#else -ghcjs_dom_html_link_element_get_rel ::-                                      JSRef HTMLLinkElement -> IO JSString-ghcjs_dom_html_link_element_get_rel = undefined-#endif   htmlLinkElementGetRel ::                       (IsHTMLLinkElement self, FromJSString result) => self -> IO result@@ -253,17 +166,10 @@   = fromJSString <$>       (ghcjs_dom_html_link_element_get_rel          (unHTMLLinkElement (toHTMLLinkElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"rev\"] = $2;"         ghcjs_dom_html_link_element_set_rev ::         JSRef HTMLLinkElement -> JSString -> IO ()-#else -ghcjs_dom_html_link_element_set_rev ::-                                      JSRef HTMLLinkElement -> JSString -> IO ()-ghcjs_dom_html_link_element_set_rev = undefined-#endif   htmlLinkElementSetRev ::                       (IsHTMLLinkElement self, ToJSString val) => self -> val -> IO ()@@ -271,17 +177,10 @@   = ghcjs_dom_html_link_element_set_rev       (unHTMLLinkElement (toHTMLLinkElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"rev\"]"         ghcjs_dom_html_link_element_get_rev ::         JSRef HTMLLinkElement -> IO JSString-#else -ghcjs_dom_html_link_element_get_rev ::-                                      JSRef HTMLLinkElement -> IO JSString-ghcjs_dom_html_link_element_get_rev = undefined-#endif   htmlLinkElementGetRev ::                       (IsHTMLLinkElement self, FromJSString result) => self -> IO result@@ -289,17 +188,10 @@   = fromJSString <$>       (ghcjs_dom_html_link_element_get_rev          (unHTMLLinkElement (toHTMLLinkElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"target\"] = $2;"         ghcjs_dom_html_link_element_set_target ::         JSRef HTMLLinkElement -> JSString -> IO ()-#else -ghcjs_dom_html_link_element_set_target ::-                                         JSRef HTMLLinkElement -> JSString -> IO ()-ghcjs_dom_html_link_element_set_target = undefined-#endif   htmlLinkElementSetTarget ::                          (IsHTMLLinkElement self, ToJSString val) => self -> val -> IO ()@@ -307,17 +199,10 @@   = ghcjs_dom_html_link_element_set_target       (unHTMLLinkElement (toHTMLLinkElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"target\"]"         ghcjs_dom_html_link_element_get_target ::         JSRef HTMLLinkElement -> IO JSString-#else -ghcjs_dom_html_link_element_get_target ::-                                         JSRef HTMLLinkElement -> IO JSString-ghcjs_dom_html_link_element_get_target = undefined-#endif   htmlLinkElementGetTarget ::                          (IsHTMLLinkElement self, FromJSString result) => self -> IO result@@ -325,23 +210,27 @@   = fromJSString <$>       (ghcjs_dom_html_link_element_get_target          (unHTMLLinkElement (toHTMLLinkElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"sheet\"]"         ghcjs_dom_html_link_element_get_sheet ::         JSRef HTMLLinkElement -> IO (JSRef StyleSheet)-#else -ghcjs_dom_html_link_element_get_sheet ::-                                        JSRef HTMLLinkElement -> IO (JSRef StyleSheet)-ghcjs_dom_html_link_element_get_sheet = undefined-#endif   htmlLinkElementGetSheet ::                         (IsHTMLLinkElement self) => self -> IO (Maybe StyleSheet) htmlLinkElementGetSheet self   = fmap StyleSheet . maybeJSNull <$>       (ghcjs_dom_html_link_element_get_sheet+         (unHTMLLinkElement (toHTMLLinkElement self)))+ +foreign import javascript unsafe "$1[\"relList\"]"+        ghcjs_dom_html_link_element_get_rel_list ::+        JSRef HTMLLinkElement -> IO (JSRef DOMTokenList)+ +htmlLinkElementGetRelList ::+                          (IsHTMLLinkElement self) => self -> IO (Maybe DOMTokenList)+htmlLinkElementGetRelList self+  = fmap DOMTokenList . maybeJSNull <$>+      (ghcjs_dom_html_link_element_get_rel_list          (unHTMLLinkElement (toHTMLLinkElement self))) #else module GHCJS.DOM.HTMLLinkElement (

src/GHCJS/DOM/HTMLMapElement.hs view

@@ -10,28 +10,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"areas\"]"         ghcjs_dom_html_map_element_get_areas ::         JSRef HTMLMapElement -> IO (JSRef HTMLCollection)-#else -ghcjs_dom_html_map_element_get_areas ::-                                       JSRef HTMLMapElement -> IO (JSRef HTMLCollection)-ghcjs_dom_html_map_element_get_areas = undefined-#endif   htmlMapElementGetAreas ::                        (IsHTMLMapElement self) => self -> IO (Maybe HTMLCollection)@@ -39,17 +28,10 @@   = fmap HTMLCollection . maybeJSNull <$>       (ghcjs_dom_html_map_element_get_areas          (unHTMLMapElement (toHTMLMapElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_map_element_set_name ::         JSRef HTMLMapElement -> JSString -> IO ()-#else -ghcjs_dom_html_map_element_set_name ::-                                      JSRef HTMLMapElement -> JSString -> IO ()-ghcjs_dom_html_map_element_set_name = undefined-#endif   htmlMapElementSetName ::                       (IsHTMLMapElement self, ToJSString val) => self -> val -> IO ()@@ -57,17 +39,10 @@   = ghcjs_dom_html_map_element_set_name       (unHTMLMapElement (toHTMLMapElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_map_element_get_name ::         JSRef HTMLMapElement -> IO JSString-#else -ghcjs_dom_html_map_element_get_name ::-                                      JSRef HTMLMapElement -> IO JSString-ghcjs_dom_html_map_element_get_name = undefined-#endif   htmlMapElementGetName ::                       (IsHTMLMapElement self, FromJSString result) => self -> IO result

src/GHCJS/DOM/HTMLMarqueeElement.hs view

@@ -51,62 +51,37 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"start\"]()"         ghcjs_dom_html_marquee_element_start ::         JSRef HTMLMarqueeElement -> IO ()-#else -ghcjs_dom_html_marquee_element_start ::-                                       JSRef HTMLMarqueeElement -> IO ()-ghcjs_dom_html_marquee_element_start = undefined-#endif   htmlMarqueeElementStart ::                         (IsHTMLMarqueeElement self) => self -> IO () htmlMarqueeElementStart self   = ghcjs_dom_html_marquee_element_start       (unHTMLMarqueeElement (toHTMLMarqueeElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"stop\"]()"         ghcjs_dom_html_marquee_element_stop ::         JSRef HTMLMarqueeElement -> IO ()-#else -ghcjs_dom_html_marquee_element_stop ::-                                      JSRef HTMLMarqueeElement -> IO ()-ghcjs_dom_html_marquee_element_stop = undefined-#endif   htmlMarqueeElementStop ::                        (IsHTMLMarqueeElement self) => self -> IO () htmlMarqueeElementStop self   = ghcjs_dom_html_marquee_element_stop       (unHTMLMarqueeElement (toHTMLMarqueeElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"behavior\"] = $2;"         ghcjs_dom_html_marquee_element_set_behavior ::         JSRef HTMLMarqueeElement -> JSString -> IO ()-#else -ghcjs_dom_html_marquee_element_set_behavior ::-                                              JSRef HTMLMarqueeElement -> JSString -> IO ()-ghcjs_dom_html_marquee_element_set_behavior = undefined-#endif   htmlMarqueeElementSetBehavior ::                               (IsHTMLMarqueeElement self, ToJSString val) => self -> val -> IO ()@@ -114,17 +89,10 @@   = ghcjs_dom_html_marquee_element_set_behavior       (unHTMLMarqueeElement (toHTMLMarqueeElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"behavior\"]"         ghcjs_dom_html_marquee_element_get_behavior ::         JSRef HTMLMarqueeElement -> IO JSString-#else -ghcjs_dom_html_marquee_element_get_behavior ::-                                              JSRef HTMLMarqueeElement -> IO JSString-ghcjs_dom_html_marquee_element_get_behavior = undefined-#endif   htmlMarqueeElementGetBehavior ::                               (IsHTMLMarqueeElement self, FromJSString result) =>@@ -133,17 +101,10 @@   = fromJSString <$>       (ghcjs_dom_html_marquee_element_get_behavior          (unHTMLMarqueeElement (toHTMLMarqueeElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"bgColor\"] = $2;"         ghcjs_dom_html_marquee_element_set_bg_color ::         JSRef HTMLMarqueeElement -> JSString -> IO ()-#else -ghcjs_dom_html_marquee_element_set_bg_color ::-                                              JSRef HTMLMarqueeElement -> JSString -> IO ()-ghcjs_dom_html_marquee_element_set_bg_color = undefined-#endif   htmlMarqueeElementSetBgColor ::                              (IsHTMLMarqueeElement self, ToJSString val) => self -> val -> IO ()@@ -151,17 +112,10 @@   = ghcjs_dom_html_marquee_element_set_bg_color       (unHTMLMarqueeElement (toHTMLMarqueeElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"bgColor\"]"         ghcjs_dom_html_marquee_element_get_bg_color ::         JSRef HTMLMarqueeElement -> IO JSString-#else -ghcjs_dom_html_marquee_element_get_bg_color ::-                                              JSRef HTMLMarqueeElement -> IO JSString-ghcjs_dom_html_marquee_element_get_bg_color = undefined-#endif   htmlMarqueeElementGetBgColor ::                              (IsHTMLMarqueeElement self, FromJSString result) =>@@ -170,17 +124,10 @@   = fromJSString <$>       (ghcjs_dom_html_marquee_element_get_bg_color          (unHTMLMarqueeElement (toHTMLMarqueeElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"direction\"] = $2;"         ghcjs_dom_html_marquee_element_set_direction ::         JSRef HTMLMarqueeElement -> JSString -> IO ()-#else -ghcjs_dom_html_marquee_element_set_direction ::-                                               JSRef HTMLMarqueeElement -> JSString -> IO ()-ghcjs_dom_html_marquee_element_set_direction = undefined-#endif   htmlMarqueeElementSetDirection ::                                (IsHTMLMarqueeElement self, ToJSString val) => self -> val -> IO ()@@ -188,17 +135,10 @@   = ghcjs_dom_html_marquee_element_set_direction       (unHTMLMarqueeElement (toHTMLMarqueeElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"direction\"]"         ghcjs_dom_html_marquee_element_get_direction ::         JSRef HTMLMarqueeElement -> IO JSString-#else -ghcjs_dom_html_marquee_element_get_direction ::-                                               JSRef HTMLMarqueeElement -> IO JSString-ghcjs_dom_html_marquee_element_get_direction = undefined-#endif   htmlMarqueeElementGetDirection ::                                (IsHTMLMarqueeElement self, FromJSString result) =>@@ -207,17 +147,10 @@   = fromJSString <$>       (ghcjs_dom_html_marquee_element_get_direction          (unHTMLMarqueeElement (toHTMLMarqueeElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"height\"] = $2;"         ghcjs_dom_html_marquee_element_set_height ::         JSRef HTMLMarqueeElement -> JSString -> IO ()-#else -ghcjs_dom_html_marquee_element_set_height ::-                                            JSRef HTMLMarqueeElement -> JSString -> IO ()-ghcjs_dom_html_marquee_element_set_height = undefined-#endif   htmlMarqueeElementSetHeight ::                             (IsHTMLMarqueeElement self, ToJSString val) => self -> val -> IO ()@@ -225,17 +158,10 @@   = ghcjs_dom_html_marquee_element_set_height       (unHTMLMarqueeElement (toHTMLMarqueeElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_marquee_element_get_height ::         JSRef HTMLMarqueeElement -> IO JSString-#else -ghcjs_dom_html_marquee_element_get_height ::-                                            JSRef HTMLMarqueeElement -> IO JSString-ghcjs_dom_html_marquee_element_get_height = undefined-#endif   htmlMarqueeElementGetHeight ::                             (IsHTMLMarqueeElement self, FromJSString result) =>@@ -244,17 +170,10 @@   = fromJSString <$>       (ghcjs_dom_html_marquee_element_get_height          (unHTMLMarqueeElement (toHTMLMarqueeElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"hspace\"] = $2;"         ghcjs_dom_html_marquee_element_set_hspace ::         JSRef HTMLMarqueeElement -> Word -> IO ()-#else -ghcjs_dom_html_marquee_element_set_hspace ::-                                            JSRef HTMLMarqueeElement -> Word -> IO ()-ghcjs_dom_html_marquee_element_set_hspace = undefined-#endif   htmlMarqueeElementSetHspace ::                             (IsHTMLMarqueeElement self) => self -> Word -> IO ()@@ -262,34 +181,20 @@   = ghcjs_dom_html_marquee_element_set_hspace       (unHTMLMarqueeElement (toHTMLMarqueeElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"hspace\"]"         ghcjs_dom_html_marquee_element_get_hspace ::         JSRef HTMLMarqueeElement -> IO Word-#else -ghcjs_dom_html_marquee_element_get_hspace ::-                                            JSRef HTMLMarqueeElement -> IO Word-ghcjs_dom_html_marquee_element_get_hspace = undefined-#endif   htmlMarqueeElementGetHspace ::                             (IsHTMLMarqueeElement self) => self -> IO Word htmlMarqueeElementGetHspace self   = ghcjs_dom_html_marquee_element_get_hspace       (unHTMLMarqueeElement (toHTMLMarqueeElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"loop\"] = $2;"         ghcjs_dom_html_marquee_element_set_loop ::         JSRef HTMLMarqueeElement -> Int -> IO ()-#else -ghcjs_dom_html_marquee_element_set_loop ::-                                          JSRef HTMLMarqueeElement -> Int -> IO ()-ghcjs_dom_html_marquee_element_set_loop = undefined-#endif   htmlMarqueeElementSetLoop ::                           (IsHTMLMarqueeElement self) => self -> Int -> IO ()@@ -297,34 +202,20 @@   = ghcjs_dom_html_marquee_element_set_loop       (unHTMLMarqueeElement (toHTMLMarqueeElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"loop\"]"         ghcjs_dom_html_marquee_element_get_loop ::         JSRef HTMLMarqueeElement -> IO Int-#else -ghcjs_dom_html_marquee_element_get_loop ::-                                          JSRef HTMLMarqueeElement -> IO Int-ghcjs_dom_html_marquee_element_get_loop = undefined-#endif   htmlMarqueeElementGetLoop ::                           (IsHTMLMarqueeElement self) => self -> IO Int htmlMarqueeElementGetLoop self   = ghcjs_dom_html_marquee_element_get_loop       (unHTMLMarqueeElement (toHTMLMarqueeElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scrollAmount\"] = $2;"         ghcjs_dom_html_marquee_element_set_scroll_amount ::         JSRef HTMLMarqueeElement -> Int -> IO ()-#else -ghcjs_dom_html_marquee_element_set_scroll_amount ::-                                                   JSRef HTMLMarqueeElement -> Int -> IO ()-ghcjs_dom_html_marquee_element_set_scroll_amount = undefined-#endif   htmlMarqueeElementSetScrollAmount ::                                   (IsHTMLMarqueeElement self) => self -> Int -> IO ()@@ -332,34 +223,20 @@   = ghcjs_dom_html_marquee_element_set_scroll_amount       (unHTMLMarqueeElement (toHTMLMarqueeElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scrollAmount\"]"         ghcjs_dom_html_marquee_element_get_scroll_amount ::         JSRef HTMLMarqueeElement -> IO Int-#else -ghcjs_dom_html_marquee_element_get_scroll_amount ::-                                                   JSRef HTMLMarqueeElement -> IO Int-ghcjs_dom_html_marquee_element_get_scroll_amount = undefined-#endif   htmlMarqueeElementGetScrollAmount ::                                   (IsHTMLMarqueeElement self) => self -> IO Int htmlMarqueeElementGetScrollAmount self   = ghcjs_dom_html_marquee_element_get_scroll_amount       (unHTMLMarqueeElement (toHTMLMarqueeElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scrollDelay\"] = $2;"         ghcjs_dom_html_marquee_element_set_scroll_delay ::         JSRef HTMLMarqueeElement -> Int -> IO ()-#else -ghcjs_dom_html_marquee_element_set_scroll_delay ::-                                                  JSRef HTMLMarqueeElement -> Int -> IO ()-ghcjs_dom_html_marquee_element_set_scroll_delay = undefined-#endif   htmlMarqueeElementSetScrollDelay ::                                  (IsHTMLMarqueeElement self) => self -> Int -> IO ()@@ -367,34 +244,20 @@   = ghcjs_dom_html_marquee_element_set_scroll_delay       (unHTMLMarqueeElement (toHTMLMarqueeElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scrollDelay\"]"         ghcjs_dom_html_marquee_element_get_scroll_delay ::         JSRef HTMLMarqueeElement -> IO Int-#else -ghcjs_dom_html_marquee_element_get_scroll_delay ::-                                                  JSRef HTMLMarqueeElement -> IO Int-ghcjs_dom_html_marquee_element_get_scroll_delay = undefined-#endif   htmlMarqueeElementGetScrollDelay ::                                  (IsHTMLMarqueeElement self) => self -> IO Int htmlMarqueeElementGetScrollDelay self   = ghcjs_dom_html_marquee_element_get_scroll_delay       (unHTMLMarqueeElement (toHTMLMarqueeElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"trueSpeed\"] = $2;"         ghcjs_dom_html_marquee_element_set_true_speed ::         JSRef HTMLMarqueeElement -> Bool -> IO ()-#else -ghcjs_dom_html_marquee_element_set_true_speed ::-                                                JSRef HTMLMarqueeElement -> Bool -> IO ()-ghcjs_dom_html_marquee_element_set_true_speed = undefined-#endif   htmlMarqueeElementSetTrueSpeed ::                                (IsHTMLMarqueeElement self) => self -> Bool -> IO ()@@ -402,34 +265,20 @@   = ghcjs_dom_html_marquee_element_set_true_speed       (unHTMLMarqueeElement (toHTMLMarqueeElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"trueSpeed\"] ? 1 : 0)"         ghcjs_dom_html_marquee_element_get_true_speed ::         JSRef HTMLMarqueeElement -> IO Bool-#else -ghcjs_dom_html_marquee_element_get_true_speed ::-                                                JSRef HTMLMarqueeElement -> IO Bool-ghcjs_dom_html_marquee_element_get_true_speed = undefined-#endif   htmlMarqueeElementGetTrueSpeed ::                                (IsHTMLMarqueeElement self) => self -> IO Bool htmlMarqueeElementGetTrueSpeed self   = ghcjs_dom_html_marquee_element_get_true_speed       (unHTMLMarqueeElement (toHTMLMarqueeElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"vspace\"] = $2;"         ghcjs_dom_html_marquee_element_set_vspace ::         JSRef HTMLMarqueeElement -> Word -> IO ()-#else -ghcjs_dom_html_marquee_element_set_vspace ::-                                            JSRef HTMLMarqueeElement -> Word -> IO ()-ghcjs_dom_html_marquee_element_set_vspace = undefined-#endif   htmlMarqueeElementSetVspace ::                             (IsHTMLMarqueeElement self) => self -> Word -> IO ()@@ -437,34 +286,20 @@   = ghcjs_dom_html_marquee_element_set_vspace       (unHTMLMarqueeElement (toHTMLMarqueeElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"vspace\"]"         ghcjs_dom_html_marquee_element_get_vspace ::         JSRef HTMLMarqueeElement -> IO Word-#else -ghcjs_dom_html_marquee_element_get_vspace ::-                                            JSRef HTMLMarqueeElement -> IO Word-ghcjs_dom_html_marquee_element_get_vspace = undefined-#endif   htmlMarqueeElementGetVspace ::                             (IsHTMLMarqueeElement self) => self -> IO Word htmlMarqueeElementGetVspace self   = ghcjs_dom_html_marquee_element_get_vspace       (unHTMLMarqueeElement (toHTMLMarqueeElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_marquee_element_set_width ::         JSRef HTMLMarqueeElement -> JSString -> IO ()-#else -ghcjs_dom_html_marquee_element_set_width ::-                                           JSRef HTMLMarqueeElement -> JSString -> IO ()-ghcjs_dom_html_marquee_element_set_width = undefined-#endif   htmlMarqueeElementSetWidth ::                            (IsHTMLMarqueeElement self, ToJSString val) => self -> val -> IO ()@@ -472,17 +307,10 @@   = ghcjs_dom_html_marquee_element_set_width       (unHTMLMarqueeElement (toHTMLMarqueeElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_marquee_element_get_width ::         JSRef HTMLMarqueeElement -> IO JSString-#else -ghcjs_dom_html_marquee_element_get_width ::-                                           JSRef HTMLMarqueeElement -> IO JSString-ghcjs_dom_html_marquee_element_get_width = undefined-#endif   htmlMarqueeElementGetWidth ::                            (IsHTMLMarqueeElement self, FromJSString result) =>

src/GHCJS/DOM/HTMLMediaElement.hs view

@@ -6,8 +6,11 @@         ghcjs_dom_html_media_element_can_play_type,         htmlMediaElementCanPlayType, ghcjs_dom_html_media_element_play,         htmlMediaElementPlay, ghcjs_dom_html_media_element_pause,-        htmlMediaElementPause, cNETWORK_EMPTY, cNETWORK_IDLE,-        cNETWORK_LOADING, cNETWORK_NO_SOURCE, cHAVE_NOTHING,+        htmlMediaElementPause, ghcjs_dom_html_media_element_fast_seek,+        htmlMediaElementFastSeek,+        ghcjs_dom_html_media_element_webkit_show_playback_target_picker,+        htmlMediaElementWebkitShowPlaybackTargetPicker, cNETWORK_EMPTY,+        cNETWORK_IDLE, cNETWORK_LOADING, cNETWORK_NO_SOURCE, cHAVE_NOTHING,         cHAVE_METADATA, cHAVE_CURRENT_DATA, cHAVE_FUTURE_DATA,         cHAVE_ENOUGH_DATA, ghcjs_dom_html_media_element_get_error,         htmlMediaElementGetError, ghcjs_dom_html_media_element_set_src,@@ -31,10 +34,6 @@         htmlMediaElementSetCurrentTime,         ghcjs_dom_html_media_element_get_current_time,         htmlMediaElementGetCurrentTime,-        ghcjs_dom_html_media_element_get_initial_time,-        htmlMediaElementGetInitialTime,-        ghcjs_dom_html_media_element_get_start_time,-        htmlMediaElementGetStartTime,         ghcjs_dom_html_media_element_get_duration,         htmlMediaElementGetDuration,         ghcjs_dom_html_media_element_get_paused, htmlMediaElementGetPaused,@@ -66,7 +65,14 @@         ghcjs_dom_html_media_element_set_default_muted,         htmlMediaElementSetDefaultMuted,         ghcjs_dom_html_media_element_get_default_muted,-        htmlMediaElementGetDefaultMuted,+        htmlMediaElementGetDefaultMuted, htmlMediaElementOnemptied,+        htmlMediaElementOnloadedmetadata, htmlMediaElementOnloadeddata,+        htmlMediaElementOncanplay, htmlMediaElementOncanplaythrough,+        htmlMediaElementOnplaying, htmlMediaElementOnended,+        htmlMediaElementOnwaiting, htmlMediaElementOndurationchange,+        htmlMediaElementOntimeupdate, htmlMediaElementOnplay,+        htmlMediaElementOnpause, htmlMediaElementOnratechange,+        htmlMediaElementOnvolumechange,         ghcjs_dom_html_media_element_set_webkit_preserves_pitch,         htmlMediaElementSetWebkitPreservesPitch,         ghcjs_dom_html_media_element_get_webkit_preserves_pitch,@@ -85,50 +91,36 @@         ghcjs_dom_html_media_element_set_media_group,         htmlMediaElementSetMediaGroup,         ghcjs_dom_html_media_element_get_media_group,-        htmlMediaElementGetMediaGroup, HTMLMediaElement,-        IsHTMLMediaElement, castToHTMLMediaElement, gTypeHTMLMediaElement,-        toHTMLMediaElement)+        htmlMediaElementGetMediaGroup,+        ghcjs_dom_html_media_element_get_webkit_current_playback_target_is_wireless,+        htmlMediaElementGetWebkitCurrentPlaybackTargetIsWireless,+        htmlMediaElementOnwebkitcurrentplaybacktargetiswirelesschanged,+        htmlMediaElementOnwebkitplaybacktargetavailabilitychanged,+        HTMLMediaElement, IsHTMLMediaElement, castToHTMLMediaElement,+        gTypeHTMLMediaElement, toHTMLMediaElement)        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"load\"]()"         ghcjs_dom_html_media_element_load ::         JSRef HTMLMediaElement -> IO ()-#else -ghcjs_dom_html_media_element_load ::-                                    JSRef HTMLMediaElement -> IO ()-ghcjs_dom_html_media_element_load = undefined-#endif   htmlMediaElementLoad :: (IsHTMLMediaElement self) => self -> IO () htmlMediaElementLoad self   = ghcjs_dom_html_media_element_load       (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"canPlayType\"]($2)"         ghcjs_dom_html_media_element_can_play_type ::         JSRef HTMLMediaElement -> JSString -> IO JSString-#else -ghcjs_dom_html_media_element_can_play_type ::-                                             JSRef HTMLMediaElement -> JSString -> IO JSString-ghcjs_dom_html_media_element_can_play_type = undefined-#endif   htmlMediaElementCanPlayType ::                             (IsHTMLMediaElement self, ToJSString type', FromJSString result) =>@@ -138,38 +130,46 @@       (ghcjs_dom_html_media_element_can_play_type          (unHTMLMediaElement (toHTMLMediaElement self))          (toJSString type'))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"play\"]()"         ghcjs_dom_html_media_element_play ::         JSRef HTMLMediaElement -> IO ()-#else -ghcjs_dom_html_media_element_play ::-                                    JSRef HTMLMediaElement -> IO ()-ghcjs_dom_html_media_element_play = undefined-#endif   htmlMediaElementPlay :: (IsHTMLMediaElement self) => self -> IO () htmlMediaElementPlay self   = ghcjs_dom_html_media_element_play       (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"pause\"]()"         ghcjs_dom_html_media_element_pause ::         JSRef HTMLMediaElement -> IO ()-#else -ghcjs_dom_html_media_element_pause ::-                                     JSRef HTMLMediaElement -> IO ()-ghcjs_dom_html_media_element_pause = undefined-#endif   htmlMediaElementPause :: (IsHTMLMediaElement self) => self -> IO () htmlMediaElementPause self   = ghcjs_dom_html_media_element_pause       (unHTMLMediaElement (toHTMLMediaElement self))+ +foreign import javascript unsafe "$1[\"fastSeek\"]($2)"+        ghcjs_dom_html_media_element_fast_seek ::+        JSRef HTMLMediaElement -> Double -> IO ()+ +htmlMediaElementFastSeek ::+                         (IsHTMLMediaElement self) => self -> Double -> IO ()+htmlMediaElementFastSeek self time+  = ghcjs_dom_html_media_element_fast_seek+      (unHTMLMediaElement (toHTMLMediaElement self))+      time+ +foreign import javascript unsafe+        "$1[\"webkitShowPlaybackTargetPicker\"]()"+        ghcjs_dom_html_media_element_webkit_show_playback_target_picker ::+        JSRef HTMLMediaElement -> IO ()+ +htmlMediaElementWebkitShowPlaybackTargetPicker ::+                                               (IsHTMLMediaElement self) => self -> IO ()+htmlMediaElementWebkitShowPlaybackTargetPicker self+  = ghcjs_dom_html_media_element_webkit_show_playback_target_picker+      (unHTMLMediaElement (toHTMLMediaElement self)) cNETWORK_EMPTY = 0 cNETWORK_IDLE = 1 cNETWORK_LOADING = 2@@ -179,17 +179,10 @@ cHAVE_CURRENT_DATA = 2 cHAVE_FUTURE_DATA = 3 cHAVE_ENOUGH_DATA = 4---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"error\"]"         ghcjs_dom_html_media_element_get_error ::         JSRef HTMLMediaElement -> IO (JSRef MediaError)-#else -ghcjs_dom_html_media_element_get_error ::-                                         JSRef HTMLMediaElement -> IO (JSRef MediaError)-ghcjs_dom_html_media_element_get_error = undefined-#endif   htmlMediaElementGetError ::                          (IsHTMLMediaElement self) => self -> IO (Maybe MediaError)@@ -197,17 +190,10 @@   = fmap MediaError . maybeJSNull <$>       (ghcjs_dom_html_media_element_get_error          (unHTMLMediaElement (toHTMLMediaElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"src\"] = $2;"         ghcjs_dom_html_media_element_set_src ::         JSRef HTMLMediaElement -> JSString -> IO ()-#else -ghcjs_dom_html_media_element_set_src ::-                                       JSRef HTMLMediaElement -> JSString -> IO ()-ghcjs_dom_html_media_element_set_src = undefined-#endif   htmlMediaElementSetSrc ::                        (IsHTMLMediaElement self, ToJSString val) => self -> val -> IO ()@@ -215,17 +201,10 @@   = ghcjs_dom_html_media_element_set_src       (unHTMLMediaElement (toHTMLMediaElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"src\"]"         ghcjs_dom_html_media_element_get_src ::         JSRef HTMLMediaElement -> IO JSString-#else -ghcjs_dom_html_media_element_get_src ::-                                       JSRef HTMLMediaElement -> IO JSString-ghcjs_dom_html_media_element_get_src = undefined-#endif   htmlMediaElementGetSrc ::                        (IsHTMLMediaElement self, FromJSString result) => self -> IO result@@ -233,17 +212,10 @@   = fromJSString <$>       (ghcjs_dom_html_media_element_get_src          (unHTMLMediaElement (toHTMLMediaElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"currentSrc\"]"         ghcjs_dom_html_media_element_get_current_src ::         JSRef HTMLMediaElement -> IO JSString-#else -ghcjs_dom_html_media_element_get_current_src ::-                                               JSRef HTMLMediaElement -> IO JSString-ghcjs_dom_html_media_element_get_current_src = undefined-#endif   htmlMediaElementGetCurrentSrc ::                               (IsHTMLMediaElement self, FromJSString result) => self -> IO result@@ -251,34 +223,20 @@   = fromJSString <$>       (ghcjs_dom_html_media_element_get_current_src          (unHTMLMediaElement (toHTMLMediaElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"networkState\"]"         ghcjs_dom_html_media_element_get_network_state ::         JSRef HTMLMediaElement -> IO Word-#else -ghcjs_dom_html_media_element_get_network_state ::-                                                 JSRef HTMLMediaElement -> IO Word-ghcjs_dom_html_media_element_get_network_state = undefined-#endif   htmlMediaElementGetNetworkState ::                                 (IsHTMLMediaElement self) => self -> IO Word htmlMediaElementGetNetworkState self   = ghcjs_dom_html_media_element_get_network_state       (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"preload\"] = $2;"         ghcjs_dom_html_media_element_set_preload ::         JSRef HTMLMediaElement -> JSString -> IO ()-#else -ghcjs_dom_html_media_element_set_preload ::-                                           JSRef HTMLMediaElement -> JSString -> IO ()-ghcjs_dom_html_media_element_set_preload = undefined-#endif   htmlMediaElementSetPreload ::                            (IsHTMLMediaElement self, ToJSString val) => self -> val -> IO ()@@ -286,17 +244,10 @@   = ghcjs_dom_html_media_element_set_preload       (unHTMLMediaElement (toHTMLMediaElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"preload\"]"         ghcjs_dom_html_media_element_get_preload ::         JSRef HTMLMediaElement -> IO JSString-#else -ghcjs_dom_html_media_element_get_preload ::-                                           JSRef HTMLMediaElement -> IO JSString-ghcjs_dom_html_media_element_get_preload = undefined-#endif   htmlMediaElementGetPreload ::                            (IsHTMLMediaElement self, FromJSString result) => self -> IO result@@ -304,17 +255,10 @@   = fromJSString <$>       (ghcjs_dom_html_media_element_get_preload          (unHTMLMediaElement (toHTMLMediaElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"buffered\"]"         ghcjs_dom_html_media_element_get_buffered ::         JSRef HTMLMediaElement -> IO (JSRef TimeRanges)-#else -ghcjs_dom_html_media_element_get_buffered ::-                                            JSRef HTMLMediaElement -> IO (JSRef TimeRanges)-ghcjs_dom_html_media_element_get_buffered = undefined-#endif   htmlMediaElementGetBuffered ::                             (IsHTMLMediaElement self) => self -> IO (Maybe TimeRanges)@@ -322,51 +266,30 @@   = fmap TimeRanges . maybeJSNull <$>       (ghcjs_dom_html_media_element_get_buffered          (unHTMLMediaElement (toHTMLMediaElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"readyState\"]"         ghcjs_dom_html_media_element_get_ready_state ::         JSRef HTMLMediaElement -> IO Word-#else -ghcjs_dom_html_media_element_get_ready_state ::-                                               JSRef HTMLMediaElement -> IO Word-ghcjs_dom_html_media_element_get_ready_state = undefined-#endif   htmlMediaElementGetReadyState ::                               (IsHTMLMediaElement self) => self -> IO Word htmlMediaElementGetReadyState self   = ghcjs_dom_html_media_element_get_ready_state       (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"seeking\"] ? 1 : 0)"         ghcjs_dom_html_media_element_get_seeking ::         JSRef HTMLMediaElement -> IO Bool-#else -ghcjs_dom_html_media_element_get_seeking ::-                                           JSRef HTMLMediaElement -> IO Bool-ghcjs_dom_html_media_element_get_seeking = undefined-#endif   htmlMediaElementGetSeeking ::                            (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetSeeking self   = ghcjs_dom_html_media_element_get_seeking       (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"currentTime\"] = $2;"         ghcjs_dom_html_media_element_set_current_time ::         JSRef HTMLMediaElement -> Double -> IO ()-#else -ghcjs_dom_html_media_element_set_current_time ::-                                                JSRef HTMLMediaElement -> Double -> IO ()-ghcjs_dom_html_media_element_set_current_time = undefined-#endif   htmlMediaElementSetCurrentTime ::                                (IsHTMLMediaElement self) => self -> Double -> IO ()@@ -374,103 +297,41 @@   = ghcjs_dom_html_media_element_set_current_time       (unHTMLMediaElement (toHTMLMediaElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"currentTime\"]"         ghcjs_dom_html_media_element_get_current_time ::         JSRef HTMLMediaElement -> IO Double-#else -ghcjs_dom_html_media_element_get_current_time ::-                                                JSRef HTMLMediaElement -> IO Double-ghcjs_dom_html_media_element_get_current_time = undefined-#endif   htmlMediaElementGetCurrentTime ::                                (IsHTMLMediaElement self) => self -> IO Double htmlMediaElementGetCurrentTime self   = ghcjs_dom_html_media_element_get_current_time       (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"initialTime\"]"-        ghcjs_dom_html_media_element_get_initial_time ::-        JSRef HTMLMediaElement -> IO Double-#else -ghcjs_dom_html_media_element_get_initial_time ::-                                                JSRef HTMLMediaElement -> IO Double-ghcjs_dom_html_media_element_get_initial_time = undefined-#endif  -htmlMediaElementGetInitialTime ::-                               (IsHTMLMediaElement self) => self -> IO Double-htmlMediaElementGetInitialTime self-  = ghcjs_dom_html_media_element_get_initial_time-      (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"startTime\"]"-        ghcjs_dom_html_media_element_get_start_time ::-        JSRef HTMLMediaElement -> IO Double-#else -ghcjs_dom_html_media_element_get_start_time ::-                                              JSRef HTMLMediaElement -> IO Double-ghcjs_dom_html_media_element_get_start_time = undefined-#endif- -htmlMediaElementGetStartTime ::-                             (IsHTMLMediaElement self) => self -> IO Double-htmlMediaElementGetStartTime self-  = ghcjs_dom_html_media_element_get_start_time-      (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"duration\"]"         ghcjs_dom_html_media_element_get_duration ::         JSRef HTMLMediaElement -> IO Double-#else -ghcjs_dom_html_media_element_get_duration ::-                                            JSRef HTMLMediaElement -> IO Double-ghcjs_dom_html_media_element_get_duration = undefined-#endif   htmlMediaElementGetDuration ::                             (IsHTMLMediaElement self) => self -> IO Double htmlMediaElementGetDuration self   = ghcjs_dom_html_media_element_get_duration       (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"paused\"] ? 1 : 0)"         ghcjs_dom_html_media_element_get_paused ::         JSRef HTMLMediaElement -> IO Bool-#else -ghcjs_dom_html_media_element_get_paused ::-                                          JSRef HTMLMediaElement -> IO Bool-ghcjs_dom_html_media_element_get_paused = undefined-#endif   htmlMediaElementGetPaused ::                           (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetPaused self   = ghcjs_dom_html_media_element_get_paused       (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"defaultPlaybackRate\"] = $2;"         ghcjs_dom_html_media_element_set_default_playback_rate ::         JSRef HTMLMediaElement -> Double -> IO ()-#else -ghcjs_dom_html_media_element_set_default_playback_rate ::-                                                         JSRef HTMLMediaElement -> Double -> IO ()-ghcjs_dom_html_media_element_set_default_playback_rate = undefined-#endif   htmlMediaElementSetDefaultPlaybackRate ::                                        (IsHTMLMediaElement self) => self -> Double -> IO ()@@ -478,34 +339,20 @@   = ghcjs_dom_html_media_element_set_default_playback_rate       (unHTMLMediaElement (toHTMLMediaElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"defaultPlaybackRate\"]"         ghcjs_dom_html_media_element_get_default_playback_rate ::         JSRef HTMLMediaElement -> IO Double-#else -ghcjs_dom_html_media_element_get_default_playback_rate ::-                                                         JSRef HTMLMediaElement -> IO Double-ghcjs_dom_html_media_element_get_default_playback_rate = undefined-#endif   htmlMediaElementGetDefaultPlaybackRate ::                                        (IsHTMLMediaElement self) => self -> IO Double htmlMediaElementGetDefaultPlaybackRate self   = ghcjs_dom_html_media_element_get_default_playback_rate       (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"playbackRate\"] = $2;"         ghcjs_dom_html_media_element_set_playback_rate ::         JSRef HTMLMediaElement -> Double -> IO ()-#else -ghcjs_dom_html_media_element_set_playback_rate ::-                                                 JSRef HTMLMediaElement -> Double -> IO ()-ghcjs_dom_html_media_element_set_playback_rate = undefined-#endif   htmlMediaElementSetPlaybackRate ::                                 (IsHTMLMediaElement self) => self -> Double -> IO ()@@ -513,34 +360,20 @@   = ghcjs_dom_html_media_element_set_playback_rate       (unHTMLMediaElement (toHTMLMediaElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"playbackRate\"]"         ghcjs_dom_html_media_element_get_playback_rate ::         JSRef HTMLMediaElement -> IO Double-#else -ghcjs_dom_html_media_element_get_playback_rate ::-                                                 JSRef HTMLMediaElement -> IO Double-ghcjs_dom_html_media_element_get_playback_rate = undefined-#endif   htmlMediaElementGetPlaybackRate ::                                 (IsHTMLMediaElement self) => self -> IO Double htmlMediaElementGetPlaybackRate self   = ghcjs_dom_html_media_element_get_playback_rate       (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"played\"]"         ghcjs_dom_html_media_element_get_played ::         JSRef HTMLMediaElement -> IO (JSRef TimeRanges)-#else -ghcjs_dom_html_media_element_get_played ::-                                          JSRef HTMLMediaElement -> IO (JSRef TimeRanges)-ghcjs_dom_html_media_element_get_played = undefined-#endif   htmlMediaElementGetPlayed ::                           (IsHTMLMediaElement self) => self -> IO (Maybe TimeRanges)@@ -548,17 +381,10 @@   = fmap TimeRanges . maybeJSNull <$>       (ghcjs_dom_html_media_element_get_played          (unHTMLMediaElement (toHTMLMediaElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"seekable\"]"         ghcjs_dom_html_media_element_get_seekable ::         JSRef HTMLMediaElement -> IO (JSRef TimeRanges)-#else -ghcjs_dom_html_media_element_get_seekable ::-                                            JSRef HTMLMediaElement -> IO (JSRef TimeRanges)-ghcjs_dom_html_media_element_get_seekable = undefined-#endif   htmlMediaElementGetSeekable ::                             (IsHTMLMediaElement self) => self -> IO (Maybe TimeRanges)@@ -566,34 +392,20 @@   = fmap TimeRanges . maybeJSNull <$>       (ghcjs_dom_html_media_element_get_seekable          (unHTMLMediaElement (toHTMLMediaElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"ended\"] ? 1 : 0)"         ghcjs_dom_html_media_element_get_ended ::         JSRef HTMLMediaElement -> IO Bool-#else -ghcjs_dom_html_media_element_get_ended ::-                                         JSRef HTMLMediaElement -> IO Bool-ghcjs_dom_html_media_element_get_ended = undefined-#endif   htmlMediaElementGetEnded ::                          (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetEnded self   = ghcjs_dom_html_media_element_get_ended       (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"autoplay\"] = $2;"         ghcjs_dom_html_media_element_set_autoplay ::         JSRef HTMLMediaElement -> Bool -> IO ()-#else -ghcjs_dom_html_media_element_set_autoplay ::-                                            JSRef HTMLMediaElement -> Bool -> IO ()-ghcjs_dom_html_media_element_set_autoplay = undefined-#endif   htmlMediaElementSetAutoplay ::                             (IsHTMLMediaElement self) => self -> Bool -> IO ()@@ -601,34 +413,20 @@   = ghcjs_dom_html_media_element_set_autoplay       (unHTMLMediaElement (toHTMLMediaElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"autoplay\"] ? 1 : 0)"         ghcjs_dom_html_media_element_get_autoplay ::         JSRef HTMLMediaElement -> IO Bool-#else -ghcjs_dom_html_media_element_get_autoplay ::-                                            JSRef HTMLMediaElement -> IO Bool-ghcjs_dom_html_media_element_get_autoplay = undefined-#endif   htmlMediaElementGetAutoplay ::                             (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetAutoplay self   = ghcjs_dom_html_media_element_get_autoplay       (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"loop\"] = $2;"         ghcjs_dom_html_media_element_set_loop ::         JSRef HTMLMediaElement -> Bool -> IO ()-#else -ghcjs_dom_html_media_element_set_loop ::-                                        JSRef HTMLMediaElement -> Bool -> IO ()-ghcjs_dom_html_media_element_set_loop = undefined-#endif   htmlMediaElementSetLoop ::                         (IsHTMLMediaElement self) => self -> Bool -> IO ()@@ -636,34 +434,20 @@   = ghcjs_dom_html_media_element_set_loop       (unHTMLMediaElement (toHTMLMediaElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"loop\"] ? 1 : 0)"         ghcjs_dom_html_media_element_get_loop ::         JSRef HTMLMediaElement -> IO Bool-#else -ghcjs_dom_html_media_element_get_loop ::-                                        JSRef HTMLMediaElement -> IO Bool-ghcjs_dom_html_media_element_get_loop = undefined-#endif   htmlMediaElementGetLoop ::                         (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetLoop self   = ghcjs_dom_html_media_element_get_loop       (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"controls\"] = $2;"         ghcjs_dom_html_media_element_set_controls ::         JSRef HTMLMediaElement -> Bool -> IO ()-#else -ghcjs_dom_html_media_element_set_controls ::-                                            JSRef HTMLMediaElement -> Bool -> IO ()-ghcjs_dom_html_media_element_set_controls = undefined-#endif   htmlMediaElementSetControls ::                             (IsHTMLMediaElement self) => self -> Bool -> IO ()@@ -671,34 +455,20 @@   = ghcjs_dom_html_media_element_set_controls       (unHTMLMediaElement (toHTMLMediaElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"controls\"] ? 1 : 0)"         ghcjs_dom_html_media_element_get_controls ::         JSRef HTMLMediaElement -> IO Bool-#else -ghcjs_dom_html_media_element_get_controls ::-                                            JSRef HTMLMediaElement -> IO Bool-ghcjs_dom_html_media_element_get_controls = undefined-#endif   htmlMediaElementGetControls ::                             (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetControls self   = ghcjs_dom_html_media_element_get_controls       (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"volume\"] = $2;"         ghcjs_dom_html_media_element_set_volume ::         JSRef HTMLMediaElement -> Double -> IO ()-#else -ghcjs_dom_html_media_element_set_volume ::-                                          JSRef HTMLMediaElement -> Double -> IO ()-ghcjs_dom_html_media_element_set_volume = undefined-#endif   htmlMediaElementSetVolume ::                           (IsHTMLMediaElement self) => self -> Double -> IO ()@@ -706,34 +476,20 @@   = ghcjs_dom_html_media_element_set_volume       (unHTMLMediaElement (toHTMLMediaElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"volume\"]"         ghcjs_dom_html_media_element_get_volume ::         JSRef HTMLMediaElement -> IO Double-#else -ghcjs_dom_html_media_element_get_volume ::-                                          JSRef HTMLMediaElement -> IO Double-ghcjs_dom_html_media_element_get_volume = undefined-#endif   htmlMediaElementGetVolume ::                           (IsHTMLMediaElement self) => self -> IO Double htmlMediaElementGetVolume self   = ghcjs_dom_html_media_element_get_volume       (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"muted\"] = $2;"         ghcjs_dom_html_media_element_set_muted ::         JSRef HTMLMediaElement -> Bool -> IO ()-#else -ghcjs_dom_html_media_element_set_muted ::-                                         JSRef HTMLMediaElement -> Bool -> IO ()-ghcjs_dom_html_media_element_set_muted = undefined-#endif   htmlMediaElementSetMuted ::                          (IsHTMLMediaElement self) => self -> Bool -> IO ()@@ -741,34 +497,20 @@   = ghcjs_dom_html_media_element_set_muted       (unHTMLMediaElement (toHTMLMediaElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"muted\"] ? 1 : 0)"         ghcjs_dom_html_media_element_get_muted ::         JSRef HTMLMediaElement -> IO Bool-#else -ghcjs_dom_html_media_element_get_muted ::-                                         JSRef HTMLMediaElement -> IO Bool-ghcjs_dom_html_media_element_get_muted = undefined-#endif   htmlMediaElementGetMuted ::                          (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetMuted self   = ghcjs_dom_html_media_element_get_muted       (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"defaultMuted\"] = $2;"         ghcjs_dom_html_media_element_set_default_muted ::         JSRef HTMLMediaElement -> Bool -> IO ()-#else -ghcjs_dom_html_media_element_set_default_muted ::-                                                 JSRef HTMLMediaElement -> Bool -> IO ()-ghcjs_dom_html_media_element_set_default_muted = undefined-#endif   htmlMediaElementSetDefaultMuted ::                                 (IsHTMLMediaElement self) => self -> Bool -> IO ()@@ -776,35 +518,77 @@   = ghcjs_dom_html_media_element_set_default_muted       (unHTMLMediaElement (toHTMLMediaElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"defaultMuted\"] ? 1 : 0)"         ghcjs_dom_html_media_element_get_default_muted ::         JSRef HTMLMediaElement -> IO Bool-#else -ghcjs_dom_html_media_element_get_default_muted ::-                                                 JSRef HTMLMediaElement -> IO Bool-ghcjs_dom_html_media_element_get_default_muted = undefined-#endif   htmlMediaElementGetDefaultMuted ::                                 (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetDefaultMuted self   = ghcjs_dom_html_media_element_get_default_muted       (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS + +htmlMediaElementOnemptied ::+                          (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())+htmlMediaElementOnemptied = (connect "emptied")+ +htmlMediaElementOnloadedmetadata ::+                                 (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())+htmlMediaElementOnloadedmetadata = (connect "loadedmetadata")+ +htmlMediaElementOnloadeddata ::+                             (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())+htmlMediaElementOnloadeddata = (connect "loadeddata")+ +htmlMediaElementOncanplay ::+                          (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())+htmlMediaElementOncanplay = (connect "canplay")+ +htmlMediaElementOncanplaythrough ::+                                 (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())+htmlMediaElementOncanplaythrough = (connect "canplaythrough")+ +htmlMediaElementOnplaying ::+                          (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())+htmlMediaElementOnplaying = (connect "playing")+ +htmlMediaElementOnended ::+                        (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())+htmlMediaElementOnended = (connect "ended")+ +htmlMediaElementOnwaiting ::+                          (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())+htmlMediaElementOnwaiting = (connect "waiting")+ +htmlMediaElementOndurationchange ::+                                 (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())+htmlMediaElementOndurationchange = (connect "durationchange")+ +htmlMediaElementOntimeupdate ::+                             (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())+htmlMediaElementOntimeupdate = (connect "timeupdate")+ +htmlMediaElementOnplay ::+                       (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())+htmlMediaElementOnplay = (connect "play")+ +htmlMediaElementOnpause ::+                        (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())+htmlMediaElementOnpause = (connect "pause")+ +htmlMediaElementOnratechange ::+                             (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())+htmlMediaElementOnratechange = (connect "ratechange")+ +htmlMediaElementOnvolumechange ::+                               (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ())+htmlMediaElementOnvolumechange = (connect "volumechange")+  foreign import javascript unsafe         "$1[\"webkitPreservesPitch\"] = $2;"         ghcjs_dom_html_media_element_set_webkit_preserves_pitch ::         JSRef HTMLMediaElement -> Bool -> IO ()-#else -ghcjs_dom_html_media_element_set_webkit_preserves_pitch ::-                                                          JSRef HTMLMediaElement -> Bool -> IO ()-ghcjs_dom_html_media_element_set_webkit_preserves_pitch = undefined-#endif   htmlMediaElementSetWebkitPreservesPitch ::                                         (IsHTMLMediaElement self) => self -> Bool -> IO ()@@ -812,57 +596,33 @@   = ghcjs_dom_html_media_element_set_webkit_preserves_pitch       (unHTMLMediaElement (toHTMLMediaElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"webkitPreservesPitch\"] ? 1 : 0)"         ghcjs_dom_html_media_element_get_webkit_preserves_pitch ::         JSRef HTMLMediaElement -> IO Bool-#else -ghcjs_dom_html_media_element_get_webkit_preserves_pitch ::-                                                          JSRef HTMLMediaElement -> IO Bool-ghcjs_dom_html_media_element_get_webkit_preserves_pitch = undefined-#endif   htmlMediaElementGetWebkitPreservesPitch ::                                         (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetWebkitPreservesPitch self   = ghcjs_dom_html_media_element_get_webkit_preserves_pitch       (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"webkitHasClosedCaptions\"] ? 1 : 0)"         ghcjs_dom_html_media_element_get_webkit_has_closed_captions ::         JSRef HTMLMediaElement -> IO Bool-#else -ghcjs_dom_html_media_element_get_webkit_has_closed_captions ::-                                                              JSRef HTMLMediaElement -> IO Bool-ghcjs_dom_html_media_element_get_webkit_has_closed_captions-  = undefined-#endif   htmlMediaElementGetWebkitHasClosedCaptions ::                                            (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetWebkitHasClosedCaptions self   = ghcjs_dom_html_media_element_get_webkit_has_closed_captions       (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"webkitClosedCaptionsVisible\"] = $2;"         ghcjs_dom_html_media_element_set_webkit_closed_captions_visible ::         JSRef HTMLMediaElement -> Bool -> IO ()-#else -ghcjs_dom_html_media_element_set_webkit_closed_captions_visible ::-                                                                  JSRef HTMLMediaElement ->-                                                                    Bool -> IO ()-ghcjs_dom_html_media_element_set_webkit_closed_captions_visible-  = undefined-#endif   htmlMediaElementSetWebkitClosedCaptionsVisible ::                                                (IsHTMLMediaElement self) => self -> Bool -> IO ()@@ -870,57 +630,33 @@   = ghcjs_dom_html_media_element_set_webkit_closed_captions_visible       (unHTMLMediaElement (toHTMLMediaElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"webkitClosedCaptionsVisible\"] ? 1 : 0)"         ghcjs_dom_html_media_element_get_webkit_closed_captions_visible ::         JSRef HTMLMediaElement -> IO Bool-#else -ghcjs_dom_html_media_element_get_webkit_closed_captions_visible ::-                                                                  JSRef HTMLMediaElement -> IO Bool-ghcjs_dom_html_media_element_get_webkit_closed_captions_visible-  = undefined-#endif   htmlMediaElementGetWebkitClosedCaptionsVisible ::                                                (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetWebkitClosedCaptionsVisible self   = ghcjs_dom_html_media_element_get_webkit_closed_captions_visible       (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"webkitAudioDecodedByteCount\"]"         ghcjs_dom_html_media_element_get_webkit_audio_decoded_byte_count ::         JSRef HTMLMediaElement -> IO Word-#else -ghcjs_dom_html_media_element_get_webkit_audio_decoded_byte_count ::-                                                                   JSRef HTMLMediaElement -> IO Word-ghcjs_dom_html_media_element_get_webkit_audio_decoded_byte_count-  = undefined-#endif   htmlMediaElementGetWebkitAudioDecodedByteCount ::                                                (IsHTMLMediaElement self) => self -> IO Word htmlMediaElementGetWebkitAudioDecodedByteCount self   = ghcjs_dom_html_media_element_get_webkit_audio_decoded_byte_count       (unHTMLMediaElement (toHTMLMediaElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"webkitVideoDecodedByteCount\"]"         ghcjs_dom_html_media_element_get_webkit_video_decoded_byte_count ::         JSRef HTMLMediaElement -> IO Word-#else -ghcjs_dom_html_media_element_get_webkit_video_decoded_byte_count ::-                                                                   JSRef HTMLMediaElement -> IO Word-ghcjs_dom_html_media_element_get_webkit_video_decoded_byte_count-  = undefined-#endif   htmlMediaElementGetWebkitVideoDecodedByteCount ::                                                (IsHTMLMediaElement self) => self -> IO Word@@ -931,17 +667,10 @@ htmlMediaElementOnwebkitneedkey ::                                 (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ()) htmlMediaElementOnwebkitneedkey = (connect "webkitneedkey")---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"mediaGroup\"] = $2;"         ghcjs_dom_html_media_element_set_media_group ::         JSRef HTMLMediaElement -> JSString -> IO ()-#else -ghcjs_dom_html_media_element_set_media_group ::-                                               JSRef HTMLMediaElement -> JSString -> IO ()-ghcjs_dom_html_media_element_set_media_group = undefined-#endif   htmlMediaElementSetMediaGroup ::                               (IsHTMLMediaElement self, ToJSString val) => self -> val -> IO ()@@ -949,17 +678,10 @@   = ghcjs_dom_html_media_element_set_media_group       (unHTMLMediaElement (toHTMLMediaElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"mediaGroup\"]"         ghcjs_dom_html_media_element_get_media_group ::         JSRef HTMLMediaElement -> IO JSString-#else -ghcjs_dom_html_media_element_get_media_group ::-                                               JSRef HTMLMediaElement -> IO JSString-ghcjs_dom_html_media_element_get_media_group = undefined-#endif   htmlMediaElementGetMediaGroup ::                               (IsHTMLMediaElement self, FromJSString result) => self -> IO result@@ -967,6 +689,31 @@   = fromJSString <$>       (ghcjs_dom_html_media_element_get_media_group          (unHTMLMediaElement (toHTMLMediaElement self)))+ +foreign import javascript unsafe+        "($1[\"webkitCurrentPlaybackTargetIsWireless\"] ? 1 : 0)"+        ghcjs_dom_html_media_element_get_webkit_current_playback_target_is_wireless+        :: JSRef HTMLMediaElement -> IO Bool+ +htmlMediaElementGetWebkitCurrentPlaybackTargetIsWireless ::+                                                         (IsHTMLMediaElement self) =>+                                                           self -> IO Bool+htmlMediaElementGetWebkitCurrentPlaybackTargetIsWireless self+  = ghcjs_dom_html_media_element_get_webkit_current_playback_target_is_wireless+      (unHTMLMediaElement (toHTMLMediaElement self))+ +htmlMediaElementOnwebkitcurrentplaybacktargetiswirelesschanged ::+                                                               (IsHTMLMediaElement self) =>+                                                                 Signal self+                                                                   (EventM UIEvent self ())+htmlMediaElementOnwebkitcurrentplaybacktargetiswirelesschanged+  = (connect "webkitcurrentplaybacktargetiswirelesschanged")+ +htmlMediaElementOnwebkitplaybacktargetavailabilitychanged ::+                                                          (IsHTMLMediaElement self) =>+                                                            Signal self (EventM UIEvent self ())+htmlMediaElementOnwebkitplaybacktargetavailabilitychanged+  = (connect "webkitplaybacktargetavailabilitychanged") #else module GHCJS.DOM.HTMLMediaElement (   module Graphics.UI.Gtk.WebKit.DOM.HTMLMediaElement

src/GHCJS/DOM/HTMLMenuElement.hs view

@@ -9,28 +9,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"compact\"] = $2;"         ghcjs_dom_html_menu_element_set_compact ::         JSRef HTMLMenuElement -> Bool -> IO ()-#else -ghcjs_dom_html_menu_element_set_compact ::-                                          JSRef HTMLMenuElement -> Bool -> IO ()-ghcjs_dom_html_menu_element_set_compact = undefined-#endif   htmlMenuElementSetCompact ::                           (IsHTMLMenuElement self) => self -> Bool -> IO ()@@ -38,17 +27,10 @@   = ghcjs_dom_html_menu_element_set_compact       (unHTMLMenuElement (toHTMLMenuElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"         ghcjs_dom_html_menu_element_get_compact ::         JSRef HTMLMenuElement -> IO Bool-#else -ghcjs_dom_html_menu_element_get_compact ::-                                          JSRef HTMLMenuElement -> IO Bool-ghcjs_dom_html_menu_element_get_compact = undefined-#endif   htmlMenuElementGetCompact ::                           (IsHTMLMenuElement self) => self -> IO Bool

src/GHCJS/DOM/HTMLMetaElement.hs view

@@ -17,28 +17,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"content\"] = $2;"         ghcjs_dom_html_meta_element_set_content ::         JSRef HTMLMetaElement -> JSString -> IO ()-#else -ghcjs_dom_html_meta_element_set_content ::-                                          JSRef HTMLMetaElement -> JSString -> IO ()-ghcjs_dom_html_meta_element_set_content = undefined-#endif   htmlMetaElementSetContent ::                           (IsHTMLMetaElement self, ToJSString val) => self -> val -> IO ()@@ -46,17 +35,10 @@   = ghcjs_dom_html_meta_element_set_content       (unHTMLMetaElement (toHTMLMetaElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"content\"]"         ghcjs_dom_html_meta_element_get_content ::         JSRef HTMLMetaElement -> IO JSString-#else -ghcjs_dom_html_meta_element_get_content ::-                                          JSRef HTMLMetaElement -> IO JSString-ghcjs_dom_html_meta_element_get_content = undefined-#endif   htmlMetaElementGetContent ::                           (IsHTMLMetaElement self, FromJSString result) => self -> IO result@@ -64,17 +46,10 @@   = fromJSString <$>       (ghcjs_dom_html_meta_element_get_content          (unHTMLMetaElement (toHTMLMetaElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"httpEquiv\"] = $2;"         ghcjs_dom_html_meta_element_set_http_equiv ::         JSRef HTMLMetaElement -> JSString -> IO ()-#else -ghcjs_dom_html_meta_element_set_http_equiv ::-                                             JSRef HTMLMetaElement -> JSString -> IO ()-ghcjs_dom_html_meta_element_set_http_equiv = undefined-#endif   htmlMetaElementSetHttpEquiv ::                             (IsHTMLMetaElement self, ToJSString val) => self -> val -> IO ()@@ -82,17 +57,10 @@   = ghcjs_dom_html_meta_element_set_http_equiv       (unHTMLMetaElement (toHTMLMetaElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"httpEquiv\"]"         ghcjs_dom_html_meta_element_get_http_equiv ::         JSRef HTMLMetaElement -> IO JSString-#else -ghcjs_dom_html_meta_element_get_http_equiv ::-                                             JSRef HTMLMetaElement -> IO JSString-ghcjs_dom_html_meta_element_get_http_equiv = undefined-#endif   htmlMetaElementGetHttpEquiv ::                             (IsHTMLMetaElement self, FromJSString result) => self -> IO result@@ -100,17 +68,10 @@   = fromJSString <$>       (ghcjs_dom_html_meta_element_get_http_equiv          (unHTMLMetaElement (toHTMLMetaElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_meta_element_set_name ::         JSRef HTMLMetaElement -> JSString -> IO ()-#else -ghcjs_dom_html_meta_element_set_name ::-                                       JSRef HTMLMetaElement -> JSString -> IO ()-ghcjs_dom_html_meta_element_set_name = undefined-#endif   htmlMetaElementSetName ::                        (IsHTMLMetaElement self, ToJSString val) => self -> val -> IO ()@@ -118,17 +79,10 @@   = ghcjs_dom_html_meta_element_set_name       (unHTMLMetaElement (toHTMLMetaElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_meta_element_get_name ::         JSRef HTMLMetaElement -> IO JSString-#else -ghcjs_dom_html_meta_element_get_name ::-                                       JSRef HTMLMetaElement -> IO JSString-ghcjs_dom_html_meta_element_get_name = undefined-#endif   htmlMetaElementGetName ::                        (IsHTMLMetaElement self, FromJSString result) => self -> IO result@@ -136,17 +90,10 @@   = fromJSString <$>       (ghcjs_dom_html_meta_element_get_name          (unHTMLMetaElement (toHTMLMetaElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scheme\"] = $2;"         ghcjs_dom_html_meta_element_set_scheme ::         JSRef HTMLMetaElement -> JSString -> IO ()-#else -ghcjs_dom_html_meta_element_set_scheme ::-                                         JSRef HTMLMetaElement -> JSString -> IO ()-ghcjs_dom_html_meta_element_set_scheme = undefined-#endif   htmlMetaElementSetScheme ::                          (IsHTMLMetaElement self, ToJSString val) => self -> val -> IO ()@@ -154,17 +101,10 @@   = ghcjs_dom_html_meta_element_set_scheme       (unHTMLMetaElement (toHTMLMetaElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scheme\"]"         ghcjs_dom_html_meta_element_get_scheme ::         JSRef HTMLMetaElement -> IO JSString-#else -ghcjs_dom_html_meta_element_get_scheme ::-                                         JSRef HTMLMetaElement -> IO JSString-ghcjs_dom_html_meta_element_get_scheme = undefined-#endif   htmlMetaElementGetScheme ::                          (IsHTMLMetaElement self, FromJSString result) => self -> IO result

src/GHCJS/DOM/HTMLModElement.hs view

@@ -12,28 +12,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"cite\"] = $2;"         ghcjs_dom_html_mod_element_set_cite ::         JSRef HTMLModElement -> JSString -> IO ()-#else -ghcjs_dom_html_mod_element_set_cite ::-                                      JSRef HTMLModElement -> JSString -> IO ()-ghcjs_dom_html_mod_element_set_cite = undefined-#endif   htmlModElementSetCite ::                       (IsHTMLModElement self, ToJSString val) => self -> val -> IO ()@@ -41,17 +30,10 @@   = ghcjs_dom_html_mod_element_set_cite       (unHTMLModElement (toHTMLModElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"cite\"]"         ghcjs_dom_html_mod_element_get_cite ::         JSRef HTMLModElement -> IO JSString-#else -ghcjs_dom_html_mod_element_get_cite ::-                                      JSRef HTMLModElement -> IO JSString-ghcjs_dom_html_mod_element_get_cite = undefined-#endif   htmlModElementGetCite ::                       (IsHTMLModElement self, FromJSString result) => self -> IO result@@ -59,17 +41,10 @@   = fromJSString <$>       (ghcjs_dom_html_mod_element_get_cite          (unHTMLModElement (toHTMLModElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"dateTime\"] = $2;"         ghcjs_dom_html_mod_element_set_date_time ::         JSRef HTMLModElement -> JSString -> IO ()-#else -ghcjs_dom_html_mod_element_set_date_time ::-                                           JSRef HTMLModElement -> JSString -> IO ()-ghcjs_dom_html_mod_element_set_date_time = undefined-#endif   htmlModElementSetDateTime ::                           (IsHTMLModElement self, ToJSString val) => self -> val -> IO ()@@ -77,17 +52,10 @@   = ghcjs_dom_html_mod_element_set_date_time       (unHTMLModElement (toHTMLModElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"dateTime\"]"         ghcjs_dom_html_mod_element_get_date_time ::         JSRef HTMLModElement -> IO JSString-#else -ghcjs_dom_html_mod_element_get_date_time ::-                                           JSRef HTMLModElement -> IO JSString-ghcjs_dom_html_mod_element_get_date_time = undefined-#endif   htmlModElementGetDateTime ::                           (IsHTMLModElement self, FromJSString result) => self -> IO result

src/GHCJS/DOM/HTMLOListElement.hs view

@@ -16,28 +16,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"compact\"] = $2;"         ghcjs_dom_htmlo_list_element_set_compact ::         JSRef HTMLOListElement -> Bool -> IO ()-#else -ghcjs_dom_htmlo_list_element_set_compact ::-                                           JSRef HTMLOListElement -> Bool -> IO ()-ghcjs_dom_htmlo_list_element_set_compact = undefined-#endif   htmloListElementSetCompact ::                            (IsHTMLOListElement self) => self -> Bool -> IO ()@@ -45,34 +34,20 @@   = ghcjs_dom_htmlo_list_element_set_compact       (unHTMLOListElement (toHTMLOListElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"         ghcjs_dom_htmlo_list_element_get_compact ::         JSRef HTMLOListElement -> IO Bool-#else -ghcjs_dom_htmlo_list_element_get_compact ::-                                           JSRef HTMLOListElement -> IO Bool-ghcjs_dom_htmlo_list_element_get_compact = undefined-#endif   htmloListElementGetCompact ::                            (IsHTMLOListElement self) => self -> IO Bool htmloListElementGetCompact self   = ghcjs_dom_htmlo_list_element_get_compact       (unHTMLOListElement (toHTMLOListElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"start\"] = $2;"         ghcjs_dom_htmlo_list_element_set_start ::         JSRef HTMLOListElement -> Int -> IO ()-#else -ghcjs_dom_htmlo_list_element_set_start ::-                                         JSRef HTMLOListElement -> Int -> IO ()-ghcjs_dom_htmlo_list_element_set_start = undefined-#endif   htmloListElementSetStart ::                          (IsHTMLOListElement self) => self -> Int -> IO ()@@ -80,34 +55,20 @@   = ghcjs_dom_htmlo_list_element_set_start       (unHTMLOListElement (toHTMLOListElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"start\"]"         ghcjs_dom_htmlo_list_element_get_start ::         JSRef HTMLOListElement -> IO Int-#else -ghcjs_dom_htmlo_list_element_get_start ::-                                         JSRef HTMLOListElement -> IO Int-ghcjs_dom_htmlo_list_element_get_start = undefined-#endif   htmloListElementGetStart ::                          (IsHTMLOListElement self) => self -> IO Int htmloListElementGetStart self   = ghcjs_dom_htmlo_list_element_get_start       (unHTMLOListElement (toHTMLOListElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"reversed\"] = $2;"         ghcjs_dom_htmlo_list_element_set_reversed ::         JSRef HTMLOListElement -> Bool -> IO ()-#else -ghcjs_dom_htmlo_list_element_set_reversed ::-                                            JSRef HTMLOListElement -> Bool -> IO ()-ghcjs_dom_htmlo_list_element_set_reversed = undefined-#endif   htmloListElementSetReversed ::                             (IsHTMLOListElement self) => self -> Bool -> IO ()@@ -115,17 +76,10 @@   = ghcjs_dom_htmlo_list_element_set_reversed       (unHTMLOListElement (toHTMLOListElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"reversed\"] ? 1 : 0)"         ghcjs_dom_htmlo_list_element_get_reversed ::         JSRef HTMLOListElement -> IO Bool-#else -ghcjs_dom_htmlo_list_element_get_reversed ::-                                            JSRef HTMLOListElement -> IO Bool-ghcjs_dom_htmlo_list_element_get_reversed = undefined-#endif   htmloListElementGetReversed ::                             (IsHTMLOListElement self) => self -> IO Bool

src/GHCJS/DOM/HTMLObjectElement.hs view

@@ -70,46 +70,28 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)"         ghcjs_dom_html_object_element_check_validity ::         JSRef HTMLObjectElement -> IO Bool-#else -ghcjs_dom_html_object_element_check_validity ::-                                               JSRef HTMLObjectElement -> IO Bool-ghcjs_dom_html_object_element_check_validity = undefined-#endif   htmlObjectElementCheckValidity ::                                (IsHTMLObjectElement self) => self -> IO Bool htmlObjectElementCheckValidity self   = ghcjs_dom_html_object_element_check_validity       (unHTMLObjectElement (toHTMLObjectElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         ghcjs_dom_html_object_element_set_custom_validity ::         JSRef HTMLObjectElement -> JSString -> IO ()-#else -ghcjs_dom_html_object_element_set_custom_validity ::-                                                    JSRef HTMLObjectElement -> JSString -> IO ()-ghcjs_dom_html_object_element_set_custom_validity = undefined-#endif   htmlObjectElementSetCustomValidity ::                                    (IsHTMLObjectElement self, ToJSString error) =>@@ -118,17 +100,10 @@   = ghcjs_dom_html_object_element_set_custom_validity       (unHTMLObjectElement (toHTMLObjectElement self))       (toJSString error)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"form\"]"         ghcjs_dom_html_object_element_get_form ::         JSRef HTMLObjectElement -> IO (JSRef HTMLFormElement)-#else -ghcjs_dom_html_object_element_get_form ::-                                         JSRef HTMLObjectElement -> IO (JSRef HTMLFormElement)-ghcjs_dom_html_object_element_get_form = undefined-#endif   htmlObjectElementGetForm ::                          (IsHTMLObjectElement self) => self -> IO (Maybe HTMLFormElement)@@ -136,17 +111,10 @@   = fmap HTMLFormElement . maybeJSNull <$>       (ghcjs_dom_html_object_element_get_form          (unHTMLObjectElement (toHTMLObjectElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"code\"] = $2;"         ghcjs_dom_html_object_element_set_code ::         JSRef HTMLObjectElement -> JSString -> IO ()-#else -ghcjs_dom_html_object_element_set_code ::-                                         JSRef HTMLObjectElement -> JSString -> IO ()-ghcjs_dom_html_object_element_set_code = undefined-#endif   htmlObjectElementSetCode ::                          (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()@@ -154,17 +122,10 @@   = ghcjs_dom_html_object_element_set_code       (unHTMLObjectElement (toHTMLObjectElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"code\"]"         ghcjs_dom_html_object_element_get_code ::         JSRef HTMLObjectElement -> IO JSString-#else -ghcjs_dom_html_object_element_get_code ::-                                         JSRef HTMLObjectElement -> IO JSString-ghcjs_dom_html_object_element_get_code = undefined-#endif   htmlObjectElementGetCode ::                          (IsHTMLObjectElement self, FromJSString result) =>@@ -173,17 +134,10 @@   = fromJSString <$>       (ghcjs_dom_html_object_element_get_code          (unHTMLObjectElement (toHTMLObjectElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_object_element_set_align ::         JSRef HTMLObjectElement -> JSString -> IO ()-#else -ghcjs_dom_html_object_element_set_align ::-                                          JSRef HTMLObjectElement -> JSString -> IO ()-ghcjs_dom_html_object_element_set_align = undefined-#endif   htmlObjectElementSetAlign ::                           (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()@@ -191,17 +145,10 @@   = ghcjs_dom_html_object_element_set_align       (unHTMLObjectElement (toHTMLObjectElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_object_element_get_align ::         JSRef HTMLObjectElement -> IO JSString-#else -ghcjs_dom_html_object_element_get_align ::-                                          JSRef HTMLObjectElement -> IO JSString-ghcjs_dom_html_object_element_get_align = undefined-#endif   htmlObjectElementGetAlign ::                           (IsHTMLObjectElement self, FromJSString result) =>@@ -210,17 +157,10 @@   = fromJSString <$>       (ghcjs_dom_html_object_element_get_align          (unHTMLObjectElement (toHTMLObjectElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"archive\"] = $2;"         ghcjs_dom_html_object_element_set_archive ::         JSRef HTMLObjectElement -> JSString -> IO ()-#else -ghcjs_dom_html_object_element_set_archive ::-                                            JSRef HTMLObjectElement -> JSString -> IO ()-ghcjs_dom_html_object_element_set_archive = undefined-#endif   htmlObjectElementSetArchive ::                             (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()@@ -228,17 +168,10 @@   = ghcjs_dom_html_object_element_set_archive       (unHTMLObjectElement (toHTMLObjectElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"archive\"]"         ghcjs_dom_html_object_element_get_archive ::         JSRef HTMLObjectElement -> IO JSString-#else -ghcjs_dom_html_object_element_get_archive ::-                                            JSRef HTMLObjectElement -> IO JSString-ghcjs_dom_html_object_element_get_archive = undefined-#endif   htmlObjectElementGetArchive ::                             (IsHTMLObjectElement self, FromJSString result) =>@@ -247,17 +180,10 @@   = fromJSString <$>       (ghcjs_dom_html_object_element_get_archive          (unHTMLObjectElement (toHTMLObjectElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"border\"] = $2;"         ghcjs_dom_html_object_element_set_border ::         JSRef HTMLObjectElement -> JSString -> IO ()-#else -ghcjs_dom_html_object_element_set_border ::-                                           JSRef HTMLObjectElement -> JSString -> IO ()-ghcjs_dom_html_object_element_set_border = undefined-#endif   htmlObjectElementSetBorder ::                            (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()@@ -265,17 +191,10 @@   = ghcjs_dom_html_object_element_set_border       (unHTMLObjectElement (toHTMLObjectElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"border\"]"         ghcjs_dom_html_object_element_get_border ::         JSRef HTMLObjectElement -> IO JSString-#else -ghcjs_dom_html_object_element_get_border ::-                                           JSRef HTMLObjectElement -> IO JSString-ghcjs_dom_html_object_element_get_border = undefined-#endif   htmlObjectElementGetBorder ::                            (IsHTMLObjectElement self, FromJSString result) =>@@ -284,17 +203,10 @@   = fromJSString <$>       (ghcjs_dom_html_object_element_get_border          (unHTMLObjectElement (toHTMLObjectElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"codeBase\"] = $2;"         ghcjs_dom_html_object_element_set_code_base ::         JSRef HTMLObjectElement -> JSString -> IO ()-#else -ghcjs_dom_html_object_element_set_code_base ::-                                              JSRef HTMLObjectElement -> JSString -> IO ()-ghcjs_dom_html_object_element_set_code_base = undefined-#endif   htmlObjectElementSetCodeBase ::                              (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()@@ -302,17 +214,10 @@   = ghcjs_dom_html_object_element_set_code_base       (unHTMLObjectElement (toHTMLObjectElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"codeBase\"]"         ghcjs_dom_html_object_element_get_code_base ::         JSRef HTMLObjectElement -> IO JSString-#else -ghcjs_dom_html_object_element_get_code_base ::-                                              JSRef HTMLObjectElement -> IO JSString-ghcjs_dom_html_object_element_get_code_base = undefined-#endif   htmlObjectElementGetCodeBase ::                              (IsHTMLObjectElement self, FromJSString result) =>@@ -321,17 +226,10 @@   = fromJSString <$>       (ghcjs_dom_html_object_element_get_code_base          (unHTMLObjectElement (toHTMLObjectElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"codeType\"] = $2;"         ghcjs_dom_html_object_element_set_code_type ::         JSRef HTMLObjectElement -> JSString -> IO ()-#else -ghcjs_dom_html_object_element_set_code_type ::-                                              JSRef HTMLObjectElement -> JSString -> IO ()-ghcjs_dom_html_object_element_set_code_type = undefined-#endif   htmlObjectElementSetCodeType ::                              (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()@@ -339,17 +237,10 @@   = ghcjs_dom_html_object_element_set_code_type       (unHTMLObjectElement (toHTMLObjectElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"codeType\"]"         ghcjs_dom_html_object_element_get_code_type ::         JSRef HTMLObjectElement -> IO JSString-#else -ghcjs_dom_html_object_element_get_code_type ::-                                              JSRef HTMLObjectElement -> IO JSString-ghcjs_dom_html_object_element_get_code_type = undefined-#endif   htmlObjectElementGetCodeType ::                              (IsHTMLObjectElement self, FromJSString result) =>@@ -358,17 +249,10 @@   = fromJSString <$>       (ghcjs_dom_html_object_element_get_code_type          (unHTMLObjectElement (toHTMLObjectElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"data\"] = $2;"         ghcjs_dom_html_object_element_set_data ::         JSRef HTMLObjectElement -> JSString -> IO ()-#else -ghcjs_dom_html_object_element_set_data ::-                                         JSRef HTMLObjectElement -> JSString -> IO ()-ghcjs_dom_html_object_element_set_data = undefined-#endif   htmlObjectElementSetData ::                          (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()@@ -376,17 +260,10 @@   = ghcjs_dom_html_object_element_set_data       (unHTMLObjectElement (toHTMLObjectElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"data\"]"         ghcjs_dom_html_object_element_get_data ::         JSRef HTMLObjectElement -> IO JSString-#else -ghcjs_dom_html_object_element_get_data ::-                                         JSRef HTMLObjectElement -> IO JSString-ghcjs_dom_html_object_element_get_data = undefined-#endif   htmlObjectElementGetData ::                          (IsHTMLObjectElement self, FromJSString result) =>@@ -395,17 +272,10 @@   = fromJSString <$>       (ghcjs_dom_html_object_element_get_data          (unHTMLObjectElement (toHTMLObjectElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"declare\"] = $2;"         ghcjs_dom_html_object_element_set_declare ::         JSRef HTMLObjectElement -> Bool -> IO ()-#else -ghcjs_dom_html_object_element_set_declare ::-                                            JSRef HTMLObjectElement -> Bool -> IO ()-ghcjs_dom_html_object_element_set_declare = undefined-#endif   htmlObjectElementSetDeclare ::                             (IsHTMLObjectElement self) => self -> Bool -> IO ()@@ -413,34 +283,20 @@   = ghcjs_dom_html_object_element_set_declare       (unHTMLObjectElement (toHTMLObjectElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"declare\"] ? 1 : 0)"         ghcjs_dom_html_object_element_get_declare ::         JSRef HTMLObjectElement -> IO Bool-#else -ghcjs_dom_html_object_element_get_declare ::-                                            JSRef HTMLObjectElement -> IO Bool-ghcjs_dom_html_object_element_get_declare = undefined-#endif   htmlObjectElementGetDeclare ::                             (IsHTMLObjectElement self) => self -> IO Bool htmlObjectElementGetDeclare self   = ghcjs_dom_html_object_element_get_declare       (unHTMLObjectElement (toHTMLObjectElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"height\"] = $2;"         ghcjs_dom_html_object_element_set_height ::         JSRef HTMLObjectElement -> JSString -> IO ()-#else -ghcjs_dom_html_object_element_set_height ::-                                           JSRef HTMLObjectElement -> JSString -> IO ()-ghcjs_dom_html_object_element_set_height = undefined-#endif   htmlObjectElementSetHeight ::                            (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()@@ -448,17 +304,10 @@   = ghcjs_dom_html_object_element_set_height       (unHTMLObjectElement (toHTMLObjectElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_object_element_get_height ::         JSRef HTMLObjectElement -> IO JSString-#else -ghcjs_dom_html_object_element_get_height ::-                                           JSRef HTMLObjectElement -> IO JSString-ghcjs_dom_html_object_element_get_height = undefined-#endif   htmlObjectElementGetHeight ::                            (IsHTMLObjectElement self, FromJSString result) =>@@ -467,17 +316,10 @@   = fromJSString <$>       (ghcjs_dom_html_object_element_get_height          (unHTMLObjectElement (toHTMLObjectElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"hspace\"] = $2;"         ghcjs_dom_html_object_element_set_hspace ::         JSRef HTMLObjectElement -> Int -> IO ()-#else -ghcjs_dom_html_object_element_set_hspace ::-                                           JSRef HTMLObjectElement -> Int -> IO ()-ghcjs_dom_html_object_element_set_hspace = undefined-#endif   htmlObjectElementSetHspace ::                            (IsHTMLObjectElement self) => self -> Int -> IO ()@@ -485,34 +327,20 @@   = ghcjs_dom_html_object_element_set_hspace       (unHTMLObjectElement (toHTMLObjectElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"hspace\"]"         ghcjs_dom_html_object_element_get_hspace ::         JSRef HTMLObjectElement -> IO Int-#else -ghcjs_dom_html_object_element_get_hspace ::-                                           JSRef HTMLObjectElement -> IO Int-ghcjs_dom_html_object_element_get_hspace = undefined-#endif   htmlObjectElementGetHspace ::                            (IsHTMLObjectElement self) => self -> IO Int htmlObjectElementGetHspace self   = ghcjs_dom_html_object_element_get_hspace       (unHTMLObjectElement (toHTMLObjectElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_object_element_set_name ::         JSRef HTMLObjectElement -> JSString -> IO ()-#else -ghcjs_dom_html_object_element_set_name ::-                                         JSRef HTMLObjectElement -> JSString -> IO ()-ghcjs_dom_html_object_element_set_name = undefined-#endif   htmlObjectElementSetName ::                          (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()@@ -520,17 +348,10 @@   = ghcjs_dom_html_object_element_set_name       (unHTMLObjectElement (toHTMLObjectElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_object_element_get_name ::         JSRef HTMLObjectElement -> IO JSString-#else -ghcjs_dom_html_object_element_get_name ::-                                         JSRef HTMLObjectElement -> IO JSString-ghcjs_dom_html_object_element_get_name = undefined-#endif   htmlObjectElementGetName ::                          (IsHTMLObjectElement self, FromJSString result) =>@@ -539,17 +360,10 @@   = fromJSString <$>       (ghcjs_dom_html_object_element_get_name          (unHTMLObjectElement (toHTMLObjectElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"standby\"] = $2;"         ghcjs_dom_html_object_element_set_standby ::         JSRef HTMLObjectElement -> JSString -> IO ()-#else -ghcjs_dom_html_object_element_set_standby ::-                                            JSRef HTMLObjectElement -> JSString -> IO ()-ghcjs_dom_html_object_element_set_standby = undefined-#endif   htmlObjectElementSetStandby ::                             (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()@@ -557,17 +371,10 @@   = ghcjs_dom_html_object_element_set_standby       (unHTMLObjectElement (toHTMLObjectElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"standby\"]"         ghcjs_dom_html_object_element_get_standby ::         JSRef HTMLObjectElement -> IO JSString-#else -ghcjs_dom_html_object_element_get_standby ::-                                            JSRef HTMLObjectElement -> IO JSString-ghcjs_dom_html_object_element_get_standby = undefined-#endif   htmlObjectElementGetStandby ::                             (IsHTMLObjectElement self, FromJSString result) =>@@ -576,17 +383,10 @@   = fromJSString <$>       (ghcjs_dom_html_object_element_get_standby          (unHTMLObjectElement (toHTMLObjectElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"useMap\"] = $2;"         ghcjs_dom_html_object_element_set_use_map ::         JSRef HTMLObjectElement -> JSString -> IO ()-#else -ghcjs_dom_html_object_element_set_use_map ::-                                            JSRef HTMLObjectElement -> JSString -> IO ()-ghcjs_dom_html_object_element_set_use_map = undefined-#endif   htmlObjectElementSetUseMap ::                            (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()@@ -594,17 +394,10 @@   = ghcjs_dom_html_object_element_set_use_map       (unHTMLObjectElement (toHTMLObjectElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"useMap\"]"         ghcjs_dom_html_object_element_get_use_map ::         JSRef HTMLObjectElement -> IO JSString-#else -ghcjs_dom_html_object_element_get_use_map ::-                                            JSRef HTMLObjectElement -> IO JSString-ghcjs_dom_html_object_element_get_use_map = undefined-#endif   htmlObjectElementGetUseMap ::                            (IsHTMLObjectElement self, FromJSString result) =>@@ -613,17 +406,10 @@   = fromJSString <$>       (ghcjs_dom_html_object_element_get_use_map          (unHTMLObjectElement (toHTMLObjectElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"vspace\"] = $2;"         ghcjs_dom_html_object_element_set_vspace ::         JSRef HTMLObjectElement -> Int -> IO ()-#else -ghcjs_dom_html_object_element_set_vspace ::-                                           JSRef HTMLObjectElement -> Int -> IO ()-ghcjs_dom_html_object_element_set_vspace = undefined-#endif   htmlObjectElementSetVspace ::                            (IsHTMLObjectElement self) => self -> Int -> IO ()@@ -631,34 +417,20 @@   = ghcjs_dom_html_object_element_set_vspace       (unHTMLObjectElement (toHTMLObjectElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"vspace\"]"         ghcjs_dom_html_object_element_get_vspace ::         JSRef HTMLObjectElement -> IO Int-#else -ghcjs_dom_html_object_element_get_vspace ::-                                           JSRef HTMLObjectElement -> IO Int-ghcjs_dom_html_object_element_get_vspace = undefined-#endif   htmlObjectElementGetVspace ::                            (IsHTMLObjectElement self) => self -> IO Int htmlObjectElementGetVspace self   = ghcjs_dom_html_object_element_get_vspace       (unHTMLObjectElement (toHTMLObjectElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_object_element_set_width ::         JSRef HTMLObjectElement -> JSString -> IO ()-#else -ghcjs_dom_html_object_element_set_width ::-                                          JSRef HTMLObjectElement -> JSString -> IO ()-ghcjs_dom_html_object_element_set_width = undefined-#endif   htmlObjectElementSetWidth ::                           (IsHTMLObjectElement self, ToJSString val) => self -> val -> IO ()@@ -666,17 +438,10 @@   = ghcjs_dom_html_object_element_set_width       (unHTMLObjectElement (toHTMLObjectElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_object_element_get_width ::         JSRef HTMLObjectElement -> IO JSString-#else -ghcjs_dom_html_object_element_get_width ::-                                          JSRef HTMLObjectElement -> IO JSString-ghcjs_dom_html_object_element_get_width = undefined-#endif   htmlObjectElementGetWidth ::                           (IsHTMLObjectElement self, FromJSString result) =>@@ -685,34 +450,20 @@   = fromJSString <$>       (ghcjs_dom_html_object_element_get_width          (unHTMLObjectElement (toHTMLObjectElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"         ghcjs_dom_html_object_element_get_will_validate ::         JSRef HTMLObjectElement -> IO Bool-#else -ghcjs_dom_html_object_element_get_will_validate ::-                                                  JSRef HTMLObjectElement -> IO Bool-ghcjs_dom_html_object_element_get_will_validate = undefined-#endif   htmlObjectElementGetWillValidate ::                                  (IsHTMLObjectElement self) => self -> IO Bool htmlObjectElementGetWillValidate self   = ghcjs_dom_html_object_element_get_will_validate       (unHTMLObjectElement (toHTMLObjectElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"validity\"]"         ghcjs_dom_html_object_element_get_validity ::         JSRef HTMLObjectElement -> IO (JSRef ValidityState)-#else -ghcjs_dom_html_object_element_get_validity ::-                                             JSRef HTMLObjectElement -> IO (JSRef ValidityState)-ghcjs_dom_html_object_element_get_validity = undefined-#endif   htmlObjectElementGetValidity ::                              (IsHTMLObjectElement self) => self -> IO (Maybe ValidityState)@@ -720,17 +471,10 @@   = fmap ValidityState . maybeJSNull <$>       (ghcjs_dom_html_object_element_get_validity          (unHTMLObjectElement (toHTMLObjectElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"validationMessage\"]"         ghcjs_dom_html_object_element_get_validation_message ::         JSRef HTMLObjectElement -> IO JSString-#else -ghcjs_dom_html_object_element_get_validation_message ::-                                                       JSRef HTMLObjectElement -> IO JSString-ghcjs_dom_html_object_element_get_validation_message = undefined-#endif   htmlObjectElementGetValidationMessage ::                                       (IsHTMLObjectElement self, FromJSString result) =>@@ -739,17 +483,10 @@   = fromJSString <$>       (ghcjs_dom_html_object_element_get_validation_message          (unHTMLObjectElement (toHTMLObjectElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"contentDocument\"]"         ghcjs_dom_html_object_element_get_content_document ::         JSRef HTMLObjectElement -> IO (JSRef Document)-#else -ghcjs_dom_html_object_element_get_content_document ::-                                                     JSRef HTMLObjectElement -> IO (JSRef Document)-ghcjs_dom_html_object_element_get_content_document = undefined-#endif   htmlObjectElementGetContentDocument ::                                     (IsHTMLObjectElement self) => self -> IO (Maybe Document)

src/GHCJS/DOM/HTMLOptGroupElement.hs view

@@ -15,28 +15,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"disabled\"] = $2;"         ghcjs_dom_html_opt_group_element_set_disabled ::         JSRef HTMLOptGroupElement -> Bool -> IO ()-#else -ghcjs_dom_html_opt_group_element_set_disabled ::-                                                JSRef HTMLOptGroupElement -> Bool -> IO ()-ghcjs_dom_html_opt_group_element_set_disabled = undefined-#endif   htmlOptGroupElementSetDisabled ::                                (IsHTMLOptGroupElement self) => self -> Bool -> IO ()@@ -44,34 +33,20 @@   = ghcjs_dom_html_opt_group_element_set_disabled       (unHTMLOptGroupElement (toHTMLOptGroupElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"         ghcjs_dom_html_opt_group_element_get_disabled ::         JSRef HTMLOptGroupElement -> IO Bool-#else -ghcjs_dom_html_opt_group_element_get_disabled ::-                                                JSRef HTMLOptGroupElement -> IO Bool-ghcjs_dom_html_opt_group_element_get_disabled = undefined-#endif   htmlOptGroupElementGetDisabled ::                                (IsHTMLOptGroupElement self) => self -> IO Bool htmlOptGroupElementGetDisabled self   = ghcjs_dom_html_opt_group_element_get_disabled       (unHTMLOptGroupElement (toHTMLOptGroupElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"label\"] = $2;"         ghcjs_dom_html_opt_group_element_set_label ::         JSRef HTMLOptGroupElement -> JSString -> IO ()-#else -ghcjs_dom_html_opt_group_element_set_label ::-                                             JSRef HTMLOptGroupElement -> JSString -> IO ()-ghcjs_dom_html_opt_group_element_set_label = undefined-#endif   htmlOptGroupElementSetLabel ::                             (IsHTMLOptGroupElement self, ToJSString val) =>@@ -80,17 +55,10 @@   = ghcjs_dom_html_opt_group_element_set_label       (unHTMLOptGroupElement (toHTMLOptGroupElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"label\"]"         ghcjs_dom_html_opt_group_element_get_label ::         JSRef HTMLOptGroupElement -> IO JSString-#else -ghcjs_dom_html_opt_group_element_get_label ::-                                             JSRef HTMLOptGroupElement -> IO JSString-ghcjs_dom_html_opt_group_element_get_label = undefined-#endif   htmlOptGroupElementGetLabel ::                             (IsHTMLOptGroupElement self, FromJSString result) =>

src/GHCJS/DOM/HTMLOptionElement.hs view

@@ -26,28 +26,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"disabled\"] = $2;"         ghcjs_dom_html_option_element_set_disabled ::         JSRef HTMLOptionElement -> Bool -> IO ()-#else -ghcjs_dom_html_option_element_set_disabled ::-                                             JSRef HTMLOptionElement -> Bool -> IO ()-ghcjs_dom_html_option_element_set_disabled = undefined-#endif   htmlOptionElementSetDisabled ::                              (IsHTMLOptionElement self) => self -> Bool -> IO ()@@ -55,34 +44,20 @@   = ghcjs_dom_html_option_element_set_disabled       (unHTMLOptionElement (toHTMLOptionElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"         ghcjs_dom_html_option_element_get_disabled ::         JSRef HTMLOptionElement -> IO Bool-#else -ghcjs_dom_html_option_element_get_disabled ::-                                             JSRef HTMLOptionElement -> IO Bool-ghcjs_dom_html_option_element_get_disabled = undefined-#endif   htmlOptionElementGetDisabled ::                              (IsHTMLOptionElement self) => self -> IO Bool htmlOptionElementGetDisabled self   = ghcjs_dom_html_option_element_get_disabled       (unHTMLOptionElement (toHTMLOptionElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"form\"]"         ghcjs_dom_html_option_element_get_form ::         JSRef HTMLOptionElement -> IO (JSRef HTMLFormElement)-#else -ghcjs_dom_html_option_element_get_form ::-                                         JSRef HTMLOptionElement -> IO (JSRef HTMLFormElement)-ghcjs_dom_html_option_element_get_form = undefined-#endif   htmlOptionElementGetForm ::                          (IsHTMLOptionElement self) => self -> IO (Maybe HTMLFormElement)@@ -90,17 +65,10 @@   = fmap HTMLFormElement . maybeJSNull <$>       (ghcjs_dom_html_option_element_get_form          (unHTMLOptionElement (toHTMLOptionElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"label\"] = $2;"         ghcjs_dom_html_option_element_set_label ::         JSRef HTMLOptionElement -> JSString -> IO ()-#else -ghcjs_dom_html_option_element_set_label ::-                                          JSRef HTMLOptionElement -> JSString -> IO ()-ghcjs_dom_html_option_element_set_label = undefined-#endif   htmlOptionElementSetLabel ::                           (IsHTMLOptionElement self, ToJSString val) => self -> val -> IO ()@@ -108,17 +76,10 @@   = ghcjs_dom_html_option_element_set_label       (unHTMLOptionElement (toHTMLOptionElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"label\"]"         ghcjs_dom_html_option_element_get_label ::         JSRef HTMLOptionElement -> IO JSString-#else -ghcjs_dom_html_option_element_get_label ::-                                          JSRef HTMLOptionElement -> IO JSString-ghcjs_dom_html_option_element_get_label = undefined-#endif   htmlOptionElementGetLabel ::                           (IsHTMLOptionElement self, FromJSString result) =>@@ -127,17 +88,10 @@   = fromJSString <$>       (ghcjs_dom_html_option_element_get_label          (unHTMLOptionElement (toHTMLOptionElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"defaultSelected\"] = $2;"         ghcjs_dom_html_option_element_set_default_selected ::         JSRef HTMLOptionElement -> Bool -> IO ()-#else -ghcjs_dom_html_option_element_set_default_selected ::-                                                     JSRef HTMLOptionElement -> Bool -> IO ()-ghcjs_dom_html_option_element_set_default_selected = undefined-#endif   htmlOptionElementSetDefaultSelected ::                                     (IsHTMLOptionElement self) => self -> Bool -> IO ()@@ -145,35 +99,21 @@   = ghcjs_dom_html_option_element_set_default_selected       (unHTMLOptionElement (toHTMLOptionElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"defaultSelected\"] ? 1 : 0)"         ghcjs_dom_html_option_element_get_default_selected ::         JSRef HTMLOptionElement -> IO Bool-#else -ghcjs_dom_html_option_element_get_default_selected ::-                                                     JSRef HTMLOptionElement -> IO Bool-ghcjs_dom_html_option_element_get_default_selected = undefined-#endif   htmlOptionElementGetDefaultSelected ::                                     (IsHTMLOptionElement self) => self -> IO Bool htmlOptionElementGetDefaultSelected self   = ghcjs_dom_html_option_element_get_default_selected       (unHTMLOptionElement (toHTMLOptionElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"selected\"] = $2;"         ghcjs_dom_html_option_element_set_selected ::         JSRef HTMLOptionElement -> Bool -> IO ()-#else -ghcjs_dom_html_option_element_set_selected ::-                                             JSRef HTMLOptionElement -> Bool -> IO ()-ghcjs_dom_html_option_element_set_selected = undefined-#endif   htmlOptionElementSetSelected ::                              (IsHTMLOptionElement self) => self -> Bool -> IO ()@@ -181,34 +121,20 @@   = ghcjs_dom_html_option_element_set_selected       (unHTMLOptionElement (toHTMLOptionElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"selected\"] ? 1 : 0)"         ghcjs_dom_html_option_element_get_selected ::         JSRef HTMLOptionElement -> IO Bool-#else -ghcjs_dom_html_option_element_get_selected ::-                                             JSRef HTMLOptionElement -> IO Bool-ghcjs_dom_html_option_element_get_selected = undefined-#endif   htmlOptionElementGetSelected ::                              (IsHTMLOptionElement self) => self -> IO Bool htmlOptionElementGetSelected self   = ghcjs_dom_html_option_element_get_selected       (unHTMLOptionElement (toHTMLOptionElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"value\"] = $2;"         ghcjs_dom_html_option_element_set_value ::         JSRef HTMLOptionElement -> JSString -> IO ()-#else -ghcjs_dom_html_option_element_set_value ::-                                          JSRef HTMLOptionElement -> JSString -> IO ()-ghcjs_dom_html_option_element_set_value = undefined-#endif   htmlOptionElementSetValue ::                           (IsHTMLOptionElement self, ToJSString val) => self -> val -> IO ()@@ -216,17 +142,10 @@   = ghcjs_dom_html_option_element_set_value       (unHTMLOptionElement (toHTMLOptionElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"value\"]"         ghcjs_dom_html_option_element_get_value ::         JSRef HTMLOptionElement -> IO JSString-#else -ghcjs_dom_html_option_element_get_value ::-                                          JSRef HTMLOptionElement -> IO JSString-ghcjs_dom_html_option_element_get_value = undefined-#endif   htmlOptionElementGetValue ::                           (IsHTMLOptionElement self, FromJSString result) =>@@ -235,17 +154,10 @@   = fromJSString <$>       (ghcjs_dom_html_option_element_get_value          (unHTMLOptionElement (toHTMLOptionElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"text\"]"         ghcjs_dom_html_option_element_get_text ::         JSRef HTMLOptionElement -> IO JSString-#else -ghcjs_dom_html_option_element_get_text ::-                                         JSRef HTMLOptionElement -> IO JSString-ghcjs_dom_html_option_element_get_text = undefined-#endif   htmlOptionElementGetText ::                          (IsHTMLOptionElement self, FromJSString result) =>@@ -254,17 +166,10 @@   = fromJSString <$>       (ghcjs_dom_html_option_element_get_text          (unHTMLOptionElement (toHTMLOptionElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"index\"]"         ghcjs_dom_html_option_element_get_index ::         JSRef HTMLOptionElement -> IO Int-#else -ghcjs_dom_html_option_element_get_index ::-                                          JSRef HTMLOptionElement -> IO Int-ghcjs_dom_html_option_element_get_index = undefined-#endif   htmlOptionElementGetIndex ::                           (IsHTMLOptionElement self) => self -> IO Int

src/GHCJS/DOM/HTMLOptionsCollection.hs view

@@ -13,29 +13,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"namedItem\"]($2)"         ghcjs_dom_html_options_collection_named_item ::         JSRef HTMLOptionsCollection -> JSString -> IO (JSRef Node)-#else -ghcjs_dom_html_options_collection_named_item ::-                                               JSRef HTMLOptionsCollection ->-                                                 JSString -> IO (JSRef Node)-ghcjs_dom_html_options_collection_named_item = undefined-#endif   htmlOptionsCollectionNamedItem ::                                (IsHTMLOptionsCollection self, ToJSString name) =>@@ -45,17 +33,10 @@       (ghcjs_dom_html_options_collection_named_item          (unHTMLOptionsCollection (toHTMLOptionsCollection self))          (toJSString name))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"selectedIndex\"] = $2;"         ghcjs_dom_html_options_collection_set_selected_index ::         JSRef HTMLOptionsCollection -> Int -> IO ()-#else -ghcjs_dom_html_options_collection_set_selected_index ::-                                                       JSRef HTMLOptionsCollection -> Int -> IO ()-ghcjs_dom_html_options_collection_set_selected_index = undefined-#endif   htmlOptionsCollectionSetSelectedIndex ::                                       (IsHTMLOptionsCollection self) => self -> Int -> IO ()@@ -63,17 +44,10 @@   = ghcjs_dom_html_options_collection_set_selected_index       (unHTMLOptionsCollection (toHTMLOptionsCollection self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"selectedIndex\"]"         ghcjs_dom_html_options_collection_get_selected_index ::         JSRef HTMLOptionsCollection -> IO Int-#else -ghcjs_dom_html_options_collection_get_selected_index ::-                                                       JSRef HTMLOptionsCollection -> IO Int-ghcjs_dom_html_options_collection_get_selected_index = undefined-#endif   htmlOptionsCollectionGetSelectedIndex ::                                       (IsHTMLOptionsCollection self) => self -> IO Int

src/GHCJS/DOM/HTMLParagraphElement.hs view

@@ -11,28 +11,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_paragraph_element_set_align ::         JSRef HTMLParagraphElement -> JSString -> IO ()-#else -ghcjs_dom_html_paragraph_element_set_align ::-                                             JSRef HTMLParagraphElement -> JSString -> IO ()-ghcjs_dom_html_paragraph_element_set_align = undefined-#endif   htmlParagraphElementSetAlign ::                              (IsHTMLParagraphElement self, ToJSString val) =>@@ -41,17 +30,10 @@   = ghcjs_dom_html_paragraph_element_set_align       (unHTMLParagraphElement (toHTMLParagraphElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_paragraph_element_get_align ::         JSRef HTMLParagraphElement -> IO JSString-#else -ghcjs_dom_html_paragraph_element_get_align ::-                                             JSRef HTMLParagraphElement -> IO JSString-ghcjs_dom_html_paragraph_element_get_align = undefined-#endif   htmlParagraphElementGetAlign ::                              (IsHTMLParagraphElement self, FromJSString result) =>

src/GHCJS/DOM/HTMLParamElement.hs view

@@ -14,28 +14,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_param_element_set_name ::         JSRef HTMLParamElement -> JSString -> IO ()-#else -ghcjs_dom_html_param_element_set_name ::-                                        JSRef HTMLParamElement -> JSString -> IO ()-ghcjs_dom_html_param_element_set_name = undefined-#endif   htmlParamElementSetName ::                         (IsHTMLParamElement self, ToJSString val) => self -> val -> IO ()@@ -43,17 +32,10 @@   = ghcjs_dom_html_param_element_set_name       (unHTMLParamElement (toHTMLParamElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_param_element_get_name ::         JSRef HTMLParamElement -> IO JSString-#else -ghcjs_dom_html_param_element_get_name ::-                                        JSRef HTMLParamElement -> IO JSString-ghcjs_dom_html_param_element_get_name = undefined-#endif   htmlParamElementGetName ::                         (IsHTMLParamElement self, FromJSString result) => self -> IO result@@ -61,17 +43,10 @@   = fromJSString <$>       (ghcjs_dom_html_param_element_get_name          (unHTMLParamElement (toHTMLParamElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"value\"] = $2;"         ghcjs_dom_html_param_element_set_value ::         JSRef HTMLParamElement -> JSString -> IO ()-#else -ghcjs_dom_html_param_element_set_value ::-                                         JSRef HTMLParamElement -> JSString -> IO ()-ghcjs_dom_html_param_element_set_value = undefined-#endif   htmlParamElementSetValue ::                          (IsHTMLParamElement self, ToJSString val) => self -> val -> IO ()@@ -79,17 +54,10 @@   = ghcjs_dom_html_param_element_set_value       (unHTMLParamElement (toHTMLParamElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"value\"]"         ghcjs_dom_html_param_element_get_value ::         JSRef HTMLParamElement -> IO JSString-#else -ghcjs_dom_html_param_element_get_value ::-                                         JSRef HTMLParamElement -> IO JSString-ghcjs_dom_html_param_element_get_value = undefined-#endif   htmlParamElementGetValue ::                          (IsHTMLParamElement self, FromJSString result) => self -> IO result@@ -97,17 +65,10 @@   = fromJSString <$>       (ghcjs_dom_html_param_element_get_value          (unHTMLParamElement (toHTMLParamElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"valueType\"] = $2;"         ghcjs_dom_html_param_element_set_value_type ::         JSRef HTMLParamElement -> JSString -> IO ()-#else -ghcjs_dom_html_param_element_set_value_type ::-                                              JSRef HTMLParamElement -> JSString -> IO ()-ghcjs_dom_html_param_element_set_value_type = undefined-#endif   htmlParamElementSetValueType ::                              (IsHTMLParamElement self, ToJSString val) => self -> val -> IO ()@@ -115,17 +76,10 @@   = ghcjs_dom_html_param_element_set_value_type       (unHTMLParamElement (toHTMLParamElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"valueType\"]"         ghcjs_dom_html_param_element_get_value_type ::         JSRef HTMLParamElement -> IO JSString-#else -ghcjs_dom_html_param_element_get_value_type ::-                                              JSRef HTMLParamElement -> IO JSString-ghcjs_dom_html_param_element_get_value_type = undefined-#endif   htmlParamElementGetValueType ::                              (IsHTMLParamElement self, FromJSString result) => self -> IO result

src/GHCJS/DOM/HTMLPreElement.hs view

@@ -11,28 +11,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_pre_element_set_width ::         JSRef HTMLPreElement -> Int -> IO ()-#else -ghcjs_dom_html_pre_element_set_width ::-                                       JSRef HTMLPreElement -> Int -> IO ()-ghcjs_dom_html_pre_element_set_width = undefined-#endif   htmlPreElementSetWidth ::                        (IsHTMLPreElement self) => self -> Int -> IO ()@@ -40,33 +29,19 @@   = ghcjs_dom_html_pre_element_set_width       (unHTMLPreElement (toHTMLPreElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_pre_element_get_width ::         JSRef HTMLPreElement -> IO Int-#else -ghcjs_dom_html_pre_element_get_width ::-                                       JSRef HTMLPreElement -> IO Int-ghcjs_dom_html_pre_element_get_width = undefined-#endif   htmlPreElementGetWidth :: (IsHTMLPreElement self) => self -> IO Int htmlPreElementGetWidth self   = ghcjs_dom_html_pre_element_get_width       (unHTMLPreElement (toHTMLPreElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"wrap\"] = $2;"         ghcjs_dom_html_pre_element_set_wrap ::         JSRef HTMLPreElement -> Bool -> IO ()-#else -ghcjs_dom_html_pre_element_set_wrap ::-                                      JSRef HTMLPreElement -> Bool -> IO ()-ghcjs_dom_html_pre_element_set_wrap = undefined-#endif   htmlPreElementSetWrap ::                       (IsHTMLPreElement self) => self -> Bool -> IO ()@@ -74,17 +49,10 @@   = ghcjs_dom_html_pre_element_set_wrap       (unHTMLPreElement (toHTMLPreElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"wrap\"] ? 1 : 0)"         ghcjs_dom_html_pre_element_get_wrap ::         JSRef HTMLPreElement -> IO Bool-#else -ghcjs_dom_html_pre_element_get_wrap ::-                                      JSRef HTMLPreElement -> IO Bool-ghcjs_dom_html_pre_element_get_wrap = undefined-#endif   htmlPreElementGetWrap :: (IsHTMLPreElement self) => self -> IO Bool htmlPreElementGetWrap self

src/GHCJS/DOM/HTMLQuoteElement.hs view

@@ -9,28 +9,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"cite\"] = $2;"         ghcjs_dom_html_quote_element_set_cite ::         JSRef HTMLQuoteElement -> JSString -> IO ()-#else -ghcjs_dom_html_quote_element_set_cite ::-                                        JSRef HTMLQuoteElement -> JSString -> IO ()-ghcjs_dom_html_quote_element_set_cite = undefined-#endif   htmlQuoteElementSetCite ::                         (IsHTMLQuoteElement self, ToJSString val) => self -> val -> IO ()@@ -38,17 +27,10 @@   = ghcjs_dom_html_quote_element_set_cite       (unHTMLQuoteElement (toHTMLQuoteElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"cite\"]"         ghcjs_dom_html_quote_element_get_cite ::         JSRef HTMLQuoteElement -> IO JSString-#else -ghcjs_dom_html_quote_element_get_cite ::-                                        JSRef HTMLQuoteElement -> IO JSString-ghcjs_dom_html_quote_element_get_cite = undefined-#endif   htmlQuoteElementGetCite ::                         (IsHTMLQuoteElement self, FromJSString result) => self -> IO result

src/GHCJS/DOM/HTMLScriptElement.hs view

@@ -31,28 +31,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"text\"] = $2;"         ghcjs_dom_html_script_element_set_text ::         JSRef HTMLScriptElement -> JSString -> IO ()-#else -ghcjs_dom_html_script_element_set_text ::-                                         JSRef HTMLScriptElement -> JSString -> IO ()-ghcjs_dom_html_script_element_set_text = undefined-#endif   htmlScriptElementSetText ::                          (IsHTMLScriptElement self, ToJSString val) => self -> val -> IO ()@@ -60,17 +49,10 @@   = ghcjs_dom_html_script_element_set_text       (unHTMLScriptElement (toHTMLScriptElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"text\"]"         ghcjs_dom_html_script_element_get_text ::         JSRef HTMLScriptElement -> IO JSString-#else -ghcjs_dom_html_script_element_get_text ::-                                         JSRef HTMLScriptElement -> IO JSString-ghcjs_dom_html_script_element_get_text = undefined-#endif   htmlScriptElementGetText ::                          (IsHTMLScriptElement self, FromJSString result) =>@@ -79,17 +61,10 @@   = fromJSString <$>       (ghcjs_dom_html_script_element_get_text          (unHTMLScriptElement (toHTMLScriptElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"htmlFor\"] = $2;"         ghcjs_dom_html_script_element_set_html_for ::         JSRef HTMLScriptElement -> JSString -> IO ()-#else -ghcjs_dom_html_script_element_set_html_for ::-                                             JSRef HTMLScriptElement -> JSString -> IO ()-ghcjs_dom_html_script_element_set_html_for = undefined-#endif   htmlScriptElementSetHtmlFor ::                             (IsHTMLScriptElement self, ToJSString val) => self -> val -> IO ()@@ -97,17 +72,10 @@   = ghcjs_dom_html_script_element_set_html_for       (unHTMLScriptElement (toHTMLScriptElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"htmlFor\"]"         ghcjs_dom_html_script_element_get_html_for ::         JSRef HTMLScriptElement -> IO JSString-#else -ghcjs_dom_html_script_element_get_html_for ::-                                             JSRef HTMLScriptElement -> IO JSString-ghcjs_dom_html_script_element_get_html_for = undefined-#endif   htmlScriptElementGetHtmlFor ::                             (IsHTMLScriptElement self, FromJSString result) =>@@ -116,17 +84,10 @@   = fromJSString <$>       (ghcjs_dom_html_script_element_get_html_for          (unHTMLScriptElement (toHTMLScriptElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"event\"] = $2;"         ghcjs_dom_html_script_element_set_event ::         JSRef HTMLScriptElement -> JSString -> IO ()-#else -ghcjs_dom_html_script_element_set_event ::-                                          JSRef HTMLScriptElement -> JSString -> IO ()-ghcjs_dom_html_script_element_set_event = undefined-#endif   htmlScriptElementSetEvent ::                           (IsHTMLScriptElement self, ToJSString val) => self -> val -> IO ()@@ -134,17 +95,10 @@   = ghcjs_dom_html_script_element_set_event       (unHTMLScriptElement (toHTMLScriptElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"event\"]"         ghcjs_dom_html_script_element_get_event ::         JSRef HTMLScriptElement -> IO JSString-#else -ghcjs_dom_html_script_element_get_event ::-                                          JSRef HTMLScriptElement -> IO JSString-ghcjs_dom_html_script_element_get_event = undefined-#endif   htmlScriptElementGetEvent ::                           (IsHTMLScriptElement self, FromJSString result) =>@@ -153,17 +107,10 @@   = fromJSString <$>       (ghcjs_dom_html_script_element_get_event          (unHTMLScriptElement (toHTMLScriptElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"charset\"] = $2;"         ghcjs_dom_html_script_element_set_charset ::         JSRef HTMLScriptElement -> JSString -> IO ()-#else -ghcjs_dom_html_script_element_set_charset ::-                                            JSRef HTMLScriptElement -> JSString -> IO ()-ghcjs_dom_html_script_element_set_charset = undefined-#endif   htmlScriptElementSetCharset ::                             (IsHTMLScriptElement self, ToJSString val) => self -> val -> IO ()@@ -171,17 +118,10 @@   = ghcjs_dom_html_script_element_set_charset       (unHTMLScriptElement (toHTMLScriptElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"charset\"]"         ghcjs_dom_html_script_element_get_charset ::         JSRef HTMLScriptElement -> IO JSString-#else -ghcjs_dom_html_script_element_get_charset ::-                                            JSRef HTMLScriptElement -> IO JSString-ghcjs_dom_html_script_element_get_charset = undefined-#endif   htmlScriptElementGetCharset ::                             (IsHTMLScriptElement self, FromJSString result) =>@@ -190,17 +130,10 @@   = fromJSString <$>       (ghcjs_dom_html_script_element_get_charset          (unHTMLScriptElement (toHTMLScriptElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"async\"] = $2;"         ghcjs_dom_html_script_element_set_async ::         JSRef HTMLScriptElement -> Bool -> IO ()-#else -ghcjs_dom_html_script_element_set_async ::-                                          JSRef HTMLScriptElement -> Bool -> IO ()-ghcjs_dom_html_script_element_set_async = undefined-#endif   htmlScriptElementSetAsync ::                           (IsHTMLScriptElement self) => self -> Bool -> IO ()@@ -208,34 +141,20 @@   = ghcjs_dom_html_script_element_set_async       (unHTMLScriptElement (toHTMLScriptElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"async\"] ? 1 : 0)"         ghcjs_dom_html_script_element_get_async ::         JSRef HTMLScriptElement -> IO Bool-#else -ghcjs_dom_html_script_element_get_async ::-                                          JSRef HTMLScriptElement -> IO Bool-ghcjs_dom_html_script_element_get_async = undefined-#endif   htmlScriptElementGetAsync ::                           (IsHTMLScriptElement self) => self -> IO Bool htmlScriptElementGetAsync self   = ghcjs_dom_html_script_element_get_async       (unHTMLScriptElement (toHTMLScriptElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"defer\"] = $2;"         ghcjs_dom_html_script_element_set_defer ::         JSRef HTMLScriptElement -> Bool -> IO ()-#else -ghcjs_dom_html_script_element_set_defer ::-                                          JSRef HTMLScriptElement -> Bool -> IO ()-ghcjs_dom_html_script_element_set_defer = undefined-#endif   htmlScriptElementSetDefer ::                           (IsHTMLScriptElement self) => self -> Bool -> IO ()@@ -243,34 +162,20 @@   = ghcjs_dom_html_script_element_set_defer       (unHTMLScriptElement (toHTMLScriptElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"defer\"] ? 1 : 0)"         ghcjs_dom_html_script_element_get_defer ::         JSRef HTMLScriptElement -> IO Bool-#else -ghcjs_dom_html_script_element_get_defer ::-                                          JSRef HTMLScriptElement -> IO Bool-ghcjs_dom_html_script_element_get_defer = undefined-#endif   htmlScriptElementGetDefer ::                           (IsHTMLScriptElement self) => self -> IO Bool htmlScriptElementGetDefer self   = ghcjs_dom_html_script_element_get_defer       (unHTMLScriptElement (toHTMLScriptElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"src\"] = $2;"         ghcjs_dom_html_script_element_set_src ::         JSRef HTMLScriptElement -> JSString -> IO ()-#else -ghcjs_dom_html_script_element_set_src ::-                                        JSRef HTMLScriptElement -> JSString -> IO ()-ghcjs_dom_html_script_element_set_src = undefined-#endif   htmlScriptElementSetSrc ::                         (IsHTMLScriptElement self, ToJSString val) => self -> val -> IO ()@@ -278,17 +183,10 @@   = ghcjs_dom_html_script_element_set_src       (unHTMLScriptElement (toHTMLScriptElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"src\"]"         ghcjs_dom_html_script_element_get_src ::         JSRef HTMLScriptElement -> IO JSString-#else -ghcjs_dom_html_script_element_get_src ::-                                        JSRef HTMLScriptElement -> IO JSString-ghcjs_dom_html_script_element_get_src = undefined-#endif   htmlScriptElementGetSrc ::                         (IsHTMLScriptElement self, FromJSString result) =>@@ -297,17 +195,10 @@   = fromJSString <$>       (ghcjs_dom_html_script_element_get_src          (unHTMLScriptElement (toHTMLScriptElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"crossOrigin\"] = $2;"         ghcjs_dom_html_script_element_set_cross_origin ::         JSRef HTMLScriptElement -> JSString -> IO ()-#else -ghcjs_dom_html_script_element_set_cross_origin ::-                                                 JSRef HTMLScriptElement -> JSString -> IO ()-ghcjs_dom_html_script_element_set_cross_origin = undefined-#endif   htmlScriptElementSetCrossOrigin ::                                 (IsHTMLScriptElement self, ToJSString val) => self -> val -> IO ()@@ -315,17 +206,10 @@   = ghcjs_dom_html_script_element_set_cross_origin       (unHTMLScriptElement (toHTMLScriptElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"crossOrigin\"]"         ghcjs_dom_html_script_element_get_cross_origin ::         JSRef HTMLScriptElement -> IO JSString-#else -ghcjs_dom_html_script_element_get_cross_origin ::-                                                 JSRef HTMLScriptElement -> IO JSString-ghcjs_dom_html_script_element_get_cross_origin = undefined-#endif   htmlScriptElementGetCrossOrigin ::                                 (IsHTMLScriptElement self, FromJSString result) =>@@ -334,17 +218,10 @@   = fromJSString <$>       (ghcjs_dom_html_script_element_get_cross_origin          (unHTMLScriptElement (toHTMLScriptElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"nonce\"] = $2;"         ghcjs_dom_html_script_element_set_nonce ::         JSRef HTMLScriptElement -> JSString -> IO ()-#else -ghcjs_dom_html_script_element_set_nonce ::-                                          JSRef HTMLScriptElement -> JSString -> IO ()-ghcjs_dom_html_script_element_set_nonce = undefined-#endif   htmlScriptElementSetNonce ::                           (IsHTMLScriptElement self, ToJSString val) => self -> val -> IO ()@@ -352,17 +229,10 @@   = ghcjs_dom_html_script_element_set_nonce       (unHTMLScriptElement (toHTMLScriptElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"nonce\"]"         ghcjs_dom_html_script_element_get_nonce ::         JSRef HTMLScriptElement -> IO JSString-#else -ghcjs_dom_html_script_element_get_nonce ::-                                          JSRef HTMLScriptElement -> IO JSString-ghcjs_dom_html_script_element_get_nonce = undefined-#endif   htmlScriptElementGetNonce ::                           (IsHTMLScriptElement self, FromJSString result) =>

src/GHCJS/DOM/HTMLSelectElement.hs view

@@ -59,28 +59,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_html_select_element_item ::         JSRef HTMLSelectElement -> Word -> IO (JSRef Node)-#else -ghcjs_dom_html_select_element_item ::-                                     JSRef HTMLSelectElement -> Word -> IO (JSRef Node)-ghcjs_dom_html_select_element_item = undefined-#endif   htmlSelectElementItem ::                       (IsHTMLSelectElement self) => self -> Word -> IO (Maybe Node)@@ -89,17 +78,10 @@       (ghcjs_dom_html_select_element_item          (unHTMLSelectElement (toHTMLSelectElement self))          index)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"namedItem\"]($2)"         ghcjs_dom_html_select_element_named_item ::         JSRef HTMLSelectElement -> JSString -> IO (JSRef Node)-#else -ghcjs_dom_html_select_element_named_item ::-                                           JSRef HTMLSelectElement -> JSString -> IO (JSRef Node)-ghcjs_dom_html_select_element_named_item = undefined-#endif   htmlSelectElementNamedItem ::                            (IsHTMLSelectElement self, ToJSString name) =>@@ -109,19 +91,11 @@       (ghcjs_dom_html_select_element_named_item          (unHTMLSelectElement (toHTMLSelectElement self))          (toJSString name))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"add\"]($2, $3)"         ghcjs_dom_html_select_element_add ::         JSRef HTMLSelectElement ->           JSRef HTMLElement -> JSRef HTMLElement -> IO ()-#else -ghcjs_dom_html_select_element_add ::-                                    JSRef HTMLSelectElement ->-                                      JSRef HTMLElement -> JSRef HTMLElement -> IO ()-ghcjs_dom_html_select_element_add = undefined-#endif   htmlSelectElementAdd ::                      (IsHTMLSelectElement self, IsHTMLElement element,@@ -132,17 +106,10 @@       (unHTMLSelectElement (toHTMLSelectElement self))       (maybe jsNull (unHTMLElement . toHTMLElement) element)       (maybe jsNull (unHTMLElement . toHTMLElement) before)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"remove\"]($2)"         ghcjs_dom_html_select_element_remove ::         JSRef HTMLSelectElement -> Int -> IO ()-#else -ghcjs_dom_html_select_element_remove ::-                                       JSRef HTMLSelectElement -> Int -> IO ()-ghcjs_dom_html_select_element_remove = undefined-#endif   htmlSelectElementRemove ::                         (IsHTMLSelectElement self) => self -> Int -> IO ()@@ -150,35 +117,21 @@   = ghcjs_dom_html_select_element_remove       (unHTMLSelectElement (toHTMLSelectElement self))       index---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)"         ghcjs_dom_html_select_element_check_validity ::         JSRef HTMLSelectElement -> IO Bool-#else -ghcjs_dom_html_select_element_check_validity ::-                                               JSRef HTMLSelectElement -> IO Bool-ghcjs_dom_html_select_element_check_validity = undefined-#endif   htmlSelectElementCheckValidity ::                                (IsHTMLSelectElement self) => self -> IO Bool htmlSelectElementCheckValidity self   = ghcjs_dom_html_select_element_check_validity       (unHTMLSelectElement (toHTMLSelectElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         ghcjs_dom_html_select_element_set_custom_validity ::         JSRef HTMLSelectElement -> JSString -> IO ()-#else -ghcjs_dom_html_select_element_set_custom_validity ::-                                                    JSRef HTMLSelectElement -> JSString -> IO ()-ghcjs_dom_html_select_element_set_custom_validity = undefined-#endif   htmlSelectElementSetCustomValidity ::                                    (IsHTMLSelectElement self, ToJSString error) =>@@ -187,17 +140,10 @@   = ghcjs_dom_html_select_element_set_custom_validity       (unHTMLSelectElement (toHTMLSelectElement self))       (toJSString error)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"autofocus\"] = $2;"         ghcjs_dom_html_select_element_set_autofocus ::         JSRef HTMLSelectElement -> Bool -> IO ()-#else -ghcjs_dom_html_select_element_set_autofocus ::-                                              JSRef HTMLSelectElement -> Bool -> IO ()-ghcjs_dom_html_select_element_set_autofocus = undefined-#endif   htmlSelectElementSetAutofocus ::                               (IsHTMLSelectElement self) => self -> Bool -> IO ()@@ -205,34 +151,20 @@   = ghcjs_dom_html_select_element_set_autofocus       (unHTMLSelectElement (toHTMLSelectElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"         ghcjs_dom_html_select_element_get_autofocus ::         JSRef HTMLSelectElement -> IO Bool-#else -ghcjs_dom_html_select_element_get_autofocus ::-                                              JSRef HTMLSelectElement -> IO Bool-ghcjs_dom_html_select_element_get_autofocus = undefined-#endif   htmlSelectElementGetAutofocus ::                               (IsHTMLSelectElement self) => self -> IO Bool htmlSelectElementGetAutofocus self   = ghcjs_dom_html_select_element_get_autofocus       (unHTMLSelectElement (toHTMLSelectElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"disabled\"] = $2;"         ghcjs_dom_html_select_element_set_disabled ::         JSRef HTMLSelectElement -> Bool -> IO ()-#else -ghcjs_dom_html_select_element_set_disabled ::-                                             JSRef HTMLSelectElement -> Bool -> IO ()-ghcjs_dom_html_select_element_set_disabled = undefined-#endif   htmlSelectElementSetDisabled ::                              (IsHTMLSelectElement self) => self -> Bool -> IO ()@@ -240,34 +172,20 @@   = ghcjs_dom_html_select_element_set_disabled       (unHTMLSelectElement (toHTMLSelectElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"         ghcjs_dom_html_select_element_get_disabled ::         JSRef HTMLSelectElement -> IO Bool-#else -ghcjs_dom_html_select_element_get_disabled ::-                                             JSRef HTMLSelectElement -> IO Bool-ghcjs_dom_html_select_element_get_disabled = undefined-#endif   htmlSelectElementGetDisabled ::                              (IsHTMLSelectElement self) => self -> IO Bool htmlSelectElementGetDisabled self   = ghcjs_dom_html_select_element_get_disabled       (unHTMLSelectElement (toHTMLSelectElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"form\"]"         ghcjs_dom_html_select_element_get_form ::         JSRef HTMLSelectElement -> IO (JSRef HTMLFormElement)-#else -ghcjs_dom_html_select_element_get_form ::-                                         JSRef HTMLSelectElement -> IO (JSRef HTMLFormElement)-ghcjs_dom_html_select_element_get_form = undefined-#endif   htmlSelectElementGetForm ::                          (IsHTMLSelectElement self) => self -> IO (Maybe HTMLFormElement)@@ -275,17 +193,10 @@   = fmap HTMLFormElement . maybeJSNull <$>       (ghcjs_dom_html_select_element_get_form          (unHTMLSelectElement (toHTMLSelectElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"multiple\"] = $2;"         ghcjs_dom_html_select_element_set_multiple ::         JSRef HTMLSelectElement -> Bool -> IO ()-#else -ghcjs_dom_html_select_element_set_multiple ::-                                             JSRef HTMLSelectElement -> Bool -> IO ()-ghcjs_dom_html_select_element_set_multiple = undefined-#endif   htmlSelectElementSetMultiple ::                              (IsHTMLSelectElement self) => self -> Bool -> IO ()@@ -293,34 +204,20 @@   = ghcjs_dom_html_select_element_set_multiple       (unHTMLSelectElement (toHTMLSelectElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"multiple\"] ? 1 : 0)"         ghcjs_dom_html_select_element_get_multiple ::         JSRef HTMLSelectElement -> IO Bool-#else -ghcjs_dom_html_select_element_get_multiple ::-                                             JSRef HTMLSelectElement -> IO Bool-ghcjs_dom_html_select_element_get_multiple = undefined-#endif   htmlSelectElementGetMultiple ::                              (IsHTMLSelectElement self) => self -> IO Bool htmlSelectElementGetMultiple self   = ghcjs_dom_html_select_element_get_multiple       (unHTMLSelectElement (toHTMLSelectElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_select_element_set_name ::         JSRef HTMLSelectElement -> JSString -> IO ()-#else -ghcjs_dom_html_select_element_set_name ::-                                         JSRef HTMLSelectElement -> JSString -> IO ()-ghcjs_dom_html_select_element_set_name = undefined-#endif   htmlSelectElementSetName ::                          (IsHTMLSelectElement self, ToJSString val) => self -> val -> IO ()@@ -328,17 +225,10 @@   = ghcjs_dom_html_select_element_set_name       (unHTMLSelectElement (toHTMLSelectElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_select_element_get_name ::         JSRef HTMLSelectElement -> IO JSString-#else -ghcjs_dom_html_select_element_get_name ::-                                         JSRef HTMLSelectElement -> IO JSString-ghcjs_dom_html_select_element_get_name = undefined-#endif   htmlSelectElementGetName ::                          (IsHTMLSelectElement self, FromJSString result) =>@@ -347,17 +237,10 @@   = fromJSString <$>       (ghcjs_dom_html_select_element_get_name          (unHTMLSelectElement (toHTMLSelectElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"required\"] = $2;"         ghcjs_dom_html_select_element_set_required ::         JSRef HTMLSelectElement -> Bool -> IO ()-#else -ghcjs_dom_html_select_element_set_required ::-                                             JSRef HTMLSelectElement -> Bool -> IO ()-ghcjs_dom_html_select_element_set_required = undefined-#endif   htmlSelectElementSetRequired ::                              (IsHTMLSelectElement self) => self -> Bool -> IO ()@@ -365,34 +248,20 @@   = ghcjs_dom_html_select_element_set_required       (unHTMLSelectElement (toHTMLSelectElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"         ghcjs_dom_html_select_element_get_required ::         JSRef HTMLSelectElement -> IO Bool-#else -ghcjs_dom_html_select_element_get_required ::-                                             JSRef HTMLSelectElement -> IO Bool-ghcjs_dom_html_select_element_get_required = undefined-#endif   htmlSelectElementGetRequired ::                              (IsHTMLSelectElement self) => self -> IO Bool htmlSelectElementGetRequired self   = ghcjs_dom_html_select_element_get_required       (unHTMLSelectElement (toHTMLSelectElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"size\"] = $2;"         ghcjs_dom_html_select_element_set_size ::         JSRef HTMLSelectElement -> Int -> IO ()-#else -ghcjs_dom_html_select_element_set_size ::-                                         JSRef HTMLSelectElement -> Int -> IO ()-ghcjs_dom_html_select_element_set_size = undefined-#endif   htmlSelectElementSetSize ::                          (IsHTMLSelectElement self) => self -> Int -> IO ()@@ -400,35 +269,20 @@   = ghcjs_dom_html_select_element_set_size       (unHTMLSelectElement (toHTMLSelectElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"size\"]"         ghcjs_dom_html_select_element_get_size ::         JSRef HTMLSelectElement -> IO Int-#else -ghcjs_dom_html_select_element_get_size ::-                                         JSRef HTMLSelectElement -> IO Int-ghcjs_dom_html_select_element_get_size = undefined-#endif   htmlSelectElementGetSize ::                          (IsHTMLSelectElement self) => self -> IO Int htmlSelectElementGetSize self   = ghcjs_dom_html_select_element_get_size       (unHTMLSelectElement (toHTMLSelectElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"options\"]"         ghcjs_dom_html_select_element_get_options ::         JSRef HTMLSelectElement -> IO (JSRef HTMLOptionsCollection)-#else -ghcjs_dom_html_select_element_get_options ::-                                            JSRef HTMLSelectElement ->-                                              IO (JSRef HTMLOptionsCollection)-ghcjs_dom_html_select_element_get_options = undefined-#endif   htmlSelectElementGetOptions ::                             (IsHTMLSelectElement self) =>@@ -437,17 +291,10 @@   = fmap HTMLOptionsCollection . maybeJSNull <$>       (ghcjs_dom_html_select_element_get_options          (unHTMLSelectElement (toHTMLSelectElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"length\"] = $2;"         ghcjs_dom_html_select_element_set_length ::         JSRef HTMLSelectElement -> Word -> IO ()-#else -ghcjs_dom_html_select_element_set_length ::-                                           JSRef HTMLSelectElement -> Word -> IO ()-ghcjs_dom_html_select_element_set_length = undefined-#endif   htmlSelectElementSetLength ::                            (IsHTMLSelectElement self) => self -> Word -> IO ()@@ -455,35 +302,20 @@   = ghcjs_dom_html_select_element_set_length       (unHTMLSelectElement (toHTMLSelectElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_html_select_element_get_length ::         JSRef HTMLSelectElement -> IO Word-#else -ghcjs_dom_html_select_element_get_length ::-                                           JSRef HTMLSelectElement -> IO Word-ghcjs_dom_html_select_element_get_length = undefined-#endif   htmlSelectElementGetLength ::                            (IsHTMLSelectElement self) => self -> IO Word htmlSelectElementGetLength self   = ghcjs_dom_html_select_element_get_length       (unHTMLSelectElement (toHTMLSelectElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"selectedOptions\"]"         ghcjs_dom_html_select_element_get_selected_options ::         JSRef HTMLSelectElement -> IO (JSRef HTMLCollection)-#else -ghcjs_dom_html_select_element_get_selected_options ::-                                                     JSRef HTMLSelectElement ->-                                                       IO (JSRef HTMLCollection)-ghcjs_dom_html_select_element_get_selected_options = undefined-#endif   htmlSelectElementGetSelectedOptions ::                                     (IsHTMLSelectElement self) => self -> IO (Maybe HTMLCollection)@@ -491,17 +323,10 @@   = fmap HTMLCollection . maybeJSNull <$>       (ghcjs_dom_html_select_element_get_selected_options          (unHTMLSelectElement (toHTMLSelectElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"selectedIndex\"] = $2;"         ghcjs_dom_html_select_element_set_selected_index ::         JSRef HTMLSelectElement -> Int -> IO ()-#else -ghcjs_dom_html_select_element_set_selected_index ::-                                                   JSRef HTMLSelectElement -> Int -> IO ()-ghcjs_dom_html_select_element_set_selected_index = undefined-#endif   htmlSelectElementSetSelectedIndex ::                                   (IsHTMLSelectElement self) => self -> Int -> IO ()@@ -509,34 +334,20 @@   = ghcjs_dom_html_select_element_set_selected_index       (unHTMLSelectElement (toHTMLSelectElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"selectedIndex\"]"         ghcjs_dom_html_select_element_get_selected_index ::         JSRef HTMLSelectElement -> IO Int-#else -ghcjs_dom_html_select_element_get_selected_index ::-                                                   JSRef HTMLSelectElement -> IO Int-ghcjs_dom_html_select_element_get_selected_index = undefined-#endif   htmlSelectElementGetSelectedIndex ::                                   (IsHTMLSelectElement self) => self -> IO Int htmlSelectElementGetSelectedIndex self   = ghcjs_dom_html_select_element_get_selected_index       (unHTMLSelectElement (toHTMLSelectElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"value\"] = $2;"         ghcjs_dom_html_select_element_set_value ::         JSRef HTMLSelectElement -> JSString -> IO ()-#else -ghcjs_dom_html_select_element_set_value ::-                                          JSRef HTMLSelectElement -> JSString -> IO ()-ghcjs_dom_html_select_element_set_value = undefined-#endif   htmlSelectElementSetValue ::                           (IsHTMLSelectElement self, ToJSString val) => self -> val -> IO ()@@ -544,17 +355,10 @@   = ghcjs_dom_html_select_element_set_value       (unHTMLSelectElement (toHTMLSelectElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"value\"]"         ghcjs_dom_html_select_element_get_value ::         JSRef HTMLSelectElement -> IO JSString-#else -ghcjs_dom_html_select_element_get_value ::-                                          JSRef HTMLSelectElement -> IO JSString-ghcjs_dom_html_select_element_get_value = undefined-#endif   htmlSelectElementGetValue ::                           (IsHTMLSelectElement self, FromJSString result) =>@@ -563,34 +367,20 @@   = fromJSString <$>       (ghcjs_dom_html_select_element_get_value          (unHTMLSelectElement (toHTMLSelectElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"         ghcjs_dom_html_select_element_get_will_validate ::         JSRef HTMLSelectElement -> IO Bool-#else -ghcjs_dom_html_select_element_get_will_validate ::-                                                  JSRef HTMLSelectElement -> IO Bool-ghcjs_dom_html_select_element_get_will_validate = undefined-#endif   htmlSelectElementGetWillValidate ::                                  (IsHTMLSelectElement self) => self -> IO Bool htmlSelectElementGetWillValidate self   = ghcjs_dom_html_select_element_get_will_validate       (unHTMLSelectElement (toHTMLSelectElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"validity\"]"         ghcjs_dom_html_select_element_get_validity ::         JSRef HTMLSelectElement -> IO (JSRef ValidityState)-#else -ghcjs_dom_html_select_element_get_validity ::-                                             JSRef HTMLSelectElement -> IO (JSRef ValidityState)-ghcjs_dom_html_select_element_get_validity = undefined-#endif   htmlSelectElementGetValidity ::                              (IsHTMLSelectElement self) => self -> IO (Maybe ValidityState)@@ -598,17 +388,10 @@   = fmap ValidityState . maybeJSNull <$>       (ghcjs_dom_html_select_element_get_validity          (unHTMLSelectElement (toHTMLSelectElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"validationMessage\"]"         ghcjs_dom_html_select_element_get_validation_message ::         JSRef HTMLSelectElement -> IO JSString-#else -ghcjs_dom_html_select_element_get_validation_message ::-                                                       JSRef HTMLSelectElement -> IO JSString-ghcjs_dom_html_select_element_get_validation_message = undefined-#endif   htmlSelectElementGetValidationMessage ::                                       (IsHTMLSelectElement self, FromJSString result) =>@@ -617,17 +400,10 @@   = fromJSString <$>       (ghcjs_dom_html_select_element_get_validation_message          (unHTMLSelectElement (toHTMLSelectElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"labels\"]"         ghcjs_dom_html_select_element_get_labels ::         JSRef HTMLSelectElement -> IO (JSRef NodeList)-#else -ghcjs_dom_html_select_element_get_labels ::-                                           JSRef HTMLSelectElement -> IO (JSRef NodeList)-ghcjs_dom_html_select_element_get_labels = undefined-#endif   htmlSelectElementGetLabels ::                            (IsHTMLSelectElement self) => self -> IO (Maybe NodeList)

src/GHCJS/DOM/HTMLStyleElement.hs view

@@ -6,8 +6,6 @@         htmlStyleElementSetDisabled,         ghcjs_dom_html_style_element_get_disabled,         htmlStyleElementGetDisabled,-        ghcjs_dom_html_style_element_set_scoped, htmlStyleElementSetScoped,-        ghcjs_dom_html_style_element_get_scoped, htmlStyleElementGetScoped,         ghcjs_dom_html_style_element_set_media, htmlStyleElementSetMedia,         ghcjs_dom_html_style_element_get_media, htmlStyleElementGetMedia,         ghcjs_dom_html_style_element_get_sheet, htmlStyleElementGetSheet,@@ -16,28 +14,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"disabled\"] = $2;"         ghcjs_dom_html_style_element_set_disabled ::         JSRef HTMLStyleElement -> Bool -> IO ()-#else -ghcjs_dom_html_style_element_set_disabled ::-                                            JSRef HTMLStyleElement -> Bool -> IO ()-ghcjs_dom_html_style_element_set_disabled = undefined-#endif   htmlStyleElementSetDisabled ::                             (IsHTMLStyleElement self) => self -> Bool -> IO ()@@ -45,69 +32,20 @@   = ghcjs_dom_html_style_element_set_disabled       (unHTMLStyleElement (toHTMLStyleElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"         ghcjs_dom_html_style_element_get_disabled ::         JSRef HTMLStyleElement -> IO Bool-#else -ghcjs_dom_html_style_element_get_disabled ::-                                            JSRef HTMLStyleElement -> IO Bool-ghcjs_dom_html_style_element_get_disabled = undefined-#endif   htmlStyleElementGetDisabled ::                             (IsHTMLStyleElement self) => self -> IO Bool htmlStyleElementGetDisabled self   = ghcjs_dom_html_style_element_get_disabled       (unHTMLStyleElement (toHTMLStyleElement self))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"scoped\"] = $2;"-        ghcjs_dom_html_style_element_set_scoped ::-        JSRef HTMLStyleElement -> Bool -> IO ()-#else -ghcjs_dom_html_style_element_set_scoped ::-                                          JSRef HTMLStyleElement -> Bool -> IO ()-ghcjs_dom_html_style_element_set_scoped = undefined-#endif  -htmlStyleElementSetScoped ::-                          (IsHTMLStyleElement self) => self -> Bool -> IO ()-htmlStyleElementSetScoped self val-  = ghcjs_dom_html_style_element_set_scoped-      (unHTMLStyleElement (toHTMLStyleElement self))-      val---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "($1[\"scoped\"] ? 1 : 0)"-        ghcjs_dom_html_style_element_get_scoped ::-        JSRef HTMLStyleElement -> IO Bool-#else -ghcjs_dom_html_style_element_get_scoped ::-                                          JSRef HTMLStyleElement -> IO Bool-ghcjs_dom_html_style_element_get_scoped = undefined-#endif- -htmlStyleElementGetScoped ::-                          (IsHTMLStyleElement self) => self -> IO Bool-htmlStyleElementGetScoped self-  = ghcjs_dom_html_style_element_get_scoped-      (unHTMLStyleElement (toHTMLStyleElement self))---#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"media\"] = $2;"         ghcjs_dom_html_style_element_set_media ::         JSRef HTMLStyleElement -> JSString -> IO ()-#else -ghcjs_dom_html_style_element_set_media ::-                                         JSRef HTMLStyleElement -> JSString -> IO ()-ghcjs_dom_html_style_element_set_media = undefined-#endif   htmlStyleElementSetMedia ::                          (IsHTMLStyleElement self, ToJSString val) => self -> val -> IO ()@@ -115,17 +53,10 @@   = ghcjs_dom_html_style_element_set_media       (unHTMLStyleElement (toHTMLStyleElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"media\"]"         ghcjs_dom_html_style_element_get_media ::         JSRef HTMLStyleElement -> IO JSString-#else -ghcjs_dom_html_style_element_get_media ::-                                         JSRef HTMLStyleElement -> IO JSString-ghcjs_dom_html_style_element_get_media = undefined-#endif   htmlStyleElementGetMedia ::                          (IsHTMLStyleElement self, FromJSString result) => self -> IO result@@ -133,17 +64,10 @@   = fromJSString <$>       (ghcjs_dom_html_style_element_get_media          (unHTMLStyleElement (toHTMLStyleElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"sheet\"]"         ghcjs_dom_html_style_element_get_sheet ::         JSRef HTMLStyleElement -> IO (JSRef StyleSheet)-#else -ghcjs_dom_html_style_element_get_sheet ::-                                         JSRef HTMLStyleElement -> IO (JSRef StyleSheet)-ghcjs_dom_html_style_element_get_sheet = undefined-#endif   htmlStyleElementGetSheet ::                          (IsHTMLStyleElement self) => self -> IO (Maybe StyleSheet)

src/GHCJS/DOM/HTMLTableCaptionElement.hs view

@@ -11,28 +11,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_table_caption_element_set_align ::         JSRef HTMLTableCaptionElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_caption_element_set_align ::-                                                 JSRef HTMLTableCaptionElement -> JSString -> IO ()-ghcjs_dom_html_table_caption_element_set_align = undefined-#endif   htmlTableCaptionElementSetAlign ::                                 (IsHTMLTableCaptionElement self, ToJSString val) =>@@ -41,17 +30,10 @@   = ghcjs_dom_html_table_caption_element_set_align       (unHTMLTableCaptionElement (toHTMLTableCaptionElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_table_caption_element_get_align ::         JSRef HTMLTableCaptionElement -> IO JSString-#else -ghcjs_dom_html_table_caption_element_get_align ::-                                                 JSRef HTMLTableCaptionElement -> IO JSString-ghcjs_dom_html_table_caption_element_get_align = undefined-#endif   htmlTableCaptionElementGetAlign ::                                 (IsHTMLTableCaptionElement self, FromJSString result) =>

src/GHCJS/DOM/HTMLTableCellElement.hs view

@@ -65,45 +65,27 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"cellIndex\"]"         ghcjs_dom_html_table_cell_element_get_cell_index ::         JSRef HTMLTableCellElement -> IO Int-#else -ghcjs_dom_html_table_cell_element_get_cell_index ::-                                                   JSRef HTMLTableCellElement -> IO Int-ghcjs_dom_html_table_cell_element_get_cell_index = undefined-#endif   htmlTableCellElementGetCellIndex ::                                  (IsHTMLTableCellElement self) => self -> IO Int htmlTableCellElementGetCellIndex self   = ghcjs_dom_html_table_cell_element_get_cell_index       (unHTMLTableCellElement (toHTMLTableCellElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"abbr\"] = $2;"         ghcjs_dom_html_table_cell_element_set_abbr ::         JSRef HTMLTableCellElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_cell_element_set_abbr ::-                                             JSRef HTMLTableCellElement -> JSString -> IO ()-ghcjs_dom_html_table_cell_element_set_abbr = undefined-#endif   htmlTableCellElementSetAbbr ::                             (IsHTMLTableCellElement self, ToJSString val) =>@@ -112,17 +94,10 @@   = ghcjs_dom_html_table_cell_element_set_abbr       (unHTMLTableCellElement (toHTMLTableCellElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"abbr\"]"         ghcjs_dom_html_table_cell_element_get_abbr ::         JSRef HTMLTableCellElement -> IO JSString-#else -ghcjs_dom_html_table_cell_element_get_abbr ::-                                             JSRef HTMLTableCellElement -> IO JSString-ghcjs_dom_html_table_cell_element_get_abbr = undefined-#endif   htmlTableCellElementGetAbbr ::                             (IsHTMLTableCellElement self, FromJSString result) =>@@ -131,17 +106,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_cell_element_get_abbr          (unHTMLTableCellElement (toHTMLTableCellElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_table_cell_element_set_align ::         JSRef HTMLTableCellElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_cell_element_set_align ::-                                              JSRef HTMLTableCellElement -> JSString -> IO ()-ghcjs_dom_html_table_cell_element_set_align = undefined-#endif   htmlTableCellElementSetAlign ::                              (IsHTMLTableCellElement self, ToJSString val) =>@@ -150,17 +118,10 @@   = ghcjs_dom_html_table_cell_element_set_align       (unHTMLTableCellElement (toHTMLTableCellElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_table_cell_element_get_align ::         JSRef HTMLTableCellElement -> IO JSString-#else -ghcjs_dom_html_table_cell_element_get_align ::-                                              JSRef HTMLTableCellElement -> IO JSString-ghcjs_dom_html_table_cell_element_get_align = undefined-#endif   htmlTableCellElementGetAlign ::                              (IsHTMLTableCellElement self, FromJSString result) =>@@ -169,17 +130,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_cell_element_get_align          (unHTMLTableCellElement (toHTMLTableCellElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"axis\"] = $2;"         ghcjs_dom_html_table_cell_element_set_axis ::         JSRef HTMLTableCellElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_cell_element_set_axis ::-                                             JSRef HTMLTableCellElement -> JSString -> IO ()-ghcjs_dom_html_table_cell_element_set_axis = undefined-#endif   htmlTableCellElementSetAxis ::                             (IsHTMLTableCellElement self, ToJSString val) =>@@ -188,17 +142,10 @@   = ghcjs_dom_html_table_cell_element_set_axis       (unHTMLTableCellElement (toHTMLTableCellElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"axis\"]"         ghcjs_dom_html_table_cell_element_get_axis ::         JSRef HTMLTableCellElement -> IO JSString-#else -ghcjs_dom_html_table_cell_element_get_axis ::-                                             JSRef HTMLTableCellElement -> IO JSString-ghcjs_dom_html_table_cell_element_get_axis = undefined-#endif   htmlTableCellElementGetAxis ::                             (IsHTMLTableCellElement self, FromJSString result) =>@@ -207,17 +154,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_cell_element_get_axis          (unHTMLTableCellElement (toHTMLTableCellElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"bgColor\"] = $2;"         ghcjs_dom_html_table_cell_element_set_bg_color ::         JSRef HTMLTableCellElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_cell_element_set_bg_color ::-                                                 JSRef HTMLTableCellElement -> JSString -> IO ()-ghcjs_dom_html_table_cell_element_set_bg_color = undefined-#endif   htmlTableCellElementSetBgColor ::                                (IsHTMLTableCellElement self, ToJSString val) =>@@ -226,17 +166,10 @@   = ghcjs_dom_html_table_cell_element_set_bg_color       (unHTMLTableCellElement (toHTMLTableCellElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"bgColor\"]"         ghcjs_dom_html_table_cell_element_get_bg_color ::         JSRef HTMLTableCellElement -> IO JSString-#else -ghcjs_dom_html_table_cell_element_get_bg_color ::-                                                 JSRef HTMLTableCellElement -> IO JSString-ghcjs_dom_html_table_cell_element_get_bg_color = undefined-#endif   htmlTableCellElementGetBgColor ::                                (IsHTMLTableCellElement self, FromJSString result) =>@@ -245,17 +178,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_cell_element_get_bg_color          (unHTMLTableCellElement (toHTMLTableCellElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"ch\"] = $2;"         ghcjs_dom_html_table_cell_element_set_ch ::         JSRef HTMLTableCellElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_cell_element_set_ch ::-                                           JSRef HTMLTableCellElement -> JSString -> IO ()-ghcjs_dom_html_table_cell_element_set_ch = undefined-#endif   htmlTableCellElementSetCh ::                           (IsHTMLTableCellElement self, ToJSString val) =>@@ -264,17 +190,10 @@   = ghcjs_dom_html_table_cell_element_set_ch       (unHTMLTableCellElement (toHTMLTableCellElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"ch\"]"         ghcjs_dom_html_table_cell_element_get_ch ::         JSRef HTMLTableCellElement -> IO JSString-#else -ghcjs_dom_html_table_cell_element_get_ch ::-                                           JSRef HTMLTableCellElement -> IO JSString-ghcjs_dom_html_table_cell_element_get_ch = undefined-#endif   htmlTableCellElementGetCh ::                           (IsHTMLTableCellElement self, FromJSString result) =>@@ -283,17 +202,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_cell_element_get_ch          (unHTMLTableCellElement (toHTMLTableCellElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"chOff\"] = $2;"         ghcjs_dom_html_table_cell_element_set_ch_off ::         JSRef HTMLTableCellElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_cell_element_set_ch_off ::-                                               JSRef HTMLTableCellElement -> JSString -> IO ()-ghcjs_dom_html_table_cell_element_set_ch_off = undefined-#endif   htmlTableCellElementSetChOff ::                              (IsHTMLTableCellElement self, ToJSString val) =>@@ -302,17 +214,10 @@   = ghcjs_dom_html_table_cell_element_set_ch_off       (unHTMLTableCellElement (toHTMLTableCellElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"chOff\"]"         ghcjs_dom_html_table_cell_element_get_ch_off ::         JSRef HTMLTableCellElement -> IO JSString-#else -ghcjs_dom_html_table_cell_element_get_ch_off ::-                                               JSRef HTMLTableCellElement -> IO JSString-ghcjs_dom_html_table_cell_element_get_ch_off = undefined-#endif   htmlTableCellElementGetChOff ::                              (IsHTMLTableCellElement self, FromJSString result) =>@@ -321,17 +226,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_cell_element_get_ch_off          (unHTMLTableCellElement (toHTMLTableCellElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"colSpan\"] = $2;"         ghcjs_dom_html_table_cell_element_set_col_span ::         JSRef HTMLTableCellElement -> Int -> IO ()-#else -ghcjs_dom_html_table_cell_element_set_col_span ::-                                                 JSRef HTMLTableCellElement -> Int -> IO ()-ghcjs_dom_html_table_cell_element_set_col_span = undefined-#endif   htmlTableCellElementSetColSpan ::                                (IsHTMLTableCellElement self) => self -> Int -> IO ()@@ -339,34 +237,20 @@   = ghcjs_dom_html_table_cell_element_set_col_span       (unHTMLTableCellElement (toHTMLTableCellElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"colSpan\"]"         ghcjs_dom_html_table_cell_element_get_col_span ::         JSRef HTMLTableCellElement -> IO Int-#else -ghcjs_dom_html_table_cell_element_get_col_span ::-                                                 JSRef HTMLTableCellElement -> IO Int-ghcjs_dom_html_table_cell_element_get_col_span = undefined-#endif   htmlTableCellElementGetColSpan ::                                (IsHTMLTableCellElement self) => self -> IO Int htmlTableCellElementGetColSpan self   = ghcjs_dom_html_table_cell_element_get_col_span       (unHTMLTableCellElement (toHTMLTableCellElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"headers\"] = $2;"         ghcjs_dom_html_table_cell_element_set_headers ::         JSRef HTMLTableCellElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_cell_element_set_headers ::-                                                JSRef HTMLTableCellElement -> JSString -> IO ()-ghcjs_dom_html_table_cell_element_set_headers = undefined-#endif   htmlTableCellElementSetHeaders ::                                (IsHTMLTableCellElement self, ToJSString val) =>@@ -375,17 +259,10 @@   = ghcjs_dom_html_table_cell_element_set_headers       (unHTMLTableCellElement (toHTMLTableCellElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"headers\"]"         ghcjs_dom_html_table_cell_element_get_headers ::         JSRef HTMLTableCellElement -> IO JSString-#else -ghcjs_dom_html_table_cell_element_get_headers ::-                                                JSRef HTMLTableCellElement -> IO JSString-ghcjs_dom_html_table_cell_element_get_headers = undefined-#endif   htmlTableCellElementGetHeaders ::                                (IsHTMLTableCellElement self, FromJSString result) =>@@ -394,17 +271,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_cell_element_get_headers          (unHTMLTableCellElement (toHTMLTableCellElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"height\"] = $2;"         ghcjs_dom_html_table_cell_element_set_height ::         JSRef HTMLTableCellElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_cell_element_set_height ::-                                               JSRef HTMLTableCellElement -> JSString -> IO ()-ghcjs_dom_html_table_cell_element_set_height = undefined-#endif   htmlTableCellElementSetHeight ::                               (IsHTMLTableCellElement self, ToJSString val) =>@@ -413,17 +283,10 @@   = ghcjs_dom_html_table_cell_element_set_height       (unHTMLTableCellElement (toHTMLTableCellElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_table_cell_element_get_height ::         JSRef HTMLTableCellElement -> IO JSString-#else -ghcjs_dom_html_table_cell_element_get_height ::-                                               JSRef HTMLTableCellElement -> IO JSString-ghcjs_dom_html_table_cell_element_get_height = undefined-#endif   htmlTableCellElementGetHeight ::                               (IsHTMLTableCellElement self, FromJSString result) =>@@ -432,17 +295,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_cell_element_get_height          (unHTMLTableCellElement (toHTMLTableCellElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"noWrap\"] = $2;"         ghcjs_dom_html_table_cell_element_set_no_wrap ::         JSRef HTMLTableCellElement -> Bool -> IO ()-#else -ghcjs_dom_html_table_cell_element_set_no_wrap ::-                                                JSRef HTMLTableCellElement -> Bool -> IO ()-ghcjs_dom_html_table_cell_element_set_no_wrap = undefined-#endif   htmlTableCellElementSetNoWrap ::                               (IsHTMLTableCellElement self) => self -> Bool -> IO ()@@ -450,34 +306,20 @@   = ghcjs_dom_html_table_cell_element_set_no_wrap       (unHTMLTableCellElement (toHTMLTableCellElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"noWrap\"] ? 1 : 0)"         ghcjs_dom_html_table_cell_element_get_no_wrap ::         JSRef HTMLTableCellElement -> IO Bool-#else -ghcjs_dom_html_table_cell_element_get_no_wrap ::-                                                JSRef HTMLTableCellElement -> IO Bool-ghcjs_dom_html_table_cell_element_get_no_wrap = undefined-#endif   htmlTableCellElementGetNoWrap ::                               (IsHTMLTableCellElement self) => self -> IO Bool htmlTableCellElementGetNoWrap self   = ghcjs_dom_html_table_cell_element_get_no_wrap       (unHTMLTableCellElement (toHTMLTableCellElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"rowSpan\"] = $2;"         ghcjs_dom_html_table_cell_element_set_row_span ::         JSRef HTMLTableCellElement -> Int -> IO ()-#else -ghcjs_dom_html_table_cell_element_set_row_span ::-                                                 JSRef HTMLTableCellElement -> Int -> IO ()-ghcjs_dom_html_table_cell_element_set_row_span = undefined-#endif   htmlTableCellElementSetRowSpan ::                                (IsHTMLTableCellElement self) => self -> Int -> IO ()@@ -485,34 +327,20 @@   = ghcjs_dom_html_table_cell_element_set_row_span       (unHTMLTableCellElement (toHTMLTableCellElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"rowSpan\"]"         ghcjs_dom_html_table_cell_element_get_row_span ::         JSRef HTMLTableCellElement -> IO Int-#else -ghcjs_dom_html_table_cell_element_get_row_span ::-                                                 JSRef HTMLTableCellElement -> IO Int-ghcjs_dom_html_table_cell_element_get_row_span = undefined-#endif   htmlTableCellElementGetRowSpan ::                                (IsHTMLTableCellElement self) => self -> IO Int htmlTableCellElementGetRowSpan self   = ghcjs_dom_html_table_cell_element_get_row_span       (unHTMLTableCellElement (toHTMLTableCellElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scope\"] = $2;"         ghcjs_dom_html_table_cell_element_set_scope ::         JSRef HTMLTableCellElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_cell_element_set_scope ::-                                              JSRef HTMLTableCellElement -> JSString -> IO ()-ghcjs_dom_html_table_cell_element_set_scope = undefined-#endif   htmlTableCellElementSetScope ::                              (IsHTMLTableCellElement self, ToJSString val) =>@@ -521,17 +349,10 @@   = ghcjs_dom_html_table_cell_element_set_scope       (unHTMLTableCellElement (toHTMLTableCellElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"scope\"]"         ghcjs_dom_html_table_cell_element_get_scope ::         JSRef HTMLTableCellElement -> IO JSString-#else -ghcjs_dom_html_table_cell_element_get_scope ::-                                              JSRef HTMLTableCellElement -> IO JSString-ghcjs_dom_html_table_cell_element_get_scope = undefined-#endif   htmlTableCellElementGetScope ::                              (IsHTMLTableCellElement self, FromJSString result) =>@@ -540,17 +361,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_cell_element_get_scope          (unHTMLTableCellElement (toHTMLTableCellElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"vAlign\"] = $2;"         ghcjs_dom_html_table_cell_element_set_v_align ::         JSRef HTMLTableCellElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_cell_element_set_v_align ::-                                                JSRef HTMLTableCellElement -> JSString -> IO ()-ghcjs_dom_html_table_cell_element_set_v_align = undefined-#endif   htmlTableCellElementSetVAlign ::                               (IsHTMLTableCellElement self, ToJSString val) =>@@ -559,17 +373,10 @@   = ghcjs_dom_html_table_cell_element_set_v_align       (unHTMLTableCellElement (toHTMLTableCellElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"vAlign\"]"         ghcjs_dom_html_table_cell_element_get_v_align ::         JSRef HTMLTableCellElement -> IO JSString-#else -ghcjs_dom_html_table_cell_element_get_v_align ::-                                                JSRef HTMLTableCellElement -> IO JSString-ghcjs_dom_html_table_cell_element_get_v_align = undefined-#endif   htmlTableCellElementGetVAlign ::                               (IsHTMLTableCellElement self, FromJSString result) =>@@ -578,17 +385,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_cell_element_get_v_align          (unHTMLTableCellElement (toHTMLTableCellElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_table_cell_element_set_width ::         JSRef HTMLTableCellElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_cell_element_set_width ::-                                              JSRef HTMLTableCellElement -> JSString -> IO ()-ghcjs_dom_html_table_cell_element_set_width = undefined-#endif   htmlTableCellElementSetWidth ::                              (IsHTMLTableCellElement self, ToJSString val) =>@@ -597,17 +397,10 @@   = ghcjs_dom_html_table_cell_element_set_width       (unHTMLTableCellElement (toHTMLTableCellElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_table_cell_element_get_width ::         JSRef HTMLTableCellElement -> IO JSString-#else -ghcjs_dom_html_table_cell_element_get_width ::-                                              JSRef HTMLTableCellElement -> IO JSString-ghcjs_dom_html_table_cell_element_get_width = undefined-#endif   htmlTableCellElementGetWidth ::                              (IsHTMLTableCellElement self, FromJSString result) =>

src/GHCJS/DOM/HTMLTableColElement.hs view

@@ -29,28 +29,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_table_col_element_set_align ::         JSRef HTMLTableColElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_col_element_set_align ::-                                             JSRef HTMLTableColElement -> JSString -> IO ()-ghcjs_dom_html_table_col_element_set_align = undefined-#endif   htmlTableColElementSetAlign ::                             (IsHTMLTableColElement self, ToJSString val) =>@@ -59,17 +48,10 @@   = ghcjs_dom_html_table_col_element_set_align       (unHTMLTableColElement (toHTMLTableColElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_table_col_element_get_align ::         JSRef HTMLTableColElement -> IO JSString-#else -ghcjs_dom_html_table_col_element_get_align ::-                                             JSRef HTMLTableColElement -> IO JSString-ghcjs_dom_html_table_col_element_get_align = undefined-#endif   htmlTableColElementGetAlign ::                             (IsHTMLTableColElement self, FromJSString result) =>@@ -78,17 +60,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_col_element_get_align          (unHTMLTableColElement (toHTMLTableColElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"ch\"] = $2;"         ghcjs_dom_html_table_col_element_set_ch ::         JSRef HTMLTableColElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_col_element_set_ch ::-                                          JSRef HTMLTableColElement -> JSString -> IO ()-ghcjs_dom_html_table_col_element_set_ch = undefined-#endif   htmlTableColElementSetCh ::                          (IsHTMLTableColElement self, ToJSString val) =>@@ -97,17 +72,10 @@   = ghcjs_dom_html_table_col_element_set_ch       (unHTMLTableColElement (toHTMLTableColElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"ch\"]"         ghcjs_dom_html_table_col_element_get_ch ::         JSRef HTMLTableColElement -> IO JSString-#else -ghcjs_dom_html_table_col_element_get_ch ::-                                          JSRef HTMLTableColElement -> IO JSString-ghcjs_dom_html_table_col_element_get_ch = undefined-#endif   htmlTableColElementGetCh ::                          (IsHTMLTableColElement self, FromJSString result) =>@@ -116,17 +84,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_col_element_get_ch          (unHTMLTableColElement (toHTMLTableColElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"chOff\"] = $2;"         ghcjs_dom_html_table_col_element_set_ch_off ::         JSRef HTMLTableColElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_col_element_set_ch_off ::-                                              JSRef HTMLTableColElement -> JSString -> IO ()-ghcjs_dom_html_table_col_element_set_ch_off = undefined-#endif   htmlTableColElementSetChOff ::                             (IsHTMLTableColElement self, ToJSString val) =>@@ -135,17 +96,10 @@   = ghcjs_dom_html_table_col_element_set_ch_off       (unHTMLTableColElement (toHTMLTableColElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"chOff\"]"         ghcjs_dom_html_table_col_element_get_ch_off ::         JSRef HTMLTableColElement -> IO JSString-#else -ghcjs_dom_html_table_col_element_get_ch_off ::-                                              JSRef HTMLTableColElement -> IO JSString-ghcjs_dom_html_table_col_element_get_ch_off = undefined-#endif   htmlTableColElementGetChOff ::                             (IsHTMLTableColElement self, FromJSString result) =>@@ -154,17 +108,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_col_element_get_ch_off          (unHTMLTableColElement (toHTMLTableColElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"span\"] = $2;"         ghcjs_dom_html_table_col_element_set_span ::         JSRef HTMLTableColElement -> Int -> IO ()-#else -ghcjs_dom_html_table_col_element_set_span ::-                                            JSRef HTMLTableColElement -> Int -> IO ()-ghcjs_dom_html_table_col_element_set_span = undefined-#endif   htmlTableColElementSetSpan ::                            (IsHTMLTableColElement self) => self -> Int -> IO ()@@ -172,34 +119,20 @@   = ghcjs_dom_html_table_col_element_set_span       (unHTMLTableColElement (toHTMLTableColElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"span\"]"         ghcjs_dom_html_table_col_element_get_span ::         JSRef HTMLTableColElement -> IO Int-#else -ghcjs_dom_html_table_col_element_get_span ::-                                            JSRef HTMLTableColElement -> IO Int-ghcjs_dom_html_table_col_element_get_span = undefined-#endif   htmlTableColElementGetSpan ::                            (IsHTMLTableColElement self) => self -> IO Int htmlTableColElementGetSpan self   = ghcjs_dom_html_table_col_element_get_span       (unHTMLTableColElement (toHTMLTableColElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"vAlign\"] = $2;"         ghcjs_dom_html_table_col_element_set_v_align ::         JSRef HTMLTableColElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_col_element_set_v_align ::-                                               JSRef HTMLTableColElement -> JSString -> IO ()-ghcjs_dom_html_table_col_element_set_v_align = undefined-#endif   htmlTableColElementSetVAlign ::                              (IsHTMLTableColElement self, ToJSString val) =>@@ -208,17 +141,10 @@   = ghcjs_dom_html_table_col_element_set_v_align       (unHTMLTableColElement (toHTMLTableColElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"vAlign\"]"         ghcjs_dom_html_table_col_element_get_v_align ::         JSRef HTMLTableColElement -> IO JSString-#else -ghcjs_dom_html_table_col_element_get_v_align ::-                                               JSRef HTMLTableColElement -> IO JSString-ghcjs_dom_html_table_col_element_get_v_align = undefined-#endif   htmlTableColElementGetVAlign ::                              (IsHTMLTableColElement self, FromJSString result) =>@@ -227,17 +153,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_col_element_get_v_align          (unHTMLTableColElement (toHTMLTableColElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_table_col_element_set_width ::         JSRef HTMLTableColElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_col_element_set_width ::-                                             JSRef HTMLTableColElement -> JSString -> IO ()-ghcjs_dom_html_table_col_element_set_width = undefined-#endif   htmlTableColElementSetWidth ::                             (IsHTMLTableColElement self, ToJSString val) =>@@ -246,17 +165,10 @@   = ghcjs_dom_html_table_col_element_set_width       (unHTMLTableColElement (toHTMLTableColElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_table_col_element_get_width ::         JSRef HTMLTableColElement -> IO JSString-#else -ghcjs_dom_html_table_col_element_get_width ::-                                             JSRef HTMLTableColElement -> IO JSString-ghcjs_dom_html_table_col_element_get_width = undefined-#endif   htmlTableColElementGetWidth ::                             (IsHTMLTableColElement self, FromJSString result) =>

src/GHCJS/DOM/HTMLTableElement.hs view

@@ -59,28 +59,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"createTHead\"]()"         ghcjs_dom_html_table_element_create_t_head ::         JSRef HTMLTableElement -> IO (JSRef HTMLElement)-#else -ghcjs_dom_html_table_element_create_t_head ::-                                             JSRef HTMLTableElement -> IO (JSRef HTMLElement)-ghcjs_dom_html_table_element_create_t_head = undefined-#endif   htmlTableElementCreateTHead ::                             (IsHTMLTableElement self) => self -> IO (Maybe HTMLElement)@@ -88,34 +77,20 @@   = fmap HTMLElement . maybeJSNull <$>       (ghcjs_dom_html_table_element_create_t_head          (unHTMLTableElement (toHTMLTableElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"deleteTHead\"]()"         ghcjs_dom_html_table_element_delete_t_head ::         JSRef HTMLTableElement -> IO ()-#else -ghcjs_dom_html_table_element_delete_t_head ::-                                             JSRef HTMLTableElement -> IO ()-ghcjs_dom_html_table_element_delete_t_head = undefined-#endif   htmlTableElementDeleteTHead ::                             (IsHTMLTableElement self) => self -> IO () htmlTableElementDeleteTHead self   = ghcjs_dom_html_table_element_delete_t_head       (unHTMLTableElement (toHTMLTableElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"createTFoot\"]()"         ghcjs_dom_html_table_element_create_t_foot ::         JSRef HTMLTableElement -> IO (JSRef HTMLElement)-#else -ghcjs_dom_html_table_element_create_t_foot ::-                                             JSRef HTMLTableElement -> IO (JSRef HTMLElement)-ghcjs_dom_html_table_element_create_t_foot = undefined-#endif   htmlTableElementCreateTFoot ::                             (IsHTMLTableElement self) => self -> IO (Maybe HTMLElement)@@ -123,34 +98,20 @@   = fmap HTMLElement . maybeJSNull <$>       (ghcjs_dom_html_table_element_create_t_foot          (unHTMLTableElement (toHTMLTableElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"deleteTFoot\"]()"         ghcjs_dom_html_table_element_delete_t_foot ::         JSRef HTMLTableElement -> IO ()-#else -ghcjs_dom_html_table_element_delete_t_foot ::-                                             JSRef HTMLTableElement -> IO ()-ghcjs_dom_html_table_element_delete_t_foot = undefined-#endif   htmlTableElementDeleteTFoot ::                             (IsHTMLTableElement self) => self -> IO () htmlTableElementDeleteTFoot self   = ghcjs_dom_html_table_element_delete_t_foot       (unHTMLTableElement (toHTMLTableElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"createTBody\"]()"         ghcjs_dom_html_table_element_create_t_body ::         JSRef HTMLTableElement -> IO (JSRef HTMLElement)-#else -ghcjs_dom_html_table_element_create_t_body ::-                                             JSRef HTMLTableElement -> IO (JSRef HTMLElement)-ghcjs_dom_html_table_element_create_t_body = undefined-#endif   htmlTableElementCreateTBody ::                             (IsHTMLTableElement self) => self -> IO (Maybe HTMLElement)@@ -158,17 +119,10 @@   = fmap HTMLElement . maybeJSNull <$>       (ghcjs_dom_html_table_element_create_t_body          (unHTMLTableElement (toHTMLTableElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"createCaption\"]()"         ghcjs_dom_html_table_element_create_caption ::         JSRef HTMLTableElement -> IO (JSRef HTMLElement)-#else -ghcjs_dom_html_table_element_create_caption ::-                                              JSRef HTMLTableElement -> IO (JSRef HTMLElement)-ghcjs_dom_html_table_element_create_caption = undefined-#endif   htmlTableElementCreateCaption ::                               (IsHTMLTableElement self) => self -> IO (Maybe HTMLElement)@@ -176,34 +130,20 @@   = fmap HTMLElement . maybeJSNull <$>       (ghcjs_dom_html_table_element_create_caption          (unHTMLTableElement (toHTMLTableElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"deleteCaption\"]()"         ghcjs_dom_html_table_element_delete_caption ::         JSRef HTMLTableElement -> IO ()-#else -ghcjs_dom_html_table_element_delete_caption ::-                                              JSRef HTMLTableElement -> IO ()-ghcjs_dom_html_table_element_delete_caption = undefined-#endif   htmlTableElementDeleteCaption ::                               (IsHTMLTableElement self) => self -> IO () htmlTableElementDeleteCaption self   = ghcjs_dom_html_table_element_delete_caption       (unHTMLTableElement (toHTMLTableElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"insertRow\"]($2)"         ghcjs_dom_html_table_element_insert_row ::         JSRef HTMLTableElement -> Int -> IO (JSRef HTMLElement)-#else -ghcjs_dom_html_table_element_insert_row ::-                                          JSRef HTMLTableElement -> Int -> IO (JSRef HTMLElement)-ghcjs_dom_html_table_element_insert_row = undefined-#endif   htmlTableElementInsertRow ::                           (IsHTMLTableElement self) => self -> Int -> IO (Maybe HTMLElement)@@ -212,17 +152,10 @@       (ghcjs_dom_html_table_element_insert_row          (unHTMLTableElement (toHTMLTableElement self))          index)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"deleteRow\"]($2)"         ghcjs_dom_html_table_element_delete_row ::         JSRef HTMLTableElement -> Int -> IO ()-#else -ghcjs_dom_html_table_element_delete_row ::-                                          JSRef HTMLTableElement -> Int -> IO ()-ghcjs_dom_html_table_element_delete_row = undefined-#endif   htmlTableElementDeleteRow ::                           (IsHTMLTableElement self) => self -> Int -> IO ()@@ -230,18 +163,10 @@   = ghcjs_dom_html_table_element_delete_row       (unHTMLTableElement (toHTMLTableElement self))       index---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"caption\"] = $2;"         ghcjs_dom_html_table_element_set_caption ::         JSRef HTMLTableElement -> JSRef HTMLTableCaptionElement -> IO ()-#else -ghcjs_dom_html_table_element_set_caption ::-                                           JSRef HTMLTableElement ->-                                             JSRef HTMLTableCaptionElement -> IO ()-ghcjs_dom_html_table_element_set_caption = undefined-#endif   htmlTableElementSetCaption ::                            (IsHTMLTableElement self, IsHTMLTableCaptionElement val) =>@@ -252,18 +177,10 @@       (maybe jsNull          (unHTMLTableCaptionElement . toHTMLTableCaptionElement)          val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"caption\"]"         ghcjs_dom_html_table_element_get_caption ::         JSRef HTMLTableElement -> IO (JSRef HTMLTableCaptionElement)-#else -ghcjs_dom_html_table_element_get_caption ::-                                           JSRef HTMLTableElement ->-                                             IO (JSRef HTMLTableCaptionElement)-ghcjs_dom_html_table_element_get_caption = undefined-#endif   htmlTableElementGetCaption ::                            (IsHTMLTableElement self) =>@@ -272,18 +189,10 @@   = fmap HTMLTableCaptionElement . maybeJSNull <$>       (ghcjs_dom_html_table_element_get_caption          (unHTMLTableElement (toHTMLTableElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"tHead\"] = $2;"         ghcjs_dom_html_table_element_set_t_head ::         JSRef HTMLTableElement -> JSRef HTMLTableSectionElement -> IO ()-#else -ghcjs_dom_html_table_element_set_t_head ::-                                          JSRef HTMLTableElement ->-                                            JSRef HTMLTableSectionElement -> IO ()-ghcjs_dom_html_table_element_set_t_head = undefined-#endif   htmlTableElementSetTHead ::                          (IsHTMLTableElement self, IsHTMLTableSectionElement val) =>@@ -294,18 +203,10 @@       (maybe jsNull          (unHTMLTableSectionElement . toHTMLTableSectionElement)          val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"tHead\"]"         ghcjs_dom_html_table_element_get_t_head ::         JSRef HTMLTableElement -> IO (JSRef HTMLTableSectionElement)-#else -ghcjs_dom_html_table_element_get_t_head ::-                                          JSRef HTMLTableElement ->-                                            IO (JSRef HTMLTableSectionElement)-ghcjs_dom_html_table_element_get_t_head = undefined-#endif   htmlTableElementGetTHead ::                          (IsHTMLTableElement self) =>@@ -314,18 +215,10 @@   = fmap HTMLTableSectionElement . maybeJSNull <$>       (ghcjs_dom_html_table_element_get_t_head          (unHTMLTableElement (toHTMLTableElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"tFoot\"] = $2;"         ghcjs_dom_html_table_element_set_t_foot ::         JSRef HTMLTableElement -> JSRef HTMLTableSectionElement -> IO ()-#else -ghcjs_dom_html_table_element_set_t_foot ::-                                          JSRef HTMLTableElement ->-                                            JSRef HTMLTableSectionElement -> IO ()-ghcjs_dom_html_table_element_set_t_foot = undefined-#endif   htmlTableElementSetTFoot ::                          (IsHTMLTableElement self, IsHTMLTableSectionElement val) =>@@ -336,18 +229,10 @@       (maybe jsNull          (unHTMLTableSectionElement . toHTMLTableSectionElement)          val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"tFoot\"]"         ghcjs_dom_html_table_element_get_t_foot ::         JSRef HTMLTableElement -> IO (JSRef HTMLTableSectionElement)-#else -ghcjs_dom_html_table_element_get_t_foot ::-                                          JSRef HTMLTableElement ->-                                            IO (JSRef HTMLTableSectionElement)-ghcjs_dom_html_table_element_get_t_foot = undefined-#endif   htmlTableElementGetTFoot ::                          (IsHTMLTableElement self) =>@@ -356,17 +241,10 @@   = fmap HTMLTableSectionElement . maybeJSNull <$>       (ghcjs_dom_html_table_element_get_t_foot          (unHTMLTableElement (toHTMLTableElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"rows\"]"         ghcjs_dom_html_table_element_get_rows ::         JSRef HTMLTableElement -> IO (JSRef HTMLCollection)-#else -ghcjs_dom_html_table_element_get_rows ::-                                        JSRef HTMLTableElement -> IO (JSRef HTMLCollection)-ghcjs_dom_html_table_element_get_rows = undefined-#endif   htmlTableElementGetRows ::                         (IsHTMLTableElement self) => self -> IO (Maybe HTMLCollection)@@ -374,17 +252,10 @@   = fmap HTMLCollection . maybeJSNull <$>       (ghcjs_dom_html_table_element_get_rows          (unHTMLTableElement (toHTMLTableElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"tBodies\"]"         ghcjs_dom_html_table_element_get_t_bodies ::         JSRef HTMLTableElement -> IO (JSRef HTMLCollection)-#else -ghcjs_dom_html_table_element_get_t_bodies ::-                                            JSRef HTMLTableElement -> IO (JSRef HTMLCollection)-ghcjs_dom_html_table_element_get_t_bodies = undefined-#endif   htmlTableElementGetTBodies ::                            (IsHTMLTableElement self) => self -> IO (Maybe HTMLCollection)@@ -392,17 +263,10 @@   = fmap HTMLCollection . maybeJSNull <$>       (ghcjs_dom_html_table_element_get_t_bodies          (unHTMLTableElement (toHTMLTableElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_table_element_set_align ::         JSRef HTMLTableElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_element_set_align ::-                                         JSRef HTMLTableElement -> JSString -> IO ()-ghcjs_dom_html_table_element_set_align = undefined-#endif   htmlTableElementSetAlign ::                          (IsHTMLTableElement self, ToJSString val) => self -> val -> IO ()@@ -410,17 +274,10 @@   = ghcjs_dom_html_table_element_set_align       (unHTMLTableElement (toHTMLTableElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_table_element_get_align ::         JSRef HTMLTableElement -> IO JSString-#else -ghcjs_dom_html_table_element_get_align ::-                                         JSRef HTMLTableElement -> IO JSString-ghcjs_dom_html_table_element_get_align = undefined-#endif   htmlTableElementGetAlign ::                          (IsHTMLTableElement self, FromJSString result) => self -> IO result@@ -428,17 +285,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_element_get_align          (unHTMLTableElement (toHTMLTableElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"bgColor\"] = $2;"         ghcjs_dom_html_table_element_set_bg_color ::         JSRef HTMLTableElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_element_set_bg_color ::-                                            JSRef HTMLTableElement -> JSString -> IO ()-ghcjs_dom_html_table_element_set_bg_color = undefined-#endif   htmlTableElementSetBgColor ::                            (IsHTMLTableElement self, ToJSString val) => self -> val -> IO ()@@ -446,17 +296,10 @@   = ghcjs_dom_html_table_element_set_bg_color       (unHTMLTableElement (toHTMLTableElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"bgColor\"]"         ghcjs_dom_html_table_element_get_bg_color ::         JSRef HTMLTableElement -> IO JSString-#else -ghcjs_dom_html_table_element_get_bg_color ::-                                            JSRef HTMLTableElement -> IO JSString-ghcjs_dom_html_table_element_get_bg_color = undefined-#endif   htmlTableElementGetBgColor ::                            (IsHTMLTableElement self, FromJSString result) => self -> IO result@@ -464,17 +307,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_element_get_bg_color          (unHTMLTableElement (toHTMLTableElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"border\"] = $2;"         ghcjs_dom_html_table_element_set_border ::         JSRef HTMLTableElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_element_set_border ::-                                          JSRef HTMLTableElement -> JSString -> IO ()-ghcjs_dom_html_table_element_set_border = undefined-#endif   htmlTableElementSetBorder ::                           (IsHTMLTableElement self, ToJSString val) => self -> val -> IO ()@@ -482,17 +318,10 @@   = ghcjs_dom_html_table_element_set_border       (unHTMLTableElement (toHTMLTableElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"border\"]"         ghcjs_dom_html_table_element_get_border ::         JSRef HTMLTableElement -> IO JSString-#else -ghcjs_dom_html_table_element_get_border ::-                                          JSRef HTMLTableElement -> IO JSString-ghcjs_dom_html_table_element_get_border = undefined-#endif   htmlTableElementGetBorder ::                           (IsHTMLTableElement self, FromJSString result) => self -> IO result@@ -500,17 +329,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_element_get_border          (unHTMLTableElement (toHTMLTableElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"cellPadding\"] = $2;"         ghcjs_dom_html_table_element_set_cell_padding ::         JSRef HTMLTableElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_element_set_cell_padding ::-                                                JSRef HTMLTableElement -> JSString -> IO ()-ghcjs_dom_html_table_element_set_cell_padding = undefined-#endif   htmlTableElementSetCellPadding ::                                (IsHTMLTableElement self, ToJSString val) => self -> val -> IO ()@@ -518,17 +340,10 @@   = ghcjs_dom_html_table_element_set_cell_padding       (unHTMLTableElement (toHTMLTableElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"cellPadding\"]"         ghcjs_dom_html_table_element_get_cell_padding ::         JSRef HTMLTableElement -> IO JSString-#else -ghcjs_dom_html_table_element_get_cell_padding ::-                                                JSRef HTMLTableElement -> IO JSString-ghcjs_dom_html_table_element_get_cell_padding = undefined-#endif   htmlTableElementGetCellPadding ::                                (IsHTMLTableElement self, FromJSString result) => self -> IO result@@ -536,17 +351,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_element_get_cell_padding          (unHTMLTableElement (toHTMLTableElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"cellSpacing\"] = $2;"         ghcjs_dom_html_table_element_set_cell_spacing ::         JSRef HTMLTableElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_element_set_cell_spacing ::-                                                JSRef HTMLTableElement -> JSString -> IO ()-ghcjs_dom_html_table_element_set_cell_spacing = undefined-#endif   htmlTableElementSetCellSpacing ::                                (IsHTMLTableElement self, ToJSString val) => self -> val -> IO ()@@ -554,17 +362,10 @@   = ghcjs_dom_html_table_element_set_cell_spacing       (unHTMLTableElement (toHTMLTableElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"cellSpacing\"]"         ghcjs_dom_html_table_element_get_cell_spacing ::         JSRef HTMLTableElement -> IO JSString-#else -ghcjs_dom_html_table_element_get_cell_spacing ::-                                                JSRef HTMLTableElement -> IO JSString-ghcjs_dom_html_table_element_get_cell_spacing = undefined-#endif   htmlTableElementGetCellSpacing ::                                (IsHTMLTableElement self, FromJSString result) => self -> IO result@@ -572,17 +373,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_element_get_cell_spacing          (unHTMLTableElement (toHTMLTableElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"frame\"] = $2;"         ghcjs_dom_html_table_element_set_frame ::         JSRef HTMLTableElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_element_set_frame ::-                                         JSRef HTMLTableElement -> JSString -> IO ()-ghcjs_dom_html_table_element_set_frame = undefined-#endif   htmlTableElementSetFrame ::                          (IsHTMLTableElement self, ToJSString val) => self -> val -> IO ()@@ -590,17 +384,10 @@   = ghcjs_dom_html_table_element_set_frame       (unHTMLTableElement (toHTMLTableElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"frame\"]"         ghcjs_dom_html_table_element_get_frame ::         JSRef HTMLTableElement -> IO JSString-#else -ghcjs_dom_html_table_element_get_frame ::-                                         JSRef HTMLTableElement -> IO JSString-ghcjs_dom_html_table_element_get_frame = undefined-#endif   htmlTableElementGetFrame ::                          (IsHTMLTableElement self, FromJSString result) => self -> IO result@@ -608,17 +395,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_element_get_frame          (unHTMLTableElement (toHTMLTableElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"rules\"] = $2;"         ghcjs_dom_html_table_element_set_rules ::         JSRef HTMLTableElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_element_set_rules ::-                                         JSRef HTMLTableElement -> JSString -> IO ()-ghcjs_dom_html_table_element_set_rules = undefined-#endif   htmlTableElementSetRules ::                          (IsHTMLTableElement self, ToJSString val) => self -> val -> IO ()@@ -626,17 +406,10 @@   = ghcjs_dom_html_table_element_set_rules       (unHTMLTableElement (toHTMLTableElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"rules\"]"         ghcjs_dom_html_table_element_get_rules ::         JSRef HTMLTableElement -> IO JSString-#else -ghcjs_dom_html_table_element_get_rules ::-                                         JSRef HTMLTableElement -> IO JSString-ghcjs_dom_html_table_element_get_rules = undefined-#endif   htmlTableElementGetRules ::                          (IsHTMLTableElement self, FromJSString result) => self -> IO result@@ -644,17 +417,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_element_get_rules          (unHTMLTableElement (toHTMLTableElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"summary\"] = $2;"         ghcjs_dom_html_table_element_set_summary ::         JSRef HTMLTableElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_element_set_summary ::-                                           JSRef HTMLTableElement -> JSString -> IO ()-ghcjs_dom_html_table_element_set_summary = undefined-#endif   htmlTableElementSetSummary ::                            (IsHTMLTableElement self, ToJSString val) => self -> val -> IO ()@@ -662,17 +428,10 @@   = ghcjs_dom_html_table_element_set_summary       (unHTMLTableElement (toHTMLTableElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"summary\"]"         ghcjs_dom_html_table_element_get_summary ::         JSRef HTMLTableElement -> IO JSString-#else -ghcjs_dom_html_table_element_get_summary ::-                                           JSRef HTMLTableElement -> IO JSString-ghcjs_dom_html_table_element_get_summary = undefined-#endif   htmlTableElementGetSummary ::                            (IsHTMLTableElement self, FromJSString result) => self -> IO result@@ -680,17 +439,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_element_get_summary          (unHTMLTableElement (toHTMLTableElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_table_element_set_width ::         JSRef HTMLTableElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_element_set_width ::-                                         JSRef HTMLTableElement -> JSString -> IO ()-ghcjs_dom_html_table_element_set_width = undefined-#endif   htmlTableElementSetWidth ::                          (IsHTMLTableElement self, ToJSString val) => self -> val -> IO ()@@ -698,17 +450,10 @@   = ghcjs_dom_html_table_element_set_width       (unHTMLTableElement (toHTMLTableElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_table_element_get_width ::         JSRef HTMLTableElement -> IO JSString-#else -ghcjs_dom_html_table_element_get_width ::-                                         JSRef HTMLTableElement -> IO JSString-ghcjs_dom_html_table_element_get_width = undefined-#endif   htmlTableElementGetWidth ::                          (IsHTMLTableElement self, FromJSString result) => self -> IO result

src/GHCJS/DOM/HTMLTableRowElement.hs view

@@ -35,29 +35,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"insertCell\"]($2)"         ghcjs_dom_html_table_row_element_insert_cell ::         JSRef HTMLTableRowElement -> Int -> IO (JSRef HTMLElement)-#else -ghcjs_dom_html_table_row_element_insert_cell ::-                                               JSRef HTMLTableRowElement ->-                                                 Int -> IO (JSRef HTMLElement)-ghcjs_dom_html_table_row_element_insert_cell = undefined-#endif   htmlTableRowElementInsertCell ::                               (IsHTMLTableRowElement self) =>@@ -67,17 +55,10 @@       (ghcjs_dom_html_table_row_element_insert_cell          (unHTMLTableRowElement (toHTMLTableRowElement self))          index)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"deleteCell\"]($2)"         ghcjs_dom_html_table_row_element_delete_cell ::         JSRef HTMLTableRowElement -> Int -> IO ()-#else -ghcjs_dom_html_table_row_element_delete_cell ::-                                               JSRef HTMLTableRowElement -> Int -> IO ()-ghcjs_dom_html_table_row_element_delete_cell = undefined-#endif   htmlTableRowElementDeleteCell ::                               (IsHTMLTableRowElement self) => self -> Int -> IO ()@@ -85,51 +66,30 @@   = ghcjs_dom_html_table_row_element_delete_cell       (unHTMLTableRowElement (toHTMLTableRowElement self))       index---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"rowIndex\"]"         ghcjs_dom_html_table_row_element_get_row_index ::         JSRef HTMLTableRowElement -> IO Int-#else -ghcjs_dom_html_table_row_element_get_row_index ::-                                                 JSRef HTMLTableRowElement -> IO Int-ghcjs_dom_html_table_row_element_get_row_index = undefined-#endif   htmlTableRowElementGetRowIndex ::                                (IsHTMLTableRowElement self) => self -> IO Int htmlTableRowElementGetRowIndex self   = ghcjs_dom_html_table_row_element_get_row_index       (unHTMLTableRowElement (toHTMLTableRowElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"sectionRowIndex\"]"         ghcjs_dom_html_table_row_element_get_section_row_index ::         JSRef HTMLTableRowElement -> IO Int-#else -ghcjs_dom_html_table_row_element_get_section_row_index ::-                                                         JSRef HTMLTableRowElement -> IO Int-ghcjs_dom_html_table_row_element_get_section_row_index = undefined-#endif   htmlTableRowElementGetSectionRowIndex ::                                       (IsHTMLTableRowElement self) => self -> IO Int htmlTableRowElementGetSectionRowIndex self   = ghcjs_dom_html_table_row_element_get_section_row_index       (unHTMLTableRowElement (toHTMLTableRowElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"cells\"]"         ghcjs_dom_html_table_row_element_get_cells ::         JSRef HTMLTableRowElement -> IO (JSRef HTMLCollection)-#else -ghcjs_dom_html_table_row_element_get_cells ::-                                             JSRef HTMLTableRowElement -> IO (JSRef HTMLCollection)-ghcjs_dom_html_table_row_element_get_cells = undefined-#endif   htmlTableRowElementGetCells ::                             (IsHTMLTableRowElement self) => self -> IO (Maybe HTMLCollection)@@ -137,17 +97,10 @@   = fmap HTMLCollection . maybeJSNull <$>       (ghcjs_dom_html_table_row_element_get_cells          (unHTMLTableRowElement (toHTMLTableRowElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_table_row_element_set_align ::         JSRef HTMLTableRowElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_row_element_set_align ::-                                             JSRef HTMLTableRowElement -> JSString -> IO ()-ghcjs_dom_html_table_row_element_set_align = undefined-#endif   htmlTableRowElementSetAlign ::                             (IsHTMLTableRowElement self, ToJSString val) =>@@ -156,17 +109,10 @@   = ghcjs_dom_html_table_row_element_set_align       (unHTMLTableRowElement (toHTMLTableRowElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_table_row_element_get_align ::         JSRef HTMLTableRowElement -> IO JSString-#else -ghcjs_dom_html_table_row_element_get_align ::-                                             JSRef HTMLTableRowElement -> IO JSString-ghcjs_dom_html_table_row_element_get_align = undefined-#endif   htmlTableRowElementGetAlign ::                             (IsHTMLTableRowElement self, FromJSString result) =>@@ -175,17 +121,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_row_element_get_align          (unHTMLTableRowElement (toHTMLTableRowElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"bgColor\"] = $2;"         ghcjs_dom_html_table_row_element_set_bg_color ::         JSRef HTMLTableRowElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_row_element_set_bg_color ::-                                                JSRef HTMLTableRowElement -> JSString -> IO ()-ghcjs_dom_html_table_row_element_set_bg_color = undefined-#endif   htmlTableRowElementSetBgColor ::                               (IsHTMLTableRowElement self, ToJSString val) =>@@ -194,17 +133,10 @@   = ghcjs_dom_html_table_row_element_set_bg_color       (unHTMLTableRowElement (toHTMLTableRowElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"bgColor\"]"         ghcjs_dom_html_table_row_element_get_bg_color ::         JSRef HTMLTableRowElement -> IO JSString-#else -ghcjs_dom_html_table_row_element_get_bg_color ::-                                                JSRef HTMLTableRowElement -> IO JSString-ghcjs_dom_html_table_row_element_get_bg_color = undefined-#endif   htmlTableRowElementGetBgColor ::                               (IsHTMLTableRowElement self, FromJSString result) =>@@ -213,17 +145,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_row_element_get_bg_color          (unHTMLTableRowElement (toHTMLTableRowElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"ch\"] = $2;"         ghcjs_dom_html_table_row_element_set_ch ::         JSRef HTMLTableRowElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_row_element_set_ch ::-                                          JSRef HTMLTableRowElement -> JSString -> IO ()-ghcjs_dom_html_table_row_element_set_ch = undefined-#endif   htmlTableRowElementSetCh ::                          (IsHTMLTableRowElement self, ToJSString val) =>@@ -232,17 +157,10 @@   = ghcjs_dom_html_table_row_element_set_ch       (unHTMLTableRowElement (toHTMLTableRowElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"ch\"]"         ghcjs_dom_html_table_row_element_get_ch ::         JSRef HTMLTableRowElement -> IO JSString-#else -ghcjs_dom_html_table_row_element_get_ch ::-                                          JSRef HTMLTableRowElement -> IO JSString-ghcjs_dom_html_table_row_element_get_ch = undefined-#endif   htmlTableRowElementGetCh ::                          (IsHTMLTableRowElement self, FromJSString result) =>@@ -251,17 +169,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_row_element_get_ch          (unHTMLTableRowElement (toHTMLTableRowElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"chOff\"] = $2;"         ghcjs_dom_html_table_row_element_set_ch_off ::         JSRef HTMLTableRowElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_row_element_set_ch_off ::-                                              JSRef HTMLTableRowElement -> JSString -> IO ()-ghcjs_dom_html_table_row_element_set_ch_off = undefined-#endif   htmlTableRowElementSetChOff ::                             (IsHTMLTableRowElement self, ToJSString val) =>@@ -270,17 +181,10 @@   = ghcjs_dom_html_table_row_element_set_ch_off       (unHTMLTableRowElement (toHTMLTableRowElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"chOff\"]"         ghcjs_dom_html_table_row_element_get_ch_off ::         JSRef HTMLTableRowElement -> IO JSString-#else -ghcjs_dom_html_table_row_element_get_ch_off ::-                                              JSRef HTMLTableRowElement -> IO JSString-ghcjs_dom_html_table_row_element_get_ch_off = undefined-#endif   htmlTableRowElementGetChOff ::                             (IsHTMLTableRowElement self, FromJSString result) =>@@ -289,17 +193,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_row_element_get_ch_off          (unHTMLTableRowElement (toHTMLTableRowElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"vAlign\"] = $2;"         ghcjs_dom_html_table_row_element_set_v_align ::         JSRef HTMLTableRowElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_row_element_set_v_align ::-                                               JSRef HTMLTableRowElement -> JSString -> IO ()-ghcjs_dom_html_table_row_element_set_v_align = undefined-#endif   htmlTableRowElementSetVAlign ::                              (IsHTMLTableRowElement self, ToJSString val) =>@@ -308,17 +205,10 @@   = ghcjs_dom_html_table_row_element_set_v_align       (unHTMLTableRowElement (toHTMLTableRowElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"vAlign\"]"         ghcjs_dom_html_table_row_element_get_v_align ::         JSRef HTMLTableRowElement -> IO JSString-#else -ghcjs_dom_html_table_row_element_get_v_align ::-                                               JSRef HTMLTableRowElement -> IO JSString-ghcjs_dom_html_table_row_element_get_v_align = undefined-#endif   htmlTableRowElementGetVAlign ::                              (IsHTMLTableRowElement self, FromJSString result) =>

src/GHCJS/DOM/HTMLTableSectionElement.hs view

@@ -29,29 +29,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"insertRow\"]($2)"         ghcjs_dom_html_table_section_element_insert_row ::         JSRef HTMLTableSectionElement -> Int -> IO (JSRef HTMLElement)-#else -ghcjs_dom_html_table_section_element_insert_row ::-                                                  JSRef HTMLTableSectionElement ->-                                                    Int -> IO (JSRef HTMLElement)-ghcjs_dom_html_table_section_element_insert_row = undefined-#endif   htmlTableSectionElementInsertRow ::                                  (IsHTMLTableSectionElement self) =>@@ -61,17 +49,10 @@       (ghcjs_dom_html_table_section_element_insert_row          (unHTMLTableSectionElement (toHTMLTableSectionElement self))          index)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"deleteRow\"]($2)"         ghcjs_dom_html_table_section_element_delete_row ::         JSRef HTMLTableSectionElement -> Int -> IO ()-#else -ghcjs_dom_html_table_section_element_delete_row ::-                                                  JSRef HTMLTableSectionElement -> Int -> IO ()-ghcjs_dom_html_table_section_element_delete_row = undefined-#endif   htmlTableSectionElementDeleteRow ::                                  (IsHTMLTableSectionElement self) => self -> Int -> IO ()@@ -79,17 +60,10 @@   = ghcjs_dom_html_table_section_element_delete_row       (unHTMLTableSectionElement (toHTMLTableSectionElement self))       index---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"] = $2;"         ghcjs_dom_html_table_section_element_set_align ::         JSRef HTMLTableSectionElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_section_element_set_align ::-                                                 JSRef HTMLTableSectionElement -> JSString -> IO ()-ghcjs_dom_html_table_section_element_set_align = undefined-#endif   htmlTableSectionElementSetAlign ::                                 (IsHTMLTableSectionElement self, ToJSString val) =>@@ -98,17 +72,10 @@   = ghcjs_dom_html_table_section_element_set_align       (unHTMLTableSectionElement (toHTMLTableSectionElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"align\"]"         ghcjs_dom_html_table_section_element_get_align ::         JSRef HTMLTableSectionElement -> IO JSString-#else -ghcjs_dom_html_table_section_element_get_align ::-                                                 JSRef HTMLTableSectionElement -> IO JSString-ghcjs_dom_html_table_section_element_get_align = undefined-#endif   htmlTableSectionElementGetAlign ::                                 (IsHTMLTableSectionElement self, FromJSString result) =>@@ -117,17 +84,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_section_element_get_align          (unHTMLTableSectionElement (toHTMLTableSectionElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"ch\"] = $2;"         ghcjs_dom_html_table_section_element_set_ch ::         JSRef HTMLTableSectionElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_section_element_set_ch ::-                                              JSRef HTMLTableSectionElement -> JSString -> IO ()-ghcjs_dom_html_table_section_element_set_ch = undefined-#endif   htmlTableSectionElementSetCh ::                              (IsHTMLTableSectionElement self, ToJSString val) =>@@ -136,17 +96,10 @@   = ghcjs_dom_html_table_section_element_set_ch       (unHTMLTableSectionElement (toHTMLTableSectionElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"ch\"]"         ghcjs_dom_html_table_section_element_get_ch ::         JSRef HTMLTableSectionElement -> IO JSString-#else -ghcjs_dom_html_table_section_element_get_ch ::-                                              JSRef HTMLTableSectionElement -> IO JSString-ghcjs_dom_html_table_section_element_get_ch = undefined-#endif   htmlTableSectionElementGetCh ::                              (IsHTMLTableSectionElement self, FromJSString result) =>@@ -155,17 +108,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_section_element_get_ch          (unHTMLTableSectionElement (toHTMLTableSectionElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"chOff\"] = $2;"         ghcjs_dom_html_table_section_element_set_ch_off ::         JSRef HTMLTableSectionElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_section_element_set_ch_off ::-                                                  JSRef HTMLTableSectionElement -> JSString -> IO ()-ghcjs_dom_html_table_section_element_set_ch_off = undefined-#endif   htmlTableSectionElementSetChOff ::                                 (IsHTMLTableSectionElement self, ToJSString val) =>@@ -174,17 +120,10 @@   = ghcjs_dom_html_table_section_element_set_ch_off       (unHTMLTableSectionElement (toHTMLTableSectionElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"chOff\"]"         ghcjs_dom_html_table_section_element_get_ch_off ::         JSRef HTMLTableSectionElement -> IO JSString-#else -ghcjs_dom_html_table_section_element_get_ch_off ::-                                                  JSRef HTMLTableSectionElement -> IO JSString-ghcjs_dom_html_table_section_element_get_ch_off = undefined-#endif   htmlTableSectionElementGetChOff ::                                 (IsHTMLTableSectionElement self, FromJSString result) =>@@ -193,18 +132,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_section_element_get_ch_off          (unHTMLTableSectionElement (toHTMLTableSectionElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"vAlign\"] = $2;"         ghcjs_dom_html_table_section_element_set_v_align ::         JSRef HTMLTableSectionElement -> JSString -> IO ()-#else -ghcjs_dom_html_table_section_element_set_v_align ::-                                                   JSRef HTMLTableSectionElement ->-                                                     JSString -> IO ()-ghcjs_dom_html_table_section_element_set_v_align = undefined-#endif   htmlTableSectionElementSetVAlign ::                                  (IsHTMLTableSectionElement self, ToJSString val) =>@@ -213,17 +144,10 @@   = ghcjs_dom_html_table_section_element_set_v_align       (unHTMLTableSectionElement (toHTMLTableSectionElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"vAlign\"]"         ghcjs_dom_html_table_section_element_get_v_align ::         JSRef HTMLTableSectionElement -> IO JSString-#else -ghcjs_dom_html_table_section_element_get_v_align ::-                                                   JSRef HTMLTableSectionElement -> IO JSString-ghcjs_dom_html_table_section_element_get_v_align = undefined-#endif   htmlTableSectionElementGetVAlign ::                                  (IsHTMLTableSectionElement self, FromJSString result) =>@@ -232,18 +156,10 @@   = fromJSString <$>       (ghcjs_dom_html_table_section_element_get_v_align          (unHTMLTableSectionElement (toHTMLTableSectionElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"rows\"]"         ghcjs_dom_html_table_section_element_get_rows ::         JSRef HTMLTableSectionElement -> IO (JSRef HTMLCollection)-#else -ghcjs_dom_html_table_section_element_get_rows ::-                                                JSRef HTMLTableSectionElement ->-                                                  IO (JSRef HTMLCollection)-ghcjs_dom_html_table_section_element_get_rows = undefined-#endif   htmlTableSectionElementGetRows ::                                (IsHTMLTableSectionElement self) =>

src/GHCJS/DOM/HTMLTextAreaElement.hs view

@@ -9,6 +9,8 @@         ghcjs_dom_html_text_area_element_select, htmlTextAreaElementSelect,         ghcjs_dom_html_text_area_element_set_range_text,         htmlTextAreaElementSetRangeText,+        ghcjs_dom_html_text_area_element_set_range_text4,+        htmlTextAreaElementSetRangeText4,         ghcjs_dom_html_text_area_element_set_selection_range,         htmlTextAreaElementSetSelectionRange,         ghcjs_dom_html_text_area_element_set_autofocus,@@ -86,54 +88,43 @@         ghcjs_dom_html_text_area_element_set_selection_direction,         htmlTextAreaElementSetSelectionDirection,         ghcjs_dom_html_text_area_element_get_selection_direction,-        htmlTextAreaElementGetSelectionDirection, HTMLTextAreaElement,+        htmlTextAreaElementGetSelectionDirection,+        ghcjs_dom_html_text_area_element_set_autocorrect,+        htmlTextAreaElementSetAutocorrect,+        ghcjs_dom_html_text_area_element_get_autocorrect,+        htmlTextAreaElementGetAutocorrect,+        ghcjs_dom_html_text_area_element_set_autocapitalize,+        htmlTextAreaElementSetAutocapitalize,+        ghcjs_dom_html_text_area_element_get_autocapitalize,+        htmlTextAreaElementGetAutocapitalize, HTMLTextAreaElement,         IsHTMLTextAreaElement, castToHTMLTextAreaElement,         gTypeHTMLTextAreaElement, toHTMLTextAreaElement)        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)"         ghcjs_dom_html_text_area_element_check_validity ::         JSRef HTMLTextAreaElement -> IO Bool-#else-ghcjs_dom_html_text_area_element_check_validity ::-                                                  JSRef HTMLTextAreaElement -> IO Bool-ghcjs_dom_html_text_area_element_check_validity = undefined-#endif-+  htmlTextAreaElementCheckValidity ::                                  (IsHTMLTextAreaElement self) => self -> IO Bool htmlTextAreaElementCheckValidity self   = ghcjs_dom_html_text_area_element_check_validity       (unHTMLTextAreaElement (toHTMLTextAreaElement self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         ghcjs_dom_html_text_area_element_set_custom_validity ::         JSRef HTMLTextAreaElement -> JSString -> IO ()-#else-ghcjs_dom_html_text_area_element_set_custom_validity ::-                                                       JSRef HTMLTextAreaElement ->-                                                         JSString -> IO ()-ghcjs_dom_html_text_area_element_set_custom_validity = undefined-#endif-+  htmlTextAreaElementSetCustomValidity ::                                      (IsHTMLTextAreaElement self, ToJSString error) =>                                        self -> error -> IO ()@@ -141,64 +132,53 @@   = ghcjs_dom_html_text_area_element_set_custom_validity       (unHTMLTextAreaElement (toHTMLTextAreaElement self))       (toJSString error)---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"select\"]()"         ghcjs_dom_html_text_area_element_select ::         JSRef HTMLTextAreaElement -> IO ()-#else-ghcjs_dom_html_text_area_element_select ::-                                          JSRef HTMLTextAreaElement -> IO ()-ghcjs_dom_html_text_area_element_select = undefined-#endif-+  htmlTextAreaElementSelect ::                           (IsHTMLTextAreaElement self) => self -> IO () htmlTextAreaElementSelect self   = ghcjs_dom_html_text_area_element_select       (unHTMLTextAreaElement (toHTMLTextAreaElement self))---#ifdef ghcjs_HOST_OS+ +foreign import javascript unsafe "$1[\"setRangeText\"]($2)"+        ghcjs_dom_html_text_area_element_set_range_text ::+        JSRef HTMLTextAreaElement -> JSString -> IO ()+ +htmlTextAreaElementSetRangeText ::+                                (IsHTMLTextAreaElement self, ToJSString replacement) =>+                                  self -> replacement -> IO ()+htmlTextAreaElementSetRangeText self replacement+  = ghcjs_dom_html_text_area_element_set_range_text+      (unHTMLTextAreaElement (toHTMLTextAreaElement self))+      (toJSString replacement)+  foreign import javascript unsafe         "$1[\"setRangeText\"]($2, $3, $4,\n$5)"-        ghcjs_dom_html_text_area_element_set_range_text ::+        ghcjs_dom_html_text_area_element_set_range_text4 ::         JSRef HTMLTextAreaElement ->           JSString -> Word -> Word -> JSString -> IO ()-#else-ghcjs_dom_html_text_area_element_set_range_text ::-                                                  JSRef HTMLTextAreaElement ->-                                                    JSString -> Word -> Word -> JSString -> IO ()-ghcjs_dom_html_text_area_element_set_range_text = undefined-#endif--htmlTextAreaElementSetRangeText ::-                                (IsHTMLTextAreaElement self, ToJSString replacement,-                                 ToJSString selectionMode) =>-                                  self -> replacement -> Word -> Word -> selectionMode -> IO ()-htmlTextAreaElementSetRangeText self replacement start end+ +htmlTextAreaElementSetRangeText4 ::+                                 (IsHTMLTextAreaElement self, ToJSString replacement,+                                  ToJSString selectionMode) =>+                                   self -> replacement -> Word -> Word -> selectionMode -> IO ()+htmlTextAreaElementSetRangeText4 self replacement start end   selectionMode-  = ghcjs_dom_html_text_area_element_set_range_text+  = ghcjs_dom_html_text_area_element_set_range_text4       (unHTMLTextAreaElement (toHTMLTextAreaElement self))       (toJSString replacement)       start       end       (toJSString selectionMode)---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe         "$1[\"setSelectionRange\"]($2, $3,\n$4)"         ghcjs_dom_html_text_area_element_set_selection_range ::         JSRef HTMLTextAreaElement -> Int -> Int -> JSString -> IO ()-#else-ghcjs_dom_html_text_area_element_set_selection_range ::-                                                       JSRef HTMLTextAreaElement ->-                                                         Int -> Int -> JSString -> IO ()-ghcjs_dom_html_text_area_element_set_selection_range = undefined-#endif-+  htmlTextAreaElementSetSelectionRange ::                                      (IsHTMLTextAreaElement self, ToJSString direction) =>                                        self -> Int -> Int -> direction -> IO ()@@ -208,88 +188,53 @@       start       end       (toJSString direction)---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"autofocus\"] = $2;"         ghcjs_dom_html_text_area_element_set_autofocus ::         JSRef HTMLTextAreaElement -> Bool -> IO ()-#else-ghcjs_dom_html_text_area_element_set_autofocus ::-                                                 JSRef HTMLTextAreaElement -> Bool -> IO ()-ghcjs_dom_html_text_area_element_set_autofocus = undefined-#endif-+  htmlTextAreaElementSetAutofocus ::                                 (IsHTMLTextAreaElement self) => self -> Bool -> IO () htmlTextAreaElementSetAutofocus self val   = ghcjs_dom_html_text_area_element_set_autofocus       (unHTMLTextAreaElement (toHTMLTextAreaElement self))       val---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"         ghcjs_dom_html_text_area_element_get_autofocus ::         JSRef HTMLTextAreaElement -> IO Bool-#else-ghcjs_dom_html_text_area_element_get_autofocus ::-                                                 JSRef HTMLTextAreaElement -> IO Bool-ghcjs_dom_html_text_area_element_get_autofocus = undefined-#endif-+  htmlTextAreaElementGetAutofocus ::                                 (IsHTMLTextAreaElement self) => self -> IO Bool htmlTextAreaElementGetAutofocus self   = ghcjs_dom_html_text_area_element_get_autofocus       (unHTMLTextAreaElement (toHTMLTextAreaElement self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"cols\"] = $2;"         ghcjs_dom_html_text_area_element_set_cols ::         JSRef HTMLTextAreaElement -> Int -> IO ()-#else-ghcjs_dom_html_text_area_element_set_cols ::-                                            JSRef HTMLTextAreaElement -> Int -> IO ()-ghcjs_dom_html_text_area_element_set_cols = undefined-#endif-+  htmlTextAreaElementSetCols ::                            (IsHTMLTextAreaElement self) => self -> Int -> IO () htmlTextAreaElementSetCols self val   = ghcjs_dom_html_text_area_element_set_cols       (unHTMLTextAreaElement (toHTMLTextAreaElement self))       val---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"cols\"]"         ghcjs_dom_html_text_area_element_get_cols ::         JSRef HTMLTextAreaElement -> IO Int-#else-ghcjs_dom_html_text_area_element_get_cols ::-                                            JSRef HTMLTextAreaElement -> IO Int-ghcjs_dom_html_text_area_element_get_cols = undefined-#endif-+  htmlTextAreaElementGetCols ::                            (IsHTMLTextAreaElement self) => self -> IO Int htmlTextAreaElementGetCols self   = ghcjs_dom_html_text_area_element_get_cols       (unHTMLTextAreaElement (toHTMLTextAreaElement self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"dirName\"] = $2;"         ghcjs_dom_html_text_area_element_set_dir_name ::         JSRef HTMLTextAreaElement -> JSString -> IO ()-#else-ghcjs_dom_html_text_area_element_set_dir_name ::-                                                JSRef HTMLTextAreaElement -> JSString -> IO ()-ghcjs_dom_html_text_area_element_set_dir_name = undefined-#endif-+  htmlTextAreaElementSetDirName ::                               (IsHTMLTextAreaElement self, ToJSString val) =>                                 self -> val -> IO ()@@ -297,18 +242,11 @@   = ghcjs_dom_html_text_area_element_set_dir_name       (unHTMLTextAreaElement (toHTMLTextAreaElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"dirName\"]"         ghcjs_dom_html_text_area_element_get_dir_name ::         JSRef HTMLTextAreaElement -> IO JSString-#else-ghcjs_dom_html_text_area_element_get_dir_name ::-                                                JSRef HTMLTextAreaElement -> IO JSString-ghcjs_dom_html_text_area_element_get_dir_name = undefined-#endif-+  htmlTextAreaElementGetDirName ::                               (IsHTMLTextAreaElement self, FromJSString result) =>                                 self -> IO result@@ -316,106 +254,64 @@   = fromJSString <$>       (ghcjs_dom_html_text_area_element_get_dir_name          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"disabled\"] = $2;"         ghcjs_dom_html_text_area_element_set_disabled ::         JSRef HTMLTextAreaElement -> Bool -> IO ()-#else-ghcjs_dom_html_text_area_element_set_disabled ::-                                                JSRef HTMLTextAreaElement -> Bool -> IO ()-ghcjs_dom_html_text_area_element_set_disabled = undefined-#endif-+  htmlTextAreaElementSetDisabled ::                                (IsHTMLTextAreaElement self) => self -> Bool -> IO () htmlTextAreaElementSetDisabled self val   = ghcjs_dom_html_text_area_element_set_disabled       (unHTMLTextAreaElement (toHTMLTextAreaElement self))       val---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"         ghcjs_dom_html_text_area_element_get_disabled ::         JSRef HTMLTextAreaElement -> IO Bool-#else-ghcjs_dom_html_text_area_element_get_disabled ::-                                                JSRef HTMLTextAreaElement -> IO Bool-ghcjs_dom_html_text_area_element_get_disabled = undefined-#endif-+  htmlTextAreaElementGetDisabled ::                                (IsHTMLTextAreaElement self) => self -> IO Bool htmlTextAreaElementGetDisabled self   = ghcjs_dom_html_text_area_element_get_disabled       (unHTMLTextAreaElement (toHTMLTextAreaElement self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"form\"]"         ghcjs_dom_html_text_area_element_get_form ::         JSRef HTMLTextAreaElement -> IO (JSRef HTMLFormElement)-#else-ghcjs_dom_html_text_area_element_get_form ::-                                            JSRef HTMLTextAreaElement -> IO (JSRef HTMLFormElement)-ghcjs_dom_html_text_area_element_get_form = undefined-#endif-+  htmlTextAreaElementGetForm ::                            (IsHTMLTextAreaElement self) => self -> IO (Maybe HTMLFormElement) htmlTextAreaElementGetForm self   = fmap HTMLFormElement . maybeJSNull <$>       (ghcjs_dom_html_text_area_element_get_form          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"maxLength\"] = $2;"         ghcjs_dom_html_text_area_element_set_max_length ::         JSRef HTMLTextAreaElement -> Int -> IO ()-#else-ghcjs_dom_html_text_area_element_set_max_length ::-                                                  JSRef HTMLTextAreaElement -> Int -> IO ()-ghcjs_dom_html_text_area_element_set_max_length = undefined-#endif-+  htmlTextAreaElementSetMaxLength ::                                 (IsHTMLTextAreaElement self) => self -> Int -> IO () htmlTextAreaElementSetMaxLength self val   = ghcjs_dom_html_text_area_element_set_max_length       (unHTMLTextAreaElement (toHTMLTextAreaElement self))       val---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"maxLength\"]"         ghcjs_dom_html_text_area_element_get_max_length ::         JSRef HTMLTextAreaElement -> IO Int-#else-ghcjs_dom_html_text_area_element_get_max_length ::-                                                  JSRef HTMLTextAreaElement -> IO Int-ghcjs_dom_html_text_area_element_get_max_length = undefined-#endif-+  htmlTextAreaElementGetMaxLength ::                                 (IsHTMLTextAreaElement self) => self -> IO Int htmlTextAreaElementGetMaxLength self   = ghcjs_dom_html_text_area_element_get_max_length       (unHTMLTextAreaElement (toHTMLTextAreaElement self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"name\"] = $2;"         ghcjs_dom_html_text_area_element_set_name ::         JSRef HTMLTextAreaElement -> JSString -> IO ()-#else-ghcjs_dom_html_text_area_element_set_name ::-                                            JSRef HTMLTextAreaElement -> JSString -> IO ()-ghcjs_dom_html_text_area_element_set_name = undefined-#endif-+  htmlTextAreaElementSetName ::                            (IsHTMLTextAreaElement self, ToJSString val) =>                              self -> val -> IO ()@@ -423,18 +319,11 @@   = ghcjs_dom_html_text_area_element_set_name       (unHTMLTextAreaElement (toHTMLTextAreaElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_html_text_area_element_get_name ::         JSRef HTMLTextAreaElement -> IO JSString-#else-ghcjs_dom_html_text_area_element_get_name ::-                                            JSRef HTMLTextAreaElement -> IO JSString-ghcjs_dom_html_text_area_element_get_name = undefined-#endif-+  htmlTextAreaElementGetName ::                            (IsHTMLTextAreaElement self, FromJSString result) =>                              self -> IO result@@ -442,18 +331,11 @@   = fromJSString <$>       (ghcjs_dom_html_text_area_element_get_name          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"placeholder\"] = $2;"         ghcjs_dom_html_text_area_element_set_placeholder ::         JSRef HTMLTextAreaElement -> JSString -> IO ()-#else-ghcjs_dom_html_text_area_element_set_placeholder ::-                                                   JSRef HTMLTextAreaElement -> JSString -> IO ()-ghcjs_dom_html_text_area_element_set_placeholder = undefined-#endif-+  htmlTextAreaElementSetPlaceholder ::                                   (IsHTMLTextAreaElement self, ToJSString val) =>                                     self -> val -> IO ()@@ -461,18 +343,11 @@   = ghcjs_dom_html_text_area_element_set_placeholder       (unHTMLTextAreaElement (toHTMLTextAreaElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"placeholder\"]"         ghcjs_dom_html_text_area_element_get_placeholder ::         JSRef HTMLTextAreaElement -> IO JSString-#else-ghcjs_dom_html_text_area_element_get_placeholder ::-                                                   JSRef HTMLTextAreaElement -> IO JSString-ghcjs_dom_html_text_area_element_get_placeholder = undefined-#endif-+  htmlTextAreaElementGetPlaceholder ::                                   (IsHTMLTextAreaElement self, FromJSString result) =>                                     self -> IO result@@ -480,123 +355,74 @@   = fromJSString <$>       (ghcjs_dom_html_text_area_element_get_placeholder          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"readOnly\"] = $2;"         ghcjs_dom_html_text_area_element_set_read_only ::         JSRef HTMLTextAreaElement -> Bool -> IO ()-#else-ghcjs_dom_html_text_area_element_set_read_only ::-                                                 JSRef HTMLTextAreaElement -> Bool -> IO ()-ghcjs_dom_html_text_area_element_set_read_only = undefined-#endif-+  htmlTextAreaElementSetReadOnly ::                                (IsHTMLTextAreaElement self) => self -> Bool -> IO () htmlTextAreaElementSetReadOnly self val   = ghcjs_dom_html_text_area_element_set_read_only       (unHTMLTextAreaElement (toHTMLTextAreaElement self))       val---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "($1[\"readOnly\"] ? 1 : 0)"         ghcjs_dom_html_text_area_element_get_read_only ::         JSRef HTMLTextAreaElement -> IO Bool-#else-ghcjs_dom_html_text_area_element_get_read_only ::-                                                 JSRef HTMLTextAreaElement -> IO Bool-ghcjs_dom_html_text_area_element_get_read_only = undefined-#endif-+  htmlTextAreaElementGetReadOnly ::                                (IsHTMLTextAreaElement self) => self -> IO Bool htmlTextAreaElementGetReadOnly self   = ghcjs_dom_html_text_area_element_get_read_only       (unHTMLTextAreaElement (toHTMLTextAreaElement self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"required\"] = $2;"         ghcjs_dom_html_text_area_element_set_required ::         JSRef HTMLTextAreaElement -> Bool -> IO ()-#else-ghcjs_dom_html_text_area_element_set_required ::-                                                JSRef HTMLTextAreaElement -> Bool -> IO ()-ghcjs_dom_html_text_area_element_set_required = undefined-#endif-+  htmlTextAreaElementSetRequired ::                                (IsHTMLTextAreaElement self) => self -> Bool -> IO () htmlTextAreaElementSetRequired self val   = ghcjs_dom_html_text_area_element_set_required       (unHTMLTextAreaElement (toHTMLTextAreaElement self))       val---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"         ghcjs_dom_html_text_area_element_get_required ::         JSRef HTMLTextAreaElement -> IO Bool-#else-ghcjs_dom_html_text_area_element_get_required ::-                                                JSRef HTMLTextAreaElement -> IO Bool-ghcjs_dom_html_text_area_element_get_required = undefined-#endif-+  htmlTextAreaElementGetRequired ::                                (IsHTMLTextAreaElement self) => self -> IO Bool htmlTextAreaElementGetRequired self   = ghcjs_dom_html_text_area_element_get_required       (unHTMLTextAreaElement (toHTMLTextAreaElement self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"rows\"] = $2;"         ghcjs_dom_html_text_area_element_set_rows ::         JSRef HTMLTextAreaElement -> Int -> IO ()-#else-ghcjs_dom_html_text_area_element_set_rows ::-                                            JSRef HTMLTextAreaElement -> Int -> IO ()-ghcjs_dom_html_text_area_element_set_rows = undefined-#endif-+  htmlTextAreaElementSetRows ::                            (IsHTMLTextAreaElement self) => self -> Int -> IO () htmlTextAreaElementSetRows self val   = ghcjs_dom_html_text_area_element_set_rows       (unHTMLTextAreaElement (toHTMLTextAreaElement self))       val---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"rows\"]"         ghcjs_dom_html_text_area_element_get_rows ::         JSRef HTMLTextAreaElement -> IO Int-#else-ghcjs_dom_html_text_area_element_get_rows ::-                                            JSRef HTMLTextAreaElement -> IO Int-ghcjs_dom_html_text_area_element_get_rows = undefined-#endif-+  htmlTextAreaElementGetRows ::                            (IsHTMLTextAreaElement self) => self -> IO Int htmlTextAreaElementGetRows self   = ghcjs_dom_html_text_area_element_get_rows       (unHTMLTextAreaElement (toHTMLTextAreaElement self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"wrap\"] = $2;"         ghcjs_dom_html_text_area_element_set_wrap ::         JSRef HTMLTextAreaElement -> JSString -> IO ()-#else-ghcjs_dom_html_text_area_element_set_wrap ::-                                            JSRef HTMLTextAreaElement -> JSString -> IO ()-ghcjs_dom_html_text_area_element_set_wrap = undefined-#endif-+  htmlTextAreaElementSetWrap ::                            (IsHTMLTextAreaElement self, ToJSString val) =>                              self -> val -> IO ()@@ -604,18 +430,11 @@   = ghcjs_dom_html_text_area_element_set_wrap       (unHTMLTextAreaElement (toHTMLTextAreaElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"wrap\"]"         ghcjs_dom_html_text_area_element_get_wrap ::         JSRef HTMLTextAreaElement -> IO JSString-#else-ghcjs_dom_html_text_area_element_get_wrap ::-                                            JSRef HTMLTextAreaElement -> IO JSString-ghcjs_dom_html_text_area_element_get_wrap = undefined-#endif-+  htmlTextAreaElementGetWrap ::                            (IsHTMLTextAreaElement self, FromJSString result) =>                              self -> IO result@@ -623,18 +442,11 @@   = fromJSString <$>       (ghcjs_dom_html_text_area_element_get_wrap          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"defaultValue\"] = $2;"         ghcjs_dom_html_text_area_element_set_default_value ::         JSRef HTMLTextAreaElement -> JSString -> IO ()-#else-ghcjs_dom_html_text_area_element_set_default_value ::-                                                     JSRef HTMLTextAreaElement -> JSString -> IO ()-ghcjs_dom_html_text_area_element_set_default_value = undefined-#endif-+  htmlTextAreaElementSetDefaultValue ::                                    (IsHTMLTextAreaElement self, ToJSString val) =>                                      self -> val -> IO ()@@ -642,18 +454,11 @@   = ghcjs_dom_html_text_area_element_set_default_value       (unHTMLTextAreaElement (toHTMLTextAreaElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"defaultValue\"]"         ghcjs_dom_html_text_area_element_get_default_value ::         JSRef HTMLTextAreaElement -> IO JSString-#else-ghcjs_dom_html_text_area_element_get_default_value ::-                                                     JSRef HTMLTextAreaElement -> IO JSString-ghcjs_dom_html_text_area_element_get_default_value = undefined-#endif-+  htmlTextAreaElementGetDefaultValue ::                                    (IsHTMLTextAreaElement self, FromJSString result) =>                                      self -> IO result@@ -661,18 +466,11 @@   = fromJSString <$>       (ghcjs_dom_html_text_area_element_get_default_value          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"value\"] = $2;"         ghcjs_dom_html_text_area_element_set_value ::         JSRef HTMLTextAreaElement -> JSString -> IO ()-#else-ghcjs_dom_html_text_area_element_set_value ::-                                             JSRef HTMLTextAreaElement -> JSString -> IO ()-ghcjs_dom_html_text_area_element_set_value = undefined-#endif-+  htmlTextAreaElementSetValue ::                             (IsHTMLTextAreaElement self, ToJSString val) =>                               self -> val -> IO ()@@ -680,18 +478,11 @@   = ghcjs_dom_html_text_area_element_set_value       (unHTMLTextAreaElement (toHTMLTextAreaElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"value\"]"         ghcjs_dom_html_text_area_element_get_value ::         JSRef HTMLTextAreaElement -> IO JSString-#else-ghcjs_dom_html_text_area_element_get_value ::-                                             JSRef HTMLTextAreaElement -> IO JSString-ghcjs_dom_html_text_area_element_get_value = undefined-#endif-+  htmlTextAreaElementGetValue ::                             (IsHTMLTextAreaElement self, FromJSString result) =>                               self -> IO result@@ -699,71 +490,42 @@   = fromJSString <$>       (ghcjs_dom_html_text_area_element_get_value          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"textLength\"]"         ghcjs_dom_html_text_area_element_get_text_length ::         JSRef HTMLTextAreaElement -> IO Word-#else-ghcjs_dom_html_text_area_element_get_text_length ::-                                                   JSRef HTMLTextAreaElement -> IO Word-ghcjs_dom_html_text_area_element_get_text_length = undefined-#endif-+  htmlTextAreaElementGetTextLength ::                                  (IsHTMLTextAreaElement self) => self -> IO Word htmlTextAreaElementGetTextLength self   = ghcjs_dom_html_text_area_element_get_text_length       (unHTMLTextAreaElement (toHTMLTextAreaElement self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"         ghcjs_dom_html_text_area_element_get_will_validate ::         JSRef HTMLTextAreaElement -> IO Bool-#else-ghcjs_dom_html_text_area_element_get_will_validate ::-                                                     JSRef HTMLTextAreaElement -> IO Bool-ghcjs_dom_html_text_area_element_get_will_validate = undefined-#endif-+  htmlTextAreaElementGetWillValidate ::                                    (IsHTMLTextAreaElement self) => self -> IO Bool htmlTextAreaElementGetWillValidate self   = ghcjs_dom_html_text_area_element_get_will_validate       (unHTMLTextAreaElement (toHTMLTextAreaElement self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"validity\"]"         ghcjs_dom_html_text_area_element_get_validity ::         JSRef HTMLTextAreaElement -> IO (JSRef ValidityState)-#else-ghcjs_dom_html_text_area_element_get_validity ::-                                                JSRef HTMLTextAreaElement ->-                                                  IO (JSRef ValidityState)-ghcjs_dom_html_text_area_element_get_validity = undefined-#endif-+  htmlTextAreaElementGetValidity ::                                (IsHTMLTextAreaElement self) => self -> IO (Maybe ValidityState) htmlTextAreaElementGetValidity self   = fmap ValidityState . maybeJSNull <$>       (ghcjs_dom_html_text_area_element_get_validity          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"validationMessage\"]"         ghcjs_dom_html_text_area_element_get_validation_message ::         JSRef HTMLTextAreaElement -> IO JSString-#else-ghcjs_dom_html_text_area_element_get_validation_message ::-                                                          JSRef HTMLTextAreaElement -> IO JSString-ghcjs_dom_html_text_area_element_get_validation_message = undefined-#endif-+  htmlTextAreaElementGetValidationMessage ::                                         (IsHTMLTextAreaElement self, FromJSString result) =>                                           self -> IO result@@ -771,108 +533,64 @@   = fromJSString <$>       (ghcjs_dom_html_text_area_element_get_validation_message          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"labels\"]"         ghcjs_dom_html_text_area_element_get_labels ::         JSRef HTMLTextAreaElement -> IO (JSRef NodeList)-#else-ghcjs_dom_html_text_area_element_get_labels ::-                                              JSRef HTMLTextAreaElement -> IO (JSRef NodeList)-ghcjs_dom_html_text_area_element_get_labels = undefined-#endif-+  htmlTextAreaElementGetLabels ::                              (IsHTMLTextAreaElement self) => self -> IO (Maybe NodeList) htmlTextAreaElementGetLabels self   = fmap NodeList . maybeJSNull <$>       (ghcjs_dom_html_text_area_element_get_labels          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"selectionStart\"] = $2;"         ghcjs_dom_html_text_area_element_set_selection_start ::         JSRef HTMLTextAreaElement -> Int -> IO ()-#else-ghcjs_dom_html_text_area_element_set_selection_start ::-                                                       JSRef HTMLTextAreaElement -> Int -> IO ()-ghcjs_dom_html_text_area_element_set_selection_start = undefined-#endif-+  htmlTextAreaElementSetSelectionStart ::                                      (IsHTMLTextAreaElement self) => self -> Int -> IO () htmlTextAreaElementSetSelectionStart self val   = ghcjs_dom_html_text_area_element_set_selection_start       (unHTMLTextAreaElement (toHTMLTextAreaElement self))       val---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"selectionStart\"]"         ghcjs_dom_html_text_area_element_get_selection_start ::         JSRef HTMLTextAreaElement -> IO Int-#else-ghcjs_dom_html_text_area_element_get_selection_start ::-                                                       JSRef HTMLTextAreaElement -> IO Int-ghcjs_dom_html_text_area_element_get_selection_start = undefined-#endif-+  htmlTextAreaElementGetSelectionStart ::                                      (IsHTMLTextAreaElement self) => self -> IO Int htmlTextAreaElementGetSelectionStart self   = ghcjs_dom_html_text_area_element_get_selection_start       (unHTMLTextAreaElement (toHTMLTextAreaElement self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"selectionEnd\"] = $2;"         ghcjs_dom_html_text_area_element_set_selection_end ::         JSRef HTMLTextAreaElement -> Int -> IO ()-#else-ghcjs_dom_html_text_area_element_set_selection_end ::-                                                     JSRef HTMLTextAreaElement -> Int -> IO ()-ghcjs_dom_html_text_area_element_set_selection_end = undefined-#endif-+  htmlTextAreaElementSetSelectionEnd ::                                    (IsHTMLTextAreaElement self) => self -> Int -> IO () htmlTextAreaElementSetSelectionEnd self val   = ghcjs_dom_html_text_area_element_set_selection_end       (unHTMLTextAreaElement (toHTMLTextAreaElement self))       val---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"selectionEnd\"]"         ghcjs_dom_html_text_area_element_get_selection_end ::         JSRef HTMLTextAreaElement -> IO Int-#else-ghcjs_dom_html_text_area_element_get_selection_end ::-                                                     JSRef HTMLTextAreaElement -> IO Int-ghcjs_dom_html_text_area_element_get_selection_end = undefined-#endif-+  htmlTextAreaElementGetSelectionEnd ::                                    (IsHTMLTextAreaElement self) => self -> IO Int htmlTextAreaElementGetSelectionEnd self   = ghcjs_dom_html_text_area_element_get_selection_end       (unHTMLTextAreaElement (toHTMLTextAreaElement self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"selectionDirection\"] = $2;"         ghcjs_dom_html_text_area_element_set_selection_direction ::         JSRef HTMLTextAreaElement -> JSString -> IO ()-#else-ghcjs_dom_html_text_area_element_set_selection_direction ::-                                                           JSRef HTMLTextAreaElement ->-                                                             JSString -> IO ()-ghcjs_dom_html_text_area_element_set_selection_direction-  = undefined-#endif-+  htmlTextAreaElementSetSelectionDirection ::                                          (IsHTMLTextAreaElement self, ToJSString val) =>                                            self -> val -> IO ()@@ -880,25 +598,62 @@   = ghcjs_dom_html_text_area_element_set_selection_direction       (unHTMLTextAreaElement (toHTMLTextAreaElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"selectionDirection\"]"         ghcjs_dom_html_text_area_element_get_selection_direction ::         JSRef HTMLTextAreaElement -> IO JSString-#else-ghcjs_dom_html_text_area_element_get_selection_direction ::-                                                           JSRef HTMLTextAreaElement -> IO JSString-ghcjs_dom_html_text_area_element_get_selection_direction-  = undefined-#endif-+  htmlTextAreaElementGetSelectionDirection ::                                          (IsHTMLTextAreaElement self, FromJSString result) =>                                            self -> IO result htmlTextAreaElementGetSelectionDirection self   = fromJSString <$>       (ghcjs_dom_html_text_area_element_get_selection_direction+         (unHTMLTextAreaElement (toHTMLTextAreaElement self)))+ +foreign import javascript unsafe "$1[\"autocorrect\"] = $2;"+        ghcjs_dom_html_text_area_element_set_autocorrect ::+        JSRef HTMLTextAreaElement -> Bool -> IO ()+ +htmlTextAreaElementSetAutocorrect ::+                                  (IsHTMLTextAreaElement self) => self -> Bool -> IO ()+htmlTextAreaElementSetAutocorrect self val+  = ghcjs_dom_html_text_area_element_set_autocorrect+      (unHTMLTextAreaElement (toHTMLTextAreaElement self))+      val+ +foreign import javascript unsafe "($1[\"autocorrect\"] ? 1 : 0)"+        ghcjs_dom_html_text_area_element_get_autocorrect ::+        JSRef HTMLTextAreaElement -> IO Bool+ +htmlTextAreaElementGetAutocorrect ::+                                  (IsHTMLTextAreaElement self) => self -> IO Bool+htmlTextAreaElementGetAutocorrect self+  = ghcjs_dom_html_text_area_element_get_autocorrect+      (unHTMLTextAreaElement (toHTMLTextAreaElement self))+ +foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;"+        ghcjs_dom_html_text_area_element_set_autocapitalize ::+        JSRef HTMLTextAreaElement -> JSString -> IO ()+ +htmlTextAreaElementSetAutocapitalize ::+                                     (IsHTMLTextAreaElement self, ToJSString val) =>+                                       self -> val -> IO ()+htmlTextAreaElementSetAutocapitalize self val+  = ghcjs_dom_html_text_area_element_set_autocapitalize+      (unHTMLTextAreaElement (toHTMLTextAreaElement self))+      (toJSString val)+ +foreign import javascript unsafe "$1[\"autocapitalize\"]"+        ghcjs_dom_html_text_area_element_get_autocapitalize ::+        JSRef HTMLTextAreaElement -> IO JSString+ +htmlTextAreaElementGetAutocapitalize ::+                                     (IsHTMLTextAreaElement self, FromJSString result) =>+                                       self -> IO result+htmlTextAreaElementGetAutocapitalize self+  = fromJSString <$>+      (ghcjs_dom_html_text_area_element_get_autocapitalize          (unHTMLTextAreaElement (toHTMLTextAreaElement self))) #else module GHCJS.DOM.HTMLTextAreaElement (

src/GHCJS/DOM/HTMLTitleElement.hs view

@@ -9,28 +9,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"text\"] = $2;"         ghcjs_dom_html_title_element_set_text ::         JSRef HTMLTitleElement -> JSString -> IO ()-#else -ghcjs_dom_html_title_element_set_text ::-                                        JSRef HTMLTitleElement -> JSString -> IO ()-ghcjs_dom_html_title_element_set_text = undefined-#endif   htmlTitleElementSetText ::                         (IsHTMLTitleElement self, ToJSString val) => self -> val -> IO ()@@ -38,17 +27,10 @@   = ghcjs_dom_html_title_element_set_text       (unHTMLTitleElement (toHTMLTitleElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"text\"]"         ghcjs_dom_html_title_element_get_text ::         JSRef HTMLTitleElement -> IO JSString-#else -ghcjs_dom_html_title_element_get_text ::-                                        JSRef HTMLTitleElement -> IO JSString-ghcjs_dom_html_title_element_get_text = undefined-#endif   htmlTitleElementGetText ::                         (IsHTMLTitleElement self, FromJSString result) => self -> IO result

src/GHCJS/DOM/HTMLUListElement.hs view

@@ -10,28 +10,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"compact\"] = $2;"         ghcjs_dom_htmlu_list_element_set_compact ::         JSRef HTMLUListElement -> Bool -> IO ()-#else -ghcjs_dom_htmlu_list_element_set_compact ::-                                           JSRef HTMLUListElement -> Bool -> IO ()-ghcjs_dom_htmlu_list_element_set_compact = undefined-#endif   htmluListElementSetCompact ::                            (IsHTMLUListElement self) => self -> Bool -> IO ()@@ -39,17 +28,10 @@   = ghcjs_dom_htmlu_list_element_set_compact       (unHTMLUListElement (toHTMLUListElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"         ghcjs_dom_htmlu_list_element_get_compact ::         JSRef HTMLUListElement -> IO Bool-#else -ghcjs_dom_htmlu_list_element_get_compact ::-                                           JSRef HTMLUListElement -> IO Bool-ghcjs_dom_htmlu_list_element_get_compact = undefined-#endif   htmluListElementGetCompact ::                            (IsHTMLUListElement self) => self -> IO Bool

src/GHCJS/DOM/HTMLVideoElement.hs view

@@ -24,6 +24,10 @@         htmlVideoElementGetWebkitSupportsFullscreen,         ghcjs_dom_html_video_element_get_webkit_displaying_fullscreen,         htmlVideoElementGetWebkitDisplayingFullscreen,+        ghcjs_dom_html_video_element_set_webkit_wireless_video_playback_disabled,+        htmlVideoElementSetWebkitWirelessVideoPlaybackDisabled,+        ghcjs_dom_html_video_element_get_webkit_wireless_video_playback_disabled,+        htmlVideoElementGetWebkitWirelessVideoPlaybackDisabled,         ghcjs_dom_html_video_element_get_webkit_decoded_frame_count,         htmlVideoElementGetWebkitDecodedFrameCount,         ghcjs_dom_html_video_element_get_webkit_dropped_frame_count,@@ -33,96 +37,57 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"webkitEnterFullscreen\"]()"         ghcjs_dom_html_video_element_webkit_enter_fullscreen ::         JSRef HTMLVideoElement -> IO ()-#else -ghcjs_dom_html_video_element_webkit_enter_fullscreen ::-                                                       JSRef HTMLVideoElement -> IO ()-ghcjs_dom_html_video_element_webkit_enter_fullscreen = undefined-#endif   htmlVideoElementWebkitEnterFullscreen ::                                       (IsHTMLVideoElement self) => self -> IO () htmlVideoElementWebkitEnterFullscreen self   = ghcjs_dom_html_video_element_webkit_enter_fullscreen       (unHTMLVideoElement (toHTMLVideoElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"webkitExitFullscreen\"]()"         ghcjs_dom_html_video_element_webkit_exit_fullscreen ::         JSRef HTMLVideoElement -> IO ()-#else -ghcjs_dom_html_video_element_webkit_exit_fullscreen ::-                                                      JSRef HTMLVideoElement -> IO ()-ghcjs_dom_html_video_element_webkit_exit_fullscreen = undefined-#endif   htmlVideoElementWebkitExitFullscreen ::                                      (IsHTMLVideoElement self) => self -> IO () htmlVideoElementWebkitExitFullscreen self   = ghcjs_dom_html_video_element_webkit_exit_fullscreen       (unHTMLVideoElement (toHTMLVideoElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"webkitEnterFullScreen\"]()"         ghcjs_dom_html_video_element_webkit_enter_full_screen ::         JSRef HTMLVideoElement -> IO ()-#else -ghcjs_dom_html_video_element_webkit_enter_full_screen ::-                                                        JSRef HTMLVideoElement -> IO ()-ghcjs_dom_html_video_element_webkit_enter_full_screen = undefined-#endif   htmlVideoElementWebkitEnterFullScreen ::                                       (IsHTMLVideoElement self) => self -> IO () htmlVideoElementWebkitEnterFullScreen self   = ghcjs_dom_html_video_element_webkit_enter_full_screen       (unHTMLVideoElement (toHTMLVideoElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"webkitExitFullScreen\"]()"         ghcjs_dom_html_video_element_webkit_exit_full_screen ::         JSRef HTMLVideoElement -> IO ()-#else -ghcjs_dom_html_video_element_webkit_exit_full_screen ::-                                                       JSRef HTMLVideoElement -> IO ()-ghcjs_dom_html_video_element_webkit_exit_full_screen = undefined-#endif   htmlVideoElementWebkitExitFullScreen ::                                      (IsHTMLVideoElement self) => self -> IO () htmlVideoElementWebkitExitFullScreen self   = ghcjs_dom_html_video_element_webkit_exit_full_screen       (unHTMLVideoElement (toHTMLVideoElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"] = $2;"         ghcjs_dom_html_video_element_set_width ::         JSRef HTMLVideoElement -> Word -> IO ()-#else -ghcjs_dom_html_video_element_set_width ::-                                         JSRef HTMLVideoElement -> Word -> IO ()-ghcjs_dom_html_video_element_set_width = undefined-#endif   htmlVideoElementSetWidth ::                          (IsHTMLVideoElement self) => self -> Word -> IO ()@@ -130,34 +95,20 @@   = ghcjs_dom_html_video_element_set_width       (unHTMLVideoElement (toHTMLVideoElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_html_video_element_get_width ::         JSRef HTMLVideoElement -> IO Word-#else -ghcjs_dom_html_video_element_get_width ::-                                         JSRef HTMLVideoElement -> IO Word-ghcjs_dom_html_video_element_get_width = undefined-#endif   htmlVideoElementGetWidth ::                          (IsHTMLVideoElement self) => self -> IO Word htmlVideoElementGetWidth self   = ghcjs_dom_html_video_element_get_width       (unHTMLVideoElement (toHTMLVideoElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"height\"] = $2;"         ghcjs_dom_html_video_element_set_height ::         JSRef HTMLVideoElement -> Word -> IO ()-#else -ghcjs_dom_html_video_element_set_height ::-                                          JSRef HTMLVideoElement -> Word -> IO ()-ghcjs_dom_html_video_element_set_height = undefined-#endif   htmlVideoElementSetHeight ::                           (IsHTMLVideoElement self) => self -> Word -> IO ()@@ -165,68 +116,40 @@   = ghcjs_dom_html_video_element_set_height       (unHTMLVideoElement (toHTMLVideoElement self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_html_video_element_get_height ::         JSRef HTMLVideoElement -> IO Word-#else -ghcjs_dom_html_video_element_get_height ::-                                          JSRef HTMLVideoElement -> IO Word-ghcjs_dom_html_video_element_get_height = undefined-#endif   htmlVideoElementGetHeight ::                           (IsHTMLVideoElement self) => self -> IO Word htmlVideoElementGetHeight self   = ghcjs_dom_html_video_element_get_height       (unHTMLVideoElement (toHTMLVideoElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"videoWidth\"]"         ghcjs_dom_html_video_element_get_video_width ::         JSRef HTMLVideoElement -> IO Word-#else -ghcjs_dom_html_video_element_get_video_width ::-                                               JSRef HTMLVideoElement -> IO Word-ghcjs_dom_html_video_element_get_video_width = undefined-#endif   htmlVideoElementGetVideoWidth ::                               (IsHTMLVideoElement self) => self -> IO Word htmlVideoElementGetVideoWidth self   = ghcjs_dom_html_video_element_get_video_width       (unHTMLVideoElement (toHTMLVideoElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"videoHeight\"]"         ghcjs_dom_html_video_element_get_video_height ::         JSRef HTMLVideoElement -> IO Word-#else -ghcjs_dom_html_video_element_get_video_height ::-                                                JSRef HTMLVideoElement -> IO Word-ghcjs_dom_html_video_element_get_video_height = undefined-#endif   htmlVideoElementGetVideoHeight ::                                (IsHTMLVideoElement self) => self -> IO Word htmlVideoElementGetVideoHeight self   = ghcjs_dom_html_video_element_get_video_height       (unHTMLVideoElement (toHTMLVideoElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"poster\"] = $2;"         ghcjs_dom_html_video_element_set_poster ::         JSRef HTMLVideoElement -> JSString -> IO ()-#else -ghcjs_dom_html_video_element_set_poster ::-                                          JSRef HTMLVideoElement -> JSString -> IO ()-ghcjs_dom_html_video_element_set_poster = undefined-#endif   htmlVideoElementSetPoster ::                           (IsHTMLVideoElement self, ToJSString val) => self -> val -> IO ()@@ -234,17 +157,10 @@   = ghcjs_dom_html_video_element_set_poster       (unHTMLVideoElement (toHTMLVideoElement self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"poster\"]"         ghcjs_dom_html_video_element_get_poster ::         JSRef HTMLVideoElement -> IO JSString-#else -ghcjs_dom_html_video_element_get_poster ::-                                          JSRef HTMLVideoElement -> IO JSString-ghcjs_dom_html_video_element_get_poster = undefined-#endif   htmlVideoElementGetPoster ::                           (IsHTMLVideoElement self, FromJSString result) => self -> IO result@@ -252,74 +168,66 @@   = fromJSString <$>       (ghcjs_dom_html_video_element_get_poster          (unHTMLVideoElement (toHTMLVideoElement self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"webkitSupportsFullscreen\"] ? 1 : 0)"         ghcjs_dom_html_video_element_get_webkit_supports_fullscreen ::         JSRef HTMLVideoElement -> IO Bool-#else -ghcjs_dom_html_video_element_get_webkit_supports_fullscreen ::-                                                              JSRef HTMLVideoElement -> IO Bool-ghcjs_dom_html_video_element_get_webkit_supports_fullscreen-  = undefined-#endif   htmlVideoElementGetWebkitSupportsFullscreen ::                                             (IsHTMLVideoElement self) => self -> IO Bool htmlVideoElementGetWebkitSupportsFullscreen self   = ghcjs_dom_html_video_element_get_webkit_supports_fullscreen       (unHTMLVideoElement (toHTMLVideoElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"webkitDisplayingFullscreen\"] ? 1 : 0)"         ghcjs_dom_html_video_element_get_webkit_displaying_fullscreen ::         JSRef HTMLVideoElement -> IO Bool-#else -ghcjs_dom_html_video_element_get_webkit_displaying_fullscreen ::-                                                                JSRef HTMLVideoElement -> IO Bool-ghcjs_dom_html_video_element_get_webkit_displaying_fullscreen-  = undefined-#endif   htmlVideoElementGetWebkitDisplayingFullscreen ::                                               (IsHTMLVideoElement self) => self -> IO Bool htmlVideoElementGetWebkitDisplayingFullscreen self   = ghcjs_dom_html_video_element_get_webkit_displaying_fullscreen       (unHTMLVideoElement (toHTMLVideoElement self))---#ifdef ghcjs_HOST_OS + +foreign import javascript unsafe+        "$1[\"webkitWirelessVideoPlaybackDisabled\"] = $2;"+        ghcjs_dom_html_video_element_set_webkit_wireless_video_playback_disabled+        :: JSRef HTMLVideoElement -> Bool -> IO ()+ +htmlVideoElementSetWebkitWirelessVideoPlaybackDisabled ::+                                                       (IsHTMLVideoElement self) =>+                                                         self -> Bool -> IO ()+htmlVideoElementSetWebkitWirelessVideoPlaybackDisabled self val+  = ghcjs_dom_html_video_element_set_webkit_wireless_video_playback_disabled+      (unHTMLVideoElement (toHTMLVideoElement self))+      val+ +foreign import javascript unsafe+        "($1[\"webkitWirelessVideoPlaybackDisabled\"] ? 1 : 0)"+        ghcjs_dom_html_video_element_get_webkit_wireless_video_playback_disabled+        :: JSRef HTMLVideoElement -> IO Bool+ +htmlVideoElementGetWebkitWirelessVideoPlaybackDisabled ::+                                                       (IsHTMLVideoElement self) => self -> IO Bool+htmlVideoElementGetWebkitWirelessVideoPlaybackDisabled self+  = ghcjs_dom_html_video_element_get_webkit_wireless_video_playback_disabled+      (unHTMLVideoElement (toHTMLVideoElement self))+  foreign import javascript unsafe "$1[\"webkitDecodedFrameCount\"]"         ghcjs_dom_html_video_element_get_webkit_decoded_frame_count ::         JSRef HTMLVideoElement -> IO Word-#else -ghcjs_dom_html_video_element_get_webkit_decoded_frame_count ::-                                                              JSRef HTMLVideoElement -> IO Word-ghcjs_dom_html_video_element_get_webkit_decoded_frame_count-  = undefined-#endif   htmlVideoElementGetWebkitDecodedFrameCount ::                                            (IsHTMLVideoElement self) => self -> IO Word htmlVideoElementGetWebkitDecodedFrameCount self   = ghcjs_dom_html_video_element_get_webkit_decoded_frame_count       (unHTMLVideoElement (toHTMLVideoElement self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"webkitDroppedFrameCount\"]"         ghcjs_dom_html_video_element_get_webkit_dropped_frame_count ::         JSRef HTMLVideoElement -> IO Word-#else -ghcjs_dom_html_video_element_get_webkit_dropped_frame_count ::-                                                              JSRef HTMLVideoElement -> IO Word-ghcjs_dom_html_video_element_get_webkit_dropped_frame_count-  = undefined-#endif   htmlVideoElementGetWebkitDroppedFrameCount ::                                            (IsHTMLVideoElement self) => self -> IO Word

src/GHCJS/DOM/History.hs view

@@ -7,26 +7,16 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_history_get_length :: JSRef History -> IO Word-#else -ghcjs_dom_history_get_length :: JSRef History -> IO Word-ghcjs_dom_history_get_length = undefined-#endif   historyGetLength :: (IsHistory self) => self -> IO Word historyGetLength self

src/GHCJS/DOM/KeyboardEvent.hs view

@@ -21,29 +21,18 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"getModifierState\"]($2) ? 1 : 0)"         ghcjs_dom_keyboard_event_get_modifier_state ::         JSRef KeyboardEvent -> JSString -> IO Bool-#else -ghcjs_dom_keyboard_event_get_modifier_state ::-                                              JSRef KeyboardEvent -> JSString -> IO Bool-ghcjs_dom_keyboard_event_get_modifier_state = undefined-#endif   keyboardEventGetModifierState ::                               (IsKeyboardEvent self, ToJSString keyIdentifierArg) =>@@ -52,9 +41,7 @@   = ghcjs_dom_keyboard_event_get_modifier_state       (unKeyboardEvent (toKeyboardEvent self))       (toJSString keyIdentifierArg)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"initKeyboardEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9, $10,\n$11, $12)"         ghcjs_dom_keyboard_event_init_keyboard_event ::@@ -64,19 +51,6 @@               Bool ->                 JSRef DOMWindow ->                   JSString -> Word -> Bool -> Bool -> Bool -> Bool -> Bool -> IO ()-#else -ghcjs_dom_keyboard_event_init_keyboard_event ::-                                               JSRef KeyboardEvent ->-                                                 JSString ->-                                                   Bool ->-                                                     Bool ->-                                                       JSRef DOMWindow ->-                                                         JSString ->-                                                           Word ->-                                                             Bool ->-                                                               Bool -> Bool -> Bool -> Bool -> IO ()-ghcjs_dom_keyboard_event_init_keyboard_event = undefined-#endif   keyboardEventInitKeyboardEvent ::                                (IsKeyboardEvent self, ToJSString type', IsDOMWindow view,@@ -107,17 +81,10 @@ cKEY_LOCATION_LEFT = 1 cKEY_LOCATION_RIGHT = 2 cKEY_LOCATION_NUMPAD = 3---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"keyIdentifier\"]"         ghcjs_dom_keyboard_event_get_key_identifier ::         JSRef KeyboardEvent -> IO JSString-#else -ghcjs_dom_keyboard_event_get_key_identifier ::-                                              JSRef KeyboardEvent -> IO JSString-ghcjs_dom_keyboard_event_get_key_identifier = undefined-#endif   keyboardEventGetKeyIdentifier ::                               (IsKeyboardEvent self, FromJSString result) => self -> IO result@@ -125,101 +92,59 @@   = fromJSString <$>       (ghcjs_dom_keyboard_event_get_key_identifier          (unKeyboardEvent (toKeyboardEvent self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"keyLocation\"]"         ghcjs_dom_keyboard_event_get_key_location ::         JSRef KeyboardEvent -> IO Word-#else -ghcjs_dom_keyboard_event_get_key_location ::-                                            JSRef KeyboardEvent -> IO Word-ghcjs_dom_keyboard_event_get_key_location = undefined-#endif   keyboardEventGetKeyLocation ::                             (IsKeyboardEvent self) => self -> IO Word keyboardEventGetKeyLocation self   = ghcjs_dom_keyboard_event_get_key_location       (unKeyboardEvent (toKeyboardEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"ctrlKey\"] ? 1 : 0)"         ghcjs_dom_keyboard_event_get_ctrl_key ::         JSRef KeyboardEvent -> IO Bool-#else -ghcjs_dom_keyboard_event_get_ctrl_key ::-                                        JSRef KeyboardEvent -> IO Bool-ghcjs_dom_keyboard_event_get_ctrl_key = undefined-#endif   keyboardEventGetCtrlKey ::                         (IsKeyboardEvent self) => self -> IO Bool keyboardEventGetCtrlKey self   = ghcjs_dom_keyboard_event_get_ctrl_key       (unKeyboardEvent (toKeyboardEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"shiftKey\"] ? 1 : 0)"         ghcjs_dom_keyboard_event_get_shift_key ::         JSRef KeyboardEvent -> IO Bool-#else -ghcjs_dom_keyboard_event_get_shift_key ::-                                         JSRef KeyboardEvent -> IO Bool-ghcjs_dom_keyboard_event_get_shift_key = undefined-#endif   keyboardEventGetShiftKey ::                          (IsKeyboardEvent self) => self -> IO Bool keyboardEventGetShiftKey self   = ghcjs_dom_keyboard_event_get_shift_key       (unKeyboardEvent (toKeyboardEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"altKey\"] ? 1 : 0)"         ghcjs_dom_keyboard_event_get_alt_key ::         JSRef KeyboardEvent -> IO Bool-#else -ghcjs_dom_keyboard_event_get_alt_key ::-                                       JSRef KeyboardEvent -> IO Bool-ghcjs_dom_keyboard_event_get_alt_key = undefined-#endif   keyboardEventGetAltKey :: (IsKeyboardEvent self) => self -> IO Bool keyboardEventGetAltKey self   = ghcjs_dom_keyboard_event_get_alt_key       (unKeyboardEvent (toKeyboardEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"metaKey\"] ? 1 : 0)"         ghcjs_dom_keyboard_event_get_meta_key ::         JSRef KeyboardEvent -> IO Bool-#else -ghcjs_dom_keyboard_event_get_meta_key ::-                                        JSRef KeyboardEvent -> IO Bool-ghcjs_dom_keyboard_event_get_meta_key = undefined-#endif   keyboardEventGetMetaKey ::                         (IsKeyboardEvent self) => self -> IO Bool keyboardEventGetMetaKey self   = ghcjs_dom_keyboard_event_get_meta_key       (unKeyboardEvent (toKeyboardEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"altGraphKey\"] ? 1 : 0)"         ghcjs_dom_keyboard_event_get_alt_graph_key ::         JSRef KeyboardEvent -> IO Bool-#else -ghcjs_dom_keyboard_event_get_alt_graph_key ::-                                             JSRef KeyboardEvent -> IO Bool-ghcjs_dom_keyboard_event_get_alt_graph_key = undefined-#endif   keyboardEventGetAltGraphKey ::                             (IsKeyboardEvent self) => self -> IO Bool

src/GHCJS/DOM/Location.hs view

@@ -9,43 +9,26 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"origin\"]"         ghcjs_dom_location_get_origin :: JSRef Location -> IO JSString-#else -ghcjs_dom_location_get_origin :: JSRef Location -> IO JSString-ghcjs_dom_location_get_origin = undefined-#endif   locationGetOrigin ::                   (IsLocation self, FromJSString result) => self -> IO result locationGetOrigin self   = fromJSString <$>       (ghcjs_dom_location_get_origin (unLocation (toLocation self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"ancestorOrigins\"]"         ghcjs_dom_location_get_ancestor_origins ::         JSRef Location -> IO (JSRef DOMStringList)-#else -ghcjs_dom_location_get_ancestor_origins ::-                                          JSRef Location -> IO (JSRef DOMStringList)-ghcjs_dom_location_get_ancestor_origins = undefined-#endif   locationGetAncestorOrigins ::                            (IsLocation self) => self -> IO (Maybe DOMStringList)

src/GHCJS/DOM/MediaError.hs view

@@ -9,12 +9,8 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>))@@ -24,15 +20,9 @@ cMEDIA_ERR_NETWORK = 2 cMEDIA_ERR_DECODE = 3 cMEDIA_ERR_SRC_NOT_SUPPORTED = 4---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"code\"]"         ghcjs_dom_media_error_get_code :: JSRef MediaError -> IO Word-#else -ghcjs_dom_media_error_get_code :: JSRef MediaError -> IO Word-ghcjs_dom_media_error_get_code = undefined-#endif   mediaErrorGetCode :: (IsMediaError self) => self -> IO Word mediaErrorGetCode self

src/GHCJS/DOM/MediaList.hs view

@@ -12,26 +12,16 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_media_list_item :: JSRef MediaList -> Word -> IO JSString-#else -ghcjs_dom_media_list_item :: JSRef MediaList -> Word -> IO JSString-ghcjs_dom_media_list_item = undefined-#endif   mediaListItem ::               (IsMediaList self, FromJSString result) =>@@ -39,17 +29,10 @@ mediaListItem self index   = fromJSString <$>       (ghcjs_dom_media_list_item (unMediaList (toMediaList self)) index)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"deleteMedium\"]($2)"         ghcjs_dom_media_list_delete_medium ::         JSRef MediaList -> JSString -> IO ()-#else -ghcjs_dom_media_list_delete_medium ::-                                     JSRef MediaList -> JSString -> IO ()-ghcjs_dom_media_list_delete_medium = undefined-#endif   mediaListDeleteMedium ::                       (IsMediaList self, ToJSString oldMedium) =>@@ -58,17 +41,10 @@   = ghcjs_dom_media_list_delete_medium       (unMediaList (toMediaList self))       (toJSString oldMedium)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"appendMedium\"]($2)"         ghcjs_dom_media_list_append_medium ::         JSRef MediaList -> JSString -> IO ()-#else -ghcjs_dom_media_list_append_medium ::-                                     JSRef MediaList -> JSString -> IO ()-ghcjs_dom_media_list_append_medium = undefined-#endif   mediaListAppendMedium ::                       (IsMediaList self, ToJSString newMedium) =>@@ -77,17 +53,10 @@   = ghcjs_dom_media_list_append_medium       (unMediaList (toMediaList self))       (toJSString newMedium)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"mediaText\"] = $2;"         ghcjs_dom_media_list_set_media_text ::         JSRef MediaList -> JSString -> IO ()-#else -ghcjs_dom_media_list_set_media_text ::-                                      JSRef MediaList -> JSString -> IO ()-ghcjs_dom_media_list_set_media_text = undefined-#endif   mediaListSetMediaText ::                       (IsMediaList self, ToJSString val) => self -> val -> IO ()@@ -95,17 +64,10 @@   = ghcjs_dom_media_list_set_media_text       (unMediaList (toMediaList self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"mediaText\"]"         ghcjs_dom_media_list_get_media_text ::         JSRef MediaList -> IO JSString-#else -ghcjs_dom_media_list_get_media_text ::-                                      JSRef MediaList -> IO JSString-ghcjs_dom_media_list_get_media_text = undefined-#endif   mediaListGetMediaText ::                       (IsMediaList self, FromJSString result) => self -> IO result@@ -113,15 +75,9 @@   = fromJSString <$>       (ghcjs_dom_media_list_get_media_text          (unMediaList (toMediaList self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_media_list_get_length :: JSRef MediaList -> IO Word-#else -ghcjs_dom_media_list_get_length :: JSRef MediaList -> IO Word-ghcjs_dom_media_list_get_length = undefined-#endif   mediaListGetLength :: (IsMediaList self) => self -> IO Word mediaListGetLength self

src/GHCJS/DOM/MediaQueryList.hs view

@@ -9,28 +9,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"media\"]"         ghcjs_dom_media_query_list_get_media ::         JSRef MediaQueryList -> IO JSString-#else -ghcjs_dom_media_query_list_get_media ::-                                       JSRef MediaQueryList -> IO JSString-ghcjs_dom_media_query_list_get_media = undefined-#endif   mediaQueryListGetMedia ::                        (IsMediaQueryList self, FromJSString result) => self -> IO result@@ -38,17 +27,10 @@   = fromJSString <$>       (ghcjs_dom_media_query_list_get_media          (unMediaQueryList (toMediaQueryList self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"matches\"] ? 1 : 0)"         ghcjs_dom_media_query_list_get_matches ::         JSRef MediaQueryList -> IO Bool-#else -ghcjs_dom_media_query_list_get_matches ::-                                         JSRef MediaQueryList -> IO Bool-ghcjs_dom_media_query_list_get_matches = undefined-#endif   mediaQueryListGetMatches ::                          (IsMediaQueryList self) => self -> IO Bool

src/GHCJS/DOM/MouseEvent.hs view

@@ -13,11 +13,9 @@         ghcjs_dom_mouse_event_get_meta_key, mouseEventGetMetaKey,         ghcjs_dom_mouse_event_get_button, mouseEventGetButton,         ghcjs_dom_mouse_event_get_related_target,-        mouseEventGetRelatedTarget,-        ghcjs_dom_mouse_event_get_webkit_movement_x,-        mouseEventGetWebkitMovementX,-        ghcjs_dom_mouse_event_get_webkit_movement_y,-        mouseEventGetWebkitMovementY, ghcjs_dom_mouse_event_get_offset_x,+        mouseEventGetRelatedTarget, ghcjs_dom_mouse_event_get_movement_x,+        mouseEventGetMovementX, ghcjs_dom_mouse_event_get_movement_y,+        mouseEventGetMovementY, ghcjs_dom_mouse_event_get_offset_x,         mouseEventGetOffsetX, ghcjs_dom_mouse_event_get_offset_y,         mouseEventGetOffsetY, ghcjs_dom_mouse_event_get_x, mouseEventGetX,         ghcjs_dom_mouse_event_get_y, mouseEventGetY,@@ -28,18 +26,13 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"initMouseEvent\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11,\n$12, $13, $14, $15, $16)"         ghcjs_dom_mouse_event_init_mouse_event ::@@ -54,26 +47,6 @@                         Int ->                           Int ->                             Bool -> Bool -> Bool -> Bool -> Word -> JSRef EventTarget -> IO ()-#else -ghcjs_dom_mouse_event_init_mouse_event ::-                                         JSRef MouseEvent ->-                                           JSString ->-                                             Bool ->-                                               Bool ->-                                                 JSRef DOMWindow ->-                                                   Int ->-                                                     Int ->-                                                       Int ->-                                                         Int ->-                                                           Int ->-                                                             Bool ->-                                                               Bool ->-                                                                 Bool ->-                                                                   Bool ->-                                                                     Word ->-                                                                       JSRef EventTarget -> IO ()-ghcjs_dom_mouse_event_init_mouse_event = undefined-#endif   mouseEventInitMouseEvent ::                          (IsMouseEvent self, ToJSString type', IsDOMWindow view,@@ -112,143 +85,82 @@       metaKey       button       (maybe jsNull (unEventTarget . toEventTarget) relatedTarget)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"screenX\"]"         ghcjs_dom_mouse_event_get_screen_x :: JSRef MouseEvent -> IO Int-#else -ghcjs_dom_mouse_event_get_screen_x :: JSRef MouseEvent -> IO Int-ghcjs_dom_mouse_event_get_screen_x = undefined-#endif   mouseEventGetScreenX :: (IsMouseEvent self) => self -> IO Int mouseEventGetScreenX self   = ghcjs_dom_mouse_event_get_screen_x       (unMouseEvent (toMouseEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"screenY\"]"         ghcjs_dom_mouse_event_get_screen_y :: JSRef MouseEvent -> IO Int-#else -ghcjs_dom_mouse_event_get_screen_y :: JSRef MouseEvent -> IO Int-ghcjs_dom_mouse_event_get_screen_y = undefined-#endif   mouseEventGetScreenY :: (IsMouseEvent self) => self -> IO Int mouseEventGetScreenY self   = ghcjs_dom_mouse_event_get_screen_y       (unMouseEvent (toMouseEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"clientX\"]"         ghcjs_dom_mouse_event_get_client_x :: JSRef MouseEvent -> IO Int-#else -ghcjs_dom_mouse_event_get_client_x :: JSRef MouseEvent -> IO Int-ghcjs_dom_mouse_event_get_client_x = undefined-#endif   mouseEventGetClientX :: (IsMouseEvent self) => self -> IO Int mouseEventGetClientX self   = ghcjs_dom_mouse_event_get_client_x       (unMouseEvent (toMouseEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"clientY\"]"         ghcjs_dom_mouse_event_get_client_y :: JSRef MouseEvent -> IO Int-#else -ghcjs_dom_mouse_event_get_client_y :: JSRef MouseEvent -> IO Int-ghcjs_dom_mouse_event_get_client_y = undefined-#endif   mouseEventGetClientY :: (IsMouseEvent self) => self -> IO Int mouseEventGetClientY self   = ghcjs_dom_mouse_event_get_client_y       (unMouseEvent (toMouseEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"ctrlKey\"] ? 1 : 0)"         ghcjs_dom_mouse_event_get_ctrl_key :: JSRef MouseEvent -> IO Bool-#else -ghcjs_dom_mouse_event_get_ctrl_key :: JSRef MouseEvent -> IO Bool-ghcjs_dom_mouse_event_get_ctrl_key = undefined-#endif   mouseEventGetCtrlKey :: (IsMouseEvent self) => self -> IO Bool mouseEventGetCtrlKey self   = ghcjs_dom_mouse_event_get_ctrl_key       (unMouseEvent (toMouseEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"shiftKey\"] ? 1 : 0)"         ghcjs_dom_mouse_event_get_shift_key :: JSRef MouseEvent -> IO Bool-#else -ghcjs_dom_mouse_event_get_shift_key :: JSRef MouseEvent -> IO Bool-ghcjs_dom_mouse_event_get_shift_key = undefined-#endif   mouseEventGetShiftKey :: (IsMouseEvent self) => self -> IO Bool mouseEventGetShiftKey self   = ghcjs_dom_mouse_event_get_shift_key       (unMouseEvent (toMouseEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"altKey\"] ? 1 : 0)"         ghcjs_dom_mouse_event_get_alt_key :: JSRef MouseEvent -> IO Bool-#else -ghcjs_dom_mouse_event_get_alt_key :: JSRef MouseEvent -> IO Bool-ghcjs_dom_mouse_event_get_alt_key = undefined-#endif   mouseEventGetAltKey :: (IsMouseEvent self) => self -> IO Bool mouseEventGetAltKey self   = ghcjs_dom_mouse_event_get_alt_key       (unMouseEvent (toMouseEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"metaKey\"] ? 1 : 0)"         ghcjs_dom_mouse_event_get_meta_key :: JSRef MouseEvent -> IO Bool-#else -ghcjs_dom_mouse_event_get_meta_key :: JSRef MouseEvent -> IO Bool-ghcjs_dom_mouse_event_get_meta_key = undefined-#endif   mouseEventGetMetaKey :: (IsMouseEvent self) => self -> IO Bool mouseEventGetMetaKey self   = ghcjs_dom_mouse_event_get_meta_key       (unMouseEvent (toMouseEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"button\"]"         ghcjs_dom_mouse_event_get_button :: JSRef MouseEvent -> IO Word-#else -ghcjs_dom_mouse_event_get_button :: JSRef MouseEvent -> IO Word-ghcjs_dom_mouse_event_get_button = undefined-#endif   mouseEventGetButton :: (IsMouseEvent self) => self -> IO Word mouseEventGetButton self   = ghcjs_dom_mouse_event_get_button       (unMouseEvent (toMouseEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"relatedTarget\"]"         ghcjs_dom_mouse_event_get_related_target ::         JSRef MouseEvent -> IO (JSRef EventTarget)-#else -ghcjs_dom_mouse_event_get_related_target ::-                                           JSRef MouseEvent -> IO (JSRef EventTarget)-ghcjs_dom_mouse_event_get_related_target = undefined-#endif   mouseEventGetRelatedTarget ::                            (IsMouseEvent self) => self -> IO (Maybe EventTarget)@@ -256,105 +168,56 @@   = fmap EventTarget . maybeJSNull <$>       (ghcjs_dom_mouse_event_get_related_target          (unMouseEvent (toMouseEvent self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"webkitMovementX\"]"-        ghcjs_dom_mouse_event_get_webkit_movement_x ::-        JSRef MouseEvent -> IO Int-#else -ghcjs_dom_mouse_event_get_webkit_movement_x ::-                                              JSRef MouseEvent -> IO Int-ghcjs_dom_mouse_event_get_webkit_movement_x = undefined-#endif  -mouseEventGetWebkitMovementX ::-                             (IsMouseEvent self) => self -> IO Int-mouseEventGetWebkitMovementX self-  = ghcjs_dom_mouse_event_get_webkit_movement_x+foreign import javascript unsafe "$1[\"movementX\"]"+        ghcjs_dom_mouse_event_get_movement_x :: JSRef MouseEvent -> IO Int+ +mouseEventGetMovementX :: (IsMouseEvent self) => self -> IO Int+mouseEventGetMovementX self+  = ghcjs_dom_mouse_event_get_movement_x       (unMouseEvent (toMouseEvent self))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"webkitMovementY\"]"-        ghcjs_dom_mouse_event_get_webkit_movement_y ::-        JSRef MouseEvent -> IO Int-#else -ghcjs_dom_mouse_event_get_webkit_movement_y ::-                                              JSRef MouseEvent -> IO Int-ghcjs_dom_mouse_event_get_webkit_movement_y = undefined-#endif  -mouseEventGetWebkitMovementY ::-                             (IsMouseEvent self) => self -> IO Int-mouseEventGetWebkitMovementY self-  = ghcjs_dom_mouse_event_get_webkit_movement_y+foreign import javascript unsafe "$1[\"movementY\"]"+        ghcjs_dom_mouse_event_get_movement_y :: JSRef MouseEvent -> IO Int+ +mouseEventGetMovementY :: (IsMouseEvent self) => self -> IO Int+mouseEventGetMovementY self+  = ghcjs_dom_mouse_event_get_movement_y       (unMouseEvent (toMouseEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"offsetX\"]"         ghcjs_dom_mouse_event_get_offset_x :: JSRef MouseEvent -> IO Int-#else -ghcjs_dom_mouse_event_get_offset_x :: JSRef MouseEvent -> IO Int-ghcjs_dom_mouse_event_get_offset_x = undefined-#endif   mouseEventGetOffsetX :: (IsMouseEvent self) => self -> IO Int mouseEventGetOffsetX self   = ghcjs_dom_mouse_event_get_offset_x       (unMouseEvent (toMouseEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"offsetY\"]"         ghcjs_dom_mouse_event_get_offset_y :: JSRef MouseEvent -> IO Int-#else -ghcjs_dom_mouse_event_get_offset_y :: JSRef MouseEvent -> IO Int-ghcjs_dom_mouse_event_get_offset_y = undefined-#endif   mouseEventGetOffsetY :: (IsMouseEvent self) => self -> IO Int mouseEventGetOffsetY self   = ghcjs_dom_mouse_event_get_offset_y       (unMouseEvent (toMouseEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"x\"]"         ghcjs_dom_mouse_event_get_x :: JSRef MouseEvent -> IO Int-#else -ghcjs_dom_mouse_event_get_x :: JSRef MouseEvent -> IO Int-ghcjs_dom_mouse_event_get_x = undefined-#endif   mouseEventGetX :: (IsMouseEvent self) => self -> IO Int mouseEventGetX self   = ghcjs_dom_mouse_event_get_x (unMouseEvent (toMouseEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"y\"]"         ghcjs_dom_mouse_event_get_y :: JSRef MouseEvent -> IO Int-#else -ghcjs_dom_mouse_event_get_y :: JSRef MouseEvent -> IO Int-ghcjs_dom_mouse_event_get_y = undefined-#endif   mouseEventGetY :: (IsMouseEvent self) => self -> IO Int mouseEventGetY self   = ghcjs_dom_mouse_event_get_y (unMouseEvent (toMouseEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"fromElement\"]"         ghcjs_dom_mouse_event_get_from_element ::         JSRef MouseEvent -> IO (JSRef Node)-#else -ghcjs_dom_mouse_event_get_from_element ::-                                         JSRef MouseEvent -> IO (JSRef Node)-ghcjs_dom_mouse_event_get_from_element = undefined-#endif   mouseEventGetFromElement ::                          (IsMouseEvent self) => self -> IO (Maybe Node)@@ -362,17 +225,10 @@   = fmap Node . maybeJSNull <$>       (ghcjs_dom_mouse_event_get_from_element          (unMouseEvent (toMouseEvent self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"toElement\"]"         ghcjs_dom_mouse_event_get_to_element ::         JSRef MouseEvent -> IO (JSRef Node)-#else -ghcjs_dom_mouse_event_get_to_element ::-                                       JSRef MouseEvent -> IO (JSRef Node)-ghcjs_dom_mouse_event_get_to_element = undefined-#endif   mouseEventGetToElement ::                        (IsMouseEvent self) => self -> IO (Maybe Node)

src/GHCJS/DOM/NamedNodeMap.hs view

@@ -17,28 +17,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"getNamedItem\"]($2)"         ghcjs_dom_named_node_map_get_named_item ::         JSRef NamedNodeMap -> JSString -> IO (JSRef Node)-#else -ghcjs_dom_named_node_map_get_named_item ::-                                          JSRef NamedNodeMap -> JSString -> IO (JSRef Node)-ghcjs_dom_named_node_map_get_named_item = undefined-#endif   namedNodeMapGetNamedItem ::                          (IsNamedNodeMap self, ToJSString name) =>@@ -48,17 +37,10 @@       (ghcjs_dom_named_node_map_get_named_item          (unNamedNodeMap (toNamedNodeMap self))          (toJSString name))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"setNamedItem\"]($2)"         ghcjs_dom_named_node_map_set_named_item ::         JSRef NamedNodeMap -> JSRef Node -> IO (JSRef Node)-#else -ghcjs_dom_named_node_map_set_named_item ::-                                          JSRef NamedNodeMap -> JSRef Node -> IO (JSRef Node)-ghcjs_dom_named_node_map_set_named_item = undefined-#endif   namedNodeMapSetNamedItem ::                          (IsNamedNodeMap self, IsNode node) =>@@ -68,17 +50,10 @@       (ghcjs_dom_named_node_map_set_named_item          (unNamedNodeMap (toNamedNodeMap self))          (maybe jsNull (unNode . toNode) node))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"removeNamedItem\"]($2)"         ghcjs_dom_named_node_map_remove_named_item ::         JSRef NamedNodeMap -> JSString -> IO (JSRef Node)-#else -ghcjs_dom_named_node_map_remove_named_item ::-                                             JSRef NamedNodeMap -> JSString -> IO (JSRef Node)-ghcjs_dom_named_node_map_remove_named_item = undefined-#endif   namedNodeMapRemoveNamedItem ::                             (IsNamedNodeMap self, ToJSString name) =>@@ -88,17 +63,10 @@       (ghcjs_dom_named_node_map_remove_named_item          (unNamedNodeMap (toNamedNodeMap self))          (toJSString name))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_named_node_map_item ::         JSRef NamedNodeMap -> Word -> IO (JSRef Node)-#else -ghcjs_dom_named_node_map_item ::-                                JSRef NamedNodeMap -> Word -> IO (JSRef Node)-ghcjs_dom_named_node_map_item = undefined-#endif   namedNodeMapItem ::                  (IsNamedNodeMap self) => self -> Word -> IO (Maybe Node)@@ -107,18 +75,10 @@       (ghcjs_dom_named_node_map_item          (unNamedNodeMap (toNamedNodeMap self))          index)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"getNamedItemNS\"]($2, $3)"         ghcjs_dom_named_node_map_get_named_item_ns ::         JSRef NamedNodeMap -> JSString -> JSString -> IO (JSRef Node)-#else -ghcjs_dom_named_node_map_get_named_item_ns ::-                                             JSRef NamedNodeMap ->-                                               JSString -> JSString -> IO (JSRef Node)-ghcjs_dom_named_node_map_get_named_item_ns = undefined-#endif   namedNodeMapGetNamedItemNS ::                            (IsNamedNodeMap self, ToJSString namespaceURI,@@ -130,17 +90,10 @@          (unNamedNodeMap (toNamedNodeMap self))          (toJSString namespaceURI)          (toJSString localName))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"setNamedItemNS\"]($2)"         ghcjs_dom_named_node_map_set_named_item_ns ::         JSRef NamedNodeMap -> JSRef Node -> IO (JSRef Node)-#else -ghcjs_dom_named_node_map_set_named_item_ns ::-                                             JSRef NamedNodeMap -> JSRef Node -> IO (JSRef Node)-ghcjs_dom_named_node_map_set_named_item_ns = undefined-#endif   namedNodeMapSetNamedItemNS ::                            (IsNamedNodeMap self, IsNode node) =>@@ -150,19 +103,11 @@       (ghcjs_dom_named_node_map_set_named_item_ns          (unNamedNodeMap (toNamedNodeMap self))          (maybe jsNull (unNode . toNode) node))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"removeNamedItemNS\"]($2, $3)"         ghcjs_dom_named_node_map_remove_named_item_ns ::         JSRef NamedNodeMap -> JSString -> JSString -> IO (JSRef Node)-#else -ghcjs_dom_named_node_map_remove_named_item_ns ::-                                                JSRef NamedNodeMap ->-                                                  JSString -> JSString -> IO (JSRef Node)-ghcjs_dom_named_node_map_remove_named_item_ns = undefined-#endif   namedNodeMapRemoveNamedItemNS ::                               (IsNamedNodeMap self, ToJSString namespaceURI,@@ -174,17 +119,10 @@          (unNamedNodeMap (toNamedNodeMap self))          (toJSString namespaceURI)          (toJSString localName))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_named_node_map_get_length ::         JSRef NamedNodeMap -> IO Word-#else -ghcjs_dom_named_node_map_get_length ::-                                      JSRef NamedNodeMap -> IO Word-ghcjs_dom_named_node_map_get_length = undefined-#endif   namedNodeMapGetLength :: (IsNamedNodeMap self) => self -> IO Word namedNodeMapGetLength self

src/GHCJS/DOM/Navigator.hs view

@@ -23,55 +23,32 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"javaEnabled\"]() ? 1 : 0)"         ghcjs_dom_navigator_java_enabled :: JSRef Navigator -> IO Bool-#else -ghcjs_dom_navigator_java_enabled :: JSRef Navigator -> IO Bool-ghcjs_dom_navigator_java_enabled = undefined-#endif   navigatorJavaEnabled :: (IsNavigator self) => self -> IO Bool navigatorJavaEnabled self   = ghcjs_dom_navigator_java_enabled (unNavigator (toNavigator self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"getStorageUpdates\"]()"         ghcjs_dom_navigator_get_storage_updates :: JSRef Navigator -> IO ()-#else -ghcjs_dom_navigator_get_storage_updates :: JSRef Navigator -> IO ()-ghcjs_dom_navigator_get_storage_updates = undefined-#endif   navigatorGetStorageUpdates :: (IsNavigator self) => self -> IO () navigatorGetStorageUpdates self   = ghcjs_dom_navigator_get_storage_updates       (unNavigator (toNavigator self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"appCodeName\"]"         ghcjs_dom_navigator_get_app_code_name ::         JSRef Navigator -> IO JSString-#else -ghcjs_dom_navigator_get_app_code_name ::-                                        JSRef Navigator -> IO JSString-ghcjs_dom_navigator_get_app_code_name = undefined-#endif   navigatorGetAppCodeName ::                         (IsNavigator self, FromJSString result) => self -> IO result@@ -79,32 +56,19 @@   = fromJSString <$>       (ghcjs_dom_navigator_get_app_code_name          (unNavigator (toNavigator self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"appName\"]"         ghcjs_dom_navigator_get_app_name :: JSRef Navigator -> IO JSString-#else -ghcjs_dom_navigator_get_app_name :: JSRef Navigator -> IO JSString-ghcjs_dom_navigator_get_app_name = undefined-#endif   navigatorGetAppName ::                     (IsNavigator self, FromJSString result) => self -> IO result navigatorGetAppName self   = fromJSString <$>       (ghcjs_dom_navigator_get_app_name (unNavigator (toNavigator self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"appVersion\"]"         ghcjs_dom_navigator_get_app_version ::         JSRef Navigator -> IO JSString-#else -ghcjs_dom_navigator_get_app_version ::-                                      JSRef Navigator -> IO JSString-ghcjs_dom_navigator_get_app_version = undefined-#endif   navigatorGetAppVersion ::                        (IsNavigator self, FromJSString result) => self -> IO result@@ -112,32 +76,19 @@   = fromJSString <$>       (ghcjs_dom_navigator_get_app_version          (unNavigator (toNavigator self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"language\"]"         ghcjs_dom_navigator_get_language :: JSRef Navigator -> IO JSString-#else -ghcjs_dom_navigator_get_language :: JSRef Navigator -> IO JSString-ghcjs_dom_navigator_get_language = undefined-#endif   navigatorGetLanguage ::                      (IsNavigator self, FromJSString result) => self -> IO result navigatorGetLanguage self   = fromJSString <$>       (ghcjs_dom_navigator_get_language (unNavigator (toNavigator self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"userAgent\"]"         ghcjs_dom_navigator_get_user_agent ::         JSRef Navigator -> IO JSString-#else -ghcjs_dom_navigator_get_user_agent ::-                                     JSRef Navigator -> IO JSString-ghcjs_dom_navigator_get_user_agent = undefined-#endif   navigatorGetUserAgent ::                       (IsNavigator self, FromJSString result) => self -> IO result@@ -145,49 +96,29 @@   = fromJSString <$>       (ghcjs_dom_navigator_get_user_agent          (unNavigator (toNavigator self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"platform\"]"         ghcjs_dom_navigator_get_platform :: JSRef Navigator -> IO JSString-#else -ghcjs_dom_navigator_get_platform :: JSRef Navigator -> IO JSString-ghcjs_dom_navigator_get_platform = undefined-#endif   navigatorGetPlatform ::                      (IsNavigator self, FromJSString result) => self -> IO result navigatorGetPlatform self   = fromJSString <$>       (ghcjs_dom_navigator_get_platform (unNavigator (toNavigator self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"plugins\"]"         ghcjs_dom_navigator_get_plugins ::         JSRef Navigator -> IO (JSRef DOMPluginArray)-#else -ghcjs_dom_navigator_get_plugins ::-                                  JSRef Navigator -> IO (JSRef DOMPluginArray)-ghcjs_dom_navigator_get_plugins = undefined-#endif   navigatorGetPlugins ::                     (IsNavigator self) => self -> IO (Maybe DOMPluginArray) navigatorGetPlugins self   = fmap DOMPluginArray . maybeJSNull <$>       (ghcjs_dom_navigator_get_plugins (unNavigator (toNavigator self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"mimeTypes\"]"         ghcjs_dom_navigator_get_mime_types ::         JSRef Navigator -> IO (JSRef DOMMimeTypeArray)-#else -ghcjs_dom_navigator_get_mime_types ::-                                     JSRef Navigator -> IO (JSRef DOMMimeTypeArray)-ghcjs_dom_navigator_get_mime_types = undefined-#endif   navigatorGetMimeTypes ::                       (IsNavigator self) => self -> IO (Maybe DOMMimeTypeArray)@@ -195,32 +126,19 @@   = fmap DOMMimeTypeArray . maybeJSNull <$>       (ghcjs_dom_navigator_get_mime_types          (unNavigator (toNavigator self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"product\"]"         ghcjs_dom_navigator_get_product :: JSRef Navigator -> IO JSString-#else -ghcjs_dom_navigator_get_product :: JSRef Navigator -> IO JSString-ghcjs_dom_navigator_get_product = undefined-#endif   navigatorGetProduct ::                     (IsNavigator self, FromJSString result) => self -> IO result navigatorGetProduct self   = fromJSString <$>       (ghcjs_dom_navigator_get_product (unNavigator (toNavigator self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"productSub\"]"         ghcjs_dom_navigator_get_product_sub ::         JSRef Navigator -> IO JSString-#else -ghcjs_dom_navigator_get_product_sub ::-                                      JSRef Navigator -> IO JSString-ghcjs_dom_navigator_get_product_sub = undefined-#endif   navigatorGetProductSub ::                        (IsNavigator self, FromJSString result) => self -> IO result@@ -228,32 +146,19 @@   = fromJSString <$>       (ghcjs_dom_navigator_get_product_sub          (unNavigator (toNavigator self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"vendor\"]"         ghcjs_dom_navigator_get_vendor :: JSRef Navigator -> IO JSString-#else -ghcjs_dom_navigator_get_vendor :: JSRef Navigator -> IO JSString-ghcjs_dom_navigator_get_vendor = undefined-#endif   navigatorGetVendor ::                    (IsNavigator self, FromJSString result) => self -> IO result navigatorGetVendor self   = fromJSString <$>       (ghcjs_dom_navigator_get_vendor (unNavigator (toNavigator self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"vendorSub\"]"         ghcjs_dom_navigator_get_vendor_sub ::         JSRef Navigator -> IO JSString-#else -ghcjs_dom_navigator_get_vendor_sub ::-                                     JSRef Navigator -> IO JSString-ghcjs_dom_navigator_get_vendor_sub = undefined-#endif   navigatorGetVendorSub ::                       (IsNavigator self, FromJSString result) => self -> IO result@@ -261,31 +166,18 @@   = fromJSString <$>       (ghcjs_dom_navigator_get_vendor_sub          (unNavigator (toNavigator self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"cookieEnabled\"] ? 1 : 0)"         ghcjs_dom_navigator_get_cookie_enabled ::         JSRef Navigator -> IO Bool-#else -ghcjs_dom_navigator_get_cookie_enabled ::-                                         JSRef Navigator -> IO Bool-ghcjs_dom_navigator_get_cookie_enabled = undefined-#endif   navigatorGetCookieEnabled :: (IsNavigator self) => self -> IO Bool navigatorGetCookieEnabled self   = ghcjs_dom_navigator_get_cookie_enabled       (unNavigator (toNavigator self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"onLine\"] ? 1 : 0)"         ghcjs_dom_navigator_get_on_line :: JSRef Navigator -> IO Bool-#else -ghcjs_dom_navigator_get_on_line :: JSRef Navigator -> IO Bool-ghcjs_dom_navigator_get_on_line = undefined-#endif   navigatorGetOnLine :: (IsNavigator self) => self -> IO Bool navigatorGetOnLine self

src/GHCJS/DOM/Node.hs view

@@ -48,28 +48,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"insertBefore\"]($2, $3)"         ghcjs_dom_node_insert_before ::         JSRef Node -> JSRef Node -> JSRef Node -> IO (JSRef Node)-#else -ghcjs_dom_node_insert_before ::-                               JSRef Node -> JSRef Node -> JSRef Node -> IO (JSRef Node)-ghcjs_dom_node_insert_before = undefined-#endif   nodeInsertBefore ::                  (IsNode self, IsNode newChild, IsNode refChild) =>@@ -79,17 +68,10 @@       (ghcjs_dom_node_insert_before (unNode (toNode self))          (maybe jsNull (unNode . toNode) newChild)          (maybe jsNull (unNode . toNode) refChild))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"replaceChild\"]($2, $3)"         ghcjs_dom_node_replace_child ::         JSRef Node -> JSRef Node -> JSRef Node -> IO (JSRef Node)-#else -ghcjs_dom_node_replace_child ::-                               JSRef Node -> JSRef Node -> JSRef Node -> IO (JSRef Node)-ghcjs_dom_node_replace_child = undefined-#endif   nodeReplaceChild ::                  (IsNode self, IsNode newChild, IsNode oldChild) =>@@ -99,17 +81,10 @@       (ghcjs_dom_node_replace_child (unNode (toNode self))          (maybe jsNull (unNode . toNode) newChild)          (maybe jsNull (unNode . toNode) oldChild))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"removeChild\"]($2)"         ghcjs_dom_node_remove_child ::         JSRef Node -> JSRef Node -> IO (JSRef Node)-#else -ghcjs_dom_node_remove_child ::-                              JSRef Node -> JSRef Node -> IO (JSRef Node)-ghcjs_dom_node_remove_child = undefined-#endif   nodeRemoveChild ::                 (IsNode self, IsNode oldChild) =>@@ -118,17 +93,10 @@   = fmap Node . maybeJSNull <$>       (ghcjs_dom_node_remove_child (unNode (toNode self))          (maybe jsNull (unNode . toNode) oldChild))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"appendChild\"]($2)"         ghcjs_dom_node_append_child ::         JSRef Node -> JSRef Node -> IO (JSRef Node)-#else -ghcjs_dom_node_append_child ::-                              JSRef Node -> JSRef Node -> IO (JSRef Node)-ghcjs_dom_node_append_child = undefined-#endif   nodeAppendChild ::                 (IsNode self, IsNode newChild) =>@@ -137,59 +105,34 @@   = fmap Node . maybeJSNull <$>       (ghcjs_dom_node_append_child (unNode (toNode self))          (maybe jsNull (unNode . toNode) newChild))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"hasChildNodes\"]() ? 1 : 0)" ghcjs_dom_node_has_child_nodes         :: JSRef Node -> IO Bool-#else -ghcjs_dom_node_has_child_nodes :: JSRef Node -> IO Bool-ghcjs_dom_node_has_child_nodes = undefined-#endif   nodeHasChildNodes :: (IsNode self) => self -> IO Bool nodeHasChildNodes self   = ghcjs_dom_node_has_child_nodes (unNode (toNode self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"cloneNode\"]($2)"         ghcjs_dom_node_clone_node :: JSRef Node -> Bool -> IO (JSRef Node)-#else -ghcjs_dom_node_clone_node :: JSRef Node -> Bool -> IO (JSRef Node)-ghcjs_dom_node_clone_node = undefined-#endif   nodeCloneNode :: (IsNode self) => self -> Bool -> IO (Maybe Node) nodeCloneNode self deep   = fmap Node . maybeJSNull <$>       (ghcjs_dom_node_clone_node (unNode (toNode self)) deep)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"normalize\"]()"         ghcjs_dom_node_normalize :: JSRef Node -> IO ()-#else -ghcjs_dom_node_normalize :: JSRef Node -> IO ()-ghcjs_dom_node_normalize = undefined-#endif   nodeNormalize :: (IsNode self) => self -> IO () nodeNormalize self   = ghcjs_dom_node_normalize (unNode (toNode self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"isSupported\"]($2,\n$3) ? 1 : 0)"         ghcjs_dom_node_is_supported ::         JSRef Node -> JSString -> JSString -> IO Bool-#else -ghcjs_dom_node_is_supported ::-                              JSRef Node -> JSString -> JSString -> IO Bool-ghcjs_dom_node_is_supported = undefined-#endif   nodeIsSupported ::                 (IsNode self, ToJSString feature, ToJSString version) =>@@ -198,48 +141,29 @@   = ghcjs_dom_node_is_supported (unNode (toNode self))       (toJSString feature)       (toJSString version)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"isSameNode\"]($2) ? 1 : 0)"         ghcjs_dom_node_is_same_node :: JSRef Node -> JSRef Node -> IO Bool-#else -ghcjs_dom_node_is_same_node :: JSRef Node -> JSRef Node -> IO Bool-ghcjs_dom_node_is_same_node = undefined-#endif   nodeIsSameNode ::                (IsNode self, IsNode other) => self -> Maybe other -> IO Bool nodeIsSameNode self other   = ghcjs_dom_node_is_same_node (unNode (toNode self))       (maybe jsNull (unNode . toNode) other)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"isEqualNode\"]($2) ? 1 : 0)" ghcjs_dom_node_is_equal_node ::         JSRef Node -> JSRef Node -> IO Bool-#else -ghcjs_dom_node_is_equal_node :: JSRef Node -> JSRef Node -> IO Bool-ghcjs_dom_node_is_equal_node = undefined-#endif   nodeIsEqualNode ::                 (IsNode self, IsNode other) => self -> Maybe other -> IO Bool nodeIsEqualNode self other   = ghcjs_dom_node_is_equal_node (unNode (toNode self))       (maybe jsNull (unNode . toNode) other)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"lookupPrefix\"]($2)"         ghcjs_dom_node_lookup_prefix ::         JSRef Node -> JSString -> IO JSString-#else -ghcjs_dom_node_lookup_prefix ::-                               JSRef Node -> JSString -> IO JSString-ghcjs_dom_node_lookup_prefix = undefined-#endif   nodeLookupPrefix ::                  (IsNode self, ToJSString namespaceURI, FromJSString result) =>@@ -248,18 +172,11 @@   = fromJSString <$>       (ghcjs_dom_node_lookup_prefix (unNode (toNode self))          (toJSString namespaceURI))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"isDefaultNamespace\"]($2) ? 1 : 0)"         ghcjs_dom_node_is_default_namespace ::         JSRef Node -> JSString -> IO Bool-#else -ghcjs_dom_node_is_default_namespace ::-                                      JSRef Node -> JSString -> IO Bool-ghcjs_dom_node_is_default_namespace = undefined-#endif   nodeIsDefaultNamespace ::                        (IsNode self, ToJSString namespaceURI) =>@@ -267,17 +184,10 @@ nodeIsDefaultNamespace self namespaceURI   = ghcjs_dom_node_is_default_namespace (unNode (toNode self))       (toJSString namespaceURI)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"lookupNamespaceURI\"]($2)"         ghcjs_dom_node_lookup_namespace_uri ::         JSRef Node -> JSString -> IO JSString-#else -ghcjs_dom_node_lookup_namespace_uri ::-                                      JSRef Node -> JSString -> IO JSString-ghcjs_dom_node_lookup_namespace_uri = undefined-#endif   nodeLookupNamespaceURI ::                        (IsNode self, ToJSString prefix, FromJSString result) =>@@ -286,50 +196,30 @@   = fromJSString <$>       (ghcjs_dom_node_lookup_namespace_uri (unNode (toNode self))          (toJSString prefix))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"compareDocumentPosition\"]($2)"         ghcjs_dom_node_compare_document_position ::         JSRef Node -> JSRef Node -> IO Word-#else -ghcjs_dom_node_compare_document_position ::-                                           JSRef Node -> JSRef Node -> IO Word-ghcjs_dom_node_compare_document_position = undefined-#endif   nodeCompareDocumentPosition ::                             (IsNode self, IsNode other) => self -> Maybe other -> IO Word nodeCompareDocumentPosition self other   = ghcjs_dom_node_compare_document_position (unNode (toNode self))       (maybe jsNull (unNode . toNode) other)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"         ghcjs_dom_node_contains :: JSRef Node -> JSRef Node -> IO Bool-#else -ghcjs_dom_node_contains :: JSRef Node -> JSRef Node -> IO Bool-ghcjs_dom_node_contains = undefined-#endif   nodeContains ::              (IsNode self, IsNode other) => self -> Maybe other -> IO Bool nodeContains self other   = ghcjs_dom_node_contains (unNode (toNode self))       (maybe jsNull (unNode . toNode) other)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"dispatchEvent\"]($2) ? 1 : 0)" ghcjs_dom_node_dispatch_event         :: JSRef Node -> JSRef Event -> IO Bool-#else -ghcjs_dom_node_dispatch_event ::-                                JSRef Node -> JSRef Event -> IO Bool-ghcjs_dom_node_dispatch_event = undefined-#endif   nodeDispatchEvent ::                   (IsNode self, IsEvent event) => self -> Maybe event -> IO Bool@@ -354,282 +244,165 @@ cDOCUMENT_POSITION_CONTAINS = 8 cDOCUMENT_POSITION_CONTAINED_BY = 16 cDOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC = 32---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"nodeName\"]"         ghcjs_dom_node_get_node_name :: JSRef Node -> IO JSString-#else -ghcjs_dom_node_get_node_name :: JSRef Node -> IO JSString-ghcjs_dom_node_get_node_name = undefined-#endif   nodeGetNodeName ::                 (IsNode self, FromJSString result) => self -> IO result nodeGetNodeName self   = fromJSString <$>       (ghcjs_dom_node_get_node_name (unNode (toNode self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"nodeValue\"] = $2;"         ghcjs_dom_node_set_node_value :: JSRef Node -> JSString -> IO ()-#else -ghcjs_dom_node_set_node_value :: JSRef Node -> JSString -> IO ()-ghcjs_dom_node_set_node_value = undefined-#endif   nodeSetNodeValue ::                  (IsNode self, ToJSString val) => self -> val -> IO () nodeSetNodeValue self val   = ghcjs_dom_node_set_node_value (unNode (toNode self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"nodeValue\"]"         ghcjs_dom_node_get_node_value :: JSRef Node -> IO JSString-#else -ghcjs_dom_node_get_node_value :: JSRef Node -> IO JSString-ghcjs_dom_node_get_node_value = undefined-#endif   nodeGetNodeValue ::                  (IsNode self, FromJSString result) => self -> IO result nodeGetNodeValue self   = fromJSString <$>       (ghcjs_dom_node_get_node_value (unNode (toNode self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"nodeType\"]"         ghcjs_dom_node_get_node_type :: JSRef Node -> IO Word-#else -ghcjs_dom_node_get_node_type :: JSRef Node -> IO Word-ghcjs_dom_node_get_node_type = undefined-#endif   nodeGetNodeType :: (IsNode self) => self -> IO Word nodeGetNodeType self   = ghcjs_dom_node_get_node_type (unNode (toNode self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"parentNode\"]"         ghcjs_dom_node_get_parent_node :: JSRef Node -> IO (JSRef Node)-#else -ghcjs_dom_node_get_parent_node :: JSRef Node -> IO (JSRef Node)-ghcjs_dom_node_get_parent_node = undefined-#endif   nodeGetParentNode :: (IsNode self) => self -> IO (Maybe Node) nodeGetParentNode self   = fmap Node . maybeJSNull <$>       (ghcjs_dom_node_get_parent_node (unNode (toNode self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"childNodes\"]"         ghcjs_dom_node_get_child_nodes :: JSRef Node -> IO (JSRef NodeList)-#else -ghcjs_dom_node_get_child_nodes :: JSRef Node -> IO (JSRef NodeList)-ghcjs_dom_node_get_child_nodes = undefined-#endif   nodeGetChildNodes :: (IsNode self) => self -> IO (Maybe NodeList) nodeGetChildNodes self   = fmap NodeList . maybeJSNull <$>       (ghcjs_dom_node_get_child_nodes (unNode (toNode self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"firstChild\"]"         ghcjs_dom_node_get_first_child :: JSRef Node -> IO (JSRef Node)-#else -ghcjs_dom_node_get_first_child :: JSRef Node -> IO (JSRef Node)-ghcjs_dom_node_get_first_child = undefined-#endif   nodeGetFirstChild :: (IsNode self) => self -> IO (Maybe Node) nodeGetFirstChild self   = fmap Node . maybeJSNull <$>       (ghcjs_dom_node_get_first_child (unNode (toNode self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"lastChild\"]"         ghcjs_dom_node_get_last_child :: JSRef Node -> IO (JSRef Node)-#else -ghcjs_dom_node_get_last_child :: JSRef Node -> IO (JSRef Node)-ghcjs_dom_node_get_last_child = undefined-#endif   nodeGetLastChild :: (IsNode self) => self -> IO (Maybe Node) nodeGetLastChild self   = fmap Node . maybeJSNull <$>       (ghcjs_dom_node_get_last_child (unNode (toNode self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"previousSibling\"]"         ghcjs_dom_node_get_previous_sibling ::         JSRef Node -> IO (JSRef Node)-#else -ghcjs_dom_node_get_previous_sibling ::-                                      JSRef Node -> IO (JSRef Node)-ghcjs_dom_node_get_previous_sibling = undefined-#endif   nodeGetPreviousSibling :: (IsNode self) => self -> IO (Maybe Node) nodeGetPreviousSibling self   = fmap Node . maybeJSNull <$>       (ghcjs_dom_node_get_previous_sibling (unNode (toNode self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"nextSibling\"]"         ghcjs_dom_node_get_next_sibling :: JSRef Node -> IO (JSRef Node)-#else -ghcjs_dom_node_get_next_sibling :: JSRef Node -> IO (JSRef Node)-ghcjs_dom_node_get_next_sibling = undefined-#endif   nodeGetNextSibling :: (IsNode self) => self -> IO (Maybe Node) nodeGetNextSibling self   = fmap Node . maybeJSNull <$>       (ghcjs_dom_node_get_next_sibling (unNode (toNode self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"ownerDocument\"]"         ghcjs_dom_node_get_owner_document ::         JSRef Node -> IO (JSRef Document)-#else -ghcjs_dom_node_get_owner_document ::-                                    JSRef Node -> IO (JSRef Document)-ghcjs_dom_node_get_owner_document = undefined-#endif   nodeGetOwnerDocument ::                      (IsNode self) => self -> IO (Maybe Document) nodeGetOwnerDocument self   = fmap Document . maybeJSNull <$>       (ghcjs_dom_node_get_owner_document (unNode (toNode self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"namespaceURI\"]"         ghcjs_dom_node_get_namespace_uri :: JSRef Node -> IO JSString-#else -ghcjs_dom_node_get_namespace_uri :: JSRef Node -> IO JSString-ghcjs_dom_node_get_namespace_uri = undefined-#endif   nodeGetNamespaceURI ::                     (IsNode self, FromJSString result) => self -> IO result nodeGetNamespaceURI self   = fromJSString <$>       (ghcjs_dom_node_get_namespace_uri (unNode (toNode self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"prefix\"] = $2;"         ghcjs_dom_node_set_prefix :: JSRef Node -> JSString -> IO ()-#else -ghcjs_dom_node_set_prefix :: JSRef Node -> JSString -> IO ()-ghcjs_dom_node_set_prefix = undefined-#endif   nodeSetPrefix ::               (IsNode self, ToJSString val) => self -> val -> IO () nodeSetPrefix self val   = ghcjs_dom_node_set_prefix (unNode (toNode self)) (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"prefix\"]"         ghcjs_dom_node_get_prefix :: JSRef Node -> IO JSString-#else -ghcjs_dom_node_get_prefix :: JSRef Node -> IO JSString-ghcjs_dom_node_get_prefix = undefined-#endif   nodeGetPrefix ::               (IsNode self, FromJSString result) => self -> IO result nodeGetPrefix self   = fromJSString <$>       (ghcjs_dom_node_get_prefix (unNode (toNode self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"localName\"]"         ghcjs_dom_node_get_local_name :: JSRef Node -> IO JSString-#else -ghcjs_dom_node_get_local_name :: JSRef Node -> IO JSString-ghcjs_dom_node_get_local_name = undefined-#endif   nodeGetLocalName ::                  (IsNode self, FromJSString result) => self -> IO result nodeGetLocalName self   = fromJSString <$>       (ghcjs_dom_node_get_local_name (unNode (toNode self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"baseURI\"]"         ghcjs_dom_node_get_base_uri :: JSRef Node -> IO JSString-#else -ghcjs_dom_node_get_base_uri :: JSRef Node -> IO JSString-ghcjs_dom_node_get_base_uri = undefined-#endif   nodeGetBaseURI ::                (IsNode self, FromJSString result) => self -> IO result nodeGetBaseURI self   = fromJSString <$>       (ghcjs_dom_node_get_base_uri (unNode (toNode self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"textContent\"] = $2;"         ghcjs_dom_node_set_text_content :: JSRef Node -> JSString -> IO ()-#else -ghcjs_dom_node_set_text_content :: JSRef Node -> JSString -> IO ()-ghcjs_dom_node_set_text_content = undefined-#endif   nodeSetTextContent ::                    (IsNode self, ToJSString val) => self -> val -> IO () nodeSetTextContent self val   = ghcjs_dom_node_set_text_content (unNode (toNode self))       (toJSString val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"textContent\"]"         ghcjs_dom_node_get_text_content :: JSRef Node -> IO JSString-#else -ghcjs_dom_node_get_text_content :: JSRef Node -> IO JSString-ghcjs_dom_node_get_text_content = undefined-#endif   nodeGetTextContent ::                    (IsNode self, FromJSString result) => self -> IO result nodeGetTextContent self   = fromJSString <$>       (ghcjs_dom_node_get_text_content (unNode (toNode self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"parentElement\"]"         ghcjs_dom_node_get_parent_element ::         JSRef Node -> IO (JSRef Element)-#else -ghcjs_dom_node_get_parent_element ::-                                    JSRef Node -> IO (JSRef Element)-ghcjs_dom_node_get_parent_element = undefined-#endif   nodeGetParentElement :: (IsNode self) => self -> IO (Maybe Element) nodeGetParentElement self

src/GHCJS/DOM/NodeFilter.hs view

@@ -11,12 +11,8 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>))

src/GHCJS/DOM/NodeIterator.hs view

@@ -18,42 +18,25 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"detach\"]()"         ghcjs_dom_node_iterator_detach :: JSRef NodeIterator -> IO ()-#else -ghcjs_dom_node_iterator_detach :: JSRef NodeIterator -> IO ()-ghcjs_dom_node_iterator_detach = undefined-#endif   nodeIteratorDetach :: (IsNodeIterator self) => self -> IO () nodeIteratorDetach self   = ghcjs_dom_node_iterator_detach       (unNodeIterator (toNodeIterator self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"root\"]"         ghcjs_dom_node_iterator_get_root ::         JSRef NodeIterator -> IO (JSRef Node)-#else -ghcjs_dom_node_iterator_get_root ::-                                   JSRef NodeIterator -> IO (JSRef Node)-ghcjs_dom_node_iterator_get_root = undefined-#endif   nodeIteratorGetRoot ::                     (IsNodeIterator self) => self -> IO (Maybe Node)@@ -61,34 +44,20 @@   = fmap Node . maybeJSNull <$>       (ghcjs_dom_node_iterator_get_root          (unNodeIterator (toNodeIterator self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"whatToShow\"]"         ghcjs_dom_node_iterator_get_what_to_show ::         JSRef NodeIterator -> IO Word-#else -ghcjs_dom_node_iterator_get_what_to_show ::-                                           JSRef NodeIterator -> IO Word-ghcjs_dom_node_iterator_get_what_to_show = undefined-#endif   nodeIteratorGetWhatToShow ::                           (IsNodeIterator self) => self -> IO Word nodeIteratorGetWhatToShow self   = ghcjs_dom_node_iterator_get_what_to_show       (unNodeIterator (toNodeIterator self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"filter\"]"         ghcjs_dom_node_iterator_get_filter ::         JSRef NodeIterator -> IO (JSRef NodeFilter)-#else -ghcjs_dom_node_iterator_get_filter ::-                                     JSRef NodeIterator -> IO (JSRef NodeFilter)-ghcjs_dom_node_iterator_get_filter = undefined-#endif   nodeIteratorGetFilter ::                       (IsNodeIterator self) => self -> IO (Maybe NodeFilter)@@ -96,35 +65,21 @@   = fmap NodeFilter . maybeJSNull <$>       (ghcjs_dom_node_iterator_get_filter          (unNodeIterator (toNodeIterator self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"expandEntityReferences\"] ? 1 : 0)"         ghcjs_dom_node_iterator_get_expand_entity_references ::         JSRef NodeIterator -> IO Bool-#else -ghcjs_dom_node_iterator_get_expand_entity_references ::-                                                       JSRef NodeIterator -> IO Bool-ghcjs_dom_node_iterator_get_expand_entity_references = undefined-#endif   nodeIteratorGetExpandEntityReferences ::                                       (IsNodeIterator self) => self -> IO Bool nodeIteratorGetExpandEntityReferences self   = ghcjs_dom_node_iterator_get_expand_entity_references       (unNodeIterator (toNodeIterator self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"referenceNode\"]"         ghcjs_dom_node_iterator_get_reference_node ::         JSRef NodeIterator -> IO (JSRef Node)-#else -ghcjs_dom_node_iterator_get_reference_node ::-                                             JSRef NodeIterator -> IO (JSRef Node)-ghcjs_dom_node_iterator_get_reference_node = undefined-#endif   nodeIteratorGetReferenceNode ::                              (IsNodeIterator self) => self -> IO (Maybe Node)@@ -132,19 +87,11 @@   = fmap Node . maybeJSNull <$>       (ghcjs_dom_node_iterator_get_reference_node          (unNodeIterator (toNodeIterator self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"pointerBeforeReferenceNode\"] ? 1 : 0)"         ghcjs_dom_node_iterator_get_pointer_before_reference_node ::         JSRef NodeIterator -> IO Bool-#else -ghcjs_dom_node_iterator_get_pointer_before_reference_node ::-                                                            JSRef NodeIterator -> IO Bool-ghcjs_dom_node_iterator_get_pointer_before_reference_node-  = undefined-#endif   nodeIteratorGetPointerBeforeReferenceNode ::                                           (IsNodeIterator self) => self -> IO Bool

src/GHCJS/DOM/NodeList.hs view

@@ -8,43 +8,26 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_node_list_item ::         JSRef NodeList -> Word -> IO (JSRef Node)-#else -ghcjs_dom_node_list_item ::-                           JSRef NodeList -> Word -> IO (JSRef Node)-ghcjs_dom_node_list_item = undefined-#endif   nodeListItem ::              (IsNodeList self) => self -> Word -> IO (Maybe Node) nodeListItem self index   = fmap Node . maybeJSNull <$>       (ghcjs_dom_node_list_item (unNodeList (toNodeList self)) index)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_node_list_get_length :: JSRef NodeList -> IO Word-#else -ghcjs_dom_node_list_get_length :: JSRef NodeList -> IO Word-ghcjs_dom_node_list_get_length = undefined-#endif   nodeListGetLength :: (IsNodeList self) => self -> IO Word nodeListGetLength self

src/GHCJS/DOM/ProcessingInstruction.hs view

@@ -4,10 +4,6 @@ module GHCJS.DOM.ProcessingInstruction        (ghcjs_dom_processing_instruction_get_target,         processingInstructionGetTarget,-        ghcjs_dom_processing_instruction_set_data,-        processingInstructionSetData,-        ghcjs_dom_processing_instruction_get_data,-        processingInstructionGetData,         ghcjs_dom_processing_instruction_get_sheet,         processingInstructionGetSheet, ProcessingInstruction,         IsProcessingInstruction, castToProcessingInstruction,@@ -15,28 +11,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"target\"]"         ghcjs_dom_processing_instruction_get_target ::         JSRef ProcessingInstruction -> IO JSString-#else -ghcjs_dom_processing_instruction_get_target ::-                                              JSRef ProcessingInstruction -> IO JSString-ghcjs_dom_processing_instruction_get_target = undefined-#endif   processingInstructionGetTarget ::                                (IsProcessingInstruction self, FromJSString result) =>@@ -45,55 +30,10 @@   = fromJSString <$>       (ghcjs_dom_processing_instruction_get_target          (unProcessingInstruction (toProcessingInstruction self)))---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"data\"] = $2;"-        ghcjs_dom_processing_instruction_set_data ::-        JSRef ProcessingInstruction -> JSString -> IO ()-#else -ghcjs_dom_processing_instruction_set_data ::-                                            JSRef ProcessingInstruction -> JSString -> IO ()-ghcjs_dom_processing_instruction_set_data = undefined-#endif  -processingInstructionSetData ::-                             (IsProcessingInstruction self, ToJSString val) =>-                               self -> val -> IO ()-processingInstructionSetData self val-  = ghcjs_dom_processing_instruction_set_data-      (unProcessingInstruction (toProcessingInstruction self))-      (toJSString val)---#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "$1[\"data\"]"-        ghcjs_dom_processing_instruction_get_data ::-        JSRef ProcessingInstruction -> IO JSString-#else -ghcjs_dom_processing_instruction_get_data ::-                                            JSRef ProcessingInstruction -> IO JSString-ghcjs_dom_processing_instruction_get_data = undefined-#endif- -processingInstructionGetData ::-                             (IsProcessingInstruction self, FromJSString result) =>-                               self -> IO result-processingInstructionGetData self-  = fromJSString <$>-      (ghcjs_dom_processing_instruction_get_data-         (unProcessingInstruction (toProcessingInstruction self)))---#ifdef ghcjs_HOST_OS  foreign import javascript unsafe "$1[\"sheet\"]"         ghcjs_dom_processing_instruction_get_sheet ::         JSRef ProcessingInstruction -> IO (JSRef StyleSheet)-#else -ghcjs_dom_processing_instruction_get_sheet ::-                                             JSRef ProcessingInstruction -> IO (JSRef StyleSheet)-ghcjs_dom_processing_instruction_get_sheet = undefined-#endif   processingInstructionGetSheet ::                               (IsProcessingInstruction self) => self -> IO (Maybe StyleSheet)

src/GHCJS/DOM/Range.hs view

@@ -33,33 +33,23 @@         ghcjs_dom_range_get_collapsed, rangeGetCollapsed,         ghcjs_dom_range_get_common_ancestor_container,         rangeGetCommonAncestorContainer, ghcjs_dom_range_get_text,-        rangeGetText, DOMRange, IsDOMRange, castToDOMRange, gTypeDOMRange, toDOMRange)+        rangeGetText, DOMRange, IsDOMRange, castToDOMRange, gTypeDOMRange,+        toDOMRange)        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"setStart\"]($2, $3)"         ghcjs_dom_range_set_start ::         JSRef DOMRange -> JSRef Node -> Int -> IO ()-#else-ghcjs_dom_range_set_start ::-                            JSRef DOMRange -> JSRef Node -> Int -> IO ()-ghcjs_dom_range_set_start = undefined-#endif-+  rangeSetStart ::               (IsDOMRange self, IsNode refNode) =>                 self -> Maybe refNode -> Int -> IO ()@@ -67,18 +57,11 @@   = ghcjs_dom_range_set_start (unDOMRange (toDOMRange self))       (maybe jsNull (unNode . toNode) refNode)       offset---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"setEnd\"]($2, $3)"         ghcjs_dom_range_set_end ::         JSRef DOMRange -> JSRef Node -> Int -> IO ()-#else-ghcjs_dom_range_set_end ::-                          JSRef DOMRange -> JSRef Node -> Int -> IO ()-ghcjs_dom_range_set_end = undefined-#endif-+  rangeSetEnd ::             (IsDOMRange self, IsNode refNode) =>               self -> Maybe refNode -> Int -> IO ()@@ -86,135 +69,80 @@   = ghcjs_dom_range_set_end (unDOMRange (toDOMRange self))       (maybe jsNull (unNode . toNode) refNode)       offset---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"setStartBefore\"]($2)"         ghcjs_dom_range_set_start_before ::         JSRef DOMRange -> JSRef Node -> IO ()-#else-ghcjs_dom_range_set_start_before ::-                                   JSRef DOMRange -> JSRef Node -> IO ()-ghcjs_dom_range_set_start_before = undefined-#endif-+  rangeSetStartBefore ::                     (IsDOMRange self, IsNode refNode) => self -> Maybe refNode -> IO () rangeSetStartBefore self refNode   = ghcjs_dom_range_set_start_before (unDOMRange (toDOMRange self))       (maybe jsNull (unNode . toNode) refNode)---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"setStartAfter\"]($2)"         ghcjs_dom_range_set_start_after ::         JSRef DOMRange -> JSRef Node -> IO ()-#else-ghcjs_dom_range_set_start_after ::-                                  JSRef DOMRange -> JSRef Node -> IO ()-ghcjs_dom_range_set_start_after = undefined-#endif-+  rangeSetStartAfter ::                    (IsDOMRange self, IsNode refNode) => self -> Maybe refNode -> IO () rangeSetStartAfter self refNode   = ghcjs_dom_range_set_start_after (unDOMRange (toDOMRange self))       (maybe jsNull (unNode . toNode) refNode)---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"setEndBefore\"]($2)"         ghcjs_dom_range_set_end_before ::         JSRef DOMRange -> JSRef Node -> IO ()-#else-ghcjs_dom_range_set_end_before ::-                                 JSRef DOMRange -> JSRef Node -> IO ()-ghcjs_dom_range_set_end_before = undefined-#endif-+  rangeSetEndBefore ::                   (IsDOMRange self, IsNode refNode) => self -> Maybe refNode -> IO () rangeSetEndBefore self refNode   = ghcjs_dom_range_set_end_before (unDOMRange (toDOMRange self))       (maybe jsNull (unNode . toNode) refNode)---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"setEndAfter\"]($2)"         ghcjs_dom_range_set_end_after ::         JSRef DOMRange -> JSRef Node -> IO ()-#else-ghcjs_dom_range_set_end_after ::-                                JSRef DOMRange -> JSRef Node -> IO ()-ghcjs_dom_range_set_end_after = undefined-#endif-+  rangeSetEndAfter ::                  (IsDOMRange self, IsNode refNode) => self -> Maybe refNode -> IO () rangeSetEndAfter self refNode   = ghcjs_dom_range_set_end_after (unDOMRange (toDOMRange self))       (maybe jsNull (unNode . toNode) refNode)---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"collapse\"]($2)"         ghcjs_dom_range_collapse :: JSRef DOMRange -> Bool -> IO ()-#else-ghcjs_dom_range_collapse :: JSRef DOMRange -> Bool -> IO ()-ghcjs_dom_range_collapse = undefined-#endif-+  rangeCollapse :: (IsDOMRange self) => self -> Bool -> IO () rangeCollapse self toStart   = ghcjs_dom_range_collapse (unDOMRange (toDOMRange self)) toStart---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"selectNode\"]($2)"         ghcjs_dom_range_select_node ::         JSRef DOMRange -> JSRef Node -> IO ()-#else-ghcjs_dom_range_select_node ::-                              JSRef DOMRange -> JSRef Node -> IO ()-ghcjs_dom_range_select_node = undefined-#endif-+  rangeSelectNode ::                 (IsDOMRange self, IsNode refNode) => self -> Maybe refNode -> IO () rangeSelectNode self refNode   = ghcjs_dom_range_select_node (unDOMRange (toDOMRange self))       (maybe jsNull (unNode . toNode) refNode)---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"selectNodeContents\"]($2)"         ghcjs_dom_range_select_node_contents ::         JSRef DOMRange -> JSRef Node -> IO ()-#else-ghcjs_dom_range_select_node_contents ::-                                       JSRef DOMRange -> JSRef Node -> IO ()-ghcjs_dom_range_select_node_contents = undefined-#endif-+  rangeSelectNodeContents ::                         (IsDOMRange self, IsNode refNode) => self -> Maybe refNode -> IO () rangeSelectNodeContents self refNode   = ghcjs_dom_range_select_node_contents       (unDOMRange (toDOMRange self))       (maybe jsNull (unNode . toNode) refNode)---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe         "$1[\"compareBoundaryPoints\"]($2,\n$3)"         ghcjs_dom_range_compare_boundary_points ::         JSRef DOMRange -> Word -> JSRef DOMRange -> IO Int-#else-ghcjs_dom_range_compare_boundary_points ::-                                          JSRef DOMRange -> Word -> JSRef DOMRange -> IO Int-ghcjs_dom_range_compare_boundary_points = undefined-#endif-+  rangeCompareBoundaryPoints ::                            (IsDOMRange self, IsDOMRange sourceRange) =>                              self -> Word -> Maybe sourceRange -> IO Int@@ -223,146 +151,85 @@       (unDOMRange (toDOMRange self))       (fromIntegral how)       (maybe jsNull (unDOMRange . toDOMRange) sourceRange)---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"deleteContents\"]()"         ghcjs_dom_range_delete_contents :: JSRef DOMRange -> IO ()-#else-ghcjs_dom_range_delete_contents :: JSRef DOMRange -> IO ()-ghcjs_dom_range_delete_contents = undefined-#endif-+  rangeDeleteContents :: (IsDOMRange self) => self -> IO () rangeDeleteContents self   = ghcjs_dom_range_delete_contents (unDOMRange (toDOMRange self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"extractContents\"]()"         ghcjs_dom_range_extract_contents ::         JSRef DOMRange -> IO (JSRef DocumentFragment)-#else-ghcjs_dom_range_extract_contents ::-                                   JSRef DOMRange -> IO (JSRef DocumentFragment)-ghcjs_dom_range_extract_contents = undefined-#endif-+  rangeExtractContents ::                      (IsDOMRange self) => self -> IO (Maybe DocumentFragment) rangeExtractContents self   = fmap DocumentFragment . maybeJSNull <$>       (ghcjs_dom_range_extract_contents (unDOMRange (toDOMRange self)))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"cloneContents\"]()"         ghcjs_dom_range_clone_contents ::         JSRef DOMRange -> IO (JSRef DocumentFragment)-#else-ghcjs_dom_range_clone_contents ::-                                 JSRef DOMRange -> IO (JSRef DocumentFragment)-ghcjs_dom_range_clone_contents = undefined-#endif-+  rangeCloneContents ::                    (IsDOMRange self) => self -> IO (Maybe DocumentFragment) rangeCloneContents self   = fmap DocumentFragment . maybeJSNull <$>       (ghcjs_dom_range_clone_contents (unDOMRange (toDOMRange self)))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"insertNode\"]($2)"         ghcjs_dom_range_insert_node ::         JSRef DOMRange -> JSRef Node -> IO ()-#else-ghcjs_dom_range_insert_node ::-                              JSRef DOMRange -> JSRef Node -> IO ()-ghcjs_dom_range_insert_node = undefined-#endif-+  rangeInsertNode ::                 (IsDOMRange self, IsNode newNode) => self -> Maybe newNode -> IO () rangeInsertNode self newNode   = ghcjs_dom_range_insert_node (unDOMRange (toDOMRange self))       (maybe jsNull (unNode . toNode) newNode)---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"surroundContents\"]($2)"         ghcjs_dom_range_surround_contents ::         JSRef DOMRange -> JSRef Node -> IO ()-#else-ghcjs_dom_range_surround_contents ::-                                    JSRef DOMRange -> JSRef Node -> IO ()-ghcjs_dom_range_surround_contents = undefined-#endif-+  rangeSurroundContents ::                       (IsDOMRange self, IsNode newParent) =>                         self -> Maybe newParent -> IO () rangeSurroundContents self newParent   = ghcjs_dom_range_surround_contents (unDOMRange (toDOMRange self))       (maybe jsNull (unNode . toNode) newParent)---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"cloneRange\"]()"         ghcjs_dom_range_clone_range ::         JSRef DOMRange -> IO (JSRef DOMRange)-#else-ghcjs_dom_range_clone_range ::-                              JSRef DOMRange -> IO (JSRef DOMRange)-ghcjs_dom_range_clone_range = undefined-#endif-+  rangeCloneRange :: (IsDOMRange self) => self -> IO (Maybe DOMRange) rangeCloneRange self   = fmap DOMRange . maybeJSNull <$>       (ghcjs_dom_range_clone_range (unDOMRange (toDOMRange self)))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"toString\"]()"         ghcjs_dom_range_to_string :: JSRef DOMRange -> IO JSString-#else-ghcjs_dom_range_to_string :: JSRef DOMRange -> IO JSString-ghcjs_dom_range_to_string = undefined-#endif-+  rangeToString ::               (IsDOMRange self, FromJSString result) => self -> IO result rangeToString self   = fromJSString <$>       (ghcjs_dom_range_to_string (unDOMRange (toDOMRange self)))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"detach\"]()"         ghcjs_dom_range_detach :: JSRef DOMRange -> IO ()-#else-ghcjs_dom_range_detach :: JSRef DOMRange -> IO ()-ghcjs_dom_range_detach = undefined-#endif-+  rangeDetach :: (IsDOMRange self) => self -> IO () rangeDetach self   = ghcjs_dom_range_detach (unDOMRange (toDOMRange self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe         "$1[\"createContextualFragment\"]($2)"         ghcjs_dom_range_create_contextual_fragment ::         JSRef DOMRange -> JSString -> IO (JSRef DocumentFragment)-#else-ghcjs_dom_range_create_contextual_fragment ::-                                             JSRef DOMRange ->-                                               JSString -> IO (JSRef DocumentFragment)-ghcjs_dom_range_create_contextual_fragment = undefined-#endif-+  rangeCreateContextualFragment ::                               (IsDOMRange self, ToJSString html) =>                                 self -> html -> IO (Maybe DocumentFragment)@@ -371,55 +238,34 @@       (ghcjs_dom_range_create_contextual_fragment          (unDOMRange (toDOMRange self))          (toJSString html))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe         "($1[\"intersectsNode\"]($2) ? 1 : 0)"         ghcjs_dom_range_intersects_node ::         JSRef DOMRange -> JSRef Node -> IO Bool-#else-ghcjs_dom_range_intersects_node ::-                                  JSRef DOMRange -> JSRef Node -> IO Bool-ghcjs_dom_range_intersects_node = undefined-#endif-+  rangeIntersectsNode ::                     (IsDOMRange self, IsNode refNode) =>                       self -> Maybe refNode -> IO Bool rangeIntersectsNode self refNode   = ghcjs_dom_range_intersects_node (unDOMRange (toDOMRange self))       (maybe jsNull (unNode . toNode) refNode)---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"compareNode\"]($2)"         ghcjs_dom_range_compare_node ::         JSRef DOMRange -> JSRef Node -> IO Int-#else-ghcjs_dom_range_compare_node ::-                               JSRef DOMRange -> JSRef Node -> IO Int-ghcjs_dom_range_compare_node = undefined-#endif-+  rangeCompareNode ::                  (IsDOMRange self, IsNode refNode) =>                    self -> Maybe refNode -> IO Int rangeCompareNode self refNode   = ghcjs_dom_range_compare_node (unDOMRange (toDOMRange self))       (maybe jsNull (unNode . toNode) refNode)---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"comparePoint\"]($2, $3)"         ghcjs_dom_range_compare_point ::         JSRef DOMRange -> JSRef Node -> Int -> IO Int-#else-ghcjs_dom_range_compare_point ::-                                JSRef DOMRange -> JSRef Node -> Int -> IO Int-ghcjs_dom_range_compare_point = undefined-#endif-+  rangeComparePoint ::                   (IsDOMRange self, IsNode refNode) =>                     self -> Maybe refNode -> Int -> IO Int@@ -427,19 +273,12 @@   = ghcjs_dom_range_compare_point (unDOMRange (toDOMRange self))       (maybe jsNull (unNode . toNode) refNode)       offset---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe         "($1[\"isPointInRange\"]($2,\n$3) ? 1 : 0)"         ghcjs_dom_range_is_point_in_range ::         JSRef DOMRange -> JSRef Node -> Int -> IO Bool-#else-ghcjs_dom_range_is_point_in_range ::-                                    JSRef DOMRange -> JSRef Node -> Int -> IO Bool-ghcjs_dom_range_is_point_in_range = undefined-#endif-+  rangeIsPointInRange ::                     (IsDOMRange self, IsNode refNode) =>                       self -> Maybe refNode -> Int -> IO Bool@@ -447,16 +286,10 @@   = ghcjs_dom_range_is_point_in_range (unDOMRange (toDOMRange self))       (maybe jsNull (unNode . toNode) refNode)       offset---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"expand\"]($2)"         ghcjs_dom_range_expand :: JSRef DOMRange -> JSString -> IO ()-#else-ghcjs_dom_range_expand :: JSRef DOMRange -> JSString -> IO ()-ghcjs_dom_range_expand = undefined-#endif-+  rangeExpand ::             (IsDOMRange self, ToJSString unit) => self -> unit -> IO () rangeExpand self unit@@ -470,108 +303,63 @@ cNODE_AFTER = 1 cNODE_BEFORE_AND_AFTER = 2 cNODE_INSIDE = 3---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"startContainer\"]"         ghcjs_dom_range_get_start_container ::         JSRef DOMRange -> IO (JSRef Node)-#else-ghcjs_dom_range_get_start_container ::-                                      JSRef DOMRange -> IO (JSRef Node)-ghcjs_dom_range_get_start_container = undefined-#endif-+  rangeGetStartContainer ::                        (IsDOMRange self) => self -> IO (Maybe Node) rangeGetStartContainer self   = fmap Node . maybeJSNull <$>       (ghcjs_dom_range_get_start_container          (unDOMRange (toDOMRange self)))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"startOffset\"]"         ghcjs_dom_range_get_start_offset :: JSRef DOMRange -> IO Int-#else-ghcjs_dom_range_get_start_offset :: JSRef DOMRange -> IO Int-ghcjs_dom_range_get_start_offset = undefined-#endif-+  rangeGetStartOffset :: (IsDOMRange self) => self -> IO Int rangeGetStartOffset self   = ghcjs_dom_range_get_start_offset (unDOMRange (toDOMRange self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"endContainer\"]"         ghcjs_dom_range_get_end_container ::         JSRef DOMRange -> IO (JSRef Node)-#else-ghcjs_dom_range_get_end_container ::-                                    JSRef DOMRange -> IO (JSRef Node)-ghcjs_dom_range_get_end_container = undefined-#endif-+  rangeGetEndContainer ::                      (IsDOMRange self) => self -> IO (Maybe Node) rangeGetEndContainer self   = fmap Node . maybeJSNull <$>       (ghcjs_dom_range_get_end_container (unDOMRange (toDOMRange self)))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"endOffset\"]"         ghcjs_dom_range_get_end_offset :: JSRef DOMRange -> IO Int-#else-ghcjs_dom_range_get_end_offset :: JSRef DOMRange -> IO Int-ghcjs_dom_range_get_end_offset = undefined-#endif-+  rangeGetEndOffset :: (IsDOMRange self) => self -> IO Int rangeGetEndOffset self   = ghcjs_dom_range_get_end_offset (unDOMRange (toDOMRange self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "($1[\"collapsed\"] ? 1 : 0)"         ghcjs_dom_range_get_collapsed :: JSRef DOMRange -> IO Bool-#else-ghcjs_dom_range_get_collapsed :: JSRef DOMRange -> IO Bool-ghcjs_dom_range_get_collapsed = undefined-#endif-+  rangeGetCollapsed :: (IsDOMRange self) => self -> IO Bool rangeGetCollapsed self   = ghcjs_dom_range_get_collapsed (unDOMRange (toDOMRange self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"commonAncestorContainer\"]"         ghcjs_dom_range_get_common_ancestor_container ::         JSRef DOMRange -> IO (JSRef Node)-#else-ghcjs_dom_range_get_common_ancestor_container ::-                                                JSRef DOMRange -> IO (JSRef Node)-ghcjs_dom_range_get_common_ancestor_container = undefined-#endif-+  rangeGetCommonAncestorContainer ::                                 (IsDOMRange self) => self -> IO (Maybe Node) rangeGetCommonAncestorContainer self   = fmap Node . maybeJSNull <$>       (ghcjs_dom_range_get_common_ancestor_container          (unDOMRange (toDOMRange self)))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"text\"]"         ghcjs_dom_range_get_text :: JSRef DOMRange -> IO JSString-#else-ghcjs_dom_range_get_text :: JSRef DOMRange -> IO JSString-ghcjs_dom_range_get_text = undefined-#endif-+  rangeGetText ::              (IsDOMRange self, FromJSString result) => self -> IO result rangeGetText self

src/GHCJS/DOM/Screen.hs view

@@ -14,119 +14,67 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"height\"]"         ghcjs_dom_screen_get_height :: JSRef DOMScreen -> IO Word-#else-ghcjs_dom_screen_get_height :: JSRef DOMScreen -> IO Word-ghcjs_dom_screen_get_height = undefined-#endif-+  screenGetHeight :: (IsDOMScreen self) => self -> IO Word screenGetHeight self   = ghcjs_dom_screen_get_height (unDOMScreen (toDOMScreen self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"width\"]"         ghcjs_dom_screen_get_width :: JSRef DOMScreen -> IO Word-#else-ghcjs_dom_screen_get_width :: JSRef DOMScreen -> IO Word-ghcjs_dom_screen_get_width = undefined-#endif-+  screenGetWidth :: (IsDOMScreen self) => self -> IO Word screenGetWidth self   = ghcjs_dom_screen_get_width (unDOMScreen (toDOMScreen self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"colorDepth\"]"         ghcjs_dom_screen_get_color_depth :: JSRef DOMScreen -> IO Word-#else-ghcjs_dom_screen_get_color_depth :: JSRef DOMScreen -> IO Word-ghcjs_dom_screen_get_color_depth = undefined-#endif-+  screenGetColorDepth :: (IsDOMScreen self) => self -> IO Word screenGetColorDepth self   = ghcjs_dom_screen_get_color_depth (unDOMScreen (toDOMScreen self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"pixelDepth\"]"         ghcjs_dom_screen_get_pixel_depth :: JSRef DOMScreen -> IO Word-#else-ghcjs_dom_screen_get_pixel_depth :: JSRef DOMScreen -> IO Word-ghcjs_dom_screen_get_pixel_depth = undefined-#endif-+  screenGetPixelDepth :: (IsDOMScreen self) => self -> IO Word screenGetPixelDepth self   = ghcjs_dom_screen_get_pixel_depth (unDOMScreen (toDOMScreen self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"availLeft\"]"         ghcjs_dom_screen_get_avail_left :: JSRef DOMScreen -> IO Int-#else-ghcjs_dom_screen_get_avail_left :: JSRef DOMScreen -> IO Int-ghcjs_dom_screen_get_avail_left = undefined-#endif-+  screenGetAvailLeft :: (IsDOMScreen self) => self -> IO Int screenGetAvailLeft self   = ghcjs_dom_screen_get_avail_left (unDOMScreen (toDOMScreen self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"availTop\"]"         ghcjs_dom_screen_get_avail_top :: JSRef DOMScreen -> IO Int-#else-ghcjs_dom_screen_get_avail_top :: JSRef DOMScreen -> IO Int-ghcjs_dom_screen_get_avail_top = undefined-#endif-+  screenGetAvailTop :: (IsDOMScreen self) => self -> IO Int screenGetAvailTop self   = ghcjs_dom_screen_get_avail_top (unDOMScreen (toDOMScreen self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"availHeight\"]"         ghcjs_dom_screen_get_avail_height :: JSRef DOMScreen -> IO Word-#else-ghcjs_dom_screen_get_avail_height :: JSRef DOMScreen -> IO Word-ghcjs_dom_screen_get_avail_height = undefined-#endif-+  screenGetAvailHeight :: (IsDOMScreen self) => self -> IO Word screenGetAvailHeight self   = ghcjs_dom_screen_get_avail_height       (unDOMScreen (toDOMScreen self))---#ifdef ghcjs_HOST_OS+  foreign import javascript unsafe "$1[\"availWidth\"]"         ghcjs_dom_screen_get_avail_width :: JSRef DOMScreen -> IO Word-#else-ghcjs_dom_screen_get_avail_width :: JSRef DOMScreen -> IO Word-ghcjs_dom_screen_get_avail_width = undefined-#endif-+  screenGetAvailWidth :: (IsDOMScreen self) => self -> IO Word screenGetAvailWidth self   = ghcjs_dom_screen_get_avail_width (unDOMScreen (toDOMScreen self))

src/GHCJS/DOM/Storage.hs view

@@ -11,43 +11,26 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"key\"]($2)"         ghcjs_dom_storage_key :: JSRef Storage -> Word -> IO JSString-#else -ghcjs_dom_storage_key :: JSRef Storage -> Word -> IO JSString-ghcjs_dom_storage_key = undefined-#endif   storageKey ::            (IsStorage self, FromJSString result) => self -> Word -> IO result storageKey self index   = fromJSString <$>       (ghcjs_dom_storage_key (unStorage (toStorage self)) index)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"getItem\"]($2)"         ghcjs_dom_storage_get_item ::         JSRef Storage -> JSString -> IO JSString-#else -ghcjs_dom_storage_get_item ::-                             JSRef Storage -> JSString -> IO JSString-ghcjs_dom_storage_get_item = undefined-#endif   storageGetItem ::                (IsStorage self, ToJSString key, FromJSString result) =>@@ -56,17 +39,10 @@   = fromJSString <$>       (ghcjs_dom_storage_get_item (unStorage (toStorage self))          (toJSString key))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"setItem\"]($2, $3)"         ghcjs_dom_storage_set_item ::         JSRef Storage -> JSString -> JSString -> IO ()-#else -ghcjs_dom_storage_set_item ::-                             JSRef Storage -> JSString -> JSString -> IO ()-ghcjs_dom_storage_set_item = undefined-#endif   storageSetItem ::                (IsStorage self, ToJSString key, ToJSString data') =>@@ -75,43 +51,25 @@   = ghcjs_dom_storage_set_item (unStorage (toStorage self))       (toJSString key)       (toJSString data')---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"removeItem\"]($2)"         ghcjs_dom_storage_remove_item :: JSRef Storage -> JSString -> IO ()-#else -ghcjs_dom_storage_remove_item :: JSRef Storage -> JSString -> IO ()-ghcjs_dom_storage_remove_item = undefined-#endif   storageRemoveItem ::                   (IsStorage self, ToJSString key) => self -> key -> IO () storageRemoveItem self key   = ghcjs_dom_storage_remove_item (unStorage (toStorage self))       (toJSString key)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"clear\"]()"         ghcjs_dom_storage_clear :: JSRef Storage -> IO ()-#else -ghcjs_dom_storage_clear :: JSRef Storage -> IO ()-ghcjs_dom_storage_clear = undefined-#endif   storageClear :: (IsStorage self) => self -> IO () storageClear self   = ghcjs_dom_storage_clear (unStorage (toStorage self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_storage_get_length :: JSRef Storage -> IO Word-#else -ghcjs_dom_storage_get_length :: JSRef Storage -> IO Word-ghcjs_dom_storage_get_length = undefined-#endif   storageGetLength :: (IsStorage self) => self -> IO Word storageGetLength self

src/GHCJS/DOM/StorageInfo.hs view

@@ -7,12 +7,8 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>))

src/GHCJS/DOM/StyleMedia.hs view

@@ -8,29 +8,18 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"matchMedium\"]($2) ? 1 : 0)"         ghcjs_dom_style_media_match_medium ::         JSRef StyleMedia -> JSString -> IO Bool-#else -ghcjs_dom_style_media_match_medium ::-                                     JSRef StyleMedia -> JSString -> IO Bool-ghcjs_dom_style_media_match_medium = undefined-#endif   styleMediaMatchMedium ::                       (IsStyleMedia self, ToJSString mediaquery) =>

src/GHCJS/DOM/StyleSheet.hs view

@@ -14,28 +14,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"disabled\"] = $2;"         ghcjs_dom_style_sheet_set_disabled ::         JSRef StyleSheet -> Bool -> IO ()-#else -ghcjs_dom_style_sheet_set_disabled ::-                                     JSRef StyleSheet -> Bool -> IO ()-ghcjs_dom_style_sheet_set_disabled = undefined-#endif   styleSheetSetDisabled ::                       (IsStyleSheet self) => self -> Bool -> IO ()@@ -43,31 +32,18 @@   = ghcjs_dom_style_sheet_set_disabled       (unStyleSheet (toStyleSheet self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"         ghcjs_dom_style_sheet_get_disabled :: JSRef StyleSheet -> IO Bool-#else -ghcjs_dom_style_sheet_get_disabled :: JSRef StyleSheet -> IO Bool-ghcjs_dom_style_sheet_get_disabled = undefined-#endif   styleSheetGetDisabled :: (IsStyleSheet self) => self -> IO Bool styleSheetGetDisabled self   = ghcjs_dom_style_sheet_get_disabled       (unStyleSheet (toStyleSheet self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"ownerNode\"]"         ghcjs_dom_style_sheet_get_owner_node ::         JSRef StyleSheet -> IO (JSRef Node)-#else -ghcjs_dom_style_sheet_get_owner_node ::-                                       JSRef StyleSheet -> IO (JSRef Node)-ghcjs_dom_style_sheet_get_owner_node = undefined-#endif   styleSheetGetOwnerNode ::                        (IsStyleSheet self) => self -> IO (Maybe Node)@@ -75,17 +51,10 @@   = fmap Node . maybeJSNull <$>       (ghcjs_dom_style_sheet_get_owner_node          (unStyleSheet (toStyleSheet self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"parentStyleSheet\"]"         ghcjs_dom_style_sheet_get_parent_style_sheet ::         JSRef StyleSheet -> IO (JSRef StyleSheet)-#else -ghcjs_dom_style_sheet_get_parent_style_sheet ::-                                               JSRef StyleSheet -> IO (JSRef StyleSheet)-ghcjs_dom_style_sheet_get_parent_style_sheet = undefined-#endif   styleSheetGetParentStyleSheet ::                               (IsStyleSheet self) => self -> IO (Maybe StyleSheet)@@ -93,30 +62,18 @@   = fmap StyleSheet . maybeJSNull <$>       (ghcjs_dom_style_sheet_get_parent_style_sheet          (unStyleSheet (toStyleSheet self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"href\"]"         ghcjs_dom_style_sheet_get_href :: JSRef StyleSheet -> IO JSString-#else -ghcjs_dom_style_sheet_get_href :: JSRef StyleSheet -> IO JSString-ghcjs_dom_style_sheet_get_href = undefined-#endif   styleSheetGetHref ::                   (IsStyleSheet self, FromJSString result) => self -> IO result styleSheetGetHref self   = fromJSString <$>       (ghcjs_dom_style_sheet_get_href (unStyleSheet (toStyleSheet self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"title\"]"         ghcjs_dom_style_sheet_get_title :: JSRef StyleSheet -> IO JSString-#else -ghcjs_dom_style_sheet_get_title :: JSRef StyleSheet -> IO JSString-ghcjs_dom_style_sheet_get_title = undefined-#endif   styleSheetGetTitle ::                    (IsStyleSheet self, FromJSString result) => self -> IO result@@ -124,17 +81,10 @@   = fromJSString <$>       (ghcjs_dom_style_sheet_get_title          (unStyleSheet (toStyleSheet self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"media\"]"         ghcjs_dom_style_sheet_get_media ::         JSRef StyleSheet -> IO (JSRef MediaList)-#else -ghcjs_dom_style_sheet_get_media ::-                                  JSRef StyleSheet -> IO (JSRef MediaList)-ghcjs_dom_style_sheet_get_media = undefined-#endif   styleSheetGetMedia ::                    (IsStyleSheet self) => self -> IO (Maybe MediaList)

src/GHCJS/DOM/StyleSheetList.hs view

@@ -3,34 +3,24 @@ {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.StyleSheetList        (ghcjs_dom_style_sheet_list_item, styleSheetListItem,+        ghcjs_dom_style_sheet_list_get, styleSheetList_get,         ghcjs_dom_style_sheet_list_get_length, styleSheetListGetLength,         StyleSheetList, IsStyleSheetList, castToStyleSheetList,         gTypeStyleSheetList, toStyleSheetList)        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"item\"]($2)"         ghcjs_dom_style_sheet_list_item ::         JSRef StyleSheetList -> Word -> IO (JSRef StyleSheet)-#else -ghcjs_dom_style_sheet_list_item ::-                                  JSRef StyleSheetList -> Word -> IO (JSRef StyleSheet)-ghcjs_dom_style_sheet_list_item = undefined-#endif   styleSheetListItem ::                    (IsStyleSheetList self) => self -> Word -> IO (Maybe StyleSheet)@@ -39,17 +29,23 @@       (ghcjs_dom_style_sheet_list_item          (unStyleSheetList (toStyleSheetList self))          index)---#ifdef ghcjs_HOST_OS + +foreign import javascript unsafe "$1[\"_get\"]($2)"+        ghcjs_dom_style_sheet_list_get ::+        JSRef StyleSheetList -> JSString -> IO (JSRef CSSStyleSheet)+ +styleSheetList_get ::+                   (IsStyleSheetList self, ToJSString name) =>+                     self -> name -> IO (Maybe CSSStyleSheet)+styleSheetList_get self name+  = fmap CSSStyleSheet . maybeJSNull <$>+      (ghcjs_dom_style_sheet_list_get+         (unStyleSheetList (toStyleSheetList self))+         (toJSString name))+  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_style_sheet_list_get_length ::         JSRef StyleSheetList -> IO Word-#else -ghcjs_dom_style_sheet_list_get_length ::-                                        JSRef StyleSheetList -> IO Word-ghcjs_dom_style_sheet_list_get_length = undefined-#endif   styleSheetListGetLength ::                         (IsStyleSheetList self) => self -> IO Word

src/GHCJS/DOM/Text.hs view

@@ -9,42 +9,25 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"splitText\"]($2)"         ghcjs_dom_text_split_text :: JSRef Text -> Word -> IO (JSRef Text)-#else -ghcjs_dom_text_split_text :: JSRef Text -> Word -> IO (JSRef Text)-ghcjs_dom_text_split_text = undefined-#endif   textSplitText :: (IsText self) => self -> Word -> IO (Maybe Text) textSplitText self offset   = fmap Text . maybeJSNull <$>       (ghcjs_dom_text_split_text (unText (toText self)) offset)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"replaceWholeText\"]($2)"         ghcjs_dom_text_replace_whole_text ::         JSRef Text -> JSString -> IO (JSRef Text)-#else -ghcjs_dom_text_replace_whole_text ::-                                    JSRef Text -> JSString -> IO (JSRef Text)-ghcjs_dom_text_replace_whole_text = undefined-#endif   textReplaceWholeText ::                      (IsText self, ToJSString content) =>@@ -53,15 +36,9 @@   = fmap Text . maybeJSNull <$>       (ghcjs_dom_text_replace_whole_text (unText (toText self))          (toJSString content))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"wholeText\"]"         ghcjs_dom_text_get_whole_text :: JSRef Text -> IO JSString-#else -ghcjs_dom_text_get_whole_text :: JSRef Text -> IO JSString-ghcjs_dom_text_get_whole_text = undefined-#endif   textGetWholeText ::                  (IsText self, FromJSString result) => self -> IO result

src/GHCJS/DOM/TimeRanges.hs view

@@ -10,56 +10,33 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"start\"]($2)"         ghcjs_dom_time_ranges_start ::         JSRef TimeRanges -> Word -> IO Double-#else -ghcjs_dom_time_ranges_start ::-                              JSRef TimeRanges -> Word -> IO Double-ghcjs_dom_time_ranges_start = undefined-#endif   timeRangesStart :: (IsTimeRanges self) => self -> Word -> IO Double timeRangesStart self index   = ghcjs_dom_time_ranges_start (unTimeRanges (toTimeRanges self))       index---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"end\"]($2)"         ghcjs_dom_time_ranges_end :: JSRef TimeRanges -> Word -> IO Double-#else -ghcjs_dom_time_ranges_end :: JSRef TimeRanges -> Word -> IO Double-ghcjs_dom_time_ranges_end = undefined-#endif   timeRangesEnd :: (IsTimeRanges self) => self -> Word -> IO Double timeRangesEnd self index   = ghcjs_dom_time_ranges_end (unTimeRanges (toTimeRanges self))       index---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"length\"]"         ghcjs_dom_time_ranges_get_length :: JSRef TimeRanges -> IO Word-#else -ghcjs_dom_time_ranges_get_length :: JSRef TimeRanges -> IO Word-ghcjs_dom_time_ranges_get_length = undefined-#endif   timeRangesGetLength :: (IsTimeRanges self) => self -> IO Word timeRangesGetLength self

src/GHCJS/DOM/TreeWalker.hs view

@@ -14,60 +14,35 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"root\"]"         ghcjs_dom_tree_walker_get_root ::         JSRef TreeWalker -> IO (JSRef Node)-#else -ghcjs_dom_tree_walker_get_root ::-                                 JSRef TreeWalker -> IO (JSRef Node)-ghcjs_dom_tree_walker_get_root = undefined-#endif   treeWalkerGetRoot :: (IsTreeWalker self) => self -> IO (Maybe Node) treeWalkerGetRoot self   = fmap Node . maybeJSNull <$>       (ghcjs_dom_tree_walker_get_root (unTreeWalker (toTreeWalker self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"whatToShow\"]"         ghcjs_dom_tree_walker_get_what_to_show ::         JSRef TreeWalker -> IO Word-#else -ghcjs_dom_tree_walker_get_what_to_show ::-                                         JSRef TreeWalker -> IO Word-ghcjs_dom_tree_walker_get_what_to_show = undefined-#endif   treeWalkerGetWhatToShow :: (IsTreeWalker self) => self -> IO Word treeWalkerGetWhatToShow self   = ghcjs_dom_tree_walker_get_what_to_show       (unTreeWalker (toTreeWalker self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"filter\"]"         ghcjs_dom_tree_walker_get_filter ::         JSRef TreeWalker -> IO (JSRef NodeFilter)-#else -ghcjs_dom_tree_walker_get_filter ::-                                   JSRef TreeWalker -> IO (JSRef NodeFilter)-ghcjs_dom_tree_walker_get_filter = undefined-#endif   treeWalkerGetFilter ::                     (IsTreeWalker self) => self -> IO (Maybe NodeFilter)@@ -75,35 +50,21 @@   = fmap NodeFilter . maybeJSNull <$>       (ghcjs_dom_tree_walker_get_filter          (unTreeWalker (toTreeWalker self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"expandEntityReferences\"] ? 1 : 0)"         ghcjs_dom_tree_walker_get_expand_entity_references ::         JSRef TreeWalker -> IO Bool-#else -ghcjs_dom_tree_walker_get_expand_entity_references ::-                                                     JSRef TreeWalker -> IO Bool-ghcjs_dom_tree_walker_get_expand_entity_references = undefined-#endif   treeWalkerGetExpandEntityReferences ::                                     (IsTreeWalker self) => self -> IO Bool treeWalkerGetExpandEntityReferences self   = ghcjs_dom_tree_walker_get_expand_entity_references       (unTreeWalker (toTreeWalker self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"currentNode\"] = $2;"         ghcjs_dom_tree_walker_set_current_node ::         JSRef TreeWalker -> JSRef Node -> IO ()-#else -ghcjs_dom_tree_walker_set_current_node ::-                                         JSRef TreeWalker -> JSRef Node -> IO ()-ghcjs_dom_tree_walker_set_current_node = undefined-#endif   treeWalkerSetCurrentNode ::                          (IsTreeWalker self, IsNode val) => self -> Maybe val -> IO ()@@ -111,17 +72,10 @@   = ghcjs_dom_tree_walker_set_current_node       (unTreeWalker (toTreeWalker self))       (maybe jsNull (unNode . toNode) val)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"currentNode\"]"         ghcjs_dom_tree_walker_get_current_node ::         JSRef TreeWalker -> IO (JSRef Node)-#else -ghcjs_dom_tree_walker_get_current_node ::-                                         JSRef TreeWalker -> IO (JSRef Node)-ghcjs_dom_tree_walker_get_current_node = undefined-#endif   treeWalkerGetCurrentNode ::                          (IsTreeWalker self) => self -> IO (Maybe Node)

src/GHCJS/DOM/Types.hs view

@@ -23,4212 +23,4712 @@   , CSSValue(CSSValue), unCSSValue, IsCSSValue, toCSSValue, castToCSSValue, gTypeCSSValue   , CharacterData(CharacterData), unCharacterData, IsCharacterData, toCharacterData, castToCharacterData, gTypeCharacterData   , Comment(Comment), unComment, IsComment, toComment, castToComment, gTypeComment-  , Console(Console), unConsole, IsConsole, toConsole, castToConsole, gTypeConsole-  , DOMApplicationCache(DOMApplicationCache), unDOMApplicationCache, IsDOMApplicationCache, toDOMApplicationCache, castToDOMApplicationCache, gTypeDOMApplicationCache-  , DOMImplementation(DOMImplementation), unDOMImplementation, IsDOMImplementation, toDOMImplementation, castToDOMImplementation, gTypeDOMImplementation-  , DOMMimeType(DOMMimeType), unDOMMimeType, IsDOMMimeType, toDOMMimeType, castToDOMMimeType, gTypeDOMMimeType-  , DOMMimeTypeArray(DOMMimeTypeArray), unDOMMimeTypeArray, IsDOMMimeTypeArray, toDOMMimeTypeArray, castToDOMMimeTypeArray, gTypeDOMMimeTypeArray-  , DOMNamedFlowCollection(DOMNamedFlowCollection), unDOMNamedFlowCollection, IsDOMNamedFlowCollection, toDOMNamedFlowCollection, castToDOMNamedFlowCollection, gTypeDOMNamedFlowCollection-  , DOMPlugin(DOMPlugin), unDOMPlugin, IsDOMPlugin, toDOMPlugin, castToDOMPlugin, gTypeDOMPlugin-  , DOMPluginArray(DOMPluginArray), unDOMPluginArray, IsDOMPluginArray, toDOMPluginArray, castToDOMPluginArray, gTypeDOMPluginArray-  , DOMSecurityPolicy(DOMSecurityPolicy), unDOMSecurityPolicy, IsDOMSecurityPolicy, toDOMSecurityPolicy, castToDOMSecurityPolicy, gTypeDOMSecurityPolicy-  , DOMSelection(DOMSelection), unDOMSelection, IsDOMSelection, toDOMSelection, castToDOMSelection, gTypeDOMSelection-  , DOMSettableTokenList(DOMSettableTokenList), unDOMSettableTokenList, IsDOMSettableTokenList, toDOMSettableTokenList, castToDOMSettableTokenList, gTypeDOMSettableTokenList-  , DOMStringList(DOMStringList), unDOMStringList, IsDOMStringList, toDOMStringList, castToDOMStringList, gTypeDOMStringList-  , DOMTokenList(DOMTokenList), unDOMTokenList, IsDOMTokenList, toDOMTokenList, castToDOMTokenList, gTypeDOMTokenList-  , DOMWindow(DOMWindow), unDOMWindow, IsDOMWindow, toDOMWindow, castToDOMWindow, gTypeDOMWindow-  , DOMWindowCSS(DOMWindowCSS), unDOMWindowCSS, IsDOMWindowCSS, toDOMWindowCSS, castToDOMWindowCSS, gTypeDOMWindowCSS-  , Document(Document), unDocument, IsDocument, toDocument, castToDocument, gTypeDocument-  , DocumentFragment(DocumentFragment), unDocumentFragment, IsDocumentFragment, toDocumentFragment, castToDocumentFragment, gTypeDocumentFragment-  , DocumentType(DocumentType), unDocumentType, IsDocumentType, toDocumentType, castToDocumentType, gTypeDocumentType-  , Element(Element), unElement, IsElement, toElement, castToElement, gTypeElement-  , EntityReference(EntityReference), unEntityReference, IsEntityReference, toEntityReference, castToEntityReference, gTypeEntityReference-  , Event(Event), unEvent, IsEvent, toEvent, castToEvent, gTypeEvent-  , EventTarget(EventTarget), unEventTarget, IsEventTarget, toEventTarget, castToEventTarget, gTypeEventTarget-  , File(File), unFile, IsFile, toFile, castToFile, gTypeFile-  , FileList(FileList), unFileList, IsFileList, toFileList, castToFileList, gTypeFileList-  , Geolocation(Geolocation), unGeolocation, IsGeolocation, toGeolocation, castToGeolocation, gTypeGeolocation-  , HTMLAnchorElement(HTMLAnchorElement), unHTMLAnchorElement, IsHTMLAnchorElement, toHTMLAnchorElement, castToHTMLAnchorElement, gTypeHTMLAnchorElement-  , HTMLAppletElement(HTMLAppletElement), unHTMLAppletElement, IsHTMLAppletElement, toHTMLAppletElement, castToHTMLAppletElement, gTypeHTMLAppletElement-  , HTMLAreaElement(HTMLAreaElement), unHTMLAreaElement, IsHTMLAreaElement, toHTMLAreaElement, castToHTMLAreaElement, gTypeHTMLAreaElement-  , HTMLAudioElement(HTMLAudioElement), unHTMLAudioElement, IsHTMLAudioElement, toHTMLAudioElement, castToHTMLAudioElement, gTypeHTMLAudioElement-  , HTMLBRElement(HTMLBRElement), unHTMLBRElement, IsHTMLBRElement, toHTMLBRElement, castToHTMLBRElement, gTypeHTMLBRElement-  , HTMLBaseElement(HTMLBaseElement), unHTMLBaseElement, IsHTMLBaseElement, toHTMLBaseElement, castToHTMLBaseElement, gTypeHTMLBaseElement-  , HTMLBaseFontElement(HTMLBaseFontElement), unHTMLBaseFontElement, IsHTMLBaseFontElement, toHTMLBaseFontElement, castToHTMLBaseFontElement, gTypeHTMLBaseFontElement-  , HTMLBodyElement(HTMLBodyElement), unHTMLBodyElement, IsHTMLBodyElement, toHTMLBodyElement, castToHTMLBodyElement, gTypeHTMLBodyElement-  , HTMLButtonElement(HTMLButtonElement), unHTMLButtonElement, IsHTMLButtonElement, toHTMLButtonElement, castToHTMLButtonElement, gTypeHTMLButtonElement-  , HTMLCanvasElement(HTMLCanvasElement), unHTMLCanvasElement, IsHTMLCanvasElement, toHTMLCanvasElement, castToHTMLCanvasElement, gTypeHTMLCanvasElement-  , HTMLCollection(HTMLCollection), unHTMLCollection, IsHTMLCollection, toHTMLCollection, castToHTMLCollection, gTypeHTMLCollection-  , HTMLDListElement(HTMLDListElement), unHTMLDListElement, IsHTMLDListElement, toHTMLDListElement, castToHTMLDListElement, gTypeHTMLDListElement-  , HTMLDetailsElement(HTMLDetailsElement), unHTMLDetailsElement, IsHTMLDetailsElement, toHTMLDetailsElement, castToHTMLDetailsElement, gTypeHTMLDetailsElement-  , HTMLDirectoryElement(HTMLDirectoryElement), unHTMLDirectoryElement, IsHTMLDirectoryElement, toHTMLDirectoryElement, castToHTMLDirectoryElement, gTypeHTMLDirectoryElement-  , HTMLDivElement(HTMLDivElement), unHTMLDivElement, IsHTMLDivElement, toHTMLDivElement, castToHTMLDivElement, gTypeHTMLDivElement-  , HTMLDocument(HTMLDocument), unHTMLDocument, IsHTMLDocument, toHTMLDocument, castToHTMLDocument, gTypeHTMLDocument-  , HTMLElement(HTMLElement), unHTMLElement, IsHTMLElement, toHTMLElement, castToHTMLElement, gTypeHTMLElement-  , HTMLEmbedElement(HTMLEmbedElement), unHTMLEmbedElement, IsHTMLEmbedElement, toHTMLEmbedElement, castToHTMLEmbedElement, gTypeHTMLEmbedElement-  , HTMLFieldSetElement(HTMLFieldSetElement), unHTMLFieldSetElement, IsHTMLFieldSetElement, toHTMLFieldSetElement, castToHTMLFieldSetElement, gTypeHTMLFieldSetElement-  , HTMLFontElement(HTMLFontElement), unHTMLFontElement, IsHTMLFontElement, toHTMLFontElement, castToHTMLFontElement, gTypeHTMLFontElement-  , HTMLFormElement(HTMLFormElement), unHTMLFormElement, IsHTMLFormElement, toHTMLFormElement, castToHTMLFormElement, gTypeHTMLFormElement-  , HTMLFrameElement(HTMLFrameElement), unHTMLFrameElement, IsHTMLFrameElement, toHTMLFrameElement, castToHTMLFrameElement, gTypeHTMLFrameElement-  , HTMLFrameSetElement(HTMLFrameSetElement), unHTMLFrameSetElement, IsHTMLFrameSetElement, toHTMLFrameSetElement, castToHTMLFrameSetElement, gTypeHTMLFrameSetElement-  , HTMLHRElement(HTMLHRElement), unHTMLHRElement, IsHTMLHRElement, toHTMLHRElement, castToHTMLHRElement, gTypeHTMLHRElement-  , HTMLHeadElement(HTMLHeadElement), unHTMLHeadElement, IsHTMLHeadElement, toHTMLHeadElement, castToHTMLHeadElement, gTypeHTMLHeadElement-  , HTMLHeadingElement(HTMLHeadingElement), unHTMLHeadingElement, IsHTMLHeadingElement, toHTMLHeadingElement, castToHTMLHeadingElement, gTypeHTMLHeadingElement-  , HTMLHtmlElement(HTMLHtmlElement), unHTMLHtmlElement, IsHTMLHtmlElement, toHTMLHtmlElement, castToHTMLHtmlElement, gTypeHTMLHtmlElement-  , HTMLIFrameElement(HTMLIFrameElement), unHTMLIFrameElement, IsHTMLIFrameElement, toHTMLIFrameElement, castToHTMLIFrameElement, gTypeHTMLIFrameElement-  , HTMLImageElement(HTMLImageElement), unHTMLImageElement, IsHTMLImageElement, toHTMLImageElement, castToHTMLImageElement, gTypeHTMLImageElement-  , HTMLInputElement(HTMLInputElement), unHTMLInputElement, IsHTMLInputElement, toHTMLInputElement, castToHTMLInputElement, gTypeHTMLInputElement-  , HTMLKeygenElement(HTMLKeygenElement), unHTMLKeygenElement, IsHTMLKeygenElement, toHTMLKeygenElement, castToHTMLKeygenElement, gTypeHTMLKeygenElement-  , HTMLLIElement(HTMLLIElement), unHTMLLIElement, IsHTMLLIElement, toHTMLLIElement, castToHTMLLIElement, gTypeHTMLLIElement-  , HTMLLabelElement(HTMLLabelElement), unHTMLLabelElement, IsHTMLLabelElement, toHTMLLabelElement, castToHTMLLabelElement, gTypeHTMLLabelElement-  , HTMLLegendElement(HTMLLegendElement), unHTMLLegendElement, IsHTMLLegendElement, toHTMLLegendElement, castToHTMLLegendElement, gTypeHTMLLegendElement-  , HTMLLinkElement(HTMLLinkElement), unHTMLLinkElement, IsHTMLLinkElement, toHTMLLinkElement, castToHTMLLinkElement, gTypeHTMLLinkElement-  , HTMLMapElement(HTMLMapElement), unHTMLMapElement, IsHTMLMapElement, toHTMLMapElement, castToHTMLMapElement, gTypeHTMLMapElement-  , HTMLMarqueeElement(HTMLMarqueeElement), unHTMLMarqueeElement, IsHTMLMarqueeElement, toHTMLMarqueeElement, castToHTMLMarqueeElement, gTypeHTMLMarqueeElement-  , HTMLMediaElement(HTMLMediaElement), unHTMLMediaElement, IsHTMLMediaElement, toHTMLMediaElement, castToHTMLMediaElement, gTypeHTMLMediaElement-  , HTMLMenuElement(HTMLMenuElement), unHTMLMenuElement, IsHTMLMenuElement, toHTMLMenuElement, castToHTMLMenuElement, gTypeHTMLMenuElement-  , HTMLMetaElement(HTMLMetaElement), unHTMLMetaElement, IsHTMLMetaElement, toHTMLMetaElement, castToHTMLMetaElement, gTypeHTMLMetaElement-  , HTMLModElement(HTMLModElement), unHTMLModElement, IsHTMLModElement, toHTMLModElement, castToHTMLModElement, gTypeHTMLModElement-  , HTMLOListElement(HTMLOListElement), unHTMLOListElement, IsHTMLOListElement, toHTMLOListElement, castToHTMLOListElement, gTypeHTMLOListElement-  , HTMLObjectElement(HTMLObjectElement), unHTMLObjectElement, IsHTMLObjectElement, toHTMLObjectElement, castToHTMLObjectElement, gTypeHTMLObjectElement-  , HTMLOptGroupElement(HTMLOptGroupElement), unHTMLOptGroupElement, IsHTMLOptGroupElement, toHTMLOptGroupElement, castToHTMLOptGroupElement, gTypeHTMLOptGroupElement-  , HTMLOptionElement(HTMLOptionElement), unHTMLOptionElement, IsHTMLOptionElement, toHTMLOptionElement, castToHTMLOptionElement, gTypeHTMLOptionElement-  , HTMLOptionsCollection(HTMLOptionsCollection), unHTMLOptionsCollection, IsHTMLOptionsCollection, toHTMLOptionsCollection, castToHTMLOptionsCollection, gTypeHTMLOptionsCollection-  , HTMLParagraphElement(HTMLParagraphElement), unHTMLParagraphElement, IsHTMLParagraphElement, toHTMLParagraphElement, castToHTMLParagraphElement, gTypeHTMLParagraphElement-  , HTMLParamElement(HTMLParamElement), unHTMLParamElement, IsHTMLParamElement, toHTMLParamElement, castToHTMLParamElement, gTypeHTMLParamElement-  , HTMLPreElement(HTMLPreElement), unHTMLPreElement, IsHTMLPreElement, toHTMLPreElement, castToHTMLPreElement, gTypeHTMLPreElement-  , HTMLQuoteElement(HTMLQuoteElement), unHTMLQuoteElement, IsHTMLQuoteElement, toHTMLQuoteElement, castToHTMLQuoteElement, gTypeHTMLQuoteElement-  , HTMLScriptElement(HTMLScriptElement), unHTMLScriptElement, IsHTMLScriptElement, toHTMLScriptElement, castToHTMLScriptElement, gTypeHTMLScriptElement-  , HTMLSelectElement(HTMLSelectElement), unHTMLSelectElement, IsHTMLSelectElement, toHTMLSelectElement, castToHTMLSelectElement, gTypeHTMLSelectElement-  , HTMLStyleElement(HTMLStyleElement), unHTMLStyleElement, IsHTMLStyleElement, toHTMLStyleElement, castToHTMLStyleElement, gTypeHTMLStyleElement-  , HTMLTableCaptionElement(HTMLTableCaptionElement), unHTMLTableCaptionElement, IsHTMLTableCaptionElement, toHTMLTableCaptionElement, castToHTMLTableCaptionElement, gTypeHTMLTableCaptionElement-  , HTMLTableCellElement(HTMLTableCellElement), unHTMLTableCellElement, IsHTMLTableCellElement, toHTMLTableCellElement, castToHTMLTableCellElement, gTypeHTMLTableCellElement-  , HTMLTableColElement(HTMLTableColElement), unHTMLTableColElement, IsHTMLTableColElement, toHTMLTableColElement, castToHTMLTableColElement, gTypeHTMLTableColElement-  , HTMLTableElement(HTMLTableElement), unHTMLTableElement, IsHTMLTableElement, toHTMLTableElement, castToHTMLTableElement, gTypeHTMLTableElement-  , HTMLTableRowElement(HTMLTableRowElement), unHTMLTableRowElement, IsHTMLTableRowElement, toHTMLTableRowElement, castToHTMLTableRowElement, gTypeHTMLTableRowElement-  , HTMLTableSectionElement(HTMLTableSectionElement), unHTMLTableSectionElement, IsHTMLTableSectionElement, toHTMLTableSectionElement, castToHTMLTableSectionElement, gTypeHTMLTableSectionElement-  , HTMLTextAreaElement(HTMLTextAreaElement), unHTMLTextAreaElement, IsHTMLTextAreaElement, toHTMLTextAreaElement, castToHTMLTextAreaElement, gTypeHTMLTextAreaElement-  , HTMLTitleElement(HTMLTitleElement), unHTMLTitleElement, IsHTMLTitleElement, toHTMLTitleElement, castToHTMLTitleElement, gTypeHTMLTitleElement-  , HTMLUListElement(HTMLUListElement), unHTMLUListElement, IsHTMLUListElement, toHTMLUListElement, castToHTMLUListElement, gTypeHTMLUListElement-  , HTMLVideoElement(HTMLVideoElement), unHTMLVideoElement, IsHTMLVideoElement, toHTMLVideoElement, castToHTMLVideoElement, gTypeHTMLVideoElement-  , History(History), unHistory, IsHistory, toHistory, castToHistory, gTypeHistory-  , KeyboardEvent(KeyboardEvent), unKeyboardEvent, IsKeyboardEvent, toKeyboardEvent, castToKeyboardEvent, gTypeKeyboardEvent-  , Location(Location), unLocation, IsLocation, toLocation, castToLocation, gTypeLocation-  , MediaError(MediaError), unMediaError, IsMediaError, toMediaError, castToMediaError, gTypeMediaError-  , MediaList(MediaList), unMediaList, IsMediaList, toMediaList, castToMediaList, gTypeMediaList-  , MediaQueryList(MediaQueryList), unMediaQueryList, IsMediaQueryList, toMediaQueryList, castToMediaQueryList, gTypeMediaQueryList-  , MessagePort(MessagePort), unMessagePort, IsMessagePort, toMessagePort, castToMessagePort, gTypeMessagePort-  , MouseEvent(MouseEvent), unMouseEvent, IsMouseEvent, toMouseEvent, castToMouseEvent, gTypeMouseEvent-  , NamedNodeMap(NamedNodeMap), unNamedNodeMap, IsNamedNodeMap, toNamedNodeMap, castToNamedNodeMap, gTypeNamedNodeMap-  , Navigator(Navigator), unNavigator, IsNavigator, toNavigator, castToNavigator, gTypeNavigator-  , Node(Node), unNode, IsNode, toNode, castToNode, gTypeNode-  , NodeFilter(NodeFilter), unNodeFilter, IsNodeFilter, toNodeFilter, castToNodeFilter, gTypeNodeFilter-  , NodeIterator(NodeIterator), unNodeIterator, IsNodeIterator, toNodeIterator, castToNodeIterator, gTypeNodeIterator-  , NodeList(NodeList), unNodeList, IsNodeList, toNodeList, castToNodeList, gTypeNodeList-  , ProcessingInstruction(ProcessingInstruction), unProcessingInstruction, IsProcessingInstruction, toProcessingInstruction, castToProcessingInstruction, gTypeProcessingInstruction-  , DOMRange(DOMRange), unDOMRange, IsDOMRange, toDOMRange, castToDOMRange, gTypeDOMRange-  , DOMScreen(DOMScreen), unDOMScreen, IsDOMScreen, toDOMScreen, castToDOMScreen, gTypeDOMScreen-  , Storage(Storage), unStorage, IsStorage, toStorage, castToStorage, gTypeStorage-  , StorageInfo(StorageInfo), unStorageInfo, IsStorageInfo, toStorageInfo, castToStorageInfo, gTypeStorageInfo-  , StyleMedia(StyleMedia), unStyleMedia, IsStyleMedia, toStyleMedia, castToStyleMedia, gTypeStyleMedia-  , StyleSheet(StyleSheet), unStyleSheet, IsStyleSheet, toStyleSheet, castToStyleSheet, gTypeStyleSheet-  , StyleSheetList(StyleSheetList), unStyleSheetList, IsStyleSheetList, toStyleSheetList, castToStyleSheetList, gTypeStyleSheetList-  , Text(Text), unText, IsText, toText, castToText, gTypeText-  , TimeRanges(TimeRanges), unTimeRanges, IsTimeRanges, toTimeRanges, castToTimeRanges, gTypeTimeRanges-  , TreeWalker(TreeWalker), unTreeWalker, IsTreeWalker, toTreeWalker, castToTreeWalker, gTypeTreeWalker-  , UIEvent(UIEvent), unUIEvent, IsUIEvent, toUIEvent, castToUIEvent, gTypeUIEvent-  , ValidityState(ValidityState), unValidityState, IsValidityState, toValidityState, castToValidityState, gTypeValidityState-  , WebKitNamedFlow(WebKitNamedFlow), unWebKitNamedFlow, IsWebKitNamedFlow, toWebKitNamedFlow, castToWebKitNamedFlow, gTypeWebKitNamedFlow-  , WebKitPoint(WebKitPoint), unWebKitPoint, IsWebKitPoint, toWebKitPoint, castToWebKitPoint, gTypeWebKitPoint-  , XPathExpression(XPathExpression), unXPathExpression, IsXPathExpression, toXPathExpression, castToXPathExpression, gTypeXPathExpression-  , XPathNSResolver(XPathNSResolver), unXPathNSResolver, IsXPathNSResolver, toXPathNSResolver, castToXPathNSResolver, gTypeXPathNSResolver-  , XPathResult(XPathResult), unXPathResult, IsXPathResult, toXPathResult, castToXPathResult, gTypeXPathResult--- AUTO GENERATION ENDS HERE-#else-    propagateGError, GType(..), DOMString(..), ToDOMString(..), FromDOMString(..)-  , module Graphics.UI.Gtk.WebKit.Types-  , IsDOMAttr-  , IsBlob-  , IsCDATASection-  , IsCSSRule-  , IsCSSRuleList-  , IsCSSStyleDeclaration-  , IsCSSStyleSheet-  , IsCSSValue-  , IsCharacterData-  , IsComment-  , IsConsole-  , IsDOMApplicationCache-  , IsDOMImplementation-  , IsDOMMimeType-  , IsDOMMimeTypeArray-  , IsDOMPlugin-  , IsDOMPluginArray-  , IsDOMSelection-  , IsDOMSettableTokenList-  , IsDOMStringList-  , IsDOMTokenList-  , IsDOMWindow-  , IsDocument-  , IsDocumentFragment-  , IsDocumentType-  , IsElement-  , IsEntityReference-  , IsEvent-  , IsEventTarget-  , IsFile-  , IsFileList-  , IsGeolocation-  , IsHTMLAnchorElement-  , IsHTMLAppletElement-  , IsHTMLAreaElement-  , IsHTMLAudioElement-  , IsHTMLBRElement-  , IsHTMLBaseElement-  , IsHTMLBaseFontElement-  , IsHTMLBodyElement-  , IsHTMLButtonElement-  , IsHTMLCanvasElement-  , IsHTMLCollection-  , IsHTMLDListElement-  , IsHTMLDetailsElement-  , IsHTMLDirectoryElement-  , IsHTMLDivElement-  , IsHTMLDocument-  , IsHTMLElement-  , IsHTMLEmbedElement-  , IsHTMLFieldSetElement-  , IsHTMLFontElement-  , IsHTMLFormElement-  , IsHTMLFrameElement-  , IsHTMLFrameSetElement-  , IsHTMLHRElement-  , IsHTMLHeadElement-  , IsHTMLHeadingElement-  , IsHTMLHtmlElement-  , IsHTMLIFrameElement-  , IsHTMLImageElement-  , IsHTMLInputElement-  , IsHTMLKeygenElement-  , IsHTMLLIElement-  , IsHTMLLabelElement-  , IsHTMLLegendElement-  , IsHTMLLinkElement-  , IsHTMLMapElement-  , IsHTMLMarqueeElement-  , IsHTMLMediaElement-  , IsHTMLMenuElement-  , IsHTMLMetaElement-  , IsHTMLModElement-  , IsHTMLOListElement-  , IsHTMLObjectElement-  , IsHTMLOptGroupElement-  , IsHTMLOptionElement-  , IsHTMLOptionsCollection-  , IsHTMLParagraphElement-  , IsHTMLParamElement-  , IsHTMLPreElement-  , IsHTMLQuoteElement-  , IsHTMLScriptElement-  , IsHTMLSelectElement-  , IsHTMLStyleElement-  , IsHTMLTableCaptionElement-  , IsHTMLTableCellElement-  , IsHTMLTableColElement-  , IsHTMLTableElement-  , IsHTMLTableRowElement-  , IsHTMLTableSectionElement-  , IsHTMLTextAreaElement-  , IsHTMLTitleElement-  , IsHTMLUListElement-  , IsHTMLVideoElement-  , IsHistory-  , IsLocation-  , IsMediaError-  , IsMediaList-  , IsMediaQueryList-  , IsMessagePort-  , IsMouseEvent-  , IsNamedNodeMap-  , IsNavigator-  , IsNode-  , IsNodeFilter-  , IsNodeIterator-  , IsNodeList-  , IsProcessingInstruction-  , IsDOMRange-  , IsDOMScreen-  , IsStorage-  , IsStyleMedia-  , IsStyleSheet-  , IsStyleSheetList-  , IsText-  , IsTimeRanges-  , IsTreeWalker-  , IsUIEvent-  , IsValidityState-  , IsWebKitNamedFlow-  , IsWebKitPoint-  , IsXPathExpression-  , IsXPathNSResolver-  , IsXPathResult-#endif-  ) where--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-import GHCJS.Types (JSRef(..), castRef, nullRef, isNull, JSString(..))-import GHCJS.Foreign (ToJSString(..), FromJSString(..))-#else-import Control.Applicative ((<$>))-import qualified Data.Text as T (Text)-import Data.Maybe (isNothing)-import Foreign.C (CString)-import Graphics.UI.Gtk.WebKit.Types-import System.Glib (propagateGError, GType(..))-import System.Glib.UTFString-       (readUTFString, GlibString(..))-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-maybeJSNull :: JSRef a -> Maybe (JSRef a)-maybeJSNull r | isNull r = Nothing-maybeJSNull r = Just r--propagateGError = id--data GType = GType (JSRef GType)--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "h$isInstanceOf $1 $2"-    typeInstanceIsA' :: JSRef a -> JSRef GType -> Bool-#else-typeInstanceIsA' :: JSRef a -> JSRef GType -> Bool-typeInstanceIsA' = error "typeInstanceIsA': only available in JavaScript"-#endif--typeInstanceIsA o (GType t) = typeInstanceIsA' o t---- The usage of foreignPtrToPtr should be safe as the evaluation will only be--- forced if the object is used afterwards----castTo :: (GObjectClass obj, GObjectClass obj') => GType -> String-                                                -> (obj -> obj')-castTo gtype objTypeName obj =-  case toGObject obj of-    gobj@(GObject objRef)-      | typeInstanceIsA objRef gtype-                  -> unsafeCastGObject gobj-      | otherwise -> error $ "Cannot cast object to " ++ objTypeName--data GObject = GObject (JSRef GObject)--unGObject (GObject o) = o--class GObjectClass o where-  -- | Safe upcast.-  toGObject         :: o -> GObject-  -- | Unchecked downcast.-  unsafeCastGObject :: GObject -> o--instance GObjectClass GObject where-  toGObject = id-  unsafeCastGObject = id--castToGObject :: GObjectClass obj => obj -> obj-castToGObject = id--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "object" gTypeGObject' :: JSRef GType-#else-gTypeGObject' = error "gTypeGObject': only available in JavaScript"-#endif-gTypeGObject = GType gTypeGObject'--#ifdef ghcjs_HOST_OS--- | Fastest string type to use when you just---   want to take a string from the DOM then---   give it back as is.-type DOMString = JSString--type ToDOMString s = ToJSString s-type FromDOMString s = FromJSString s-#endif--#else--- | Fastest string type to use when you just---   want to take a string from the DOM then---   give it back as is.-type DOMString = T.Text--type ToDOMString s = GlibString s-type FromDOMString s = GlibString s-#endif---- AUTO GENERATION STARTS HERE--- The remainder of this file is generated from IDL files using domconv-webkit-jsffi-#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype DOMAttr = DOMAttr (JSRef DOMAttr)--unDOMAttr (DOMAttr o) = o--class IsNode o => IsDOMAttr o-toDOMAttr :: IsDOMAttr o => o -> DOMAttr-toDOMAttr = unsafeCastGObject . toGObject--instance IsDOMAttr DOMAttr-instance IsNode DOMAttr-instance GObjectClass DOMAttr where-  toGObject = GObject . castRef . unDOMAttr-  unsafeCastGObject = DOMAttr . castRef . unGObject--castToDOMAttr :: GObjectClass obj => obj -> DOMAttr-castToDOMAttr = castTo gTypeDOMAttr "DOMAttr"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"DOMAttr\"]" gTypeDOMAttr' :: JSRef GType-#else-gTypeDOMAttr' = error "gTypeDOMAttr': only available in JavaScript"-#endif-gTypeDOMAttr = GType gTypeDOMAttr'-#else-type IsDOMAttr o = DOMAttrClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype BarProp = BarProp (JSRef BarProp)--unBarProp (BarProp o) = o--class GObjectClass o => IsBarProp o-toBarProp :: IsBarProp o => o -> BarProp-toBarProp = unsafeCastGObject . toGObject--instance IsBarProp BarProp-instance GObjectClass BarProp where-  toGObject = GObject . castRef . unBarProp-  unsafeCastGObject = BarProp . castRef . unGObject--castToBarProp :: GObjectClass obj => obj -> BarProp-castToBarProp = castTo gTypeBarProp "BarProp"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"BarProp\"]" gTypeBarProp' :: JSRef GType-#else-gTypeBarProp' = error "gTypeBarProp': only available in JavaScript"-#endif-gTypeBarProp = GType gTypeBarProp'-#else-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Blob = Blob (JSRef Blob)--unBlob (Blob o) = o--class GObjectClass o => IsBlob o-toBlob :: IsBlob o => o -> Blob-toBlob = unsafeCastGObject . toGObject--instance IsBlob Blob-instance GObjectClass Blob where-  toGObject = GObject . castRef . unBlob-  unsafeCastGObject = Blob . castRef . unGObject--castToBlob :: GObjectClass obj => obj -> Blob-castToBlob = castTo gTypeBlob "Blob"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"Blob\"]" gTypeBlob' :: JSRef GType-#else-gTypeBlob' = error "gTypeBlob': only available in JavaScript"-#endif-gTypeBlob = GType gTypeBlob'-#else-type IsBlob o = BlobClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype CDATASection = CDATASection (JSRef CDATASection)--unCDATASection (CDATASection o) = o--class IsText o => IsCDATASection o-toCDATASection :: IsCDATASection o => o -> CDATASection-toCDATASection = unsafeCastGObject . toGObject--instance IsCDATASection CDATASection-instance IsText CDATASection-instance IsCharacterData CDATASection-instance IsNode CDATASection-instance GObjectClass CDATASection where-  toGObject = GObject . castRef . unCDATASection-  unsafeCastGObject = CDATASection . castRef . unGObject--castToCDATASection :: GObjectClass obj => obj -> CDATASection-castToCDATASection = castTo gTypeCDATASection "CDATASection"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"CDATASection\"]" gTypeCDATASection' :: JSRef GType-#else-gTypeCDATASection' = error "gTypeCDATASection': only available in JavaScript"-#endif-gTypeCDATASection = GType gTypeCDATASection'-#else-type IsCDATASection o = CDATASectionClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype CSSRule = CSSRule (JSRef CSSRule)--unCSSRule (CSSRule o) = o--class GObjectClass o => IsCSSRule o-toCSSRule :: IsCSSRule o => o -> CSSRule-toCSSRule = unsafeCastGObject . toGObject--instance IsCSSRule CSSRule-instance GObjectClass CSSRule where-  toGObject = GObject . castRef . unCSSRule-  unsafeCastGObject = CSSRule . castRef . unGObject--castToCSSRule :: GObjectClass obj => obj -> CSSRule-castToCSSRule = castTo gTypeCSSRule "CSSRule"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"CSSRule\"]" gTypeCSSRule' :: JSRef GType-#else-gTypeCSSRule' = error "gTypeCSSRule': only available in JavaScript"-#endif-gTypeCSSRule = GType gTypeCSSRule'-#else-type IsCSSRule o = CSSRuleClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype CSSRuleList = CSSRuleList (JSRef CSSRuleList)--unCSSRuleList (CSSRuleList o) = o--class GObjectClass o => IsCSSRuleList o-toCSSRuleList :: IsCSSRuleList o => o -> CSSRuleList-toCSSRuleList = unsafeCastGObject . toGObject--instance IsCSSRuleList CSSRuleList-instance GObjectClass CSSRuleList where-  toGObject = GObject . castRef . unCSSRuleList-  unsafeCastGObject = CSSRuleList . castRef . unGObject--castToCSSRuleList :: GObjectClass obj => obj -> CSSRuleList-castToCSSRuleList = castTo gTypeCSSRuleList "CSSRuleList"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"CSSRuleList\"]" gTypeCSSRuleList' :: JSRef GType-#else-gTypeCSSRuleList' = error "gTypeCSSRuleList': only available in JavaScript"-#endif-gTypeCSSRuleList = GType gTypeCSSRuleList'-#else-type IsCSSRuleList o = CSSRuleListClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype CSSStyleDeclaration = CSSStyleDeclaration (JSRef CSSStyleDeclaration)--unCSSStyleDeclaration (CSSStyleDeclaration o) = o--class GObjectClass o => IsCSSStyleDeclaration o-toCSSStyleDeclaration :: IsCSSStyleDeclaration o => o -> CSSStyleDeclaration-toCSSStyleDeclaration = unsafeCastGObject . toGObject--instance IsCSSStyleDeclaration CSSStyleDeclaration-instance GObjectClass CSSStyleDeclaration where-  toGObject = GObject . castRef . unCSSStyleDeclaration-  unsafeCastGObject = CSSStyleDeclaration . castRef . unGObject--castToCSSStyleDeclaration :: GObjectClass obj => obj -> CSSStyleDeclaration-castToCSSStyleDeclaration = castTo gTypeCSSStyleDeclaration "CSSStyleDeclaration"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"CSSStyleDeclaration\"]" gTypeCSSStyleDeclaration' :: JSRef GType-#else-gTypeCSSStyleDeclaration' = error "gTypeCSSStyleDeclaration': only available in JavaScript"-#endif-gTypeCSSStyleDeclaration = GType gTypeCSSStyleDeclaration'-#else-type IsCSSStyleDeclaration o = CSSStyleDeclarationClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype CSSStyleSheet = CSSStyleSheet (JSRef CSSStyleSheet)--unCSSStyleSheet (CSSStyleSheet o) = o--class IsStyleSheet o => IsCSSStyleSheet o-toCSSStyleSheet :: IsCSSStyleSheet o => o -> CSSStyleSheet-toCSSStyleSheet = unsafeCastGObject . toGObject--instance IsCSSStyleSheet CSSStyleSheet-instance IsStyleSheet CSSStyleSheet-instance GObjectClass CSSStyleSheet where-  toGObject = GObject . castRef . unCSSStyleSheet-  unsafeCastGObject = CSSStyleSheet . castRef . unGObject--castToCSSStyleSheet :: GObjectClass obj => obj -> CSSStyleSheet-castToCSSStyleSheet = castTo gTypeCSSStyleSheet "CSSStyleSheet"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"CSSStyleSheet\"]" gTypeCSSStyleSheet' :: JSRef GType-#else-gTypeCSSStyleSheet' = error "gTypeCSSStyleSheet': only available in JavaScript"-#endif-gTypeCSSStyleSheet = GType gTypeCSSStyleSheet'-#else-type IsCSSStyleSheet o = CSSStyleSheetClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype CSSValue = CSSValue (JSRef CSSValue)--unCSSValue (CSSValue o) = o--class GObjectClass o => IsCSSValue o-toCSSValue :: IsCSSValue o => o -> CSSValue-toCSSValue = unsafeCastGObject . toGObject--instance IsCSSValue CSSValue-instance GObjectClass CSSValue where-  toGObject = GObject . castRef . unCSSValue-  unsafeCastGObject = CSSValue . castRef . unGObject--castToCSSValue :: GObjectClass obj => obj -> CSSValue-castToCSSValue = castTo gTypeCSSValue "CSSValue"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"CSSValue\"]" gTypeCSSValue' :: JSRef GType-#else-gTypeCSSValue' = error "gTypeCSSValue': only available in JavaScript"-#endif-gTypeCSSValue = GType gTypeCSSValue'-#else-type IsCSSValue o = CSSValueClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype CharacterData = CharacterData (JSRef CharacterData)--unCharacterData (CharacterData o) = o--class IsNode o => IsCharacterData o-toCharacterData :: IsCharacterData o => o -> CharacterData-toCharacterData = unsafeCastGObject . toGObject--instance IsCharacterData CharacterData-instance IsNode CharacterData-instance GObjectClass CharacterData where-  toGObject = GObject . castRef . unCharacterData-  unsafeCastGObject = CharacterData . castRef . unGObject--castToCharacterData :: GObjectClass obj => obj -> CharacterData-castToCharacterData = castTo gTypeCharacterData "CharacterData"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"CharacterData\"]" gTypeCharacterData' :: JSRef GType-#else-gTypeCharacterData' = error "gTypeCharacterData': only available in JavaScript"-#endif-gTypeCharacterData = GType gTypeCharacterData'-#else-type IsCharacterData o = CharacterDataClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Comment = Comment (JSRef Comment)--unComment (Comment o) = o--class IsCharacterData o => IsComment o-toComment :: IsComment o => o -> Comment-toComment = unsafeCastGObject . toGObject--instance IsComment Comment-instance IsCharacterData Comment-instance IsNode Comment-instance GObjectClass Comment where-  toGObject = GObject . castRef . unComment-  unsafeCastGObject = Comment . castRef . unGObject--castToComment :: GObjectClass obj => obj -> Comment-castToComment = castTo gTypeComment "Comment"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"Comment\"]" gTypeComment' :: JSRef GType-#else-gTypeComment' = error "gTypeComment': only available in JavaScript"-#endif-gTypeComment = GType gTypeComment'-#else-type IsComment o = CommentClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Console = Console (JSRef Console)--unConsole (Console o) = o--class GObjectClass o => IsConsole o-toConsole :: IsConsole o => o -> Console-toConsole = unsafeCastGObject . toGObject--instance IsConsole Console-instance GObjectClass Console where-  toGObject = GObject . castRef . unConsole-  unsafeCastGObject = Console . castRef . unGObject--castToConsole :: GObjectClass obj => obj -> Console-castToConsole = castTo gTypeConsole "Console"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"Console\"]" gTypeConsole' :: JSRef GType-#else-gTypeConsole' = error "gTypeConsole': only available in JavaScript"-#endif-gTypeConsole = GType gTypeConsole'-#else-type IsConsole o = ConsoleClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype DOMApplicationCache = DOMApplicationCache (JSRef DOMApplicationCache)--unDOMApplicationCache (DOMApplicationCache o) = o--class GObjectClass o => IsDOMApplicationCache o-toDOMApplicationCache :: IsDOMApplicationCache o => o -> DOMApplicationCache-toDOMApplicationCache = unsafeCastGObject . toGObject--instance IsDOMApplicationCache DOMApplicationCache-instance GObjectClass DOMApplicationCache where-  toGObject = GObject . castRef . unDOMApplicationCache-  unsafeCastGObject = DOMApplicationCache . castRef . unGObject--castToDOMApplicationCache :: GObjectClass obj => obj -> DOMApplicationCache-castToDOMApplicationCache = castTo gTypeDOMApplicationCache "DOMApplicationCache"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"DOMApplicationCache\"]" gTypeDOMApplicationCache' :: JSRef GType-#else-gTypeDOMApplicationCache' = error "gTypeDOMApplicationCache': only available in JavaScript"-#endif-gTypeDOMApplicationCache = GType gTypeDOMApplicationCache'-#else-type IsDOMApplicationCache o = DOMApplicationCacheClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype DOMImplementation = DOMImplementation (JSRef DOMImplementation)--unDOMImplementation (DOMImplementation o) = o--class GObjectClass o => IsDOMImplementation o-toDOMImplementation :: IsDOMImplementation o => o -> DOMImplementation-toDOMImplementation = unsafeCastGObject . toGObject--instance IsDOMImplementation DOMImplementation-instance GObjectClass DOMImplementation where-  toGObject = GObject . castRef . unDOMImplementation-  unsafeCastGObject = DOMImplementation . castRef . unGObject--castToDOMImplementation :: GObjectClass obj => obj -> DOMImplementation-castToDOMImplementation = castTo gTypeDOMImplementation "DOMImplementation"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"DOMImplementation\"]" gTypeDOMImplementation' :: JSRef GType-#else-gTypeDOMImplementation' = error "gTypeDOMImplementation': only available in JavaScript"-#endif-gTypeDOMImplementation = GType gTypeDOMImplementation'-#else-type IsDOMImplementation o = DOMImplementationClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype DOMMimeType = DOMMimeType (JSRef DOMMimeType)--unDOMMimeType (DOMMimeType o) = o--class GObjectClass o => IsDOMMimeType o-toDOMMimeType :: IsDOMMimeType o => o -> DOMMimeType-toDOMMimeType = unsafeCastGObject . toGObject--instance IsDOMMimeType DOMMimeType-instance GObjectClass DOMMimeType where-  toGObject = GObject . castRef . unDOMMimeType-  unsafeCastGObject = DOMMimeType . castRef . unGObject--castToDOMMimeType :: GObjectClass obj => obj -> DOMMimeType-castToDOMMimeType = castTo gTypeDOMMimeType "DOMMimeType"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"DOMMimeType\"]" gTypeDOMMimeType' :: JSRef GType-#else-gTypeDOMMimeType' = error "gTypeDOMMimeType': only available in JavaScript"-#endif-gTypeDOMMimeType = GType gTypeDOMMimeType'-#else-type IsDOMMimeType o = DOMMimeTypeClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype DOMMimeTypeArray = DOMMimeTypeArray (JSRef DOMMimeTypeArray)--unDOMMimeTypeArray (DOMMimeTypeArray o) = o--class GObjectClass o => IsDOMMimeTypeArray o-toDOMMimeTypeArray :: IsDOMMimeTypeArray o => o -> DOMMimeTypeArray-toDOMMimeTypeArray = unsafeCastGObject . toGObject--instance IsDOMMimeTypeArray DOMMimeTypeArray-instance GObjectClass DOMMimeTypeArray where-  toGObject = GObject . castRef . unDOMMimeTypeArray-  unsafeCastGObject = DOMMimeTypeArray . castRef . unGObject--castToDOMMimeTypeArray :: GObjectClass obj => obj -> DOMMimeTypeArray-castToDOMMimeTypeArray = castTo gTypeDOMMimeTypeArray "DOMMimeTypeArray"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"DOMMimeTypeArray\"]" gTypeDOMMimeTypeArray' :: JSRef GType-#else-gTypeDOMMimeTypeArray' = error "gTypeDOMMimeTypeArray': only available in JavaScript"-#endif-gTypeDOMMimeTypeArray = GType gTypeDOMMimeTypeArray'-#else-type IsDOMMimeTypeArray o = DOMMimeTypeArrayClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype DOMNamedFlowCollection = DOMNamedFlowCollection (JSRef DOMNamedFlowCollection)--unDOMNamedFlowCollection (DOMNamedFlowCollection o) = o--class GObjectClass o => IsDOMNamedFlowCollection o-toDOMNamedFlowCollection :: IsDOMNamedFlowCollection o => o -> DOMNamedFlowCollection-toDOMNamedFlowCollection = unsafeCastGObject . toGObject--instance IsDOMNamedFlowCollection DOMNamedFlowCollection-instance GObjectClass DOMNamedFlowCollection where-  toGObject = GObject . castRef . unDOMNamedFlowCollection-  unsafeCastGObject = DOMNamedFlowCollection . castRef . unGObject--castToDOMNamedFlowCollection :: GObjectClass obj => obj -> DOMNamedFlowCollection-castToDOMNamedFlowCollection = castTo gTypeDOMNamedFlowCollection "DOMNamedFlowCollection"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"DOMNamedFlowCollection\"]" gTypeDOMNamedFlowCollection' :: JSRef GType-#else-gTypeDOMNamedFlowCollection' = error "gTypeDOMNamedFlowCollection': only available in JavaScript"-#endif-gTypeDOMNamedFlowCollection = GType gTypeDOMNamedFlowCollection'-#else-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype DOMPlugin = DOMPlugin (JSRef DOMPlugin)--unDOMPlugin (DOMPlugin o) = o--class GObjectClass o => IsDOMPlugin o-toDOMPlugin :: IsDOMPlugin o => o -> DOMPlugin-toDOMPlugin = unsafeCastGObject . toGObject--instance IsDOMPlugin DOMPlugin-instance GObjectClass DOMPlugin where-  toGObject = GObject . castRef . unDOMPlugin-  unsafeCastGObject = DOMPlugin . castRef . unGObject--castToDOMPlugin :: GObjectClass obj => obj -> DOMPlugin-castToDOMPlugin = castTo gTypeDOMPlugin "DOMPlugin"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"DOMPlugin\"]" gTypeDOMPlugin' :: JSRef GType-#else-gTypeDOMPlugin' = error "gTypeDOMPlugin': only available in JavaScript"-#endif-gTypeDOMPlugin = GType gTypeDOMPlugin'-#else-type IsDOMPlugin o = DOMPluginClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype DOMPluginArray = DOMPluginArray (JSRef DOMPluginArray)--unDOMPluginArray (DOMPluginArray o) = o--class GObjectClass o => IsDOMPluginArray o-toDOMPluginArray :: IsDOMPluginArray o => o -> DOMPluginArray-toDOMPluginArray = unsafeCastGObject . toGObject--instance IsDOMPluginArray DOMPluginArray-instance GObjectClass DOMPluginArray where-  toGObject = GObject . castRef . unDOMPluginArray-  unsafeCastGObject = DOMPluginArray . castRef . unGObject--castToDOMPluginArray :: GObjectClass obj => obj -> DOMPluginArray-castToDOMPluginArray = castTo gTypeDOMPluginArray "DOMPluginArray"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"DOMPluginArray\"]" gTypeDOMPluginArray' :: JSRef GType-#else-gTypeDOMPluginArray' = error "gTypeDOMPluginArray': only available in JavaScript"-#endif-gTypeDOMPluginArray = GType gTypeDOMPluginArray'-#else-type IsDOMPluginArray o = DOMPluginArrayClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype DOMSecurityPolicy = DOMSecurityPolicy (JSRef DOMSecurityPolicy)--unDOMSecurityPolicy (DOMSecurityPolicy o) = o--class GObjectClass o => IsDOMSecurityPolicy o-toDOMSecurityPolicy :: IsDOMSecurityPolicy o => o -> DOMSecurityPolicy-toDOMSecurityPolicy = unsafeCastGObject . toGObject--instance IsDOMSecurityPolicy DOMSecurityPolicy-instance GObjectClass DOMSecurityPolicy where-  toGObject = GObject . castRef . unDOMSecurityPolicy-  unsafeCastGObject = DOMSecurityPolicy . castRef . unGObject--castToDOMSecurityPolicy :: GObjectClass obj => obj -> DOMSecurityPolicy-castToDOMSecurityPolicy = castTo gTypeDOMSecurityPolicy "DOMSecurityPolicy"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"DOMSecurityPolicy\"]" gTypeDOMSecurityPolicy' :: JSRef GType-#else-gTypeDOMSecurityPolicy' = error "gTypeDOMSecurityPolicy': only available in JavaScript"-#endif-gTypeDOMSecurityPolicy = GType gTypeDOMSecurityPolicy'-#else-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype DOMSelection = DOMSelection (JSRef DOMSelection)--unDOMSelection (DOMSelection o) = o--class GObjectClass o => IsDOMSelection o-toDOMSelection :: IsDOMSelection o => o -> DOMSelection-toDOMSelection = unsafeCastGObject . toGObject--instance IsDOMSelection DOMSelection-instance GObjectClass DOMSelection where-  toGObject = GObject . castRef . unDOMSelection-  unsafeCastGObject = DOMSelection . castRef . unGObject--castToDOMSelection :: GObjectClass obj => obj -> DOMSelection-castToDOMSelection = castTo gTypeDOMSelection "DOMSelection"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"DOMSelection\"]" gTypeDOMSelection' :: JSRef GType-#else-gTypeDOMSelection' = error "gTypeDOMSelection': only available in JavaScript"-#endif-gTypeDOMSelection = GType gTypeDOMSelection'-#else-type IsDOMSelection o = DOMSelectionClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype DOMSettableTokenList = DOMSettableTokenList (JSRef DOMSettableTokenList)--unDOMSettableTokenList (DOMSettableTokenList o) = o--class IsDOMTokenList o => IsDOMSettableTokenList o-toDOMSettableTokenList :: IsDOMSettableTokenList o => o -> DOMSettableTokenList-toDOMSettableTokenList = unsafeCastGObject . toGObject--instance IsDOMSettableTokenList DOMSettableTokenList-instance IsDOMTokenList DOMSettableTokenList-instance GObjectClass DOMSettableTokenList where-  toGObject = GObject . castRef . unDOMSettableTokenList-  unsafeCastGObject = DOMSettableTokenList . castRef . unGObject--castToDOMSettableTokenList :: GObjectClass obj => obj -> DOMSettableTokenList-castToDOMSettableTokenList = castTo gTypeDOMSettableTokenList "DOMSettableTokenList"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"DOMSettableTokenList\"]" gTypeDOMSettableTokenList' :: JSRef GType-#else-gTypeDOMSettableTokenList' = error "gTypeDOMSettableTokenList': only available in JavaScript"-#endif-gTypeDOMSettableTokenList = GType gTypeDOMSettableTokenList'-#else-type IsDOMSettableTokenList o = DOMSettableTokenListClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype DOMStringList = DOMStringList (JSRef DOMStringList)--unDOMStringList (DOMStringList o) = o--class GObjectClass o => IsDOMStringList o-toDOMStringList :: IsDOMStringList o => o -> DOMStringList-toDOMStringList = unsafeCastGObject . toGObject--instance IsDOMStringList DOMStringList-instance GObjectClass DOMStringList where-  toGObject = GObject . castRef . unDOMStringList-  unsafeCastGObject = DOMStringList . castRef . unGObject--castToDOMStringList :: GObjectClass obj => obj -> DOMStringList-castToDOMStringList = castTo gTypeDOMStringList "DOMStringList"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"DOMStringList\"]" gTypeDOMStringList' :: JSRef GType-#else-gTypeDOMStringList' = error "gTypeDOMStringList': only available in JavaScript"-#endif-gTypeDOMStringList = GType gTypeDOMStringList'-#else-type IsDOMStringList o = DOMStringListClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype DOMTokenList = DOMTokenList (JSRef DOMTokenList)--unDOMTokenList (DOMTokenList o) = o--class GObjectClass o => IsDOMTokenList o-toDOMTokenList :: IsDOMTokenList o => o -> DOMTokenList-toDOMTokenList = unsafeCastGObject . toGObject--instance IsDOMTokenList DOMTokenList-instance GObjectClass DOMTokenList where-  toGObject = GObject . castRef . unDOMTokenList-  unsafeCastGObject = DOMTokenList . castRef . unGObject--castToDOMTokenList :: GObjectClass obj => obj -> DOMTokenList-castToDOMTokenList = castTo gTypeDOMTokenList "DOMTokenList"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"DOMTokenList\"]" gTypeDOMTokenList' :: JSRef GType-#else-gTypeDOMTokenList' = error "gTypeDOMTokenList': only available in JavaScript"-#endif-gTypeDOMTokenList = GType gTypeDOMTokenList'-#else-type IsDOMTokenList o = DOMTokenListClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype DOMWindow = DOMWindow (JSRef DOMWindow)--unDOMWindow (DOMWindow o) = o--class GObjectClass o => IsDOMWindow o-toDOMWindow :: IsDOMWindow o => o -> DOMWindow-toDOMWindow = unsafeCastGObject . toGObject--instance IsDOMWindow DOMWindow-instance GObjectClass DOMWindow where-  toGObject = GObject . castRef . unDOMWindow-  unsafeCastGObject = DOMWindow . castRef . unGObject--castToDOMWindow :: GObjectClass obj => obj -> DOMWindow-castToDOMWindow = castTo gTypeDOMWindow "DOMWindow"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"DOMWindow\"]" gTypeDOMWindow' :: JSRef GType-#else-gTypeDOMWindow' = error "gTypeDOMWindow': only available in JavaScript"-#endif-gTypeDOMWindow = GType gTypeDOMWindow'-#else-type IsDOMWindow o = DOMWindowClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype DOMWindowCSS = DOMWindowCSS (JSRef DOMWindowCSS)--unDOMWindowCSS (DOMWindowCSS o) = o--class GObjectClass o => IsDOMWindowCSS o-toDOMWindowCSS :: IsDOMWindowCSS o => o -> DOMWindowCSS-toDOMWindowCSS = unsafeCastGObject . toGObject--instance IsDOMWindowCSS DOMWindowCSS-instance GObjectClass DOMWindowCSS where-  toGObject = GObject . castRef . unDOMWindowCSS-  unsafeCastGObject = DOMWindowCSS . castRef . unGObject--castToDOMWindowCSS :: GObjectClass obj => obj -> DOMWindowCSS-castToDOMWindowCSS = castTo gTypeDOMWindowCSS "DOMWindowCSS"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"DOMWindowCSS\"]" gTypeDOMWindowCSS' :: JSRef GType-#else-gTypeDOMWindowCSS' = error "gTypeDOMWindowCSS': only available in JavaScript"-#endif-gTypeDOMWindowCSS = GType gTypeDOMWindowCSS'-#else-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Document = Document (JSRef Document)--unDocument (Document o) = o--class IsNode o => IsDocument o-toDocument :: IsDocument o => o -> Document-toDocument = unsafeCastGObject . toGObject--instance IsDocument Document-instance IsNode Document-instance GObjectClass Document where-  toGObject = GObject . castRef . unDocument-  unsafeCastGObject = Document . castRef . unGObject--castToDocument :: GObjectClass obj => obj -> Document-castToDocument = castTo gTypeDocument "Document"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"Document\"]" gTypeDocument' :: JSRef GType-#else-gTypeDocument' = error "gTypeDocument': only available in JavaScript"-#endif-gTypeDocument = GType gTypeDocument'-#else-type IsDocument o = DocumentClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype DocumentFragment = DocumentFragment (JSRef DocumentFragment)--unDocumentFragment (DocumentFragment o) = o--class IsNode o => IsDocumentFragment o-toDocumentFragment :: IsDocumentFragment o => o -> DocumentFragment-toDocumentFragment = unsafeCastGObject . toGObject--instance IsDocumentFragment DocumentFragment-instance IsNode DocumentFragment-instance GObjectClass DocumentFragment where-  toGObject = GObject . castRef . unDocumentFragment-  unsafeCastGObject = DocumentFragment . castRef . unGObject--castToDocumentFragment :: GObjectClass obj => obj -> DocumentFragment-castToDocumentFragment = castTo gTypeDocumentFragment "DocumentFragment"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"DocumentFragment\"]" gTypeDocumentFragment' :: JSRef GType-#else-gTypeDocumentFragment' = error "gTypeDocumentFragment': only available in JavaScript"-#endif-gTypeDocumentFragment = GType gTypeDocumentFragment'-#else-type IsDocumentFragment o = DocumentFragmentClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype DocumentType = DocumentType (JSRef DocumentType)--unDocumentType (DocumentType o) = o--class IsNode o => IsDocumentType o-toDocumentType :: IsDocumentType o => o -> DocumentType-toDocumentType = unsafeCastGObject . toGObject--instance IsDocumentType DocumentType-instance IsNode DocumentType-instance GObjectClass DocumentType where-  toGObject = GObject . castRef . unDocumentType-  unsafeCastGObject = DocumentType . castRef . unGObject--castToDocumentType :: GObjectClass obj => obj -> DocumentType-castToDocumentType = castTo gTypeDocumentType "DocumentType"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"DocumentType\"]" gTypeDocumentType' :: JSRef GType-#else-gTypeDocumentType' = error "gTypeDocumentType': only available in JavaScript"-#endif-gTypeDocumentType = GType gTypeDocumentType'-#else-type IsDocumentType o = DocumentTypeClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Element = Element (JSRef Element)--unElement (Element o) = o--class IsNode o => IsElement o-toElement :: IsElement o => o -> Element-toElement = unsafeCastGObject . toGObject--instance IsElement Element-instance IsNode Element-instance GObjectClass Element where-  toGObject = GObject . castRef . unElement-  unsafeCastGObject = Element . castRef . unGObject--castToElement :: GObjectClass obj => obj -> Element-castToElement = castTo gTypeElement "Element"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"Element\"]" gTypeElement' :: JSRef GType-#else-gTypeElement' = error "gTypeElement': only available in JavaScript"-#endif-gTypeElement = GType gTypeElement'-#else-type IsElement o = ElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype EntityReference = EntityReference (JSRef EntityReference)--unEntityReference (EntityReference o) = o--class IsNode o => IsEntityReference o-toEntityReference :: IsEntityReference o => o -> EntityReference-toEntityReference = unsafeCastGObject . toGObject--instance IsEntityReference EntityReference-instance IsNode EntityReference-instance GObjectClass EntityReference where-  toGObject = GObject . castRef . unEntityReference-  unsafeCastGObject = EntityReference . castRef . unGObject--castToEntityReference :: GObjectClass obj => obj -> EntityReference-castToEntityReference = castTo gTypeEntityReference "EntityReference"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"EntityReference\"]" gTypeEntityReference' :: JSRef GType-#else-gTypeEntityReference' = error "gTypeEntityReference': only available in JavaScript"-#endif-gTypeEntityReference = GType gTypeEntityReference'-#else-type IsEntityReference o = EntityReferenceClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Event = Event (JSRef Event)--unEvent (Event o) = o--class GObjectClass o => IsEvent o-toEvent :: IsEvent o => o -> Event-toEvent = unsafeCastGObject . toGObject--instance IsEvent Event-instance GObjectClass Event where-  toGObject = GObject . castRef . unEvent-  unsafeCastGObject = Event . castRef . unGObject--castToEvent :: GObjectClass obj => obj -> Event-castToEvent = castTo gTypeEvent "Event"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"Event\"]" gTypeEvent' :: JSRef GType-#else-gTypeEvent' = error "gTypeEvent': only available in JavaScript"-#endif-gTypeEvent = GType gTypeEvent'-#else-type IsEvent o = EventClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype EventTarget = EventTarget (JSRef EventTarget)--unEventTarget (EventTarget o) = o--class GObjectClass o => IsEventTarget o-toEventTarget :: IsEventTarget o => o -> EventTarget-toEventTarget = unsafeCastGObject . toGObject--instance IsEventTarget EventTarget-instance GObjectClass EventTarget where-  toGObject = GObject . castRef . unEventTarget-  unsafeCastGObject = EventTarget . castRef . unGObject--castToEventTarget :: GObjectClass obj => obj -> EventTarget-castToEventTarget = castTo gTypeEventTarget "EventTarget"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"EventTarget\"]" gTypeEventTarget' :: JSRef GType-#else-gTypeEventTarget' = error "gTypeEventTarget': only available in JavaScript"-#endif-gTypeEventTarget = GType gTypeEventTarget'-#else-type IsEventTarget o = EventTargetClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype File = File (JSRef File)--unFile (File o) = o--class IsBlob o => IsFile o-toFile :: IsFile o => o -> File-toFile = unsafeCastGObject . toGObject--instance IsFile File-instance IsBlob File-instance GObjectClass File where-  toGObject = GObject . castRef . unFile-  unsafeCastGObject = File . castRef . unGObject--castToFile :: GObjectClass obj => obj -> File-castToFile = castTo gTypeFile "File"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"File\"]" gTypeFile' :: JSRef GType-#else-gTypeFile' = error "gTypeFile': only available in JavaScript"-#endif-gTypeFile = GType gTypeFile'-#else-type IsFile o = FileClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype FileList = FileList (JSRef FileList)--unFileList (FileList o) = o--class GObjectClass o => IsFileList o-toFileList :: IsFileList o => o -> FileList-toFileList = unsafeCastGObject . toGObject--instance IsFileList FileList-instance GObjectClass FileList where-  toGObject = GObject . castRef . unFileList-  unsafeCastGObject = FileList . castRef . unGObject--castToFileList :: GObjectClass obj => obj -> FileList-castToFileList = castTo gTypeFileList "FileList"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"FileList\"]" gTypeFileList' :: JSRef GType-#else-gTypeFileList' = error "gTypeFileList': only available in JavaScript"-#endif-gTypeFileList = GType gTypeFileList'-#else-type IsFileList o = FileListClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Geolocation = Geolocation (JSRef Geolocation)--unGeolocation (Geolocation o) = o--class GObjectClass o => IsGeolocation o-toGeolocation :: IsGeolocation o => o -> Geolocation-toGeolocation = unsafeCastGObject . toGObject--instance IsGeolocation Geolocation-instance GObjectClass Geolocation where-  toGObject = GObject . castRef . unGeolocation-  unsafeCastGObject = Geolocation . castRef . unGObject--castToGeolocation :: GObjectClass obj => obj -> Geolocation-castToGeolocation = castTo gTypeGeolocation "Geolocation"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"Geolocation\"]" gTypeGeolocation' :: JSRef GType-#else-gTypeGeolocation' = error "gTypeGeolocation': only available in JavaScript"-#endif-gTypeGeolocation = GType gTypeGeolocation'-#else-type IsGeolocation o = GeolocationClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLAnchorElement = HTMLAnchorElement (JSRef HTMLAnchorElement)--unHTMLAnchorElement (HTMLAnchorElement o) = o--class IsHTMLElement o => IsHTMLAnchorElement o-toHTMLAnchorElement :: IsHTMLAnchorElement o => o -> HTMLAnchorElement-toHTMLAnchorElement = unsafeCastGObject . toGObject--instance IsHTMLAnchorElement HTMLAnchorElement-instance IsHTMLElement HTMLAnchorElement-instance IsElement HTMLAnchorElement-instance IsNode HTMLAnchorElement-instance GObjectClass HTMLAnchorElement where-  toGObject = GObject . castRef . unHTMLAnchorElement-  unsafeCastGObject = HTMLAnchorElement . castRef . unGObject--castToHTMLAnchorElement :: GObjectClass obj => obj -> HTMLAnchorElement-castToHTMLAnchorElement = castTo gTypeHTMLAnchorElement "HTMLAnchorElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLAnchorElement\"]" gTypeHTMLAnchorElement' :: JSRef GType-#else-gTypeHTMLAnchorElement' = error "gTypeHTMLAnchorElement': only available in JavaScript"-#endif-gTypeHTMLAnchorElement = GType gTypeHTMLAnchorElement'-#else-type IsHTMLAnchorElement o = HTMLAnchorElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLAppletElement = HTMLAppletElement (JSRef HTMLAppletElement)--unHTMLAppletElement (HTMLAppletElement o) = o--class IsHTMLElement o => IsHTMLAppletElement o-toHTMLAppletElement :: IsHTMLAppletElement o => o -> HTMLAppletElement-toHTMLAppletElement = unsafeCastGObject . toGObject--instance IsHTMLAppletElement HTMLAppletElement-instance IsHTMLElement HTMLAppletElement-instance IsElement HTMLAppletElement-instance IsNode HTMLAppletElement-instance GObjectClass HTMLAppletElement where-  toGObject = GObject . castRef . unHTMLAppletElement-  unsafeCastGObject = HTMLAppletElement . castRef . unGObject--castToHTMLAppletElement :: GObjectClass obj => obj -> HTMLAppletElement-castToHTMLAppletElement = castTo gTypeHTMLAppletElement "HTMLAppletElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLAppletElement\"]" gTypeHTMLAppletElement' :: JSRef GType-#else-gTypeHTMLAppletElement' = error "gTypeHTMLAppletElement': only available in JavaScript"-#endif-gTypeHTMLAppletElement = GType gTypeHTMLAppletElement'-#else-type IsHTMLAppletElement o = HTMLAppletElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLAreaElement = HTMLAreaElement (JSRef HTMLAreaElement)--unHTMLAreaElement (HTMLAreaElement o) = o--class IsHTMLElement o => IsHTMLAreaElement o-toHTMLAreaElement :: IsHTMLAreaElement o => o -> HTMLAreaElement-toHTMLAreaElement = unsafeCastGObject . toGObject--instance IsHTMLAreaElement HTMLAreaElement-instance IsHTMLElement HTMLAreaElement-instance IsElement HTMLAreaElement-instance IsNode HTMLAreaElement-instance GObjectClass HTMLAreaElement where-  toGObject = GObject . castRef . unHTMLAreaElement-  unsafeCastGObject = HTMLAreaElement . castRef . unGObject--castToHTMLAreaElement :: GObjectClass obj => obj -> HTMLAreaElement-castToHTMLAreaElement = castTo gTypeHTMLAreaElement "HTMLAreaElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLAreaElement\"]" gTypeHTMLAreaElement' :: JSRef GType-#else-gTypeHTMLAreaElement' = error "gTypeHTMLAreaElement': only available in JavaScript"-#endif-gTypeHTMLAreaElement = GType gTypeHTMLAreaElement'-#else-type IsHTMLAreaElement o = HTMLAreaElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLAudioElement = HTMLAudioElement (JSRef HTMLAudioElement)--unHTMLAudioElement (HTMLAudioElement o) = o--class IsHTMLMediaElement o => IsHTMLAudioElement o-toHTMLAudioElement :: IsHTMLAudioElement o => o -> HTMLAudioElement-toHTMLAudioElement = unsafeCastGObject . toGObject--instance IsHTMLAudioElement HTMLAudioElement-instance IsHTMLMediaElement HTMLAudioElement-instance IsHTMLElement HTMLAudioElement-instance IsElement HTMLAudioElement-instance IsNode HTMLAudioElement-instance GObjectClass HTMLAudioElement where-  toGObject = GObject . castRef . unHTMLAudioElement-  unsafeCastGObject = HTMLAudioElement . castRef . unGObject--castToHTMLAudioElement :: GObjectClass obj => obj -> HTMLAudioElement-castToHTMLAudioElement = castTo gTypeHTMLAudioElement "HTMLAudioElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLAudioElement\"]" gTypeHTMLAudioElement' :: JSRef GType-#else-gTypeHTMLAudioElement' = error "gTypeHTMLAudioElement': only available in JavaScript"-#endif-gTypeHTMLAudioElement = GType gTypeHTMLAudioElement'-#else-type IsHTMLAudioElement o = HTMLAudioElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLBRElement = HTMLBRElement (JSRef HTMLBRElement)--unHTMLBRElement (HTMLBRElement o) = o--class IsHTMLElement o => IsHTMLBRElement o-toHTMLBRElement :: IsHTMLBRElement o => o -> HTMLBRElement-toHTMLBRElement = unsafeCastGObject . toGObject--instance IsHTMLBRElement HTMLBRElement-instance IsHTMLElement HTMLBRElement-instance IsElement HTMLBRElement-instance IsNode HTMLBRElement-instance GObjectClass HTMLBRElement where-  toGObject = GObject . castRef . unHTMLBRElement-  unsafeCastGObject = HTMLBRElement . castRef . unGObject--castToHTMLBRElement :: GObjectClass obj => obj -> HTMLBRElement-castToHTMLBRElement = castTo gTypeHTMLBRElement "HTMLBRElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLBRElement\"]" gTypeHTMLBRElement' :: JSRef GType-#else-gTypeHTMLBRElement' = error "gTypeHTMLBRElement': only available in JavaScript"-#endif-gTypeHTMLBRElement = GType gTypeHTMLBRElement'-#else-type IsHTMLBRElement o = HTMLBRElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLBaseElement = HTMLBaseElement (JSRef HTMLBaseElement)--unHTMLBaseElement (HTMLBaseElement o) = o--class IsHTMLElement o => IsHTMLBaseElement o-toHTMLBaseElement :: IsHTMLBaseElement o => o -> HTMLBaseElement-toHTMLBaseElement = unsafeCastGObject . toGObject--instance IsHTMLBaseElement HTMLBaseElement-instance IsHTMLElement HTMLBaseElement-instance IsElement HTMLBaseElement-instance IsNode HTMLBaseElement-instance GObjectClass HTMLBaseElement where-  toGObject = GObject . castRef . unHTMLBaseElement-  unsafeCastGObject = HTMLBaseElement . castRef . unGObject--castToHTMLBaseElement :: GObjectClass obj => obj -> HTMLBaseElement-castToHTMLBaseElement = castTo gTypeHTMLBaseElement "HTMLBaseElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLBaseElement\"]" gTypeHTMLBaseElement' :: JSRef GType-#else-gTypeHTMLBaseElement' = error "gTypeHTMLBaseElement': only available in JavaScript"-#endif-gTypeHTMLBaseElement = GType gTypeHTMLBaseElement'-#else-type IsHTMLBaseElement o = HTMLBaseElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLBaseFontElement = HTMLBaseFontElement (JSRef HTMLBaseFontElement)--unHTMLBaseFontElement (HTMLBaseFontElement o) = o--class IsHTMLElement o => IsHTMLBaseFontElement o-toHTMLBaseFontElement :: IsHTMLBaseFontElement o => o -> HTMLBaseFontElement-toHTMLBaseFontElement = unsafeCastGObject . toGObject--instance IsHTMLBaseFontElement HTMLBaseFontElement-instance IsHTMLElement HTMLBaseFontElement-instance IsElement HTMLBaseFontElement-instance IsNode HTMLBaseFontElement-instance GObjectClass HTMLBaseFontElement where-  toGObject = GObject . castRef . unHTMLBaseFontElement-  unsafeCastGObject = HTMLBaseFontElement . castRef . unGObject--castToHTMLBaseFontElement :: GObjectClass obj => obj -> HTMLBaseFontElement-castToHTMLBaseFontElement = castTo gTypeHTMLBaseFontElement "HTMLBaseFontElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLBaseFontElement\"]" gTypeHTMLBaseFontElement' :: JSRef GType-#else-gTypeHTMLBaseFontElement' = error "gTypeHTMLBaseFontElement': only available in JavaScript"-#endif-gTypeHTMLBaseFontElement = GType gTypeHTMLBaseFontElement'-#else-type IsHTMLBaseFontElement o = HTMLBaseFontElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLBodyElement = HTMLBodyElement (JSRef HTMLBodyElement)--unHTMLBodyElement (HTMLBodyElement o) = o--class IsHTMLElement o => IsHTMLBodyElement o-toHTMLBodyElement :: IsHTMLBodyElement o => o -> HTMLBodyElement-toHTMLBodyElement = unsafeCastGObject . toGObject--instance IsHTMLBodyElement HTMLBodyElement-instance IsHTMLElement HTMLBodyElement-instance IsElement HTMLBodyElement-instance IsNode HTMLBodyElement-instance GObjectClass HTMLBodyElement where-  toGObject = GObject . castRef . unHTMLBodyElement-  unsafeCastGObject = HTMLBodyElement . castRef . unGObject--castToHTMLBodyElement :: GObjectClass obj => obj -> HTMLBodyElement-castToHTMLBodyElement = castTo gTypeHTMLBodyElement "HTMLBodyElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLBodyElement\"]" gTypeHTMLBodyElement' :: JSRef GType-#else-gTypeHTMLBodyElement' = error "gTypeHTMLBodyElement': only available in JavaScript"-#endif-gTypeHTMLBodyElement = GType gTypeHTMLBodyElement'-#else-type IsHTMLBodyElement o = HTMLBodyElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLButtonElement = HTMLButtonElement (JSRef HTMLButtonElement)--unHTMLButtonElement (HTMLButtonElement o) = o--class IsHTMLElement o => IsHTMLButtonElement o-toHTMLButtonElement :: IsHTMLButtonElement o => o -> HTMLButtonElement-toHTMLButtonElement = unsafeCastGObject . toGObject--instance IsHTMLButtonElement HTMLButtonElement-instance IsHTMLElement HTMLButtonElement-instance IsElement HTMLButtonElement-instance IsNode HTMLButtonElement-instance GObjectClass HTMLButtonElement where-  toGObject = GObject . castRef . unHTMLButtonElement-  unsafeCastGObject = HTMLButtonElement . castRef . unGObject--castToHTMLButtonElement :: GObjectClass obj => obj -> HTMLButtonElement-castToHTMLButtonElement = castTo gTypeHTMLButtonElement "HTMLButtonElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLButtonElement\"]" gTypeHTMLButtonElement' :: JSRef GType-#else-gTypeHTMLButtonElement' = error "gTypeHTMLButtonElement': only available in JavaScript"-#endif-gTypeHTMLButtonElement = GType gTypeHTMLButtonElement'-#else-type IsHTMLButtonElement o = HTMLButtonElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLCanvasElement = HTMLCanvasElement (JSRef HTMLCanvasElement)--unHTMLCanvasElement (HTMLCanvasElement o) = o--class IsHTMLElement o => IsHTMLCanvasElement o-toHTMLCanvasElement :: IsHTMLCanvasElement o => o -> HTMLCanvasElement-toHTMLCanvasElement = unsafeCastGObject . toGObject--instance IsHTMLCanvasElement HTMLCanvasElement-instance IsHTMLElement HTMLCanvasElement-instance IsElement HTMLCanvasElement-instance IsNode HTMLCanvasElement-instance GObjectClass HTMLCanvasElement where-  toGObject = GObject . castRef . unHTMLCanvasElement-  unsafeCastGObject = HTMLCanvasElement . castRef . unGObject--castToHTMLCanvasElement :: GObjectClass obj => obj -> HTMLCanvasElement-castToHTMLCanvasElement = castTo gTypeHTMLCanvasElement "HTMLCanvasElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLCanvasElement\"]" gTypeHTMLCanvasElement' :: JSRef GType-#else-gTypeHTMLCanvasElement' = error "gTypeHTMLCanvasElement': only available in JavaScript"-#endif-gTypeHTMLCanvasElement = GType gTypeHTMLCanvasElement'-#else-type IsHTMLCanvasElement o = HTMLCanvasElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLCollection = HTMLCollection (JSRef HTMLCollection)--unHTMLCollection (HTMLCollection o) = o--class GObjectClass o => IsHTMLCollection o-toHTMLCollection :: IsHTMLCollection o => o -> HTMLCollection-toHTMLCollection = unsafeCastGObject . toGObject--instance IsHTMLCollection HTMLCollection-instance GObjectClass HTMLCollection where-  toGObject = GObject . castRef . unHTMLCollection-  unsafeCastGObject = HTMLCollection . castRef . unGObject--castToHTMLCollection :: GObjectClass obj => obj -> HTMLCollection-castToHTMLCollection = castTo gTypeHTMLCollection "HTMLCollection"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLCollection\"]" gTypeHTMLCollection' :: JSRef GType-#else-gTypeHTMLCollection' = error "gTypeHTMLCollection': only available in JavaScript"-#endif-gTypeHTMLCollection = GType gTypeHTMLCollection'-#else-type IsHTMLCollection o = HTMLCollectionClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLDListElement = HTMLDListElement (JSRef HTMLDListElement)--unHTMLDListElement (HTMLDListElement o) = o--class IsHTMLElement o => IsHTMLDListElement o-toHTMLDListElement :: IsHTMLDListElement o => o -> HTMLDListElement-toHTMLDListElement = unsafeCastGObject . toGObject--instance IsHTMLDListElement HTMLDListElement-instance IsHTMLElement HTMLDListElement-instance IsElement HTMLDListElement-instance IsNode HTMLDListElement-instance GObjectClass HTMLDListElement where-  toGObject = GObject . castRef . unHTMLDListElement-  unsafeCastGObject = HTMLDListElement . castRef . unGObject--castToHTMLDListElement :: GObjectClass obj => obj -> HTMLDListElement-castToHTMLDListElement = castTo gTypeHTMLDListElement "HTMLDListElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLDListElement\"]" gTypeHTMLDListElement' :: JSRef GType-#else-gTypeHTMLDListElement' = error "gTypeHTMLDListElement': only available in JavaScript"-#endif-gTypeHTMLDListElement = GType gTypeHTMLDListElement'-#else-type IsHTMLDListElement o = HTMLDListElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLDetailsElement = HTMLDetailsElement (JSRef HTMLDetailsElement)--unHTMLDetailsElement (HTMLDetailsElement o) = o--class IsHTMLElement o => IsHTMLDetailsElement o-toHTMLDetailsElement :: IsHTMLDetailsElement o => o -> HTMLDetailsElement-toHTMLDetailsElement = unsafeCastGObject . toGObject--instance IsHTMLDetailsElement HTMLDetailsElement-instance IsHTMLElement HTMLDetailsElement-instance IsElement HTMLDetailsElement-instance IsNode HTMLDetailsElement-instance GObjectClass HTMLDetailsElement where-  toGObject = GObject . castRef . unHTMLDetailsElement-  unsafeCastGObject = HTMLDetailsElement . castRef . unGObject--castToHTMLDetailsElement :: GObjectClass obj => obj -> HTMLDetailsElement-castToHTMLDetailsElement = castTo gTypeHTMLDetailsElement "HTMLDetailsElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLDetailsElement\"]" gTypeHTMLDetailsElement' :: JSRef GType-#else-gTypeHTMLDetailsElement' = error "gTypeHTMLDetailsElement': only available in JavaScript"-#endif-gTypeHTMLDetailsElement = GType gTypeHTMLDetailsElement'-#else-type IsHTMLDetailsElement o = HTMLDetailsElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLDirectoryElement = HTMLDirectoryElement (JSRef HTMLDirectoryElement)--unHTMLDirectoryElement (HTMLDirectoryElement o) = o--class IsHTMLElement o => IsHTMLDirectoryElement o-toHTMLDirectoryElement :: IsHTMLDirectoryElement o => o -> HTMLDirectoryElement-toHTMLDirectoryElement = unsafeCastGObject . toGObject--instance IsHTMLDirectoryElement HTMLDirectoryElement-instance IsHTMLElement HTMLDirectoryElement-instance IsElement HTMLDirectoryElement-instance IsNode HTMLDirectoryElement-instance GObjectClass HTMLDirectoryElement where-  toGObject = GObject . castRef . unHTMLDirectoryElement-  unsafeCastGObject = HTMLDirectoryElement . castRef . unGObject--castToHTMLDirectoryElement :: GObjectClass obj => obj -> HTMLDirectoryElement-castToHTMLDirectoryElement = castTo gTypeHTMLDirectoryElement "HTMLDirectoryElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLDirectoryElement\"]" gTypeHTMLDirectoryElement' :: JSRef GType-#else-gTypeHTMLDirectoryElement' = error "gTypeHTMLDirectoryElement': only available in JavaScript"-#endif-gTypeHTMLDirectoryElement = GType gTypeHTMLDirectoryElement'-#else-type IsHTMLDirectoryElement o = HTMLDirectoryElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLDivElement = HTMLDivElement (JSRef HTMLDivElement)--unHTMLDivElement (HTMLDivElement o) = o--class IsHTMLElement o => IsHTMLDivElement o-toHTMLDivElement :: IsHTMLDivElement o => o -> HTMLDivElement-toHTMLDivElement = unsafeCastGObject . toGObject--instance IsHTMLDivElement HTMLDivElement-instance IsHTMLElement HTMLDivElement-instance IsElement HTMLDivElement-instance IsNode HTMLDivElement-instance GObjectClass HTMLDivElement where-  toGObject = GObject . castRef . unHTMLDivElement-  unsafeCastGObject = HTMLDivElement . castRef . unGObject--castToHTMLDivElement :: GObjectClass obj => obj -> HTMLDivElement-castToHTMLDivElement = castTo gTypeHTMLDivElement "HTMLDivElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLDivElement\"]" gTypeHTMLDivElement' :: JSRef GType-#else-gTypeHTMLDivElement' = error "gTypeHTMLDivElement': only available in JavaScript"-#endif-gTypeHTMLDivElement = GType gTypeHTMLDivElement'-#else-type IsHTMLDivElement o = HTMLDivElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLDocument = HTMLDocument (JSRef HTMLDocument)--unHTMLDocument (HTMLDocument o) = o--class IsDocument o => IsHTMLDocument o-toHTMLDocument :: IsHTMLDocument o => o -> HTMLDocument-toHTMLDocument = unsafeCastGObject . toGObject--instance IsHTMLDocument HTMLDocument-instance IsDocument HTMLDocument-instance IsNode HTMLDocument-instance GObjectClass HTMLDocument where-  toGObject = GObject . castRef . unHTMLDocument-  unsafeCastGObject = HTMLDocument . castRef . unGObject--castToHTMLDocument :: GObjectClass obj => obj -> HTMLDocument-castToHTMLDocument = castTo gTypeHTMLDocument "HTMLDocument"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLDocument\"]" gTypeHTMLDocument' :: JSRef GType-#else-gTypeHTMLDocument' = error "gTypeHTMLDocument': only available in JavaScript"-#endif-gTypeHTMLDocument = GType gTypeHTMLDocument'-#else-type IsHTMLDocument o = HTMLDocumentClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLElement = HTMLElement (JSRef HTMLElement)--unHTMLElement (HTMLElement o) = o--class IsElement o => IsHTMLElement o-toHTMLElement :: IsHTMLElement o => o -> HTMLElement-toHTMLElement = unsafeCastGObject . toGObject--instance IsHTMLElement HTMLElement-instance IsElement HTMLElement-instance IsNode HTMLElement-instance GObjectClass HTMLElement where-  toGObject = GObject . castRef . unHTMLElement-  unsafeCastGObject = HTMLElement . castRef . unGObject--castToHTMLElement :: GObjectClass obj => obj -> HTMLElement-castToHTMLElement = castTo gTypeHTMLElement "HTMLElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLElement\"]" gTypeHTMLElement' :: JSRef GType-#else-gTypeHTMLElement' = error "gTypeHTMLElement': only available in JavaScript"-#endif-gTypeHTMLElement = GType gTypeHTMLElement'-#else-type IsHTMLElement o = HTMLElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLEmbedElement = HTMLEmbedElement (JSRef HTMLEmbedElement)--unHTMLEmbedElement (HTMLEmbedElement o) = o--class IsHTMLElement o => IsHTMLEmbedElement o-toHTMLEmbedElement :: IsHTMLEmbedElement o => o -> HTMLEmbedElement-toHTMLEmbedElement = unsafeCastGObject . toGObject--instance IsHTMLEmbedElement HTMLEmbedElement-instance IsHTMLElement HTMLEmbedElement-instance IsElement HTMLEmbedElement-instance IsNode HTMLEmbedElement-instance GObjectClass HTMLEmbedElement where-  toGObject = GObject . castRef . unHTMLEmbedElement-  unsafeCastGObject = HTMLEmbedElement . castRef . unGObject--castToHTMLEmbedElement :: GObjectClass obj => obj -> HTMLEmbedElement-castToHTMLEmbedElement = castTo gTypeHTMLEmbedElement "HTMLEmbedElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLEmbedElement\"]" gTypeHTMLEmbedElement' :: JSRef GType-#else-gTypeHTMLEmbedElement' = error "gTypeHTMLEmbedElement': only available in JavaScript"-#endif-gTypeHTMLEmbedElement = GType gTypeHTMLEmbedElement'-#else-type IsHTMLEmbedElement o = HTMLEmbedElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLFieldSetElement = HTMLFieldSetElement (JSRef HTMLFieldSetElement)--unHTMLFieldSetElement (HTMLFieldSetElement o) = o--class IsHTMLElement o => IsHTMLFieldSetElement o-toHTMLFieldSetElement :: IsHTMLFieldSetElement o => o -> HTMLFieldSetElement-toHTMLFieldSetElement = unsafeCastGObject . toGObject--instance IsHTMLFieldSetElement HTMLFieldSetElement-instance IsHTMLElement HTMLFieldSetElement-instance IsElement HTMLFieldSetElement-instance IsNode HTMLFieldSetElement-instance GObjectClass HTMLFieldSetElement where-  toGObject = GObject . castRef . unHTMLFieldSetElement-  unsafeCastGObject = HTMLFieldSetElement . castRef . unGObject--castToHTMLFieldSetElement :: GObjectClass obj => obj -> HTMLFieldSetElement-castToHTMLFieldSetElement = castTo gTypeHTMLFieldSetElement "HTMLFieldSetElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLFieldSetElement\"]" gTypeHTMLFieldSetElement' :: JSRef GType-#else-gTypeHTMLFieldSetElement' = error "gTypeHTMLFieldSetElement': only available in JavaScript"-#endif-gTypeHTMLFieldSetElement = GType gTypeHTMLFieldSetElement'-#else-type IsHTMLFieldSetElement o = HTMLFieldSetElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLFontElement = HTMLFontElement (JSRef HTMLFontElement)--unHTMLFontElement (HTMLFontElement o) = o--class IsHTMLElement o => IsHTMLFontElement o-toHTMLFontElement :: IsHTMLFontElement o => o -> HTMLFontElement-toHTMLFontElement = unsafeCastGObject . toGObject--instance IsHTMLFontElement HTMLFontElement-instance IsHTMLElement HTMLFontElement-instance IsElement HTMLFontElement-instance IsNode HTMLFontElement-instance GObjectClass HTMLFontElement where-  toGObject = GObject . castRef . unHTMLFontElement-  unsafeCastGObject = HTMLFontElement . castRef . unGObject--castToHTMLFontElement :: GObjectClass obj => obj -> HTMLFontElement-castToHTMLFontElement = castTo gTypeHTMLFontElement "HTMLFontElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLFontElement\"]" gTypeHTMLFontElement' :: JSRef GType-#else-gTypeHTMLFontElement' = error "gTypeHTMLFontElement': only available in JavaScript"-#endif-gTypeHTMLFontElement = GType gTypeHTMLFontElement'-#else-type IsHTMLFontElement o = HTMLFontElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLFormElement = HTMLFormElement (JSRef HTMLFormElement)--unHTMLFormElement (HTMLFormElement o) = o--class IsHTMLElement o => IsHTMLFormElement o-toHTMLFormElement :: IsHTMLFormElement o => o -> HTMLFormElement-toHTMLFormElement = unsafeCastGObject . toGObject--instance IsHTMLFormElement HTMLFormElement-instance IsHTMLElement HTMLFormElement-instance IsElement HTMLFormElement-instance IsNode HTMLFormElement-instance GObjectClass HTMLFormElement where-  toGObject = GObject . castRef . unHTMLFormElement-  unsafeCastGObject = HTMLFormElement . castRef . unGObject--castToHTMLFormElement :: GObjectClass obj => obj -> HTMLFormElement-castToHTMLFormElement = castTo gTypeHTMLFormElement "HTMLFormElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLFormElement\"]" gTypeHTMLFormElement' :: JSRef GType-#else-gTypeHTMLFormElement' = error "gTypeHTMLFormElement': only available in JavaScript"-#endif-gTypeHTMLFormElement = GType gTypeHTMLFormElement'-#else-type IsHTMLFormElement o = HTMLFormElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLFrameElement = HTMLFrameElement (JSRef HTMLFrameElement)--unHTMLFrameElement (HTMLFrameElement o) = o--class IsHTMLElement o => IsHTMLFrameElement o-toHTMLFrameElement :: IsHTMLFrameElement o => o -> HTMLFrameElement-toHTMLFrameElement = unsafeCastGObject . toGObject--instance IsHTMLFrameElement HTMLFrameElement-instance IsHTMLElement HTMLFrameElement-instance IsElement HTMLFrameElement-instance IsNode HTMLFrameElement-instance GObjectClass HTMLFrameElement where-  toGObject = GObject . castRef . unHTMLFrameElement-  unsafeCastGObject = HTMLFrameElement . castRef . unGObject--castToHTMLFrameElement :: GObjectClass obj => obj -> HTMLFrameElement-castToHTMLFrameElement = castTo gTypeHTMLFrameElement "HTMLFrameElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLFrameElement\"]" gTypeHTMLFrameElement' :: JSRef GType-#else-gTypeHTMLFrameElement' = error "gTypeHTMLFrameElement': only available in JavaScript"-#endif-gTypeHTMLFrameElement = GType gTypeHTMLFrameElement'-#else-type IsHTMLFrameElement o = HTMLFrameElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLFrameSetElement = HTMLFrameSetElement (JSRef HTMLFrameSetElement)--unHTMLFrameSetElement (HTMLFrameSetElement o) = o--class IsHTMLElement o => IsHTMLFrameSetElement o-toHTMLFrameSetElement :: IsHTMLFrameSetElement o => o -> HTMLFrameSetElement-toHTMLFrameSetElement = unsafeCastGObject . toGObject--instance IsHTMLFrameSetElement HTMLFrameSetElement-instance IsHTMLElement HTMLFrameSetElement-instance IsElement HTMLFrameSetElement-instance IsNode HTMLFrameSetElement-instance GObjectClass HTMLFrameSetElement where-  toGObject = GObject . castRef . unHTMLFrameSetElement-  unsafeCastGObject = HTMLFrameSetElement . castRef . unGObject--castToHTMLFrameSetElement :: GObjectClass obj => obj -> HTMLFrameSetElement-castToHTMLFrameSetElement = castTo gTypeHTMLFrameSetElement "HTMLFrameSetElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLFrameSetElement\"]" gTypeHTMLFrameSetElement' :: JSRef GType-#else-gTypeHTMLFrameSetElement' = error "gTypeHTMLFrameSetElement': only available in JavaScript"-#endif-gTypeHTMLFrameSetElement = GType gTypeHTMLFrameSetElement'-#else-type IsHTMLFrameSetElement o = HTMLFrameSetElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLHRElement = HTMLHRElement (JSRef HTMLHRElement)--unHTMLHRElement (HTMLHRElement o) = o--class IsHTMLElement o => IsHTMLHRElement o-toHTMLHRElement :: IsHTMLHRElement o => o -> HTMLHRElement-toHTMLHRElement = unsafeCastGObject . toGObject--instance IsHTMLHRElement HTMLHRElement-instance IsHTMLElement HTMLHRElement-instance IsElement HTMLHRElement-instance IsNode HTMLHRElement-instance GObjectClass HTMLHRElement where-  toGObject = GObject . castRef . unHTMLHRElement-  unsafeCastGObject = HTMLHRElement . castRef . unGObject--castToHTMLHRElement :: GObjectClass obj => obj -> HTMLHRElement-castToHTMLHRElement = castTo gTypeHTMLHRElement "HTMLHRElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLHRElement\"]" gTypeHTMLHRElement' :: JSRef GType-#else-gTypeHTMLHRElement' = error "gTypeHTMLHRElement': only available in JavaScript"-#endif-gTypeHTMLHRElement = GType gTypeHTMLHRElement'-#else-type IsHTMLHRElement o = HTMLHRElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLHeadElement = HTMLHeadElement (JSRef HTMLHeadElement)--unHTMLHeadElement (HTMLHeadElement o) = o--class IsHTMLElement o => IsHTMLHeadElement o-toHTMLHeadElement :: IsHTMLHeadElement o => o -> HTMLHeadElement-toHTMLHeadElement = unsafeCastGObject . toGObject--instance IsHTMLHeadElement HTMLHeadElement-instance IsHTMLElement HTMLHeadElement-instance IsElement HTMLHeadElement-instance IsNode HTMLHeadElement-instance GObjectClass HTMLHeadElement where-  toGObject = GObject . castRef . unHTMLHeadElement-  unsafeCastGObject = HTMLHeadElement . castRef . unGObject--castToHTMLHeadElement :: GObjectClass obj => obj -> HTMLHeadElement-castToHTMLHeadElement = castTo gTypeHTMLHeadElement "HTMLHeadElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLHeadElement\"]" gTypeHTMLHeadElement' :: JSRef GType-#else-gTypeHTMLHeadElement' = error "gTypeHTMLHeadElement': only available in JavaScript"-#endif-gTypeHTMLHeadElement = GType gTypeHTMLHeadElement'-#else-type IsHTMLHeadElement o = HTMLHeadElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLHeadingElement = HTMLHeadingElement (JSRef HTMLHeadingElement)--unHTMLHeadingElement (HTMLHeadingElement o) = o--class IsHTMLElement o => IsHTMLHeadingElement o-toHTMLHeadingElement :: IsHTMLHeadingElement o => o -> HTMLHeadingElement-toHTMLHeadingElement = unsafeCastGObject . toGObject--instance IsHTMLHeadingElement HTMLHeadingElement-instance IsHTMLElement HTMLHeadingElement-instance IsElement HTMLHeadingElement-instance IsNode HTMLHeadingElement-instance GObjectClass HTMLHeadingElement where-  toGObject = GObject . castRef . unHTMLHeadingElement-  unsafeCastGObject = HTMLHeadingElement . castRef . unGObject--castToHTMLHeadingElement :: GObjectClass obj => obj -> HTMLHeadingElement-castToHTMLHeadingElement = castTo gTypeHTMLHeadingElement "HTMLHeadingElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLHeadingElement\"]" gTypeHTMLHeadingElement' :: JSRef GType-#else-gTypeHTMLHeadingElement' = error "gTypeHTMLHeadingElement': only available in JavaScript"-#endif-gTypeHTMLHeadingElement = GType gTypeHTMLHeadingElement'-#else-type IsHTMLHeadingElement o = HTMLHeadingElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLHtmlElement = HTMLHtmlElement (JSRef HTMLHtmlElement)--unHTMLHtmlElement (HTMLHtmlElement o) = o--class IsHTMLElement o => IsHTMLHtmlElement o-toHTMLHtmlElement :: IsHTMLHtmlElement o => o -> HTMLHtmlElement-toHTMLHtmlElement = unsafeCastGObject . toGObject--instance IsHTMLHtmlElement HTMLHtmlElement-instance IsHTMLElement HTMLHtmlElement-instance IsElement HTMLHtmlElement-instance IsNode HTMLHtmlElement-instance GObjectClass HTMLHtmlElement where-  toGObject = GObject . castRef . unHTMLHtmlElement-  unsafeCastGObject = HTMLHtmlElement . castRef . unGObject--castToHTMLHtmlElement :: GObjectClass obj => obj -> HTMLHtmlElement-castToHTMLHtmlElement = castTo gTypeHTMLHtmlElement "HTMLHtmlElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLHtmlElement\"]" gTypeHTMLHtmlElement' :: JSRef GType-#else-gTypeHTMLHtmlElement' = error "gTypeHTMLHtmlElement': only available in JavaScript"-#endif-gTypeHTMLHtmlElement = GType gTypeHTMLHtmlElement'-#else-type IsHTMLHtmlElement o = HTMLHtmlElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLIFrameElement = HTMLIFrameElement (JSRef HTMLIFrameElement)--unHTMLIFrameElement (HTMLIFrameElement o) = o--class IsHTMLElement o => IsHTMLIFrameElement o-toHTMLIFrameElement :: IsHTMLIFrameElement o => o -> HTMLIFrameElement-toHTMLIFrameElement = unsafeCastGObject . toGObject--instance IsHTMLIFrameElement HTMLIFrameElement-instance IsHTMLElement HTMLIFrameElement-instance IsElement HTMLIFrameElement-instance IsNode HTMLIFrameElement-instance GObjectClass HTMLIFrameElement where-  toGObject = GObject . castRef . unHTMLIFrameElement-  unsafeCastGObject = HTMLIFrameElement . castRef . unGObject--castToHTMLIFrameElement :: GObjectClass obj => obj -> HTMLIFrameElement-castToHTMLIFrameElement = castTo gTypeHTMLIFrameElement "HTMLIFrameElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLIFrameElement\"]" gTypeHTMLIFrameElement' :: JSRef GType-#else-gTypeHTMLIFrameElement' = error "gTypeHTMLIFrameElement': only available in JavaScript"-#endif-gTypeHTMLIFrameElement = GType gTypeHTMLIFrameElement'-#else-type IsHTMLIFrameElement o = HTMLIFrameElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLImageElement = HTMLImageElement (JSRef HTMLImageElement)--unHTMLImageElement (HTMLImageElement o) = o--class IsHTMLElement o => IsHTMLImageElement o-toHTMLImageElement :: IsHTMLImageElement o => o -> HTMLImageElement-toHTMLImageElement = unsafeCastGObject . toGObject--instance IsHTMLImageElement HTMLImageElement-instance IsHTMLElement HTMLImageElement-instance IsElement HTMLImageElement-instance IsNode HTMLImageElement-instance GObjectClass HTMLImageElement where-  toGObject = GObject . castRef . unHTMLImageElement-  unsafeCastGObject = HTMLImageElement . castRef . unGObject--castToHTMLImageElement :: GObjectClass obj => obj -> HTMLImageElement-castToHTMLImageElement = castTo gTypeHTMLImageElement "HTMLImageElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLImageElement\"]" gTypeHTMLImageElement' :: JSRef GType-#else-gTypeHTMLImageElement' = error "gTypeHTMLImageElement': only available in JavaScript"-#endif-gTypeHTMLImageElement = GType gTypeHTMLImageElement'-#else-type IsHTMLImageElement o = HTMLImageElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLInputElement = HTMLInputElement (JSRef HTMLInputElement)--unHTMLInputElement (HTMLInputElement o) = o--class IsHTMLElement o => IsHTMLInputElement o-toHTMLInputElement :: IsHTMLInputElement o => o -> HTMLInputElement-toHTMLInputElement = unsafeCastGObject . toGObject--instance IsHTMLInputElement HTMLInputElement-instance IsHTMLElement HTMLInputElement-instance IsElement HTMLInputElement-instance IsNode HTMLInputElement-instance GObjectClass HTMLInputElement where-  toGObject = GObject . castRef . unHTMLInputElement-  unsafeCastGObject = HTMLInputElement . castRef . unGObject--castToHTMLInputElement :: GObjectClass obj => obj -> HTMLInputElement-castToHTMLInputElement = castTo gTypeHTMLInputElement "HTMLInputElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLInputElement\"]" gTypeHTMLInputElement' :: JSRef GType-#else-gTypeHTMLInputElement' = error "gTypeHTMLInputElement': only available in JavaScript"-#endif-gTypeHTMLInputElement = GType gTypeHTMLInputElement'-#else-type IsHTMLInputElement o = HTMLInputElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLKeygenElement = HTMLKeygenElement (JSRef HTMLKeygenElement)--unHTMLKeygenElement (HTMLKeygenElement o) = o--class IsHTMLElement o => IsHTMLKeygenElement o-toHTMLKeygenElement :: IsHTMLKeygenElement o => o -> HTMLKeygenElement-toHTMLKeygenElement = unsafeCastGObject . toGObject--instance IsHTMLKeygenElement HTMLKeygenElement-instance IsHTMLElement HTMLKeygenElement-instance IsElement HTMLKeygenElement-instance IsNode HTMLKeygenElement-instance GObjectClass HTMLKeygenElement where-  toGObject = GObject . castRef . unHTMLKeygenElement-  unsafeCastGObject = HTMLKeygenElement . castRef . unGObject--castToHTMLKeygenElement :: GObjectClass obj => obj -> HTMLKeygenElement-castToHTMLKeygenElement = castTo gTypeHTMLKeygenElement "HTMLKeygenElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLKeygenElement\"]" gTypeHTMLKeygenElement' :: JSRef GType-#else-gTypeHTMLKeygenElement' = error "gTypeHTMLKeygenElement': only available in JavaScript"-#endif-gTypeHTMLKeygenElement = GType gTypeHTMLKeygenElement'-#else-type IsHTMLKeygenElement o = HTMLKeygenElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLLIElement = HTMLLIElement (JSRef HTMLLIElement)--unHTMLLIElement (HTMLLIElement o) = o--class IsHTMLElement o => IsHTMLLIElement o-toHTMLLIElement :: IsHTMLLIElement o => o -> HTMLLIElement-toHTMLLIElement = unsafeCastGObject . toGObject--instance IsHTMLLIElement HTMLLIElement-instance IsHTMLElement HTMLLIElement-instance IsElement HTMLLIElement-instance IsNode HTMLLIElement-instance GObjectClass HTMLLIElement where-  toGObject = GObject . castRef . unHTMLLIElement-  unsafeCastGObject = HTMLLIElement . castRef . unGObject--castToHTMLLIElement :: GObjectClass obj => obj -> HTMLLIElement-castToHTMLLIElement = castTo gTypeHTMLLIElement "HTMLLIElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLLIElement\"]" gTypeHTMLLIElement' :: JSRef GType-#else-gTypeHTMLLIElement' = error "gTypeHTMLLIElement': only available in JavaScript"-#endif-gTypeHTMLLIElement = GType gTypeHTMLLIElement'-#else-type IsHTMLLIElement o = HTMLLIElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLLabelElement = HTMLLabelElement (JSRef HTMLLabelElement)--unHTMLLabelElement (HTMLLabelElement o) = o--class IsHTMLElement o => IsHTMLLabelElement o-toHTMLLabelElement :: IsHTMLLabelElement o => o -> HTMLLabelElement-toHTMLLabelElement = unsafeCastGObject . toGObject--instance IsHTMLLabelElement HTMLLabelElement-instance IsHTMLElement HTMLLabelElement-instance IsElement HTMLLabelElement-instance IsNode HTMLLabelElement-instance GObjectClass HTMLLabelElement where-  toGObject = GObject . castRef . unHTMLLabelElement-  unsafeCastGObject = HTMLLabelElement . castRef . unGObject--castToHTMLLabelElement :: GObjectClass obj => obj -> HTMLLabelElement-castToHTMLLabelElement = castTo gTypeHTMLLabelElement "HTMLLabelElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLLabelElement\"]" gTypeHTMLLabelElement' :: JSRef GType-#else-gTypeHTMLLabelElement' = error "gTypeHTMLLabelElement': only available in JavaScript"-#endif-gTypeHTMLLabelElement = GType gTypeHTMLLabelElement'-#else-type IsHTMLLabelElement o = HTMLLabelElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLLegendElement = HTMLLegendElement (JSRef HTMLLegendElement)--unHTMLLegendElement (HTMLLegendElement o) = o--class IsHTMLElement o => IsHTMLLegendElement o-toHTMLLegendElement :: IsHTMLLegendElement o => o -> HTMLLegendElement-toHTMLLegendElement = unsafeCastGObject . toGObject--instance IsHTMLLegendElement HTMLLegendElement-instance IsHTMLElement HTMLLegendElement-instance IsElement HTMLLegendElement-instance IsNode HTMLLegendElement-instance GObjectClass HTMLLegendElement where-  toGObject = GObject . castRef . unHTMLLegendElement-  unsafeCastGObject = HTMLLegendElement . castRef . unGObject--castToHTMLLegendElement :: GObjectClass obj => obj -> HTMLLegendElement-castToHTMLLegendElement = castTo gTypeHTMLLegendElement "HTMLLegendElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLLegendElement\"]" gTypeHTMLLegendElement' :: JSRef GType-#else-gTypeHTMLLegendElement' = error "gTypeHTMLLegendElement': only available in JavaScript"-#endif-gTypeHTMLLegendElement = GType gTypeHTMLLegendElement'-#else-type IsHTMLLegendElement o = HTMLLegendElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLLinkElement = HTMLLinkElement (JSRef HTMLLinkElement)--unHTMLLinkElement (HTMLLinkElement o) = o--class IsHTMLElement o => IsHTMLLinkElement o-toHTMLLinkElement :: IsHTMLLinkElement o => o -> HTMLLinkElement-toHTMLLinkElement = unsafeCastGObject . toGObject--instance IsHTMLLinkElement HTMLLinkElement-instance IsHTMLElement HTMLLinkElement-instance IsElement HTMLLinkElement-instance IsNode HTMLLinkElement-instance GObjectClass HTMLLinkElement where-  toGObject = GObject . castRef . unHTMLLinkElement-  unsafeCastGObject = HTMLLinkElement . castRef . unGObject--castToHTMLLinkElement :: GObjectClass obj => obj -> HTMLLinkElement-castToHTMLLinkElement = castTo gTypeHTMLLinkElement "HTMLLinkElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLLinkElement\"]" gTypeHTMLLinkElement' :: JSRef GType-#else-gTypeHTMLLinkElement' = error "gTypeHTMLLinkElement': only available in JavaScript"-#endif-gTypeHTMLLinkElement = GType gTypeHTMLLinkElement'-#else-type IsHTMLLinkElement o = HTMLLinkElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLMapElement = HTMLMapElement (JSRef HTMLMapElement)--unHTMLMapElement (HTMLMapElement o) = o--class IsHTMLElement o => IsHTMLMapElement o-toHTMLMapElement :: IsHTMLMapElement o => o -> HTMLMapElement-toHTMLMapElement = unsafeCastGObject . toGObject--instance IsHTMLMapElement HTMLMapElement-instance IsHTMLElement HTMLMapElement-instance IsElement HTMLMapElement-instance IsNode HTMLMapElement-instance GObjectClass HTMLMapElement where-  toGObject = GObject . castRef . unHTMLMapElement-  unsafeCastGObject = HTMLMapElement . castRef . unGObject--castToHTMLMapElement :: GObjectClass obj => obj -> HTMLMapElement-castToHTMLMapElement = castTo gTypeHTMLMapElement "HTMLMapElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLMapElement\"]" gTypeHTMLMapElement' :: JSRef GType-#else-gTypeHTMLMapElement' = error "gTypeHTMLMapElement': only available in JavaScript"-#endif-gTypeHTMLMapElement = GType gTypeHTMLMapElement'-#else-type IsHTMLMapElement o = HTMLMapElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLMarqueeElement = HTMLMarqueeElement (JSRef HTMLMarqueeElement)--unHTMLMarqueeElement (HTMLMarqueeElement o) = o--class IsHTMLElement o => IsHTMLMarqueeElement o-toHTMLMarqueeElement :: IsHTMLMarqueeElement o => o -> HTMLMarqueeElement-toHTMLMarqueeElement = unsafeCastGObject . toGObject--instance IsHTMLMarqueeElement HTMLMarqueeElement-instance IsHTMLElement HTMLMarqueeElement-instance IsElement HTMLMarqueeElement-instance IsNode HTMLMarqueeElement-instance GObjectClass HTMLMarqueeElement where-  toGObject = GObject . castRef . unHTMLMarqueeElement-  unsafeCastGObject = HTMLMarqueeElement . castRef . unGObject--castToHTMLMarqueeElement :: GObjectClass obj => obj -> HTMLMarqueeElement-castToHTMLMarqueeElement = castTo gTypeHTMLMarqueeElement "HTMLMarqueeElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLMarqueeElement\"]" gTypeHTMLMarqueeElement' :: JSRef GType-#else-gTypeHTMLMarqueeElement' = error "gTypeHTMLMarqueeElement': only available in JavaScript"-#endif-gTypeHTMLMarqueeElement = GType gTypeHTMLMarqueeElement'-#else-type IsHTMLMarqueeElement o = HTMLMarqueeElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLMediaElement = HTMLMediaElement (JSRef HTMLMediaElement)--unHTMLMediaElement (HTMLMediaElement o) = o--class IsHTMLElement o => IsHTMLMediaElement o-toHTMLMediaElement :: IsHTMLMediaElement o => o -> HTMLMediaElement-toHTMLMediaElement = unsafeCastGObject . toGObject--instance IsHTMLMediaElement HTMLMediaElement-instance IsHTMLElement HTMLMediaElement-instance IsElement HTMLMediaElement-instance IsNode HTMLMediaElement-instance GObjectClass HTMLMediaElement where-  toGObject = GObject . castRef . unHTMLMediaElement-  unsafeCastGObject = HTMLMediaElement . castRef . unGObject--castToHTMLMediaElement :: GObjectClass obj => obj -> HTMLMediaElement-castToHTMLMediaElement = castTo gTypeHTMLMediaElement "HTMLMediaElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLMediaElement\"]" gTypeHTMLMediaElement' :: JSRef GType-#else-gTypeHTMLMediaElement' = error "gTypeHTMLMediaElement': only available in JavaScript"-#endif-gTypeHTMLMediaElement = GType gTypeHTMLMediaElement'-#else-type IsHTMLMediaElement o = HTMLMediaElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLMenuElement = HTMLMenuElement (JSRef HTMLMenuElement)--unHTMLMenuElement (HTMLMenuElement o) = o--class IsHTMLElement o => IsHTMLMenuElement o-toHTMLMenuElement :: IsHTMLMenuElement o => o -> HTMLMenuElement-toHTMLMenuElement = unsafeCastGObject . toGObject--instance IsHTMLMenuElement HTMLMenuElement-instance IsHTMLElement HTMLMenuElement-instance IsElement HTMLMenuElement-instance IsNode HTMLMenuElement-instance GObjectClass HTMLMenuElement where-  toGObject = GObject . castRef . unHTMLMenuElement-  unsafeCastGObject = HTMLMenuElement . castRef . unGObject--castToHTMLMenuElement :: GObjectClass obj => obj -> HTMLMenuElement-castToHTMLMenuElement = castTo gTypeHTMLMenuElement "HTMLMenuElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLMenuElement\"]" gTypeHTMLMenuElement' :: JSRef GType-#else-gTypeHTMLMenuElement' = error "gTypeHTMLMenuElement': only available in JavaScript"-#endif-gTypeHTMLMenuElement = GType gTypeHTMLMenuElement'-#else-type IsHTMLMenuElement o = HTMLMenuElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLMetaElement = HTMLMetaElement (JSRef HTMLMetaElement)--unHTMLMetaElement (HTMLMetaElement o) = o--class IsHTMLElement o => IsHTMLMetaElement o-toHTMLMetaElement :: IsHTMLMetaElement o => o -> HTMLMetaElement-toHTMLMetaElement = unsafeCastGObject . toGObject--instance IsHTMLMetaElement HTMLMetaElement-instance IsHTMLElement HTMLMetaElement-instance IsElement HTMLMetaElement-instance IsNode HTMLMetaElement-instance GObjectClass HTMLMetaElement where-  toGObject = GObject . castRef . unHTMLMetaElement-  unsafeCastGObject = HTMLMetaElement . castRef . unGObject--castToHTMLMetaElement :: GObjectClass obj => obj -> HTMLMetaElement-castToHTMLMetaElement = castTo gTypeHTMLMetaElement "HTMLMetaElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLMetaElement\"]" gTypeHTMLMetaElement' :: JSRef GType-#else-gTypeHTMLMetaElement' = error "gTypeHTMLMetaElement': only available in JavaScript"-#endif-gTypeHTMLMetaElement = GType gTypeHTMLMetaElement'-#else-type IsHTMLMetaElement o = HTMLMetaElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLModElement = HTMLModElement (JSRef HTMLModElement)--unHTMLModElement (HTMLModElement o) = o--class IsHTMLElement o => IsHTMLModElement o-toHTMLModElement :: IsHTMLModElement o => o -> HTMLModElement-toHTMLModElement = unsafeCastGObject . toGObject--instance IsHTMLModElement HTMLModElement-instance IsHTMLElement HTMLModElement-instance IsElement HTMLModElement-instance IsNode HTMLModElement-instance GObjectClass HTMLModElement where-  toGObject = GObject . castRef . unHTMLModElement-  unsafeCastGObject = HTMLModElement . castRef . unGObject--castToHTMLModElement :: GObjectClass obj => obj -> HTMLModElement-castToHTMLModElement = castTo gTypeHTMLModElement "HTMLModElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLModElement\"]" gTypeHTMLModElement' :: JSRef GType-#else-gTypeHTMLModElement' = error "gTypeHTMLModElement': only available in JavaScript"-#endif-gTypeHTMLModElement = GType gTypeHTMLModElement'-#else-type IsHTMLModElement o = HTMLModElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLOListElement = HTMLOListElement (JSRef HTMLOListElement)--unHTMLOListElement (HTMLOListElement o) = o--class IsHTMLElement o => IsHTMLOListElement o-toHTMLOListElement :: IsHTMLOListElement o => o -> HTMLOListElement-toHTMLOListElement = unsafeCastGObject . toGObject--instance IsHTMLOListElement HTMLOListElement-instance IsHTMLElement HTMLOListElement-instance IsElement HTMLOListElement-instance IsNode HTMLOListElement-instance GObjectClass HTMLOListElement where-  toGObject = GObject . castRef . unHTMLOListElement-  unsafeCastGObject = HTMLOListElement . castRef . unGObject--castToHTMLOListElement :: GObjectClass obj => obj -> HTMLOListElement-castToHTMLOListElement = castTo gTypeHTMLOListElement "HTMLOListElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLOListElement\"]" gTypeHTMLOListElement' :: JSRef GType-#else-gTypeHTMLOListElement' = error "gTypeHTMLOListElement': only available in JavaScript"-#endif-gTypeHTMLOListElement = GType gTypeHTMLOListElement'-#else-type IsHTMLOListElement o = HTMLOListElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLObjectElement = HTMLObjectElement (JSRef HTMLObjectElement)--unHTMLObjectElement (HTMLObjectElement o) = o--class IsHTMLElement o => IsHTMLObjectElement o-toHTMLObjectElement :: IsHTMLObjectElement o => o -> HTMLObjectElement-toHTMLObjectElement = unsafeCastGObject . toGObject--instance IsHTMLObjectElement HTMLObjectElement-instance IsHTMLElement HTMLObjectElement-instance IsElement HTMLObjectElement-instance IsNode HTMLObjectElement-instance GObjectClass HTMLObjectElement where-  toGObject = GObject . castRef . unHTMLObjectElement-  unsafeCastGObject = HTMLObjectElement . castRef . unGObject--castToHTMLObjectElement :: GObjectClass obj => obj -> HTMLObjectElement-castToHTMLObjectElement = castTo gTypeHTMLObjectElement "HTMLObjectElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLObjectElement\"]" gTypeHTMLObjectElement' :: JSRef GType-#else-gTypeHTMLObjectElement' = error "gTypeHTMLObjectElement': only available in JavaScript"-#endif-gTypeHTMLObjectElement = GType gTypeHTMLObjectElement'-#else-type IsHTMLObjectElement o = HTMLObjectElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLOptGroupElement = HTMLOptGroupElement (JSRef HTMLOptGroupElement)--unHTMLOptGroupElement (HTMLOptGroupElement o) = o--class IsHTMLElement o => IsHTMLOptGroupElement o-toHTMLOptGroupElement :: IsHTMLOptGroupElement o => o -> HTMLOptGroupElement-toHTMLOptGroupElement = unsafeCastGObject . toGObject--instance IsHTMLOptGroupElement HTMLOptGroupElement-instance IsHTMLElement HTMLOptGroupElement-instance IsElement HTMLOptGroupElement-instance IsNode HTMLOptGroupElement-instance GObjectClass HTMLOptGroupElement where-  toGObject = GObject . castRef . unHTMLOptGroupElement-  unsafeCastGObject = HTMLOptGroupElement . castRef . unGObject--castToHTMLOptGroupElement :: GObjectClass obj => obj -> HTMLOptGroupElement-castToHTMLOptGroupElement = castTo gTypeHTMLOptGroupElement "HTMLOptGroupElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLOptGroupElement\"]" gTypeHTMLOptGroupElement' :: JSRef GType-#else-gTypeHTMLOptGroupElement' = error "gTypeHTMLOptGroupElement': only available in JavaScript"-#endif-gTypeHTMLOptGroupElement = GType gTypeHTMLOptGroupElement'-#else-type IsHTMLOptGroupElement o = HTMLOptGroupElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLOptionElement = HTMLOptionElement (JSRef HTMLOptionElement)--unHTMLOptionElement (HTMLOptionElement o) = o--class IsHTMLElement o => IsHTMLOptionElement o-toHTMLOptionElement :: IsHTMLOptionElement o => o -> HTMLOptionElement-toHTMLOptionElement = unsafeCastGObject . toGObject--instance IsHTMLOptionElement HTMLOptionElement-instance IsHTMLElement HTMLOptionElement-instance IsElement HTMLOptionElement-instance IsNode HTMLOptionElement-instance GObjectClass HTMLOptionElement where-  toGObject = GObject . castRef . unHTMLOptionElement-  unsafeCastGObject = HTMLOptionElement . castRef . unGObject--castToHTMLOptionElement :: GObjectClass obj => obj -> HTMLOptionElement-castToHTMLOptionElement = castTo gTypeHTMLOptionElement "HTMLOptionElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLOptionElement\"]" gTypeHTMLOptionElement' :: JSRef GType-#else-gTypeHTMLOptionElement' = error "gTypeHTMLOptionElement': only available in JavaScript"-#endif-gTypeHTMLOptionElement = GType gTypeHTMLOptionElement'-#else-type IsHTMLOptionElement o = HTMLOptionElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLOptionsCollection = HTMLOptionsCollection (JSRef HTMLOptionsCollection)--unHTMLOptionsCollection (HTMLOptionsCollection o) = o--class IsHTMLCollection o => IsHTMLOptionsCollection o-toHTMLOptionsCollection :: IsHTMLOptionsCollection o => o -> HTMLOptionsCollection-toHTMLOptionsCollection = unsafeCastGObject . toGObject--instance IsHTMLOptionsCollection HTMLOptionsCollection-instance IsHTMLCollection HTMLOptionsCollection-instance GObjectClass HTMLOptionsCollection where-  toGObject = GObject . castRef . unHTMLOptionsCollection-  unsafeCastGObject = HTMLOptionsCollection . castRef . unGObject--castToHTMLOptionsCollection :: GObjectClass obj => obj -> HTMLOptionsCollection-castToHTMLOptionsCollection = castTo gTypeHTMLOptionsCollection "HTMLOptionsCollection"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLOptionsCollection\"]" gTypeHTMLOptionsCollection' :: JSRef GType-#else-gTypeHTMLOptionsCollection' = error "gTypeHTMLOptionsCollection': only available in JavaScript"-#endif-gTypeHTMLOptionsCollection = GType gTypeHTMLOptionsCollection'-#else-type IsHTMLOptionsCollection o = HTMLOptionsCollectionClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLParagraphElement = HTMLParagraphElement (JSRef HTMLParagraphElement)--unHTMLParagraphElement (HTMLParagraphElement o) = o--class IsHTMLElement o => IsHTMLParagraphElement o-toHTMLParagraphElement :: IsHTMLParagraphElement o => o -> HTMLParagraphElement-toHTMLParagraphElement = unsafeCastGObject . toGObject--instance IsHTMLParagraphElement HTMLParagraphElement-instance IsHTMLElement HTMLParagraphElement-instance IsElement HTMLParagraphElement-instance IsNode HTMLParagraphElement-instance GObjectClass HTMLParagraphElement where-  toGObject = GObject . castRef . unHTMLParagraphElement-  unsafeCastGObject = HTMLParagraphElement . castRef . unGObject--castToHTMLParagraphElement :: GObjectClass obj => obj -> HTMLParagraphElement-castToHTMLParagraphElement = castTo gTypeHTMLParagraphElement "HTMLParagraphElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLParagraphElement\"]" gTypeHTMLParagraphElement' :: JSRef GType-#else-gTypeHTMLParagraphElement' = error "gTypeHTMLParagraphElement': only available in JavaScript"-#endif-gTypeHTMLParagraphElement = GType gTypeHTMLParagraphElement'-#else-type IsHTMLParagraphElement o = HTMLParagraphElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLParamElement = HTMLParamElement (JSRef HTMLParamElement)--unHTMLParamElement (HTMLParamElement o) = o--class IsHTMLElement o => IsHTMLParamElement o-toHTMLParamElement :: IsHTMLParamElement o => o -> HTMLParamElement-toHTMLParamElement = unsafeCastGObject . toGObject--instance IsHTMLParamElement HTMLParamElement-instance IsHTMLElement HTMLParamElement-instance IsElement HTMLParamElement-instance IsNode HTMLParamElement-instance GObjectClass HTMLParamElement where-  toGObject = GObject . castRef . unHTMLParamElement-  unsafeCastGObject = HTMLParamElement . castRef . unGObject--castToHTMLParamElement :: GObjectClass obj => obj -> HTMLParamElement-castToHTMLParamElement = castTo gTypeHTMLParamElement "HTMLParamElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLParamElement\"]" gTypeHTMLParamElement' :: JSRef GType-#else-gTypeHTMLParamElement' = error "gTypeHTMLParamElement': only available in JavaScript"-#endif-gTypeHTMLParamElement = GType gTypeHTMLParamElement'-#else-type IsHTMLParamElement o = HTMLParamElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLPreElement = HTMLPreElement (JSRef HTMLPreElement)--unHTMLPreElement (HTMLPreElement o) = o--class IsHTMLElement o => IsHTMLPreElement o-toHTMLPreElement :: IsHTMLPreElement o => o -> HTMLPreElement-toHTMLPreElement = unsafeCastGObject . toGObject--instance IsHTMLPreElement HTMLPreElement-instance IsHTMLElement HTMLPreElement-instance IsElement HTMLPreElement-instance IsNode HTMLPreElement-instance GObjectClass HTMLPreElement where-  toGObject = GObject . castRef . unHTMLPreElement-  unsafeCastGObject = HTMLPreElement . castRef . unGObject--castToHTMLPreElement :: GObjectClass obj => obj -> HTMLPreElement-castToHTMLPreElement = castTo gTypeHTMLPreElement "HTMLPreElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLPreElement\"]" gTypeHTMLPreElement' :: JSRef GType-#else-gTypeHTMLPreElement' = error "gTypeHTMLPreElement': only available in JavaScript"-#endif-gTypeHTMLPreElement = GType gTypeHTMLPreElement'-#else-type IsHTMLPreElement o = HTMLPreElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLQuoteElement = HTMLQuoteElement (JSRef HTMLQuoteElement)--unHTMLQuoteElement (HTMLQuoteElement o) = o--class IsHTMLElement o => IsHTMLQuoteElement o-toHTMLQuoteElement :: IsHTMLQuoteElement o => o -> HTMLQuoteElement-toHTMLQuoteElement = unsafeCastGObject . toGObject--instance IsHTMLQuoteElement HTMLQuoteElement-instance IsHTMLElement HTMLQuoteElement-instance IsElement HTMLQuoteElement-instance IsNode HTMLQuoteElement-instance GObjectClass HTMLQuoteElement where-  toGObject = GObject . castRef . unHTMLQuoteElement-  unsafeCastGObject = HTMLQuoteElement . castRef . unGObject--castToHTMLQuoteElement :: GObjectClass obj => obj -> HTMLQuoteElement-castToHTMLQuoteElement = castTo gTypeHTMLQuoteElement "HTMLQuoteElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLQuoteElement\"]" gTypeHTMLQuoteElement' :: JSRef GType-#else-gTypeHTMLQuoteElement' = error "gTypeHTMLQuoteElement': only available in JavaScript"-#endif-gTypeHTMLQuoteElement = GType gTypeHTMLQuoteElement'-#else-type IsHTMLQuoteElement o = HTMLQuoteElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLScriptElement = HTMLScriptElement (JSRef HTMLScriptElement)--unHTMLScriptElement (HTMLScriptElement o) = o--class IsHTMLElement o => IsHTMLScriptElement o-toHTMLScriptElement :: IsHTMLScriptElement o => o -> HTMLScriptElement-toHTMLScriptElement = unsafeCastGObject . toGObject--instance IsHTMLScriptElement HTMLScriptElement-instance IsHTMLElement HTMLScriptElement-instance IsElement HTMLScriptElement-instance IsNode HTMLScriptElement-instance GObjectClass HTMLScriptElement where-  toGObject = GObject . castRef . unHTMLScriptElement-  unsafeCastGObject = HTMLScriptElement . castRef . unGObject--castToHTMLScriptElement :: GObjectClass obj => obj -> HTMLScriptElement-castToHTMLScriptElement = castTo gTypeHTMLScriptElement "HTMLScriptElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLScriptElement\"]" gTypeHTMLScriptElement' :: JSRef GType-#else-gTypeHTMLScriptElement' = error "gTypeHTMLScriptElement': only available in JavaScript"-#endif-gTypeHTMLScriptElement = GType gTypeHTMLScriptElement'-#else-type IsHTMLScriptElement o = HTMLScriptElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLSelectElement = HTMLSelectElement (JSRef HTMLSelectElement)--unHTMLSelectElement (HTMLSelectElement o) = o--class IsHTMLElement o => IsHTMLSelectElement o-toHTMLSelectElement :: IsHTMLSelectElement o => o -> HTMLSelectElement-toHTMLSelectElement = unsafeCastGObject . toGObject--instance IsHTMLSelectElement HTMLSelectElement-instance IsHTMLElement HTMLSelectElement-instance IsElement HTMLSelectElement-instance IsNode HTMLSelectElement-instance GObjectClass HTMLSelectElement where-  toGObject = GObject . castRef . unHTMLSelectElement-  unsafeCastGObject = HTMLSelectElement . castRef . unGObject--castToHTMLSelectElement :: GObjectClass obj => obj -> HTMLSelectElement-castToHTMLSelectElement = castTo gTypeHTMLSelectElement "HTMLSelectElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLSelectElement\"]" gTypeHTMLSelectElement' :: JSRef GType-#else-gTypeHTMLSelectElement' = error "gTypeHTMLSelectElement': only available in JavaScript"-#endif-gTypeHTMLSelectElement = GType gTypeHTMLSelectElement'-#else-type IsHTMLSelectElement o = HTMLSelectElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLStyleElement = HTMLStyleElement (JSRef HTMLStyleElement)--unHTMLStyleElement (HTMLStyleElement o) = o--class IsHTMLElement o => IsHTMLStyleElement o-toHTMLStyleElement :: IsHTMLStyleElement o => o -> HTMLStyleElement-toHTMLStyleElement = unsafeCastGObject . toGObject--instance IsHTMLStyleElement HTMLStyleElement-instance IsHTMLElement HTMLStyleElement-instance IsElement HTMLStyleElement-instance IsNode HTMLStyleElement-instance GObjectClass HTMLStyleElement where-  toGObject = GObject . castRef . unHTMLStyleElement-  unsafeCastGObject = HTMLStyleElement . castRef . unGObject--castToHTMLStyleElement :: GObjectClass obj => obj -> HTMLStyleElement-castToHTMLStyleElement = castTo gTypeHTMLStyleElement "HTMLStyleElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLStyleElement\"]" gTypeHTMLStyleElement' :: JSRef GType-#else-gTypeHTMLStyleElement' = error "gTypeHTMLStyleElement': only available in JavaScript"-#endif-gTypeHTMLStyleElement = GType gTypeHTMLStyleElement'-#else-type IsHTMLStyleElement o = HTMLStyleElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLTableCaptionElement = HTMLTableCaptionElement (JSRef HTMLTableCaptionElement)--unHTMLTableCaptionElement (HTMLTableCaptionElement o) = o--class IsHTMLElement o => IsHTMLTableCaptionElement o-toHTMLTableCaptionElement :: IsHTMLTableCaptionElement o => o -> HTMLTableCaptionElement-toHTMLTableCaptionElement = unsafeCastGObject . toGObject--instance IsHTMLTableCaptionElement HTMLTableCaptionElement-instance IsHTMLElement HTMLTableCaptionElement-instance IsElement HTMLTableCaptionElement-instance IsNode HTMLTableCaptionElement-instance GObjectClass HTMLTableCaptionElement where-  toGObject = GObject . castRef . unHTMLTableCaptionElement-  unsafeCastGObject = HTMLTableCaptionElement . castRef . unGObject--castToHTMLTableCaptionElement :: GObjectClass obj => obj -> HTMLTableCaptionElement-castToHTMLTableCaptionElement = castTo gTypeHTMLTableCaptionElement "HTMLTableCaptionElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLTableCaptionElement\"]" gTypeHTMLTableCaptionElement' :: JSRef GType-#else-gTypeHTMLTableCaptionElement' = error "gTypeHTMLTableCaptionElement': only available in JavaScript"-#endif-gTypeHTMLTableCaptionElement = GType gTypeHTMLTableCaptionElement'-#else-type IsHTMLTableCaptionElement o = HTMLTableCaptionElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLTableCellElement = HTMLTableCellElement (JSRef HTMLTableCellElement)--unHTMLTableCellElement (HTMLTableCellElement o) = o--class IsHTMLElement o => IsHTMLTableCellElement o-toHTMLTableCellElement :: IsHTMLTableCellElement o => o -> HTMLTableCellElement-toHTMLTableCellElement = unsafeCastGObject . toGObject--instance IsHTMLTableCellElement HTMLTableCellElement-instance IsHTMLElement HTMLTableCellElement-instance IsElement HTMLTableCellElement-instance IsNode HTMLTableCellElement-instance GObjectClass HTMLTableCellElement where-  toGObject = GObject . castRef . unHTMLTableCellElement-  unsafeCastGObject = HTMLTableCellElement . castRef . unGObject--castToHTMLTableCellElement :: GObjectClass obj => obj -> HTMLTableCellElement-castToHTMLTableCellElement = castTo gTypeHTMLTableCellElement "HTMLTableCellElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLTableCellElement\"]" gTypeHTMLTableCellElement' :: JSRef GType-#else-gTypeHTMLTableCellElement' = error "gTypeHTMLTableCellElement': only available in JavaScript"-#endif-gTypeHTMLTableCellElement = GType gTypeHTMLTableCellElement'-#else-type IsHTMLTableCellElement o = HTMLTableCellElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLTableColElement = HTMLTableColElement (JSRef HTMLTableColElement)--unHTMLTableColElement (HTMLTableColElement o) = o--class IsHTMLElement o => IsHTMLTableColElement o-toHTMLTableColElement :: IsHTMLTableColElement o => o -> HTMLTableColElement-toHTMLTableColElement = unsafeCastGObject . toGObject--instance IsHTMLTableColElement HTMLTableColElement-instance IsHTMLElement HTMLTableColElement-instance IsElement HTMLTableColElement-instance IsNode HTMLTableColElement-instance GObjectClass HTMLTableColElement where-  toGObject = GObject . castRef . unHTMLTableColElement-  unsafeCastGObject = HTMLTableColElement . castRef . unGObject--castToHTMLTableColElement :: GObjectClass obj => obj -> HTMLTableColElement-castToHTMLTableColElement = castTo gTypeHTMLTableColElement "HTMLTableColElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLTableColElement\"]" gTypeHTMLTableColElement' :: JSRef GType-#else-gTypeHTMLTableColElement' = error "gTypeHTMLTableColElement': only available in JavaScript"-#endif-gTypeHTMLTableColElement = GType gTypeHTMLTableColElement'-#else-type IsHTMLTableColElement o = HTMLTableColElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLTableElement = HTMLTableElement (JSRef HTMLTableElement)--unHTMLTableElement (HTMLTableElement o) = o--class IsHTMLElement o => IsHTMLTableElement o-toHTMLTableElement :: IsHTMLTableElement o => o -> HTMLTableElement-toHTMLTableElement = unsafeCastGObject . toGObject--instance IsHTMLTableElement HTMLTableElement-instance IsHTMLElement HTMLTableElement-instance IsElement HTMLTableElement-instance IsNode HTMLTableElement-instance GObjectClass HTMLTableElement where-  toGObject = GObject . castRef . unHTMLTableElement-  unsafeCastGObject = HTMLTableElement . castRef . unGObject--castToHTMLTableElement :: GObjectClass obj => obj -> HTMLTableElement-castToHTMLTableElement = castTo gTypeHTMLTableElement "HTMLTableElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLTableElement\"]" gTypeHTMLTableElement' :: JSRef GType-#else-gTypeHTMLTableElement' = error "gTypeHTMLTableElement': only available in JavaScript"-#endif-gTypeHTMLTableElement = GType gTypeHTMLTableElement'-#else-type IsHTMLTableElement o = HTMLTableElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLTableRowElement = HTMLTableRowElement (JSRef HTMLTableRowElement)--unHTMLTableRowElement (HTMLTableRowElement o) = o--class IsHTMLElement o => IsHTMLTableRowElement o-toHTMLTableRowElement :: IsHTMLTableRowElement o => o -> HTMLTableRowElement-toHTMLTableRowElement = unsafeCastGObject . toGObject--instance IsHTMLTableRowElement HTMLTableRowElement-instance IsHTMLElement HTMLTableRowElement-instance IsElement HTMLTableRowElement-instance IsNode HTMLTableRowElement-instance GObjectClass HTMLTableRowElement where-  toGObject = GObject . castRef . unHTMLTableRowElement-  unsafeCastGObject = HTMLTableRowElement . castRef . unGObject--castToHTMLTableRowElement :: GObjectClass obj => obj -> HTMLTableRowElement-castToHTMLTableRowElement = castTo gTypeHTMLTableRowElement "HTMLTableRowElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLTableRowElement\"]" gTypeHTMLTableRowElement' :: JSRef GType-#else-gTypeHTMLTableRowElement' = error "gTypeHTMLTableRowElement': only available in JavaScript"-#endif-gTypeHTMLTableRowElement = GType gTypeHTMLTableRowElement'-#else-type IsHTMLTableRowElement o = HTMLTableRowElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLTableSectionElement = HTMLTableSectionElement (JSRef HTMLTableSectionElement)--unHTMLTableSectionElement (HTMLTableSectionElement o) = o--class IsHTMLElement o => IsHTMLTableSectionElement o-toHTMLTableSectionElement :: IsHTMLTableSectionElement o => o -> HTMLTableSectionElement-toHTMLTableSectionElement = unsafeCastGObject . toGObject--instance IsHTMLTableSectionElement HTMLTableSectionElement-instance IsHTMLElement HTMLTableSectionElement-instance IsElement HTMLTableSectionElement-instance IsNode HTMLTableSectionElement-instance GObjectClass HTMLTableSectionElement where-  toGObject = GObject . castRef . unHTMLTableSectionElement-  unsafeCastGObject = HTMLTableSectionElement . castRef . unGObject--castToHTMLTableSectionElement :: GObjectClass obj => obj -> HTMLTableSectionElement-castToHTMLTableSectionElement = castTo gTypeHTMLTableSectionElement "HTMLTableSectionElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLTableSectionElement\"]" gTypeHTMLTableSectionElement' :: JSRef GType-#else-gTypeHTMLTableSectionElement' = error "gTypeHTMLTableSectionElement': only available in JavaScript"-#endif-gTypeHTMLTableSectionElement = GType gTypeHTMLTableSectionElement'-#else-type IsHTMLTableSectionElement o = HTMLTableSectionElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLTextAreaElement = HTMLTextAreaElement (JSRef HTMLTextAreaElement)--unHTMLTextAreaElement (HTMLTextAreaElement o) = o--class IsHTMLElement o => IsHTMLTextAreaElement o-toHTMLTextAreaElement :: IsHTMLTextAreaElement o => o -> HTMLTextAreaElement-toHTMLTextAreaElement = unsafeCastGObject . toGObject--instance IsHTMLTextAreaElement HTMLTextAreaElement-instance IsHTMLElement HTMLTextAreaElement-instance IsElement HTMLTextAreaElement-instance IsNode HTMLTextAreaElement-instance GObjectClass HTMLTextAreaElement where-  toGObject = GObject . castRef . unHTMLTextAreaElement-  unsafeCastGObject = HTMLTextAreaElement . castRef . unGObject--castToHTMLTextAreaElement :: GObjectClass obj => obj -> HTMLTextAreaElement-castToHTMLTextAreaElement = castTo gTypeHTMLTextAreaElement "HTMLTextAreaElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLTextAreaElement\"]" gTypeHTMLTextAreaElement' :: JSRef GType-#else-gTypeHTMLTextAreaElement' = error "gTypeHTMLTextAreaElement': only available in JavaScript"-#endif-gTypeHTMLTextAreaElement = GType gTypeHTMLTextAreaElement'-#else-type IsHTMLTextAreaElement o = HTMLTextAreaElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLTitleElement = HTMLTitleElement (JSRef HTMLTitleElement)--unHTMLTitleElement (HTMLTitleElement o) = o--class IsHTMLElement o => IsHTMLTitleElement o-toHTMLTitleElement :: IsHTMLTitleElement o => o -> HTMLTitleElement-toHTMLTitleElement = unsafeCastGObject . toGObject--instance IsHTMLTitleElement HTMLTitleElement-instance IsHTMLElement HTMLTitleElement-instance IsElement HTMLTitleElement-instance IsNode HTMLTitleElement-instance GObjectClass HTMLTitleElement where-  toGObject = GObject . castRef . unHTMLTitleElement-  unsafeCastGObject = HTMLTitleElement . castRef . unGObject--castToHTMLTitleElement :: GObjectClass obj => obj -> HTMLTitleElement-castToHTMLTitleElement = castTo gTypeHTMLTitleElement "HTMLTitleElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLTitleElement\"]" gTypeHTMLTitleElement' :: JSRef GType-#else-gTypeHTMLTitleElement' = error "gTypeHTMLTitleElement': only available in JavaScript"-#endif-gTypeHTMLTitleElement = GType gTypeHTMLTitleElement'-#else-type IsHTMLTitleElement o = HTMLTitleElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLUListElement = HTMLUListElement (JSRef HTMLUListElement)--unHTMLUListElement (HTMLUListElement o) = o--class IsHTMLElement o => IsHTMLUListElement o-toHTMLUListElement :: IsHTMLUListElement o => o -> HTMLUListElement-toHTMLUListElement = unsafeCastGObject . toGObject--instance IsHTMLUListElement HTMLUListElement-instance IsHTMLElement HTMLUListElement-instance IsElement HTMLUListElement-instance IsNode HTMLUListElement-instance GObjectClass HTMLUListElement where-  toGObject = GObject . castRef . unHTMLUListElement-  unsafeCastGObject = HTMLUListElement . castRef . unGObject--castToHTMLUListElement :: GObjectClass obj => obj -> HTMLUListElement-castToHTMLUListElement = castTo gTypeHTMLUListElement "HTMLUListElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLUListElement\"]" gTypeHTMLUListElement' :: JSRef GType-#else-gTypeHTMLUListElement' = error "gTypeHTMLUListElement': only available in JavaScript"-#endif-gTypeHTMLUListElement = GType gTypeHTMLUListElement'-#else-type IsHTMLUListElement o = HTMLUListElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype HTMLVideoElement = HTMLVideoElement (JSRef HTMLVideoElement)--unHTMLVideoElement (HTMLVideoElement o) = o--class IsHTMLMediaElement o => IsHTMLVideoElement o-toHTMLVideoElement :: IsHTMLVideoElement o => o -> HTMLVideoElement-toHTMLVideoElement = unsafeCastGObject . toGObject--instance IsHTMLVideoElement HTMLVideoElement-instance IsHTMLMediaElement HTMLVideoElement-instance IsHTMLElement HTMLVideoElement-instance IsElement HTMLVideoElement-instance IsNode HTMLVideoElement-instance GObjectClass HTMLVideoElement where-  toGObject = GObject . castRef . unHTMLVideoElement-  unsafeCastGObject = HTMLVideoElement . castRef . unGObject--castToHTMLVideoElement :: GObjectClass obj => obj -> HTMLVideoElement-castToHTMLVideoElement = castTo gTypeHTMLVideoElement "HTMLVideoElement"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"HTMLVideoElement\"]" gTypeHTMLVideoElement' :: JSRef GType-#else-gTypeHTMLVideoElement' = error "gTypeHTMLVideoElement': only available in JavaScript"-#endif-gTypeHTMLVideoElement = GType gTypeHTMLVideoElement'-#else-type IsHTMLVideoElement o = HTMLVideoElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype History = History (JSRef History)--unHistory (History o) = o--class GObjectClass o => IsHistory o-toHistory :: IsHistory o => o -> History-toHistory = unsafeCastGObject . toGObject--instance IsHistory History-instance GObjectClass History where-  toGObject = GObject . castRef . unHistory-  unsafeCastGObject = History . castRef . unGObject--castToHistory :: GObjectClass obj => obj -> History-castToHistory = castTo gTypeHistory "History"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"History\"]" gTypeHistory' :: JSRef GType-#else-gTypeHistory' = error "gTypeHistory': only available in JavaScript"-#endif-gTypeHistory = GType gTypeHistory'-#else-type IsHistory o = HistoryClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype KeyboardEvent = KeyboardEvent (JSRef KeyboardEvent)--unKeyboardEvent (KeyboardEvent o) = o--class IsUIEvent o => IsKeyboardEvent o-toKeyboardEvent :: IsKeyboardEvent o => o -> KeyboardEvent-toKeyboardEvent = unsafeCastGObject . toGObject--instance IsKeyboardEvent KeyboardEvent-instance IsUIEvent KeyboardEvent-instance IsEvent KeyboardEvent-instance GObjectClass KeyboardEvent where-  toGObject = GObject . castRef . unKeyboardEvent-  unsafeCastGObject = KeyboardEvent . castRef . unGObject--castToKeyboardEvent :: GObjectClass obj => obj -> KeyboardEvent-castToKeyboardEvent = castTo gTypeKeyboardEvent "KeyboardEvent"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"KeyboardEvent\"]" gTypeKeyboardEvent' :: JSRef GType-#else-gTypeKeyboardEvent' = error "gTypeKeyboardEvent': only available in JavaScript"-#endif-gTypeKeyboardEvent = GType gTypeKeyboardEvent'-#else-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Location = Location (JSRef Location)--unLocation (Location o) = o--class GObjectClass o => IsLocation o-toLocation :: IsLocation o => o -> Location-toLocation = unsafeCastGObject . toGObject--instance IsLocation Location-instance GObjectClass Location where-  toGObject = GObject . castRef . unLocation-  unsafeCastGObject = Location . castRef . unGObject--castToLocation :: GObjectClass obj => obj -> Location-castToLocation = castTo gTypeLocation "Location"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"Location\"]" gTypeLocation' :: JSRef GType-#else-gTypeLocation' = error "gTypeLocation': only available in JavaScript"-#endif-gTypeLocation = GType gTypeLocation'-#else-type IsLocation o = LocationClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype MediaError = MediaError (JSRef MediaError)--unMediaError (MediaError o) = o--class GObjectClass o => IsMediaError o-toMediaError :: IsMediaError o => o -> MediaError-toMediaError = unsafeCastGObject . toGObject--instance IsMediaError MediaError-instance GObjectClass MediaError where-  toGObject = GObject . castRef . unMediaError-  unsafeCastGObject = MediaError . castRef . unGObject--castToMediaError :: GObjectClass obj => obj -> MediaError-castToMediaError = castTo gTypeMediaError "MediaError"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"MediaError\"]" gTypeMediaError' :: JSRef GType-#else-gTypeMediaError' = error "gTypeMediaError': only available in JavaScript"-#endif-gTypeMediaError = GType gTypeMediaError'-#else-type IsMediaError o = MediaErrorClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype MediaList = MediaList (JSRef MediaList)--unMediaList (MediaList o) = o--class GObjectClass o => IsMediaList o-toMediaList :: IsMediaList o => o -> MediaList-toMediaList = unsafeCastGObject . toGObject--instance IsMediaList MediaList-instance GObjectClass MediaList where-  toGObject = GObject . castRef . unMediaList-  unsafeCastGObject = MediaList . castRef . unGObject--castToMediaList :: GObjectClass obj => obj -> MediaList-castToMediaList = castTo gTypeMediaList "MediaList"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"MediaList\"]" gTypeMediaList' :: JSRef GType-#else-gTypeMediaList' = error "gTypeMediaList': only available in JavaScript"-#endif-gTypeMediaList = GType gTypeMediaList'-#else-type IsMediaList o = MediaListClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype MediaQueryList = MediaQueryList (JSRef MediaQueryList)--unMediaQueryList (MediaQueryList o) = o--class GObjectClass o => IsMediaQueryList o-toMediaQueryList :: IsMediaQueryList o => o -> MediaQueryList-toMediaQueryList = unsafeCastGObject . toGObject--instance IsMediaQueryList MediaQueryList-instance GObjectClass MediaQueryList where-  toGObject = GObject . castRef . unMediaQueryList-  unsafeCastGObject = MediaQueryList . castRef . unGObject--castToMediaQueryList :: GObjectClass obj => obj -> MediaQueryList-castToMediaQueryList = castTo gTypeMediaQueryList "MediaQueryList"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"MediaQueryList\"]" gTypeMediaQueryList' :: JSRef GType-#else-gTypeMediaQueryList' = error "gTypeMediaQueryList': only available in JavaScript"-#endif-gTypeMediaQueryList = GType gTypeMediaQueryList'-#else-type IsMediaQueryList o = MediaQueryListClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype MessagePort = MessagePort (JSRef MessagePort)--unMessagePort (MessagePort o) = o--class GObjectClass o => IsMessagePort o-toMessagePort :: IsMessagePort o => o -> MessagePort-toMessagePort = unsafeCastGObject . toGObject--instance IsMessagePort MessagePort-instance GObjectClass MessagePort where-  toGObject = GObject . castRef . unMessagePort-  unsafeCastGObject = MessagePort . castRef . unGObject--castToMessagePort :: GObjectClass obj => obj -> MessagePort-castToMessagePort = castTo gTypeMessagePort "MessagePort"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"MessagePort\"]" gTypeMessagePort' :: JSRef GType-#else-gTypeMessagePort' = error "gTypeMessagePort': only available in JavaScript"-#endif-gTypeMessagePort = GType gTypeMessagePort'-#else-type IsMessagePort o = MessagePortClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype MouseEvent = MouseEvent (JSRef MouseEvent)--unMouseEvent (MouseEvent o) = o--class IsUIEvent o => IsMouseEvent o-toMouseEvent :: IsMouseEvent o => o -> MouseEvent-toMouseEvent = unsafeCastGObject . toGObject--instance IsMouseEvent MouseEvent-instance IsUIEvent MouseEvent-instance IsEvent MouseEvent-instance GObjectClass MouseEvent where-  toGObject = GObject . castRef . unMouseEvent-  unsafeCastGObject = MouseEvent . castRef . unGObject--castToMouseEvent :: GObjectClass obj => obj -> MouseEvent-castToMouseEvent = castTo gTypeMouseEvent "MouseEvent"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"MouseEvent\"]" gTypeMouseEvent' :: JSRef GType-#else-gTypeMouseEvent' = error "gTypeMouseEvent': only available in JavaScript"-#endif-gTypeMouseEvent = GType gTypeMouseEvent'-#else-type IsMouseEvent o = MouseEventClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype NamedNodeMap = NamedNodeMap (JSRef NamedNodeMap)--unNamedNodeMap (NamedNodeMap o) = o--class GObjectClass o => IsNamedNodeMap o-toNamedNodeMap :: IsNamedNodeMap o => o -> NamedNodeMap-toNamedNodeMap = unsafeCastGObject . toGObject--instance IsNamedNodeMap NamedNodeMap-instance GObjectClass NamedNodeMap where-  toGObject = GObject . castRef . unNamedNodeMap-  unsafeCastGObject = NamedNodeMap . castRef . unGObject--castToNamedNodeMap :: GObjectClass obj => obj -> NamedNodeMap-castToNamedNodeMap = castTo gTypeNamedNodeMap "NamedNodeMap"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"NamedNodeMap\"]" gTypeNamedNodeMap' :: JSRef GType-#else-gTypeNamedNodeMap' = error "gTypeNamedNodeMap': only available in JavaScript"-#endif-gTypeNamedNodeMap = GType gTypeNamedNodeMap'-#else-type IsNamedNodeMap o = NamedNodeMapClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Navigator = Navigator (JSRef Navigator)--unNavigator (Navigator o) = o--class GObjectClass o => IsNavigator o-toNavigator :: IsNavigator o => o -> Navigator-toNavigator = unsafeCastGObject . toGObject--instance IsNavigator Navigator-instance GObjectClass Navigator where-  toGObject = GObject . castRef . unNavigator-  unsafeCastGObject = Navigator . castRef . unGObject--castToNavigator :: GObjectClass obj => obj -> Navigator-castToNavigator = castTo gTypeNavigator "Navigator"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"Navigator\"]" gTypeNavigator' :: JSRef GType-#else-gTypeNavigator' = error "gTypeNavigator': only available in JavaScript"-#endif-gTypeNavigator = GType gTypeNavigator'-#else-type IsNavigator o = NavigatorClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Node = Node (JSRef Node)--unNode (Node o) = o--class GObjectClass o => IsNode o-toNode :: IsNode o => o -> Node-toNode = unsafeCastGObject . toGObject--instance IsNode Node-instance GObjectClass Node where-  toGObject = GObject . castRef . unNode-  unsafeCastGObject = Node . castRef . unGObject--castToNode :: GObjectClass obj => obj -> Node-castToNode = castTo gTypeNode "Node"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"Node\"]" gTypeNode' :: JSRef GType-#else-gTypeNode' = error "gTypeNode': only available in JavaScript"-#endif-gTypeNode = GType gTypeNode'-#else-type IsNode o = NodeClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype NodeFilter = NodeFilter (JSRef NodeFilter)--unNodeFilter (NodeFilter o) = o--class GObjectClass o => IsNodeFilter o-toNodeFilter :: IsNodeFilter o => o -> NodeFilter-toNodeFilter = unsafeCastGObject . toGObject--instance IsNodeFilter NodeFilter-instance GObjectClass NodeFilter where-  toGObject = GObject . castRef . unNodeFilter-  unsafeCastGObject = NodeFilter . castRef . unGObject--castToNodeFilter :: GObjectClass obj => obj -> NodeFilter-castToNodeFilter = castTo gTypeNodeFilter "NodeFilter"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"NodeFilter\"]" gTypeNodeFilter' :: JSRef GType-#else-gTypeNodeFilter' = error "gTypeNodeFilter': only available in JavaScript"-#endif-gTypeNodeFilter = GType gTypeNodeFilter'-#else-type IsNodeFilter o = NodeFilterClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype NodeIterator = NodeIterator (JSRef NodeIterator)--unNodeIterator (NodeIterator o) = o--class GObjectClass o => IsNodeIterator o-toNodeIterator :: IsNodeIterator o => o -> NodeIterator-toNodeIterator = unsafeCastGObject . toGObject--instance IsNodeIterator NodeIterator-instance GObjectClass NodeIterator where-  toGObject = GObject . castRef . unNodeIterator-  unsafeCastGObject = NodeIterator . castRef . unGObject--castToNodeIterator :: GObjectClass obj => obj -> NodeIterator-castToNodeIterator = castTo gTypeNodeIterator "NodeIterator"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"NodeIterator\"]" gTypeNodeIterator' :: JSRef GType-#else-gTypeNodeIterator' = error "gTypeNodeIterator': only available in JavaScript"-#endif-gTypeNodeIterator = GType gTypeNodeIterator'-#else-type IsNodeIterator o = NodeIteratorClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype NodeList = NodeList (JSRef NodeList)--unNodeList (NodeList o) = o--class GObjectClass o => IsNodeList o-toNodeList :: IsNodeList o => o -> NodeList-toNodeList = unsafeCastGObject . toGObject--instance IsNodeList NodeList-instance GObjectClass NodeList where-  toGObject = GObject . castRef . unNodeList-  unsafeCastGObject = NodeList . castRef . unGObject--castToNodeList :: GObjectClass obj => obj -> NodeList-castToNodeList = castTo gTypeNodeList "NodeList"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"NodeList\"]" gTypeNodeList' :: JSRef GType-#else-gTypeNodeList' = error "gTypeNodeList': only available in JavaScript"-#endif-gTypeNodeList = GType gTypeNodeList'-#else-type IsNodeList o = NodeListClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype ProcessingInstruction = ProcessingInstruction (JSRef ProcessingInstruction)--unProcessingInstruction (ProcessingInstruction o) = o--class IsNode o => IsProcessingInstruction o-toProcessingInstruction :: IsProcessingInstruction o => o -> ProcessingInstruction-toProcessingInstruction = unsafeCastGObject . toGObject--instance IsProcessingInstruction ProcessingInstruction-instance IsNode ProcessingInstruction-instance GObjectClass ProcessingInstruction where-  toGObject = GObject . castRef . unProcessingInstruction-  unsafeCastGObject = ProcessingInstruction . castRef . unGObject--castToProcessingInstruction :: GObjectClass obj => obj -> ProcessingInstruction-castToProcessingInstruction = castTo gTypeProcessingInstruction "ProcessingInstruction"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"ProcessingInstruction\"]" gTypeProcessingInstruction' :: JSRef GType-#else-gTypeProcessingInstruction' = error "gTypeProcessingInstruction': only available in JavaScript"-#endif-gTypeProcessingInstruction = GType gTypeProcessingInstruction'-#else-type IsProcessingInstruction o = ProcessingInstructionClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype DOMRange = DOMRange (JSRef DOMRange)--unDOMRange (DOMRange o) = o--class GObjectClass o => IsDOMRange o-toDOMRange :: IsDOMRange o => o -> DOMRange-toDOMRange = unsafeCastGObject . toGObject--instance IsDOMRange DOMRange-instance GObjectClass DOMRange where-  toGObject = GObject . castRef . unDOMRange-  unsafeCastGObject = DOMRange . castRef . unGObject--castToDOMRange :: GObjectClass obj => obj -> DOMRange-castToDOMRange = castTo gTypeDOMRange "DOMRange"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"DOMRange\"]" gTypeDOMRange' :: JSRef GType-#else-gTypeDOMRange' = error "gTypeDOMRange': only available in JavaScript"-#endif-gTypeDOMRange = GType gTypeDOMRange'-#else-type IsDOMRange o = DOMRangeClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype DOMScreen = DOMScreen (JSRef DOMScreen)--unDOMScreen (DOMScreen o) = o--class GObjectClass o => IsDOMScreen o-toDOMScreen :: IsDOMScreen o => o -> DOMScreen-toDOMScreen = unsafeCastGObject . toGObject--instance IsDOMScreen DOMScreen-instance GObjectClass DOMScreen where-  toGObject = GObject . castRef . unDOMScreen-  unsafeCastGObject = DOMScreen . castRef . unGObject--castToDOMScreen :: GObjectClass obj => obj -> DOMScreen-castToDOMScreen = castTo gTypeDOMScreen "DOMScreen"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"DOMScreen\"]" gTypeDOMScreen' :: JSRef GType-#else-gTypeDOMScreen' = error "gTypeDOMScreen': only available in JavaScript"-#endif-gTypeDOMScreen = GType gTypeDOMScreen'-#else-type IsDOMScreen o = DOMScreenClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Storage = Storage (JSRef Storage)--unStorage (Storage o) = o--class GObjectClass o => IsStorage o-toStorage :: IsStorage o => o -> Storage-toStorage = unsafeCastGObject . toGObject--instance IsStorage Storage-instance GObjectClass Storage where-  toGObject = GObject . castRef . unStorage-  unsafeCastGObject = Storage . castRef . unGObject--castToStorage :: GObjectClass obj => obj -> Storage-castToStorage = castTo gTypeStorage "Storage"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"Storage\"]" gTypeStorage' :: JSRef GType-#else-gTypeStorage' = error "gTypeStorage': only available in JavaScript"-#endif-gTypeStorage = GType gTypeStorage'-#else-type IsStorage o = StorageClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype StorageInfo = StorageInfo (JSRef StorageInfo)--unStorageInfo (StorageInfo o) = o--class GObjectClass o => IsStorageInfo o-toStorageInfo :: IsStorageInfo o => o -> StorageInfo-toStorageInfo = unsafeCastGObject . toGObject--instance IsStorageInfo StorageInfo-instance GObjectClass StorageInfo where-  toGObject = GObject . castRef . unStorageInfo-  unsafeCastGObject = StorageInfo . castRef . unGObject--castToStorageInfo :: GObjectClass obj => obj -> StorageInfo-castToStorageInfo = castTo gTypeStorageInfo "StorageInfo"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"StorageInfo\"]" gTypeStorageInfo' :: JSRef GType-#else-gTypeStorageInfo' = error "gTypeStorageInfo': only available in JavaScript"-#endif-gTypeStorageInfo = GType gTypeStorageInfo'-#else-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype StyleMedia = StyleMedia (JSRef StyleMedia)--unStyleMedia (StyleMedia o) = o--class GObjectClass o => IsStyleMedia o-toStyleMedia :: IsStyleMedia o => o -> StyleMedia-toStyleMedia = unsafeCastGObject . toGObject--instance IsStyleMedia StyleMedia-instance GObjectClass StyleMedia where-  toGObject = GObject . castRef . unStyleMedia-  unsafeCastGObject = StyleMedia . castRef . unGObject--castToStyleMedia :: GObjectClass obj => obj -> StyleMedia-castToStyleMedia = castTo gTypeStyleMedia "StyleMedia"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"StyleMedia\"]" gTypeStyleMedia' :: JSRef GType-#else-gTypeStyleMedia' = error "gTypeStyleMedia': only available in JavaScript"-#endif-gTypeStyleMedia = GType gTypeStyleMedia'-#else-type IsStyleMedia o = StyleMediaClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype StyleSheet = StyleSheet (JSRef StyleSheet)--unStyleSheet (StyleSheet o) = o--class GObjectClass o => IsStyleSheet o-toStyleSheet :: IsStyleSheet o => o -> StyleSheet-toStyleSheet = unsafeCastGObject . toGObject--instance IsStyleSheet StyleSheet-instance GObjectClass StyleSheet where-  toGObject = GObject . castRef . unStyleSheet-  unsafeCastGObject = StyleSheet . castRef . unGObject--castToStyleSheet :: GObjectClass obj => obj -> StyleSheet-castToStyleSheet = castTo gTypeStyleSheet "StyleSheet"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"StyleSheet\"]" gTypeStyleSheet' :: JSRef GType-#else-gTypeStyleSheet' = error "gTypeStyleSheet': only available in JavaScript"-#endif-gTypeStyleSheet = GType gTypeStyleSheet'-#else-type IsStyleSheet o = StyleSheetClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype StyleSheetList = StyleSheetList (JSRef StyleSheetList)--unStyleSheetList (StyleSheetList o) = o--class GObjectClass o => IsStyleSheetList o-toStyleSheetList :: IsStyleSheetList o => o -> StyleSheetList-toStyleSheetList = unsafeCastGObject . toGObject--instance IsStyleSheetList StyleSheetList-instance GObjectClass StyleSheetList where-  toGObject = GObject . castRef . unStyleSheetList-  unsafeCastGObject = StyleSheetList . castRef . unGObject--castToStyleSheetList :: GObjectClass obj => obj -> StyleSheetList-castToStyleSheetList = castTo gTypeStyleSheetList "StyleSheetList"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"StyleSheetList\"]" gTypeStyleSheetList' :: JSRef GType-#else-gTypeStyleSheetList' = error "gTypeStyleSheetList': only available in JavaScript"-#endif-gTypeStyleSheetList = GType gTypeStyleSheetList'-#else-type IsStyleSheetList o = StyleSheetListClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Text = Text (JSRef Text)--unText (Text o) = o--class IsCharacterData o => IsText o-toText :: IsText o => o -> Text-toText = unsafeCastGObject . toGObject--instance IsText Text-instance IsCharacterData Text-instance IsNode Text-instance GObjectClass Text where-  toGObject = GObject . castRef . unText-  unsafeCastGObject = Text . castRef . unGObject--castToText :: GObjectClass obj => obj -> Text-castToText = castTo gTypeText "Text"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"Text\"]" gTypeText' :: JSRef GType-#else-gTypeText' = error "gTypeText': only available in JavaScript"-#endif-gTypeText = GType gTypeText'-#else-type IsText o = TextClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype TimeRanges = TimeRanges (JSRef TimeRanges)--unTimeRanges (TimeRanges o) = o--class GObjectClass o => IsTimeRanges o-toTimeRanges :: IsTimeRanges o => o -> TimeRanges-toTimeRanges = unsafeCastGObject . toGObject--instance IsTimeRanges TimeRanges-instance GObjectClass TimeRanges where-  toGObject = GObject . castRef . unTimeRanges-  unsafeCastGObject = TimeRanges . castRef . unGObject--castToTimeRanges :: GObjectClass obj => obj -> TimeRanges-castToTimeRanges = castTo gTypeTimeRanges "TimeRanges"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"TimeRanges\"]" gTypeTimeRanges' :: JSRef GType-#else-gTypeTimeRanges' = error "gTypeTimeRanges': only available in JavaScript"-#endif-gTypeTimeRanges = GType gTypeTimeRanges'-#else-type IsTimeRanges o = TimeRangesClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype TreeWalker = TreeWalker (JSRef TreeWalker)--unTreeWalker (TreeWalker o) = o--class GObjectClass o => IsTreeWalker o-toTreeWalker :: IsTreeWalker o => o -> TreeWalker-toTreeWalker = unsafeCastGObject . toGObject--instance IsTreeWalker TreeWalker-instance GObjectClass TreeWalker where-  toGObject = GObject . castRef . unTreeWalker-  unsafeCastGObject = TreeWalker . castRef . unGObject--castToTreeWalker :: GObjectClass obj => obj -> TreeWalker-castToTreeWalker = castTo gTypeTreeWalker "TreeWalker"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"TreeWalker\"]" gTypeTreeWalker' :: JSRef GType-#else-gTypeTreeWalker' = error "gTypeTreeWalker': only available in JavaScript"-#endif-gTypeTreeWalker = GType gTypeTreeWalker'-#else-type IsTreeWalker o = TreeWalkerClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype UIEvent = UIEvent (JSRef UIEvent)--unUIEvent (UIEvent o) = o--class IsEvent o => IsUIEvent o-toUIEvent :: IsUIEvent o => o -> UIEvent-toUIEvent = unsafeCastGObject . toGObject--instance IsUIEvent UIEvent-instance IsEvent UIEvent-instance GObjectClass UIEvent where-  toGObject = GObject . castRef . unUIEvent-  unsafeCastGObject = UIEvent . castRef . unGObject--castToUIEvent :: GObjectClass obj => obj -> UIEvent-castToUIEvent = castTo gTypeUIEvent "UIEvent"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"UIEvent\"]" gTypeUIEvent' :: JSRef GType-#else-gTypeUIEvent' = error "gTypeUIEvent': only available in JavaScript"-#endif-gTypeUIEvent = GType gTypeUIEvent'-#else-type IsUIEvent o = UIEventClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype ValidityState = ValidityState (JSRef ValidityState)--unValidityState (ValidityState o) = o--class GObjectClass o => IsValidityState o-toValidityState :: IsValidityState o => o -> ValidityState-toValidityState = unsafeCastGObject . toGObject--instance IsValidityState ValidityState-instance GObjectClass ValidityState where-  toGObject = GObject . castRef . unValidityState-  unsafeCastGObject = ValidityState . castRef . unGObject--castToValidityState :: GObjectClass obj => obj -> ValidityState-castToValidityState = castTo gTypeValidityState "ValidityState"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"ValidityState\"]" gTypeValidityState' :: JSRef GType-#else-gTypeValidityState' = error "gTypeValidityState': only available in JavaScript"-#endif-gTypeValidityState = GType gTypeValidityState'-#else-type IsValidityState o = ValidityStateClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype WebKitNamedFlow = WebKitNamedFlow (JSRef WebKitNamedFlow)--unWebKitNamedFlow (WebKitNamedFlow o) = o--class GObjectClass o => IsWebKitNamedFlow o-toWebKitNamedFlow :: IsWebKitNamedFlow o => o -> WebKitNamedFlow-toWebKitNamedFlow = unsafeCastGObject . toGObject--instance IsWebKitNamedFlow WebKitNamedFlow-instance GObjectClass WebKitNamedFlow where-  toGObject = GObject . castRef . unWebKitNamedFlow-  unsafeCastGObject = WebKitNamedFlow . castRef . unGObject--castToWebKitNamedFlow :: GObjectClass obj => obj -> WebKitNamedFlow-castToWebKitNamedFlow = castTo gTypeWebKitNamedFlow "WebKitNamedFlow"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"WebKitNamedFlow\"]" gTypeWebKitNamedFlow' :: JSRef GType-#else-gTypeWebKitNamedFlow' = error "gTypeWebKitNamedFlow': only available in JavaScript"-#endif-gTypeWebKitNamedFlow = GType gTypeWebKitNamedFlow'-#else-type IsWebKitNamedFlow o = WebKitNamedFlowClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype WebKitPoint = WebKitPoint (JSRef WebKitPoint)--unWebKitPoint (WebKitPoint o) = o--class GObjectClass o => IsWebKitPoint o-toWebKitPoint :: IsWebKitPoint o => o -> WebKitPoint-toWebKitPoint = unsafeCastGObject . toGObject--instance IsWebKitPoint WebKitPoint-instance GObjectClass WebKitPoint where-  toGObject = GObject . castRef . unWebKitPoint-  unsafeCastGObject = WebKitPoint . castRef . unGObject--castToWebKitPoint :: GObjectClass obj => obj -> WebKitPoint-castToWebKitPoint = castTo gTypeWebKitPoint "WebKitPoint"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"WebKitPoint\"]" gTypeWebKitPoint' :: JSRef GType-#else-gTypeWebKitPoint' = error "gTypeWebKitPoint': only available in JavaScript"-#endif-gTypeWebKitPoint = GType gTypeWebKitPoint'-#else-type IsWebKitPoint o = WebKitPointClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype XPathExpression = XPathExpression (JSRef XPathExpression)--unXPathExpression (XPathExpression o) = o--class GObjectClass o => IsXPathExpression o-toXPathExpression :: IsXPathExpression o => o -> XPathExpression-toXPathExpression = unsafeCastGObject . toGObject--instance IsXPathExpression XPathExpression-instance GObjectClass XPathExpression where-  toGObject = GObject . castRef . unXPathExpression-  unsafeCastGObject = XPathExpression . castRef . unGObject--castToXPathExpression :: GObjectClass obj => obj -> XPathExpression-castToXPathExpression = castTo gTypeXPathExpression "XPathExpression"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"XPathExpression\"]" gTypeXPathExpression' :: JSRef GType-#else-gTypeXPathExpression' = error "gTypeXPathExpression': only available in JavaScript"-#endif-gTypeXPathExpression = GType gTypeXPathExpression'-#else-type IsXPathExpression o = XPathExpressionClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype XPathNSResolver = XPathNSResolver (JSRef XPathNSResolver)--unXPathNSResolver (XPathNSResolver o) = o--class GObjectClass o => IsXPathNSResolver o-toXPathNSResolver :: IsXPathNSResolver o => o -> XPathNSResolver-toXPathNSResolver = unsafeCastGObject . toGObject--instance IsXPathNSResolver XPathNSResolver-instance GObjectClass XPathNSResolver where-  toGObject = GObject . castRef . unXPathNSResolver-  unsafeCastGObject = XPathNSResolver . castRef . unGObject--castToXPathNSResolver :: GObjectClass obj => obj -> XPathNSResolver-castToXPathNSResolver = castTo gTypeXPathNSResolver "XPathNSResolver"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"XPathNSResolver\"]" gTypeXPathNSResolver' :: JSRef GType-#else-gTypeXPathNSResolver' = error "gTypeXPathNSResolver': only available in JavaScript"-#endif-gTypeXPathNSResolver = GType gTypeXPathNSResolver'-#else-type IsXPathNSResolver o = XPathNSResolverClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype XPathResult = XPathResult (JSRef XPathResult)--unXPathResult (XPathResult o) = o--class GObjectClass o => IsXPathResult o-toXPathResult :: IsXPathResult o => o -> XPathResult-toXPathResult = unsafeCastGObject . toGObject--instance IsXPathResult XPathResult-instance GObjectClass XPathResult where-  toGObject = GObject . castRef . unXPathResult-  unsafeCastGObject = XPathResult . castRef . unGObject--castToXPathResult :: GObjectClass obj => obj -> XPathResult-castToXPathResult = castTo gTypeXPathResult "XPathResult"--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "window[\"XPathResult\"]" gTypeXPathResult' :: JSRef GType-#else-gTypeXPathResult' = error "gTypeXPathResult': only available in JavaScript"-#endif+  , DOMApplicationCache(DOMApplicationCache), unDOMApplicationCache, IsDOMApplicationCache, toDOMApplicationCache, castToDOMApplicationCache, gTypeDOMApplicationCache+  , DOMImplementation(DOMImplementation), unDOMImplementation, IsDOMImplementation, toDOMImplementation, castToDOMImplementation, gTypeDOMImplementation+  , DOMMimeType(DOMMimeType), unDOMMimeType, IsDOMMimeType, toDOMMimeType, castToDOMMimeType, gTypeDOMMimeType+  , DOMMimeTypeArray(DOMMimeTypeArray), unDOMMimeTypeArray, IsDOMMimeTypeArray, toDOMMimeTypeArray, castToDOMMimeTypeArray, gTypeDOMMimeTypeArray+  , DOMNamedFlowCollection(DOMNamedFlowCollection), unDOMNamedFlowCollection, IsDOMNamedFlowCollection, toDOMNamedFlowCollection, castToDOMNamedFlowCollection, gTypeDOMNamedFlowCollection+  , DOMPlugin(DOMPlugin), unDOMPlugin, IsDOMPlugin, toDOMPlugin, castToDOMPlugin, gTypeDOMPlugin+  , DOMPluginArray(DOMPluginArray), unDOMPluginArray, IsDOMPluginArray, toDOMPluginArray, castToDOMPluginArray, gTypeDOMPluginArray+  , DOMSecurityPolicy(DOMSecurityPolicy), unDOMSecurityPolicy, IsDOMSecurityPolicy, toDOMSecurityPolicy, castToDOMSecurityPolicy, gTypeDOMSecurityPolicy+  , DOMSelection(DOMSelection), unDOMSelection, IsDOMSelection, toDOMSelection, castToDOMSelection, gTypeDOMSelection+  , DOMSettableTokenList(DOMSettableTokenList), unDOMSettableTokenList, IsDOMSettableTokenList, toDOMSettableTokenList, castToDOMSettableTokenList, gTypeDOMSettableTokenList+  , DOMStringList(DOMStringList), unDOMStringList, IsDOMStringList, toDOMStringList, castToDOMStringList, gTypeDOMStringList+  , DOMTokenList(DOMTokenList), unDOMTokenList, IsDOMTokenList, toDOMTokenList, castToDOMTokenList, gTypeDOMTokenList+  , DOMWindow(DOMWindow), unDOMWindow, IsDOMWindow, toDOMWindow, castToDOMWindow, gTypeDOMWindow+  , DOMWindowCSS(DOMWindowCSS), unDOMWindowCSS, IsDOMWindowCSS, toDOMWindowCSS, castToDOMWindowCSS, gTypeDOMWindowCSS+  , Document(Document), unDocument, IsDocument, toDocument, castToDocument, gTypeDocument+  , DocumentFragment(DocumentFragment), unDocumentFragment, IsDocumentFragment, toDocumentFragment, castToDocumentFragment, gTypeDocumentFragment+  , DocumentType(DocumentType), unDocumentType, IsDocumentType, toDocumentType, castToDocumentType, gTypeDocumentType+  , Element(Element), unElement, IsElement, toElement, castToElement, gTypeElement+  , EntityReference(EntityReference), unEntityReference, IsEntityReference, toEntityReference, castToEntityReference, gTypeEntityReference+  , Event(Event), unEvent, IsEvent, toEvent, castToEvent, gTypeEvent+  , EventTarget(EventTarget), unEventTarget, IsEventTarget, toEventTarget, castToEventTarget, gTypeEventTarget+  , File(File), unFile, IsFile, toFile, castToFile, gTypeFile+  , FileList(FileList), unFileList, IsFileList, toFileList, castToFileList, gTypeFileList+  , Geolocation(Geolocation), unGeolocation, IsGeolocation, toGeolocation, castToGeolocation, gTypeGeolocation+  , HTMLAnchorElement(HTMLAnchorElement), unHTMLAnchorElement, IsHTMLAnchorElement, toHTMLAnchorElement, castToHTMLAnchorElement, gTypeHTMLAnchorElement+  , HTMLAppletElement(HTMLAppletElement), unHTMLAppletElement, IsHTMLAppletElement, toHTMLAppletElement, castToHTMLAppletElement, gTypeHTMLAppletElement+  , HTMLAreaElement(HTMLAreaElement), unHTMLAreaElement, IsHTMLAreaElement, toHTMLAreaElement, castToHTMLAreaElement, gTypeHTMLAreaElement+  , HTMLAudioElement(HTMLAudioElement), unHTMLAudioElement, IsHTMLAudioElement, toHTMLAudioElement, castToHTMLAudioElement, gTypeHTMLAudioElement+  , HTMLBRElement(HTMLBRElement), unHTMLBRElement, IsHTMLBRElement, toHTMLBRElement, castToHTMLBRElement, gTypeHTMLBRElement+  , HTMLBaseElement(HTMLBaseElement), unHTMLBaseElement, IsHTMLBaseElement, toHTMLBaseElement, castToHTMLBaseElement, gTypeHTMLBaseElement+  , HTMLBaseFontElement(HTMLBaseFontElement), unHTMLBaseFontElement, IsHTMLBaseFontElement, toHTMLBaseFontElement, castToHTMLBaseFontElement, gTypeHTMLBaseFontElement+  , HTMLBodyElement(HTMLBodyElement), unHTMLBodyElement, IsHTMLBodyElement, toHTMLBodyElement, castToHTMLBodyElement, gTypeHTMLBodyElement+  , HTMLButtonElement(HTMLButtonElement), unHTMLButtonElement, IsHTMLButtonElement, toHTMLButtonElement, castToHTMLButtonElement, gTypeHTMLButtonElement+  , HTMLCanvasElement(HTMLCanvasElement), unHTMLCanvasElement, IsHTMLCanvasElement, toHTMLCanvasElement, castToHTMLCanvasElement, gTypeHTMLCanvasElement+  , HTMLCollection(HTMLCollection), unHTMLCollection, IsHTMLCollection, toHTMLCollection, castToHTMLCollection, gTypeHTMLCollection+  , HTMLDListElement(HTMLDListElement), unHTMLDListElement, IsHTMLDListElement, toHTMLDListElement, castToHTMLDListElement, gTypeHTMLDListElement+  , HTMLDetailsElement(HTMLDetailsElement), unHTMLDetailsElement, IsHTMLDetailsElement, toHTMLDetailsElement, castToHTMLDetailsElement, gTypeHTMLDetailsElement+  , HTMLDirectoryElement(HTMLDirectoryElement), unHTMLDirectoryElement, IsHTMLDirectoryElement, toHTMLDirectoryElement, castToHTMLDirectoryElement, gTypeHTMLDirectoryElement+  , HTMLDivElement(HTMLDivElement), unHTMLDivElement, IsHTMLDivElement, toHTMLDivElement, castToHTMLDivElement, gTypeHTMLDivElement+  , HTMLDocument(HTMLDocument), unHTMLDocument, IsHTMLDocument, toHTMLDocument, castToHTMLDocument, gTypeHTMLDocument+  , HTMLElement(HTMLElement), unHTMLElement, IsHTMLElement, toHTMLElement, castToHTMLElement, gTypeHTMLElement+  , HTMLEmbedElement(HTMLEmbedElement), unHTMLEmbedElement, IsHTMLEmbedElement, toHTMLEmbedElement, castToHTMLEmbedElement, gTypeHTMLEmbedElement+  , HTMLFieldSetElement(HTMLFieldSetElement), unHTMLFieldSetElement, IsHTMLFieldSetElement, toHTMLFieldSetElement, castToHTMLFieldSetElement, gTypeHTMLFieldSetElement+  , HTMLFontElement(HTMLFontElement), unHTMLFontElement, IsHTMLFontElement, toHTMLFontElement, castToHTMLFontElement, gTypeHTMLFontElement+  , HTMLFormElement(HTMLFormElement), unHTMLFormElement, IsHTMLFormElement, toHTMLFormElement, castToHTMLFormElement, gTypeHTMLFormElement+  , HTMLFrameElement(HTMLFrameElement), unHTMLFrameElement, IsHTMLFrameElement, toHTMLFrameElement, castToHTMLFrameElement, gTypeHTMLFrameElement+  , HTMLFrameSetElement(HTMLFrameSetElement), unHTMLFrameSetElement, IsHTMLFrameSetElement, toHTMLFrameSetElement, castToHTMLFrameSetElement, gTypeHTMLFrameSetElement+  , HTMLHRElement(HTMLHRElement), unHTMLHRElement, IsHTMLHRElement, toHTMLHRElement, castToHTMLHRElement, gTypeHTMLHRElement+  , HTMLHeadElement(HTMLHeadElement), unHTMLHeadElement, IsHTMLHeadElement, toHTMLHeadElement, castToHTMLHeadElement, gTypeHTMLHeadElement+  , HTMLHeadingElement(HTMLHeadingElement), unHTMLHeadingElement, IsHTMLHeadingElement, toHTMLHeadingElement, castToHTMLHeadingElement, gTypeHTMLHeadingElement+  , HTMLHtmlElement(HTMLHtmlElement), unHTMLHtmlElement, IsHTMLHtmlElement, toHTMLHtmlElement, castToHTMLHtmlElement, gTypeHTMLHtmlElement+  , HTMLIFrameElement(HTMLIFrameElement), unHTMLIFrameElement, IsHTMLIFrameElement, toHTMLIFrameElement, castToHTMLIFrameElement, gTypeHTMLIFrameElement+  , HTMLImageElement(HTMLImageElement), unHTMLImageElement, IsHTMLImageElement, toHTMLImageElement, castToHTMLImageElement, gTypeHTMLImageElement+  , HTMLInputElement(HTMLInputElement), unHTMLInputElement, IsHTMLInputElement, toHTMLInputElement, castToHTMLInputElement, gTypeHTMLInputElement+  , HTMLKeygenElement(HTMLKeygenElement), unHTMLKeygenElement, IsHTMLKeygenElement, toHTMLKeygenElement, castToHTMLKeygenElement, gTypeHTMLKeygenElement+  , HTMLLIElement(HTMLLIElement), unHTMLLIElement, IsHTMLLIElement, toHTMLLIElement, castToHTMLLIElement, gTypeHTMLLIElement+  , HTMLLabelElement(HTMLLabelElement), unHTMLLabelElement, IsHTMLLabelElement, toHTMLLabelElement, castToHTMLLabelElement, gTypeHTMLLabelElement+  , HTMLLegendElement(HTMLLegendElement), unHTMLLegendElement, IsHTMLLegendElement, toHTMLLegendElement, castToHTMLLegendElement, gTypeHTMLLegendElement+  , HTMLLinkElement(HTMLLinkElement), unHTMLLinkElement, IsHTMLLinkElement, toHTMLLinkElement, castToHTMLLinkElement, gTypeHTMLLinkElement+  , HTMLMapElement(HTMLMapElement), unHTMLMapElement, IsHTMLMapElement, toHTMLMapElement, castToHTMLMapElement, gTypeHTMLMapElement+  , HTMLMarqueeElement(HTMLMarqueeElement), unHTMLMarqueeElement, IsHTMLMarqueeElement, toHTMLMarqueeElement, castToHTMLMarqueeElement, gTypeHTMLMarqueeElement+  , HTMLMediaElement(HTMLMediaElement), unHTMLMediaElement, IsHTMLMediaElement, toHTMLMediaElement, castToHTMLMediaElement, gTypeHTMLMediaElement+  , HTMLMenuElement(HTMLMenuElement), unHTMLMenuElement, IsHTMLMenuElement, toHTMLMenuElement, castToHTMLMenuElement, gTypeHTMLMenuElement+  , HTMLMetaElement(HTMLMetaElement), unHTMLMetaElement, IsHTMLMetaElement, toHTMLMetaElement, castToHTMLMetaElement, gTypeHTMLMetaElement+  , HTMLModElement(HTMLModElement), unHTMLModElement, IsHTMLModElement, toHTMLModElement, castToHTMLModElement, gTypeHTMLModElement+  , HTMLOListElement(HTMLOListElement), unHTMLOListElement, IsHTMLOListElement, toHTMLOListElement, castToHTMLOListElement, gTypeHTMLOListElement+  , HTMLObjectElement(HTMLObjectElement), unHTMLObjectElement, IsHTMLObjectElement, toHTMLObjectElement, castToHTMLObjectElement, gTypeHTMLObjectElement+  , HTMLOptGroupElement(HTMLOptGroupElement), unHTMLOptGroupElement, IsHTMLOptGroupElement, toHTMLOptGroupElement, castToHTMLOptGroupElement, gTypeHTMLOptGroupElement+  , HTMLOptionElement(HTMLOptionElement), unHTMLOptionElement, IsHTMLOptionElement, toHTMLOptionElement, castToHTMLOptionElement, gTypeHTMLOptionElement+  , HTMLOptionsCollection(HTMLOptionsCollection), unHTMLOptionsCollection, IsHTMLOptionsCollection, toHTMLOptionsCollection, castToHTMLOptionsCollection, gTypeHTMLOptionsCollection+  , HTMLParagraphElement(HTMLParagraphElement), unHTMLParagraphElement, IsHTMLParagraphElement, toHTMLParagraphElement, castToHTMLParagraphElement, gTypeHTMLParagraphElement+  , HTMLParamElement(HTMLParamElement), unHTMLParamElement, IsHTMLParamElement, toHTMLParamElement, castToHTMLParamElement, gTypeHTMLParamElement+  , HTMLPreElement(HTMLPreElement), unHTMLPreElement, IsHTMLPreElement, toHTMLPreElement, castToHTMLPreElement, gTypeHTMLPreElement+  , HTMLQuoteElement(HTMLQuoteElement), unHTMLQuoteElement, IsHTMLQuoteElement, toHTMLQuoteElement, castToHTMLQuoteElement, gTypeHTMLQuoteElement+  , HTMLScriptElement(HTMLScriptElement), unHTMLScriptElement, IsHTMLScriptElement, toHTMLScriptElement, castToHTMLScriptElement, gTypeHTMLScriptElement+  , HTMLSelectElement(HTMLSelectElement), unHTMLSelectElement, IsHTMLSelectElement, toHTMLSelectElement, castToHTMLSelectElement, gTypeHTMLSelectElement+  , HTMLStyleElement(HTMLStyleElement), unHTMLStyleElement, IsHTMLStyleElement, toHTMLStyleElement, castToHTMLStyleElement, gTypeHTMLStyleElement+  , HTMLTableCaptionElement(HTMLTableCaptionElement), unHTMLTableCaptionElement, IsHTMLTableCaptionElement, toHTMLTableCaptionElement, castToHTMLTableCaptionElement, gTypeHTMLTableCaptionElement+  , HTMLTableCellElement(HTMLTableCellElement), unHTMLTableCellElement, IsHTMLTableCellElement, toHTMLTableCellElement, castToHTMLTableCellElement, gTypeHTMLTableCellElement+  , HTMLTableColElement(HTMLTableColElement), unHTMLTableColElement, IsHTMLTableColElement, toHTMLTableColElement, castToHTMLTableColElement, gTypeHTMLTableColElement+  , HTMLTableElement(HTMLTableElement), unHTMLTableElement, IsHTMLTableElement, toHTMLTableElement, castToHTMLTableElement, gTypeHTMLTableElement+  , HTMLTableRowElement(HTMLTableRowElement), unHTMLTableRowElement, IsHTMLTableRowElement, toHTMLTableRowElement, castToHTMLTableRowElement, gTypeHTMLTableRowElement+  , HTMLTableSectionElement(HTMLTableSectionElement), unHTMLTableSectionElement, IsHTMLTableSectionElement, toHTMLTableSectionElement, castToHTMLTableSectionElement, gTypeHTMLTableSectionElement+  , HTMLTextAreaElement(HTMLTextAreaElement), unHTMLTextAreaElement, IsHTMLTextAreaElement, toHTMLTextAreaElement, castToHTMLTextAreaElement, gTypeHTMLTextAreaElement+  , HTMLTitleElement(HTMLTitleElement), unHTMLTitleElement, IsHTMLTitleElement, toHTMLTitleElement, castToHTMLTitleElement, gTypeHTMLTitleElement+  , HTMLUListElement(HTMLUListElement), unHTMLUListElement, IsHTMLUListElement, toHTMLUListElement, castToHTMLUListElement, gTypeHTMLUListElement+  , HTMLVideoElement(HTMLVideoElement), unHTMLVideoElement, IsHTMLVideoElement, toHTMLVideoElement, castToHTMLVideoElement, gTypeHTMLVideoElement+  , History(History), unHistory, IsHistory, toHistory, castToHistory, gTypeHistory+  , KeyboardEvent(KeyboardEvent), unKeyboardEvent, IsKeyboardEvent, toKeyboardEvent, castToKeyboardEvent, gTypeKeyboardEvent+  , Location(Location), unLocation, IsLocation, toLocation, castToLocation, gTypeLocation+  , MediaError(MediaError), unMediaError, IsMediaError, toMediaError, castToMediaError, gTypeMediaError+  , MediaList(MediaList), unMediaList, IsMediaList, toMediaList, castToMediaList, gTypeMediaList+  , MediaQueryList(MediaQueryList), unMediaQueryList, IsMediaQueryList, toMediaQueryList, castToMediaQueryList, gTypeMediaQueryList+  , MessagePort(MessagePort), unMessagePort, IsMessagePort, toMessagePort, castToMessagePort, gTypeMessagePort+  , MouseEvent(MouseEvent), unMouseEvent, IsMouseEvent, toMouseEvent, castToMouseEvent, gTypeMouseEvent+  , NamedNodeMap(NamedNodeMap), unNamedNodeMap, IsNamedNodeMap, toNamedNodeMap, castToNamedNodeMap, gTypeNamedNodeMap+  , Navigator(Navigator), unNavigator, IsNavigator, toNavigator, castToNavigator, gTypeNavigator+  , Node(Node), unNode, IsNode, toNode, castToNode, gTypeNode+  , NodeFilter(NodeFilter), unNodeFilter, IsNodeFilter, toNodeFilter, castToNodeFilter, gTypeNodeFilter+  , NodeIterator(NodeIterator), unNodeIterator, IsNodeIterator, toNodeIterator, castToNodeIterator, gTypeNodeIterator+  , NodeList(NodeList), unNodeList, IsNodeList, toNodeList, castToNodeList, gTypeNodeList+  , ProcessingInstruction(ProcessingInstruction), unProcessingInstruction, IsProcessingInstruction, toProcessingInstruction, castToProcessingInstruction, gTypeProcessingInstruction+  , DOMRange(DOMRange), unDOMRange, IsDOMRange, toDOMRange, castToDOMRange, gTypeDOMRange+  , DOMScreen(DOMScreen), unDOMScreen, IsDOMScreen, toDOMScreen, castToDOMScreen, gTypeDOMScreen+  , Storage(Storage), unStorage, IsStorage, toStorage, castToStorage, gTypeStorage+  , StorageInfo(StorageInfo), unStorageInfo, IsStorageInfo, toStorageInfo, castToStorageInfo, gTypeStorageInfo+  , StyleMedia(StyleMedia), unStyleMedia, IsStyleMedia, toStyleMedia, castToStyleMedia, gTypeStyleMedia+  , StyleSheet(StyleSheet), unStyleSheet, IsStyleSheet, toStyleSheet, castToStyleSheet, gTypeStyleSheet+  , StyleSheetList(StyleSheetList), unStyleSheetList, IsStyleSheetList, toStyleSheetList, castToStyleSheetList, gTypeStyleSheetList+  , Text(Text), unText, IsText, toText, castToText, gTypeText+  , TimeRanges(TimeRanges), unTimeRanges, IsTimeRanges, toTimeRanges, castToTimeRanges, gTypeTimeRanges+  , TreeWalker(TreeWalker), unTreeWalker, IsTreeWalker, toTreeWalker, castToTreeWalker, gTypeTreeWalker+  , UIEvent(UIEvent), unUIEvent, IsUIEvent, toUIEvent, castToUIEvent, gTypeUIEvent+  , ValidityState(ValidityState), unValidityState, IsValidityState, toValidityState, castToValidityState, gTypeValidityState+  , WebKitNamedFlow(WebKitNamedFlow), unWebKitNamedFlow, IsWebKitNamedFlow, toWebKitNamedFlow, castToWebKitNamedFlow, gTypeWebKitNamedFlow+  , WebKitPoint(WebKitPoint), unWebKitPoint, IsWebKitPoint, toWebKitPoint, castToWebKitPoint, gTypeWebKitPoint+  , XPathExpression(XPathExpression), unXPathExpression, IsXPathExpression, toXPathExpression, castToXPathExpression, gTypeXPathExpression+  , XPathNSResolver(XPathNSResolver), unXPathNSResolver, IsXPathNSResolver, toXPathNSResolver, castToXPathNSResolver, gTypeXPathNSResolver+  , XPathResult(XPathResult), unXPathResult, IsXPathResult, toXPathResult, castToXPathResult, gTypeXPathResult+-- AUTO GENERATION ENDS HERE+#else+    propagateGError, GType(..), DOMString(..), ToDOMString(..), FromDOMString(..)+  , module Graphics.UI.Gtk.WebKit.Types+  , IsDOMAttr+  , IsBlob+  , IsCDATASection+  , IsCSSRule+  , IsCSSRuleList+  , IsCSSStyleDeclaration+  , IsCSSStyleSheet+  , IsCSSValue+  , IsCharacterData+  , IsComment+  , IsDOMApplicationCache+  , IsDOMImplementation+  , IsDOMMimeType+  , IsDOMMimeTypeArray+  , IsDOMPlugin+  , IsDOMPluginArray+  , IsDOMSelection+  , IsDOMSettableTokenList+  , IsDOMStringList+  , IsDOMTokenList+  , IsDOMWindow+  , IsDocument+  , IsDocumentFragment+  , IsDocumentType+  , IsElement+  , IsEntityReference+  , IsEvent+  , IsEventTarget+  , IsFile+  , IsFileList+  , IsGeolocation+  , IsHTMLAnchorElement+  , IsHTMLAppletElement+  , IsHTMLAreaElement+  , IsHTMLAudioElement+  , IsHTMLBRElement+  , IsHTMLBaseElement+  , IsHTMLBaseFontElement+  , IsHTMLBodyElement+  , IsHTMLButtonElement+  , IsHTMLCanvasElement+  , IsHTMLCollection+  , IsHTMLDListElement+  , IsHTMLDetailsElement+  , IsHTMLDirectoryElement+  , IsHTMLDivElement+  , IsHTMLDocument+  , IsHTMLElement+  , IsHTMLEmbedElement+  , IsHTMLFieldSetElement+  , IsHTMLFontElement+  , IsHTMLFormElement+  , IsHTMLFrameElement+  , IsHTMLFrameSetElement+  , IsHTMLHRElement+  , IsHTMLHeadElement+  , IsHTMLHeadingElement+  , IsHTMLHtmlElement+  , IsHTMLIFrameElement+  , IsHTMLImageElement+  , IsHTMLInputElement+  , IsHTMLKeygenElement+  , IsHTMLLIElement+  , IsHTMLLabelElement+  , IsHTMLLegendElement+  , IsHTMLLinkElement+  , IsHTMLMapElement+  , IsHTMLMarqueeElement+  , IsHTMLMediaElement+  , IsHTMLMenuElement+  , IsHTMLMetaElement+  , IsHTMLModElement+  , IsHTMLOListElement+  , IsHTMLObjectElement+  , IsHTMLOptGroupElement+  , IsHTMLOptionElement+  , IsHTMLOptionsCollection+  , IsHTMLParagraphElement+  , IsHTMLParamElement+  , IsHTMLPreElement+  , IsHTMLQuoteElement+  , IsHTMLScriptElement+  , IsHTMLSelectElement+  , IsHTMLStyleElement+  , IsHTMLTableCaptionElement+  , IsHTMLTableCellElement+  , IsHTMLTableColElement+  , IsHTMLTableElement+  , IsHTMLTableRowElement+  , IsHTMLTableSectionElement+  , IsHTMLTextAreaElement+  , IsHTMLTitleElement+  , IsHTMLUListElement+  , IsHTMLVideoElement+  , IsHistory+  , IsLocation+  , IsMediaError+  , IsMediaList+  , IsMediaQueryList+  , IsMessagePort+  , IsMouseEvent+  , IsNamedNodeMap+  , IsNavigator+  , IsNode+  , IsNodeFilter+  , IsNodeIterator+  , IsNodeList+  , IsProcessingInstruction+  , IsDOMRange+  , IsDOMScreen+  , IsStorage+  , IsStyleMedia+  , IsStyleSheet+  , IsStyleSheetList+  , IsText+  , IsTimeRanges+  , IsTreeWalker+  , IsUIEvent+  , IsValidityState+  , IsWebKitNamedFlow+  , IsWebKitPoint+  , IsXPathExpression+  , IsXPathNSResolver+  , IsXPathResult+#endif+  ) where++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+import GHCJS.Types (JSRef(..), castRef, nullRef, isNull, JSString(..))+import GHCJS.Foreign (ToJSString(..), FromJSString(..))+import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))+#else+import Control.Applicative ((<$>))+import qualified Data.Text as T (Text)+import Data.Maybe (isNothing)+import Foreign.C (CString)+import Graphics.UI.Gtk.WebKit.Types+import System.Glib (propagateGError, GType(..))+import System.Glib.UTFString+       (readUTFString, GlibString(..))+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+maybeJSNull :: JSRef a -> Maybe (JSRef a)+maybeJSNull r | isNull r = Nothing+maybeJSNull r = Just r++propagateGError = id++data GType = GType (JSRef GType)++#ifdef ghcjs_HOST_OS+foreign import javascript unsafe "h$isInstanceOf $1 $2"+    typeInstanceIsA' :: JSRef a -> JSRef GType -> Bool+#else+typeInstanceIsA' :: JSRef a -> JSRef GType -> Bool+typeInstanceIsA' = error "typeInstanceIsA': only available in JavaScript"+#endif++typeInstanceIsA o (GType t) = typeInstanceIsA' o t++-- The usage of foreignPtrToPtr should be safe as the evaluation will only be+-- forced if the object is used afterwards+--+castTo :: (GObjectClass obj, GObjectClass obj') => GType -> String+                                                -> (obj -> obj')+castTo gtype objTypeName obj =+  case toGObject obj of+    gobj@(GObject objRef)+      | typeInstanceIsA objRef gtype+                  -> unsafeCastGObject gobj+      | otherwise -> error $ "Cannot cast object to " ++ objTypeName++data GObject = GObject (JSRef GObject)++unGObject (GObject o) = o++class (ToJSRef o, FromJSRef o) => GObjectClass o where+  -- | Safe upcast.+  toGObject         :: o -> GObject+  -- | Unchecked downcast.+  unsafeCastGObject :: GObject -> o++instance ToJSRef GObject where+  toJSRef = return . unGObject+  {-# INLINE toJSRef #-}++instance FromJSRef GObject where+  fromJSRef = return . fmap GObject . maybeJSNull+  {-# INLINE fromJSRef #-}++instance GObjectClass GObject where+  toGObject = id+  unsafeCastGObject = id++castToGObject :: GObjectClass obj => obj -> obj+castToGObject = id++#ifdef ghcjs_HOST_OS+foreign import javascript unsafe "object" gTypeGObject' :: JSRef GType+#else+gTypeGObject' = error "gTypeGObject': only available in JavaScript"+#endif+gTypeGObject = GType gTypeGObject'++#ifdef ghcjs_HOST_OS+-- | Fastest string type to use when you just+--   want to take a string from the DOM then+--   give it back as is.+type DOMString = JSString++type ToDOMString s = ToJSString s+type FromDOMString s = FromJSString s+#endif++#else+-- | Fastest string type to use when you just+--   want to take a string from the DOM then+--   give it back as is.+type DOMString = T.Text++type ToDOMString s = GlibString s+type FromDOMString s = GlibString s+#endif++-- AUTO GENERATION STARTS HERE+-- The remainder of this file is generated from IDL files using domconv-webkit-jsffi+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype DOMAttr = DOMAttr (JSRef DOMAttr)++unDOMAttr (DOMAttr o) = o++instance ToJSRef DOMAttr where+  toJSRef = return . unDOMAttr+  {-# INLINE toJSRef #-}++instance FromJSRef DOMAttr where+  fromJSRef = return . fmap DOMAttr . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsNode o => IsDOMAttr o+toDOMAttr :: IsDOMAttr o => o -> DOMAttr+toDOMAttr = unsafeCastGObject . toGObject++instance IsDOMAttr DOMAttr+instance IsNode DOMAttr+instance GObjectClass DOMAttr where+  toGObject = GObject . castRef . unDOMAttr+  unsafeCastGObject = DOMAttr . castRef . unGObject++castToDOMAttr :: GObjectClass obj => obj -> DOMAttr+castToDOMAttr = castTo gTypeDOMAttr "DOMAttr"++foreign import javascript unsafe "window[\"DOMAttr\"]" gTypeDOMAttr' :: JSRef GType+gTypeDOMAttr = GType gTypeDOMAttr'+#else+type IsDOMAttr o = DOMAttrClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype BarProp = BarProp (JSRef BarProp)++unBarProp (BarProp o) = o++instance ToJSRef BarProp where+  toJSRef = return . unBarProp+  {-# INLINE toJSRef #-}++instance FromJSRef BarProp where+  fromJSRef = return . fmap BarProp . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsBarProp o+toBarProp :: IsBarProp o => o -> BarProp+toBarProp = unsafeCastGObject . toGObject++instance IsBarProp BarProp+instance GObjectClass BarProp where+  toGObject = GObject . castRef . unBarProp+  unsafeCastGObject = BarProp . castRef . unGObject++castToBarProp :: GObjectClass obj => obj -> BarProp+castToBarProp = castTo gTypeBarProp "BarProp"++foreign import javascript unsafe "window[\"BarProp\"]" gTypeBarProp' :: JSRef GType+gTypeBarProp = GType gTypeBarProp'+#else+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Blob = Blob (JSRef Blob)++unBlob (Blob o) = o++instance ToJSRef Blob where+  toJSRef = return . unBlob+  {-# INLINE toJSRef #-}++instance FromJSRef Blob where+  fromJSRef = return . fmap Blob . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsBlob o+toBlob :: IsBlob o => o -> Blob+toBlob = unsafeCastGObject . toGObject++instance IsBlob Blob+instance GObjectClass Blob where+  toGObject = GObject . castRef . unBlob+  unsafeCastGObject = Blob . castRef . unGObject++castToBlob :: GObjectClass obj => obj -> Blob+castToBlob = castTo gTypeBlob "Blob"++foreign import javascript unsafe "window[\"Blob\"]" gTypeBlob' :: JSRef GType+gTypeBlob = GType gTypeBlob'+#else+type IsBlob o = BlobClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype CDATASection = CDATASection (JSRef CDATASection)++unCDATASection (CDATASection o) = o++instance ToJSRef CDATASection where+  toJSRef = return . unCDATASection+  {-# INLINE toJSRef #-}++instance FromJSRef CDATASection where+  fromJSRef = return . fmap CDATASection . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsText o => IsCDATASection o+toCDATASection :: IsCDATASection o => o -> CDATASection+toCDATASection = unsafeCastGObject . toGObject++instance IsCDATASection CDATASection+instance IsText CDATASection+instance IsCharacterData CDATASection+instance IsNode CDATASection+instance GObjectClass CDATASection where+  toGObject = GObject . castRef . unCDATASection+  unsafeCastGObject = CDATASection . castRef . unGObject++castToCDATASection :: GObjectClass obj => obj -> CDATASection+castToCDATASection = castTo gTypeCDATASection "CDATASection"++foreign import javascript unsafe "window[\"CDATASection\"]" gTypeCDATASection' :: JSRef GType+gTypeCDATASection = GType gTypeCDATASection'+#else+type IsCDATASection o = CDATASectionClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype CSSRule = CSSRule (JSRef CSSRule)++unCSSRule (CSSRule o) = o++instance ToJSRef CSSRule where+  toJSRef = return . unCSSRule+  {-# INLINE toJSRef #-}++instance FromJSRef CSSRule where+  fromJSRef = return . fmap CSSRule . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsCSSRule o+toCSSRule :: IsCSSRule o => o -> CSSRule+toCSSRule = unsafeCastGObject . toGObject++instance IsCSSRule CSSRule+instance GObjectClass CSSRule where+  toGObject = GObject . castRef . unCSSRule+  unsafeCastGObject = CSSRule . castRef . unGObject++castToCSSRule :: GObjectClass obj => obj -> CSSRule+castToCSSRule = castTo gTypeCSSRule "CSSRule"++foreign import javascript unsafe "window[\"CSSRule\"]" gTypeCSSRule' :: JSRef GType+gTypeCSSRule = GType gTypeCSSRule'+#else+type IsCSSRule o = CSSRuleClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype CSSRuleList = CSSRuleList (JSRef CSSRuleList)++unCSSRuleList (CSSRuleList o) = o++instance ToJSRef CSSRuleList where+  toJSRef = return . unCSSRuleList+  {-# INLINE toJSRef #-}++instance FromJSRef CSSRuleList where+  fromJSRef = return . fmap CSSRuleList . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsCSSRuleList o+toCSSRuleList :: IsCSSRuleList o => o -> CSSRuleList+toCSSRuleList = unsafeCastGObject . toGObject++instance IsCSSRuleList CSSRuleList+instance GObjectClass CSSRuleList where+  toGObject = GObject . castRef . unCSSRuleList+  unsafeCastGObject = CSSRuleList . castRef . unGObject++castToCSSRuleList :: GObjectClass obj => obj -> CSSRuleList+castToCSSRuleList = castTo gTypeCSSRuleList "CSSRuleList"++foreign import javascript unsafe "window[\"CSSRuleList\"]" gTypeCSSRuleList' :: JSRef GType+gTypeCSSRuleList = GType gTypeCSSRuleList'+#else+type IsCSSRuleList o = CSSRuleListClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype CSSStyleDeclaration = CSSStyleDeclaration (JSRef CSSStyleDeclaration)++unCSSStyleDeclaration (CSSStyleDeclaration o) = o++instance ToJSRef CSSStyleDeclaration where+  toJSRef = return . unCSSStyleDeclaration+  {-# INLINE toJSRef #-}++instance FromJSRef CSSStyleDeclaration where+  fromJSRef = return . fmap CSSStyleDeclaration . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsCSSStyleDeclaration o+toCSSStyleDeclaration :: IsCSSStyleDeclaration o => o -> CSSStyleDeclaration+toCSSStyleDeclaration = unsafeCastGObject . toGObject++instance IsCSSStyleDeclaration CSSStyleDeclaration+instance GObjectClass CSSStyleDeclaration where+  toGObject = GObject . castRef . unCSSStyleDeclaration+  unsafeCastGObject = CSSStyleDeclaration . castRef . unGObject++castToCSSStyleDeclaration :: GObjectClass obj => obj -> CSSStyleDeclaration+castToCSSStyleDeclaration = castTo gTypeCSSStyleDeclaration "CSSStyleDeclaration"++foreign import javascript unsafe "window[\"CSSStyleDeclaration\"]" gTypeCSSStyleDeclaration' :: JSRef GType+gTypeCSSStyleDeclaration = GType gTypeCSSStyleDeclaration'+#else+type IsCSSStyleDeclaration o = CSSStyleDeclarationClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype CSSStyleSheet = CSSStyleSheet (JSRef CSSStyleSheet)++unCSSStyleSheet (CSSStyleSheet o) = o++instance ToJSRef CSSStyleSheet where+  toJSRef = return . unCSSStyleSheet+  {-# INLINE toJSRef #-}++instance FromJSRef CSSStyleSheet where+  fromJSRef = return . fmap CSSStyleSheet . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsStyleSheet o => IsCSSStyleSheet o+toCSSStyleSheet :: IsCSSStyleSheet o => o -> CSSStyleSheet+toCSSStyleSheet = unsafeCastGObject . toGObject++instance IsCSSStyleSheet CSSStyleSheet+instance IsStyleSheet CSSStyleSheet+instance GObjectClass CSSStyleSheet where+  toGObject = GObject . castRef . unCSSStyleSheet+  unsafeCastGObject = CSSStyleSheet . castRef . unGObject++castToCSSStyleSheet :: GObjectClass obj => obj -> CSSStyleSheet+castToCSSStyleSheet = castTo gTypeCSSStyleSheet "CSSStyleSheet"++foreign import javascript unsafe "window[\"CSSStyleSheet\"]" gTypeCSSStyleSheet' :: JSRef GType+gTypeCSSStyleSheet = GType gTypeCSSStyleSheet'+#else+type IsCSSStyleSheet o = CSSStyleSheetClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype CSSValue = CSSValue (JSRef CSSValue)++unCSSValue (CSSValue o) = o++instance ToJSRef CSSValue where+  toJSRef = return . unCSSValue+  {-# INLINE toJSRef #-}++instance FromJSRef CSSValue where+  fromJSRef = return . fmap CSSValue . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsCSSValue o+toCSSValue :: IsCSSValue o => o -> CSSValue+toCSSValue = unsafeCastGObject . toGObject++instance IsCSSValue CSSValue+instance GObjectClass CSSValue where+  toGObject = GObject . castRef . unCSSValue+  unsafeCastGObject = CSSValue . castRef . unGObject++castToCSSValue :: GObjectClass obj => obj -> CSSValue+castToCSSValue = castTo gTypeCSSValue "CSSValue"++foreign import javascript unsafe "window[\"CSSValue\"]" gTypeCSSValue' :: JSRef GType+gTypeCSSValue = GType gTypeCSSValue'+#else+type IsCSSValue o = CSSValueClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype CharacterData = CharacterData (JSRef CharacterData)++unCharacterData (CharacterData o) = o++instance ToJSRef CharacterData where+  toJSRef = return . unCharacterData+  {-# INLINE toJSRef #-}++instance FromJSRef CharacterData where+  fromJSRef = return . fmap CharacterData . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsNode o => IsCharacterData o+toCharacterData :: IsCharacterData o => o -> CharacterData+toCharacterData = unsafeCastGObject . toGObject++instance IsCharacterData CharacterData+instance IsNode CharacterData+instance GObjectClass CharacterData where+  toGObject = GObject . castRef . unCharacterData+  unsafeCastGObject = CharacterData . castRef . unGObject++castToCharacterData :: GObjectClass obj => obj -> CharacterData+castToCharacterData = castTo gTypeCharacterData "CharacterData"++foreign import javascript unsafe "window[\"CharacterData\"]" gTypeCharacterData' :: JSRef GType+gTypeCharacterData = GType gTypeCharacterData'+#else+type IsCharacterData o = CharacterDataClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Comment = Comment (JSRef Comment)++unComment (Comment o) = o++instance ToJSRef Comment where+  toJSRef = return . unComment+  {-# INLINE toJSRef #-}++instance FromJSRef Comment where+  fromJSRef = return . fmap Comment . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsCharacterData o => IsComment o+toComment :: IsComment o => o -> Comment+toComment = unsafeCastGObject . toGObject++instance IsComment Comment+instance IsCharacterData Comment+instance IsNode Comment+instance GObjectClass Comment where+  toGObject = GObject . castRef . unComment+  unsafeCastGObject = Comment . castRef . unGObject++castToComment :: GObjectClass obj => obj -> Comment+castToComment = castTo gTypeComment "Comment"++foreign import javascript unsafe "window[\"Comment\"]" gTypeComment' :: JSRef GType+gTypeComment = GType gTypeComment'+#else+type IsComment o = CommentClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype DOMApplicationCache = DOMApplicationCache (JSRef DOMApplicationCache)++unDOMApplicationCache (DOMApplicationCache o) = o++instance ToJSRef DOMApplicationCache where+  toJSRef = return . unDOMApplicationCache+  {-# INLINE toJSRef #-}++instance FromJSRef DOMApplicationCache where+  fromJSRef = return . fmap DOMApplicationCache . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsDOMApplicationCache o+toDOMApplicationCache :: IsDOMApplicationCache o => o -> DOMApplicationCache+toDOMApplicationCache = unsafeCastGObject . toGObject++instance IsDOMApplicationCache DOMApplicationCache+instance GObjectClass DOMApplicationCache where+  toGObject = GObject . castRef . unDOMApplicationCache+  unsafeCastGObject = DOMApplicationCache . castRef . unGObject++castToDOMApplicationCache :: GObjectClass obj => obj -> DOMApplicationCache+castToDOMApplicationCache = castTo gTypeDOMApplicationCache "DOMApplicationCache"++foreign import javascript unsafe "window[\"DOMApplicationCache\"]" gTypeDOMApplicationCache' :: JSRef GType+gTypeDOMApplicationCache = GType gTypeDOMApplicationCache'+#else+type IsDOMApplicationCache o = DOMApplicationCacheClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype DOMImplementation = DOMImplementation (JSRef DOMImplementation)++unDOMImplementation (DOMImplementation o) = o++instance ToJSRef DOMImplementation where+  toJSRef = return . unDOMImplementation+  {-# INLINE toJSRef #-}++instance FromJSRef DOMImplementation where+  fromJSRef = return . fmap DOMImplementation . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsDOMImplementation o+toDOMImplementation :: IsDOMImplementation o => o -> DOMImplementation+toDOMImplementation = unsafeCastGObject . toGObject++instance IsDOMImplementation DOMImplementation+instance GObjectClass DOMImplementation where+  toGObject = GObject . castRef . unDOMImplementation+  unsafeCastGObject = DOMImplementation . castRef . unGObject++castToDOMImplementation :: GObjectClass obj => obj -> DOMImplementation+castToDOMImplementation = castTo gTypeDOMImplementation "DOMImplementation"++foreign import javascript unsafe "window[\"DOMImplementation\"]" gTypeDOMImplementation' :: JSRef GType+gTypeDOMImplementation = GType gTypeDOMImplementation'+#else+type IsDOMImplementation o = DOMImplementationClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype DOMMimeType = DOMMimeType (JSRef DOMMimeType)++unDOMMimeType (DOMMimeType o) = o++instance ToJSRef DOMMimeType where+  toJSRef = return . unDOMMimeType+  {-# INLINE toJSRef #-}++instance FromJSRef DOMMimeType where+  fromJSRef = return . fmap DOMMimeType . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsDOMMimeType o+toDOMMimeType :: IsDOMMimeType o => o -> DOMMimeType+toDOMMimeType = unsafeCastGObject . toGObject++instance IsDOMMimeType DOMMimeType+instance GObjectClass DOMMimeType where+  toGObject = GObject . castRef . unDOMMimeType+  unsafeCastGObject = DOMMimeType . castRef . unGObject++castToDOMMimeType :: GObjectClass obj => obj -> DOMMimeType+castToDOMMimeType = castTo gTypeDOMMimeType "DOMMimeType"++foreign import javascript unsafe "window[\"DOMMimeType\"]" gTypeDOMMimeType' :: JSRef GType+gTypeDOMMimeType = GType gTypeDOMMimeType'+#else+type IsDOMMimeType o = DOMMimeTypeClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype DOMMimeTypeArray = DOMMimeTypeArray (JSRef DOMMimeTypeArray)++unDOMMimeTypeArray (DOMMimeTypeArray o) = o++instance ToJSRef DOMMimeTypeArray where+  toJSRef = return . unDOMMimeTypeArray+  {-# INLINE toJSRef #-}++instance FromJSRef DOMMimeTypeArray where+  fromJSRef = return . fmap DOMMimeTypeArray . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsDOMMimeTypeArray o+toDOMMimeTypeArray :: IsDOMMimeTypeArray o => o -> DOMMimeTypeArray+toDOMMimeTypeArray = unsafeCastGObject . toGObject++instance IsDOMMimeTypeArray DOMMimeTypeArray+instance GObjectClass DOMMimeTypeArray where+  toGObject = GObject . castRef . unDOMMimeTypeArray+  unsafeCastGObject = DOMMimeTypeArray . castRef . unGObject++castToDOMMimeTypeArray :: GObjectClass obj => obj -> DOMMimeTypeArray+castToDOMMimeTypeArray = castTo gTypeDOMMimeTypeArray "DOMMimeTypeArray"++foreign import javascript unsafe "window[\"DOMMimeTypeArray\"]" gTypeDOMMimeTypeArray' :: JSRef GType+gTypeDOMMimeTypeArray = GType gTypeDOMMimeTypeArray'+#else+type IsDOMMimeTypeArray o = DOMMimeTypeArrayClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype DOMNamedFlowCollection = DOMNamedFlowCollection (JSRef DOMNamedFlowCollection)++unDOMNamedFlowCollection (DOMNamedFlowCollection o) = o++instance ToJSRef DOMNamedFlowCollection where+  toJSRef = return . unDOMNamedFlowCollection+  {-# INLINE toJSRef #-}++instance FromJSRef DOMNamedFlowCollection where+  fromJSRef = return . fmap DOMNamedFlowCollection . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsDOMNamedFlowCollection o+toDOMNamedFlowCollection :: IsDOMNamedFlowCollection o => o -> DOMNamedFlowCollection+toDOMNamedFlowCollection = unsafeCastGObject . toGObject++instance IsDOMNamedFlowCollection DOMNamedFlowCollection+instance GObjectClass DOMNamedFlowCollection where+  toGObject = GObject . castRef . unDOMNamedFlowCollection+  unsafeCastGObject = DOMNamedFlowCollection . castRef . unGObject++castToDOMNamedFlowCollection :: GObjectClass obj => obj -> DOMNamedFlowCollection+castToDOMNamedFlowCollection = castTo gTypeDOMNamedFlowCollection "DOMNamedFlowCollection"++foreign import javascript unsafe "window[\"DOMNamedFlowCollection\"]" gTypeDOMNamedFlowCollection' :: JSRef GType+gTypeDOMNamedFlowCollection = GType gTypeDOMNamedFlowCollection'+#else+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype DOMPlugin = DOMPlugin (JSRef DOMPlugin)++unDOMPlugin (DOMPlugin o) = o++instance ToJSRef DOMPlugin where+  toJSRef = return . unDOMPlugin+  {-# INLINE toJSRef #-}++instance FromJSRef DOMPlugin where+  fromJSRef = return . fmap DOMPlugin . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsDOMPlugin o+toDOMPlugin :: IsDOMPlugin o => o -> DOMPlugin+toDOMPlugin = unsafeCastGObject . toGObject++instance IsDOMPlugin DOMPlugin+instance GObjectClass DOMPlugin where+  toGObject = GObject . castRef . unDOMPlugin+  unsafeCastGObject = DOMPlugin . castRef . unGObject++castToDOMPlugin :: GObjectClass obj => obj -> DOMPlugin+castToDOMPlugin = castTo gTypeDOMPlugin "DOMPlugin"++foreign import javascript unsafe "window[\"DOMPlugin\"]" gTypeDOMPlugin' :: JSRef GType+gTypeDOMPlugin = GType gTypeDOMPlugin'+#else+type IsDOMPlugin o = DOMPluginClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype DOMPluginArray = DOMPluginArray (JSRef DOMPluginArray)++unDOMPluginArray (DOMPluginArray o) = o++instance ToJSRef DOMPluginArray where+  toJSRef = return . unDOMPluginArray+  {-# INLINE toJSRef #-}++instance FromJSRef DOMPluginArray where+  fromJSRef = return . fmap DOMPluginArray . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsDOMPluginArray o+toDOMPluginArray :: IsDOMPluginArray o => o -> DOMPluginArray+toDOMPluginArray = unsafeCastGObject . toGObject++instance IsDOMPluginArray DOMPluginArray+instance GObjectClass DOMPluginArray where+  toGObject = GObject . castRef . unDOMPluginArray+  unsafeCastGObject = DOMPluginArray . castRef . unGObject++castToDOMPluginArray :: GObjectClass obj => obj -> DOMPluginArray+castToDOMPluginArray = castTo gTypeDOMPluginArray "DOMPluginArray"++foreign import javascript unsafe "window[\"DOMPluginArray\"]" gTypeDOMPluginArray' :: JSRef GType+gTypeDOMPluginArray = GType gTypeDOMPluginArray'+#else+type IsDOMPluginArray o = DOMPluginArrayClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype DOMSecurityPolicy = DOMSecurityPolicy (JSRef DOMSecurityPolicy)++unDOMSecurityPolicy (DOMSecurityPolicy o) = o++instance ToJSRef DOMSecurityPolicy where+  toJSRef = return . unDOMSecurityPolicy+  {-# INLINE toJSRef #-}++instance FromJSRef DOMSecurityPolicy where+  fromJSRef = return . fmap DOMSecurityPolicy . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsDOMSecurityPolicy o+toDOMSecurityPolicy :: IsDOMSecurityPolicy o => o -> DOMSecurityPolicy+toDOMSecurityPolicy = unsafeCastGObject . toGObject++instance IsDOMSecurityPolicy DOMSecurityPolicy+instance GObjectClass DOMSecurityPolicy where+  toGObject = GObject . castRef . unDOMSecurityPolicy+  unsafeCastGObject = DOMSecurityPolicy . castRef . unGObject++castToDOMSecurityPolicy :: GObjectClass obj => obj -> DOMSecurityPolicy+castToDOMSecurityPolicy = castTo gTypeDOMSecurityPolicy "DOMSecurityPolicy"++foreign import javascript unsafe "window[\"DOMSecurityPolicy\"]" gTypeDOMSecurityPolicy' :: JSRef GType+gTypeDOMSecurityPolicy = GType gTypeDOMSecurityPolicy'+#else+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype DOMSelection = DOMSelection (JSRef DOMSelection)++unDOMSelection (DOMSelection o) = o++instance ToJSRef DOMSelection where+  toJSRef = return . unDOMSelection+  {-# INLINE toJSRef #-}++instance FromJSRef DOMSelection where+  fromJSRef = return . fmap DOMSelection . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsDOMSelection o+toDOMSelection :: IsDOMSelection o => o -> DOMSelection+toDOMSelection = unsafeCastGObject . toGObject++instance IsDOMSelection DOMSelection+instance GObjectClass DOMSelection where+  toGObject = GObject . castRef . unDOMSelection+  unsafeCastGObject = DOMSelection . castRef . unGObject++castToDOMSelection :: GObjectClass obj => obj -> DOMSelection+castToDOMSelection = castTo gTypeDOMSelection "DOMSelection"++foreign import javascript unsafe "window[\"DOMSelection\"]" gTypeDOMSelection' :: JSRef GType+gTypeDOMSelection = GType gTypeDOMSelection'+#else+type IsDOMSelection o = DOMSelectionClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype DOMSettableTokenList = DOMSettableTokenList (JSRef DOMSettableTokenList)++unDOMSettableTokenList (DOMSettableTokenList o) = o++instance ToJSRef DOMSettableTokenList where+  toJSRef = return . unDOMSettableTokenList+  {-# INLINE toJSRef #-}++instance FromJSRef DOMSettableTokenList where+  fromJSRef = return . fmap DOMSettableTokenList . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsDOMTokenList o => IsDOMSettableTokenList o+toDOMSettableTokenList :: IsDOMSettableTokenList o => o -> DOMSettableTokenList+toDOMSettableTokenList = unsafeCastGObject . toGObject++instance IsDOMSettableTokenList DOMSettableTokenList+instance IsDOMTokenList DOMSettableTokenList+instance GObjectClass DOMSettableTokenList where+  toGObject = GObject . castRef . unDOMSettableTokenList+  unsafeCastGObject = DOMSettableTokenList . castRef . unGObject++castToDOMSettableTokenList :: GObjectClass obj => obj -> DOMSettableTokenList+castToDOMSettableTokenList = castTo gTypeDOMSettableTokenList "DOMSettableTokenList"++foreign import javascript unsafe "window[\"DOMSettableTokenList\"]" gTypeDOMSettableTokenList' :: JSRef GType+gTypeDOMSettableTokenList = GType gTypeDOMSettableTokenList'+#else+type IsDOMSettableTokenList o = DOMSettableTokenListClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype DOMStringList = DOMStringList (JSRef DOMStringList)++unDOMStringList (DOMStringList o) = o++instance ToJSRef DOMStringList where+  toJSRef = return . unDOMStringList+  {-# INLINE toJSRef #-}++instance FromJSRef DOMStringList where+  fromJSRef = return . fmap DOMStringList . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsDOMStringList o+toDOMStringList :: IsDOMStringList o => o -> DOMStringList+toDOMStringList = unsafeCastGObject . toGObject++instance IsDOMStringList DOMStringList+instance GObjectClass DOMStringList where+  toGObject = GObject . castRef . unDOMStringList+  unsafeCastGObject = DOMStringList . castRef . unGObject++castToDOMStringList :: GObjectClass obj => obj -> DOMStringList+castToDOMStringList = castTo gTypeDOMStringList "DOMStringList"++foreign import javascript unsafe "window[\"DOMStringList\"]" gTypeDOMStringList' :: JSRef GType+gTypeDOMStringList = GType gTypeDOMStringList'+#else+type IsDOMStringList o = DOMStringListClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype DOMTokenList = DOMTokenList (JSRef DOMTokenList)++unDOMTokenList (DOMTokenList o) = o++instance ToJSRef DOMTokenList where+  toJSRef = return . unDOMTokenList+  {-# INLINE toJSRef #-}++instance FromJSRef DOMTokenList where+  fromJSRef = return . fmap DOMTokenList . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsDOMTokenList o+toDOMTokenList :: IsDOMTokenList o => o -> DOMTokenList+toDOMTokenList = unsafeCastGObject . toGObject++instance IsDOMTokenList DOMTokenList+instance GObjectClass DOMTokenList where+  toGObject = GObject . castRef . unDOMTokenList+  unsafeCastGObject = DOMTokenList . castRef . unGObject++castToDOMTokenList :: GObjectClass obj => obj -> DOMTokenList+castToDOMTokenList = castTo gTypeDOMTokenList "DOMTokenList"++foreign import javascript unsafe "window[\"DOMTokenList\"]" gTypeDOMTokenList' :: JSRef GType+gTypeDOMTokenList = GType gTypeDOMTokenList'+#else+type IsDOMTokenList o = DOMTokenListClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype DOMWindow = DOMWindow (JSRef DOMWindow)++unDOMWindow (DOMWindow o) = o++instance ToJSRef DOMWindow where+  toJSRef = return . unDOMWindow+  {-# INLINE toJSRef #-}++instance FromJSRef DOMWindow where+  fromJSRef = return . fmap DOMWindow . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsDOMWindow o+toDOMWindow :: IsDOMWindow o => o -> DOMWindow+toDOMWindow = unsafeCastGObject . toGObject++instance IsDOMWindow DOMWindow+instance GObjectClass DOMWindow where+  toGObject = GObject . castRef . unDOMWindow+  unsafeCastGObject = DOMWindow . castRef . unGObject++castToDOMWindow :: GObjectClass obj => obj -> DOMWindow+castToDOMWindow = castTo gTypeDOMWindow "DOMWindow"++foreign import javascript unsafe "window[\"DOMWindow\"]" gTypeDOMWindow' :: JSRef GType+gTypeDOMWindow = GType gTypeDOMWindow'+#else+type IsDOMWindow o = DOMWindowClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype DOMWindowCSS = DOMWindowCSS (JSRef DOMWindowCSS)++unDOMWindowCSS (DOMWindowCSS o) = o++instance ToJSRef DOMWindowCSS where+  toJSRef = return . unDOMWindowCSS+  {-# INLINE toJSRef #-}++instance FromJSRef DOMWindowCSS where+  fromJSRef = return . fmap DOMWindowCSS . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsDOMWindowCSS o+toDOMWindowCSS :: IsDOMWindowCSS o => o -> DOMWindowCSS+toDOMWindowCSS = unsafeCastGObject . toGObject++instance IsDOMWindowCSS DOMWindowCSS+instance GObjectClass DOMWindowCSS where+  toGObject = GObject . castRef . unDOMWindowCSS+  unsafeCastGObject = DOMWindowCSS . castRef . unGObject++castToDOMWindowCSS :: GObjectClass obj => obj -> DOMWindowCSS+castToDOMWindowCSS = castTo gTypeDOMWindowCSS "DOMWindowCSS"++foreign import javascript unsafe "window[\"DOMWindowCSS\"]" gTypeDOMWindowCSS' :: JSRef GType+gTypeDOMWindowCSS = GType gTypeDOMWindowCSS'+#else+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Document = Document (JSRef Document)++unDocument (Document o) = o++instance ToJSRef Document where+  toJSRef = return . unDocument+  {-# INLINE toJSRef #-}++instance FromJSRef Document where+  fromJSRef = return . fmap Document . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsNode o => IsDocument o+toDocument :: IsDocument o => o -> Document+toDocument = unsafeCastGObject . toGObject++instance IsDocument Document+instance IsNode Document+instance GObjectClass Document where+  toGObject = GObject . castRef . unDocument+  unsafeCastGObject = Document . castRef . unGObject++castToDocument :: GObjectClass obj => obj -> Document+castToDocument = castTo gTypeDocument "Document"++foreign import javascript unsafe "window[\"Document\"]" gTypeDocument' :: JSRef GType+gTypeDocument = GType gTypeDocument'+#else+type IsDocument o = DocumentClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype DocumentFragment = DocumentFragment (JSRef DocumentFragment)++unDocumentFragment (DocumentFragment o) = o++instance ToJSRef DocumentFragment where+  toJSRef = return . unDocumentFragment+  {-# INLINE toJSRef #-}++instance FromJSRef DocumentFragment where+  fromJSRef = return . fmap DocumentFragment . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsNode o => IsDocumentFragment o+toDocumentFragment :: IsDocumentFragment o => o -> DocumentFragment+toDocumentFragment = unsafeCastGObject . toGObject++instance IsDocumentFragment DocumentFragment+instance IsNode DocumentFragment+instance GObjectClass DocumentFragment where+  toGObject = GObject . castRef . unDocumentFragment+  unsafeCastGObject = DocumentFragment . castRef . unGObject++castToDocumentFragment :: GObjectClass obj => obj -> DocumentFragment+castToDocumentFragment = castTo gTypeDocumentFragment "DocumentFragment"++foreign import javascript unsafe "window[\"DocumentFragment\"]" gTypeDocumentFragment' :: JSRef GType+gTypeDocumentFragment = GType gTypeDocumentFragment'+#else+type IsDocumentFragment o = DocumentFragmentClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype DocumentType = DocumentType (JSRef DocumentType)++unDocumentType (DocumentType o) = o++instance ToJSRef DocumentType where+  toJSRef = return . unDocumentType+  {-# INLINE toJSRef #-}++instance FromJSRef DocumentType where+  fromJSRef = return . fmap DocumentType . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsNode o => IsDocumentType o+toDocumentType :: IsDocumentType o => o -> DocumentType+toDocumentType = unsafeCastGObject . toGObject++instance IsDocumentType DocumentType+instance IsNode DocumentType+instance GObjectClass DocumentType where+  toGObject = GObject . castRef . unDocumentType+  unsafeCastGObject = DocumentType . castRef . unGObject++castToDocumentType :: GObjectClass obj => obj -> DocumentType+castToDocumentType = castTo gTypeDocumentType "DocumentType"++foreign import javascript unsafe "window[\"DocumentType\"]" gTypeDocumentType' :: JSRef GType+gTypeDocumentType = GType gTypeDocumentType'+#else+type IsDocumentType o = DocumentTypeClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Element = Element (JSRef Element)++unElement (Element o) = o++instance ToJSRef Element where+  toJSRef = return . unElement+  {-# INLINE toJSRef #-}++instance FromJSRef Element where+  fromJSRef = return . fmap Element . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsNode o => IsElement o+toElement :: IsElement o => o -> Element+toElement = unsafeCastGObject . toGObject++instance IsElement Element+instance IsNode Element+instance GObjectClass Element where+  toGObject = GObject . castRef . unElement+  unsafeCastGObject = Element . castRef . unGObject++castToElement :: GObjectClass obj => obj -> Element+castToElement = castTo gTypeElement "Element"++foreign import javascript unsafe "window[\"Element\"]" gTypeElement' :: JSRef GType+gTypeElement = GType gTypeElement'+#else+type IsElement o = ElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype EntityReference = EntityReference (JSRef EntityReference)++unEntityReference (EntityReference o) = o++instance ToJSRef EntityReference where+  toJSRef = return . unEntityReference+  {-# INLINE toJSRef #-}++instance FromJSRef EntityReference where+  fromJSRef = return . fmap EntityReference . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsNode o => IsEntityReference o+toEntityReference :: IsEntityReference o => o -> EntityReference+toEntityReference = unsafeCastGObject . toGObject++instance IsEntityReference EntityReference+instance IsNode EntityReference+instance GObjectClass EntityReference where+  toGObject = GObject . castRef . unEntityReference+  unsafeCastGObject = EntityReference . castRef . unGObject++castToEntityReference :: GObjectClass obj => obj -> EntityReference+castToEntityReference = castTo gTypeEntityReference "EntityReference"++foreign import javascript unsafe "window[\"EntityReference\"]" gTypeEntityReference' :: JSRef GType+gTypeEntityReference = GType gTypeEntityReference'+#else+type IsEntityReference o = EntityReferenceClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Event = Event (JSRef Event)++unEvent (Event o) = o++instance ToJSRef Event where+  toJSRef = return . unEvent+  {-# INLINE toJSRef #-}++instance FromJSRef Event where+  fromJSRef = return . fmap Event . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsEvent o+toEvent :: IsEvent o => o -> Event+toEvent = unsafeCastGObject . toGObject++instance IsEvent Event+instance GObjectClass Event where+  toGObject = GObject . castRef . unEvent+  unsafeCastGObject = Event . castRef . unGObject++castToEvent :: GObjectClass obj => obj -> Event+castToEvent = castTo gTypeEvent "Event"++foreign import javascript unsafe "window[\"Event\"]" gTypeEvent' :: JSRef GType+gTypeEvent = GType gTypeEvent'+#else+type IsEvent o = EventClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype EventTarget = EventTarget (JSRef EventTarget)++unEventTarget (EventTarget o) = o++instance ToJSRef EventTarget where+  toJSRef = return . unEventTarget+  {-# INLINE toJSRef #-}++instance FromJSRef EventTarget where+  fromJSRef = return . fmap EventTarget . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsEventTarget o+toEventTarget :: IsEventTarget o => o -> EventTarget+toEventTarget = unsafeCastGObject . toGObject++instance IsEventTarget EventTarget+instance GObjectClass EventTarget where+  toGObject = GObject . castRef . unEventTarget+  unsafeCastGObject = EventTarget . castRef . unGObject++castToEventTarget :: GObjectClass obj => obj -> EventTarget+castToEventTarget = castTo gTypeEventTarget "EventTarget"++foreign import javascript unsafe "window[\"EventTarget\"]" gTypeEventTarget' :: JSRef GType+gTypeEventTarget = GType gTypeEventTarget'+#else+type IsEventTarget o = EventTargetClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype File = File (JSRef File)++unFile (File o) = o++instance ToJSRef File where+  toJSRef = return . unFile+  {-# INLINE toJSRef #-}++instance FromJSRef File where+  fromJSRef = return . fmap File . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsBlob o => IsFile o+toFile :: IsFile o => o -> File+toFile = unsafeCastGObject . toGObject++instance IsFile File+instance IsBlob File+instance GObjectClass File where+  toGObject = GObject . castRef . unFile+  unsafeCastGObject = File . castRef . unGObject++castToFile :: GObjectClass obj => obj -> File+castToFile = castTo gTypeFile "File"++foreign import javascript unsafe "window[\"File\"]" gTypeFile' :: JSRef GType+gTypeFile = GType gTypeFile'+#else+type IsFile o = FileClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype FileList = FileList (JSRef FileList)++unFileList (FileList o) = o++instance ToJSRef FileList where+  toJSRef = return . unFileList+  {-# INLINE toJSRef #-}++instance FromJSRef FileList where+  fromJSRef = return . fmap FileList . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsFileList o+toFileList :: IsFileList o => o -> FileList+toFileList = unsafeCastGObject . toGObject++instance IsFileList FileList+instance GObjectClass FileList where+  toGObject = GObject . castRef . unFileList+  unsafeCastGObject = FileList . castRef . unGObject++castToFileList :: GObjectClass obj => obj -> FileList+castToFileList = castTo gTypeFileList "FileList"++foreign import javascript unsafe "window[\"FileList\"]" gTypeFileList' :: JSRef GType+gTypeFileList = GType gTypeFileList'+#else+type IsFileList o = FileListClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Geolocation = Geolocation (JSRef Geolocation)++unGeolocation (Geolocation o) = o++instance ToJSRef Geolocation where+  toJSRef = return . unGeolocation+  {-# INLINE toJSRef #-}++instance FromJSRef Geolocation where+  fromJSRef = return . fmap Geolocation . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsGeolocation o+toGeolocation :: IsGeolocation o => o -> Geolocation+toGeolocation = unsafeCastGObject . toGObject++instance IsGeolocation Geolocation+instance GObjectClass Geolocation where+  toGObject = GObject . castRef . unGeolocation+  unsafeCastGObject = Geolocation . castRef . unGObject++castToGeolocation :: GObjectClass obj => obj -> Geolocation+castToGeolocation = castTo gTypeGeolocation "Geolocation"++foreign import javascript unsafe "window[\"Geolocation\"]" gTypeGeolocation' :: JSRef GType+gTypeGeolocation = GType gTypeGeolocation'+#else+type IsGeolocation o = GeolocationClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLAnchorElement = HTMLAnchorElement (JSRef HTMLAnchorElement)++unHTMLAnchorElement (HTMLAnchorElement o) = o++instance ToJSRef HTMLAnchorElement where+  toJSRef = return . unHTMLAnchorElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLAnchorElement where+  fromJSRef = return . fmap HTMLAnchorElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLAnchorElement o+toHTMLAnchorElement :: IsHTMLAnchorElement o => o -> HTMLAnchorElement+toHTMLAnchorElement = unsafeCastGObject . toGObject++instance IsHTMLAnchorElement HTMLAnchorElement+instance IsHTMLElement HTMLAnchorElement+instance IsElement HTMLAnchorElement+instance IsNode HTMLAnchorElement+instance GObjectClass HTMLAnchorElement where+  toGObject = GObject . castRef . unHTMLAnchorElement+  unsafeCastGObject = HTMLAnchorElement . castRef . unGObject++castToHTMLAnchorElement :: GObjectClass obj => obj -> HTMLAnchorElement+castToHTMLAnchorElement = castTo gTypeHTMLAnchorElement "HTMLAnchorElement"++foreign import javascript unsafe "window[\"HTMLAnchorElement\"]" gTypeHTMLAnchorElement' :: JSRef GType+gTypeHTMLAnchorElement = GType gTypeHTMLAnchorElement'+#else+type IsHTMLAnchorElement o = HTMLAnchorElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLAppletElement = HTMLAppletElement (JSRef HTMLAppletElement)++unHTMLAppletElement (HTMLAppletElement o) = o++instance ToJSRef HTMLAppletElement where+  toJSRef = return . unHTMLAppletElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLAppletElement where+  fromJSRef = return . fmap HTMLAppletElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLAppletElement o+toHTMLAppletElement :: IsHTMLAppletElement o => o -> HTMLAppletElement+toHTMLAppletElement = unsafeCastGObject . toGObject++instance IsHTMLAppletElement HTMLAppletElement+instance IsHTMLElement HTMLAppletElement+instance IsElement HTMLAppletElement+instance IsNode HTMLAppletElement+instance GObjectClass HTMLAppletElement where+  toGObject = GObject . castRef . unHTMLAppletElement+  unsafeCastGObject = HTMLAppletElement . castRef . unGObject++castToHTMLAppletElement :: GObjectClass obj => obj -> HTMLAppletElement+castToHTMLAppletElement = castTo gTypeHTMLAppletElement "HTMLAppletElement"++foreign import javascript unsafe "window[\"HTMLAppletElement\"]" gTypeHTMLAppletElement' :: JSRef GType+gTypeHTMLAppletElement = GType gTypeHTMLAppletElement'+#else+type IsHTMLAppletElement o = HTMLAppletElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLAreaElement = HTMLAreaElement (JSRef HTMLAreaElement)++unHTMLAreaElement (HTMLAreaElement o) = o++instance ToJSRef HTMLAreaElement where+  toJSRef = return . unHTMLAreaElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLAreaElement where+  fromJSRef = return . fmap HTMLAreaElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLAreaElement o+toHTMLAreaElement :: IsHTMLAreaElement o => o -> HTMLAreaElement+toHTMLAreaElement = unsafeCastGObject . toGObject++instance IsHTMLAreaElement HTMLAreaElement+instance IsHTMLElement HTMLAreaElement+instance IsElement HTMLAreaElement+instance IsNode HTMLAreaElement+instance GObjectClass HTMLAreaElement where+  toGObject = GObject . castRef . unHTMLAreaElement+  unsafeCastGObject = HTMLAreaElement . castRef . unGObject++castToHTMLAreaElement :: GObjectClass obj => obj -> HTMLAreaElement+castToHTMLAreaElement = castTo gTypeHTMLAreaElement "HTMLAreaElement"++foreign import javascript unsafe "window[\"HTMLAreaElement\"]" gTypeHTMLAreaElement' :: JSRef GType+gTypeHTMLAreaElement = GType gTypeHTMLAreaElement'+#else+type IsHTMLAreaElement o = HTMLAreaElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLAudioElement = HTMLAudioElement (JSRef HTMLAudioElement)++unHTMLAudioElement (HTMLAudioElement o) = o++instance ToJSRef HTMLAudioElement where+  toJSRef = return . unHTMLAudioElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLAudioElement where+  fromJSRef = return . fmap HTMLAudioElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLMediaElement o => IsHTMLAudioElement o+toHTMLAudioElement :: IsHTMLAudioElement o => o -> HTMLAudioElement+toHTMLAudioElement = unsafeCastGObject . toGObject++instance IsHTMLAudioElement HTMLAudioElement+instance IsHTMLMediaElement HTMLAudioElement+instance IsHTMLElement HTMLAudioElement+instance IsElement HTMLAudioElement+instance IsNode HTMLAudioElement+instance GObjectClass HTMLAudioElement where+  toGObject = GObject . castRef . unHTMLAudioElement+  unsafeCastGObject = HTMLAudioElement . castRef . unGObject++castToHTMLAudioElement :: GObjectClass obj => obj -> HTMLAudioElement+castToHTMLAudioElement = castTo gTypeHTMLAudioElement "HTMLAudioElement"++foreign import javascript unsafe "window[\"HTMLAudioElement\"]" gTypeHTMLAudioElement' :: JSRef GType+gTypeHTMLAudioElement = GType gTypeHTMLAudioElement'+#else+type IsHTMLAudioElement o = HTMLAudioElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLBRElement = HTMLBRElement (JSRef HTMLBRElement)++unHTMLBRElement (HTMLBRElement o) = o++instance ToJSRef HTMLBRElement where+  toJSRef = return . unHTMLBRElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLBRElement where+  fromJSRef = return . fmap HTMLBRElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLBRElement o+toHTMLBRElement :: IsHTMLBRElement o => o -> HTMLBRElement+toHTMLBRElement = unsafeCastGObject . toGObject++instance IsHTMLBRElement HTMLBRElement+instance IsHTMLElement HTMLBRElement+instance IsElement HTMLBRElement+instance IsNode HTMLBRElement+instance GObjectClass HTMLBRElement where+  toGObject = GObject . castRef . unHTMLBRElement+  unsafeCastGObject = HTMLBRElement . castRef . unGObject++castToHTMLBRElement :: GObjectClass obj => obj -> HTMLBRElement+castToHTMLBRElement = castTo gTypeHTMLBRElement "HTMLBRElement"++foreign import javascript unsafe "window[\"HTMLBRElement\"]" gTypeHTMLBRElement' :: JSRef GType+gTypeHTMLBRElement = GType gTypeHTMLBRElement'+#else+type IsHTMLBRElement o = HTMLBRElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLBaseElement = HTMLBaseElement (JSRef HTMLBaseElement)++unHTMLBaseElement (HTMLBaseElement o) = o++instance ToJSRef HTMLBaseElement where+  toJSRef = return . unHTMLBaseElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLBaseElement where+  fromJSRef = return . fmap HTMLBaseElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLBaseElement o+toHTMLBaseElement :: IsHTMLBaseElement o => o -> HTMLBaseElement+toHTMLBaseElement = unsafeCastGObject . toGObject++instance IsHTMLBaseElement HTMLBaseElement+instance IsHTMLElement HTMLBaseElement+instance IsElement HTMLBaseElement+instance IsNode HTMLBaseElement+instance GObjectClass HTMLBaseElement where+  toGObject = GObject . castRef . unHTMLBaseElement+  unsafeCastGObject = HTMLBaseElement . castRef . unGObject++castToHTMLBaseElement :: GObjectClass obj => obj -> HTMLBaseElement+castToHTMLBaseElement = castTo gTypeHTMLBaseElement "HTMLBaseElement"++foreign import javascript unsafe "window[\"HTMLBaseElement\"]" gTypeHTMLBaseElement' :: JSRef GType+gTypeHTMLBaseElement = GType gTypeHTMLBaseElement'+#else+type IsHTMLBaseElement o = HTMLBaseElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLBaseFontElement = HTMLBaseFontElement (JSRef HTMLBaseFontElement)++unHTMLBaseFontElement (HTMLBaseFontElement o) = o++instance ToJSRef HTMLBaseFontElement where+  toJSRef = return . unHTMLBaseFontElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLBaseFontElement where+  fromJSRef = return . fmap HTMLBaseFontElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLBaseFontElement o+toHTMLBaseFontElement :: IsHTMLBaseFontElement o => o -> HTMLBaseFontElement+toHTMLBaseFontElement = unsafeCastGObject . toGObject++instance IsHTMLBaseFontElement HTMLBaseFontElement+instance IsHTMLElement HTMLBaseFontElement+instance IsElement HTMLBaseFontElement+instance IsNode HTMLBaseFontElement+instance GObjectClass HTMLBaseFontElement where+  toGObject = GObject . castRef . unHTMLBaseFontElement+  unsafeCastGObject = HTMLBaseFontElement . castRef . unGObject++castToHTMLBaseFontElement :: GObjectClass obj => obj -> HTMLBaseFontElement+castToHTMLBaseFontElement = castTo gTypeHTMLBaseFontElement "HTMLBaseFontElement"++foreign import javascript unsafe "window[\"HTMLBaseFontElement\"]" gTypeHTMLBaseFontElement' :: JSRef GType+gTypeHTMLBaseFontElement = GType gTypeHTMLBaseFontElement'+#else+type IsHTMLBaseFontElement o = HTMLBaseFontElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLBodyElement = HTMLBodyElement (JSRef HTMLBodyElement)++unHTMLBodyElement (HTMLBodyElement o) = o++instance ToJSRef HTMLBodyElement where+  toJSRef = return . unHTMLBodyElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLBodyElement where+  fromJSRef = return . fmap HTMLBodyElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLBodyElement o+toHTMLBodyElement :: IsHTMLBodyElement o => o -> HTMLBodyElement+toHTMLBodyElement = unsafeCastGObject . toGObject++instance IsHTMLBodyElement HTMLBodyElement+instance IsHTMLElement HTMLBodyElement+instance IsElement HTMLBodyElement+instance IsNode HTMLBodyElement+instance GObjectClass HTMLBodyElement where+  toGObject = GObject . castRef . unHTMLBodyElement+  unsafeCastGObject = HTMLBodyElement . castRef . unGObject++castToHTMLBodyElement :: GObjectClass obj => obj -> HTMLBodyElement+castToHTMLBodyElement = castTo gTypeHTMLBodyElement "HTMLBodyElement"++foreign import javascript unsafe "window[\"HTMLBodyElement\"]" gTypeHTMLBodyElement' :: JSRef GType+gTypeHTMLBodyElement = GType gTypeHTMLBodyElement'+#else+type IsHTMLBodyElement o = HTMLBodyElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLButtonElement = HTMLButtonElement (JSRef HTMLButtonElement)++unHTMLButtonElement (HTMLButtonElement o) = o++instance ToJSRef HTMLButtonElement where+  toJSRef = return . unHTMLButtonElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLButtonElement where+  fromJSRef = return . fmap HTMLButtonElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLButtonElement o+toHTMLButtonElement :: IsHTMLButtonElement o => o -> HTMLButtonElement+toHTMLButtonElement = unsafeCastGObject . toGObject++instance IsHTMLButtonElement HTMLButtonElement+instance IsHTMLElement HTMLButtonElement+instance IsElement HTMLButtonElement+instance IsNode HTMLButtonElement+instance GObjectClass HTMLButtonElement where+  toGObject = GObject . castRef . unHTMLButtonElement+  unsafeCastGObject = HTMLButtonElement . castRef . unGObject++castToHTMLButtonElement :: GObjectClass obj => obj -> HTMLButtonElement+castToHTMLButtonElement = castTo gTypeHTMLButtonElement "HTMLButtonElement"++foreign import javascript unsafe "window[\"HTMLButtonElement\"]" gTypeHTMLButtonElement' :: JSRef GType+gTypeHTMLButtonElement = GType gTypeHTMLButtonElement'+#else+type IsHTMLButtonElement o = HTMLButtonElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLCanvasElement = HTMLCanvasElement (JSRef HTMLCanvasElement)++unHTMLCanvasElement (HTMLCanvasElement o) = o++instance ToJSRef HTMLCanvasElement where+  toJSRef = return . unHTMLCanvasElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLCanvasElement where+  fromJSRef = return . fmap HTMLCanvasElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLCanvasElement o+toHTMLCanvasElement :: IsHTMLCanvasElement o => o -> HTMLCanvasElement+toHTMLCanvasElement = unsafeCastGObject . toGObject++instance IsHTMLCanvasElement HTMLCanvasElement+instance IsHTMLElement HTMLCanvasElement+instance IsElement HTMLCanvasElement+instance IsNode HTMLCanvasElement+instance GObjectClass HTMLCanvasElement where+  toGObject = GObject . castRef . unHTMLCanvasElement+  unsafeCastGObject = HTMLCanvasElement . castRef . unGObject++castToHTMLCanvasElement :: GObjectClass obj => obj -> HTMLCanvasElement+castToHTMLCanvasElement = castTo gTypeHTMLCanvasElement "HTMLCanvasElement"++foreign import javascript unsafe "window[\"HTMLCanvasElement\"]" gTypeHTMLCanvasElement' :: JSRef GType+gTypeHTMLCanvasElement = GType gTypeHTMLCanvasElement'+#else+type IsHTMLCanvasElement o = HTMLCanvasElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLCollection = HTMLCollection (JSRef HTMLCollection)++unHTMLCollection (HTMLCollection o) = o++instance ToJSRef HTMLCollection where+  toJSRef = return . unHTMLCollection+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLCollection where+  fromJSRef = return . fmap HTMLCollection . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsHTMLCollection o+toHTMLCollection :: IsHTMLCollection o => o -> HTMLCollection+toHTMLCollection = unsafeCastGObject . toGObject++instance IsHTMLCollection HTMLCollection+instance GObjectClass HTMLCollection where+  toGObject = GObject . castRef . unHTMLCollection+  unsafeCastGObject = HTMLCollection . castRef . unGObject++castToHTMLCollection :: GObjectClass obj => obj -> HTMLCollection+castToHTMLCollection = castTo gTypeHTMLCollection "HTMLCollection"++foreign import javascript unsafe "window[\"HTMLCollection\"]" gTypeHTMLCollection' :: JSRef GType+gTypeHTMLCollection = GType gTypeHTMLCollection'+#else+type IsHTMLCollection o = HTMLCollectionClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLDListElement = HTMLDListElement (JSRef HTMLDListElement)++unHTMLDListElement (HTMLDListElement o) = o++instance ToJSRef HTMLDListElement where+  toJSRef = return . unHTMLDListElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLDListElement where+  fromJSRef = return . fmap HTMLDListElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLDListElement o+toHTMLDListElement :: IsHTMLDListElement o => o -> HTMLDListElement+toHTMLDListElement = unsafeCastGObject . toGObject++instance IsHTMLDListElement HTMLDListElement+instance IsHTMLElement HTMLDListElement+instance IsElement HTMLDListElement+instance IsNode HTMLDListElement+instance GObjectClass HTMLDListElement where+  toGObject = GObject . castRef . unHTMLDListElement+  unsafeCastGObject = HTMLDListElement . castRef . unGObject++castToHTMLDListElement :: GObjectClass obj => obj -> HTMLDListElement+castToHTMLDListElement = castTo gTypeHTMLDListElement "HTMLDListElement"++foreign import javascript unsafe "window[\"HTMLDListElement\"]" gTypeHTMLDListElement' :: JSRef GType+gTypeHTMLDListElement = GType gTypeHTMLDListElement'+#else+type IsHTMLDListElement o = HTMLDListElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLDetailsElement = HTMLDetailsElement (JSRef HTMLDetailsElement)++unHTMLDetailsElement (HTMLDetailsElement o) = o++instance ToJSRef HTMLDetailsElement where+  toJSRef = return . unHTMLDetailsElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLDetailsElement where+  fromJSRef = return . fmap HTMLDetailsElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLDetailsElement o+toHTMLDetailsElement :: IsHTMLDetailsElement o => o -> HTMLDetailsElement+toHTMLDetailsElement = unsafeCastGObject . toGObject++instance IsHTMLDetailsElement HTMLDetailsElement+instance IsHTMLElement HTMLDetailsElement+instance IsElement HTMLDetailsElement+instance IsNode HTMLDetailsElement+instance GObjectClass HTMLDetailsElement where+  toGObject = GObject . castRef . unHTMLDetailsElement+  unsafeCastGObject = HTMLDetailsElement . castRef . unGObject++castToHTMLDetailsElement :: GObjectClass obj => obj -> HTMLDetailsElement+castToHTMLDetailsElement = castTo gTypeHTMLDetailsElement "HTMLDetailsElement"++foreign import javascript unsafe "window[\"HTMLDetailsElement\"]" gTypeHTMLDetailsElement' :: JSRef GType+gTypeHTMLDetailsElement = GType gTypeHTMLDetailsElement'+#else+type IsHTMLDetailsElement o = HTMLDetailsElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLDirectoryElement = HTMLDirectoryElement (JSRef HTMLDirectoryElement)++unHTMLDirectoryElement (HTMLDirectoryElement o) = o++instance ToJSRef HTMLDirectoryElement where+  toJSRef = return . unHTMLDirectoryElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLDirectoryElement where+  fromJSRef = return . fmap HTMLDirectoryElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLDirectoryElement o+toHTMLDirectoryElement :: IsHTMLDirectoryElement o => o -> HTMLDirectoryElement+toHTMLDirectoryElement = unsafeCastGObject . toGObject++instance IsHTMLDirectoryElement HTMLDirectoryElement+instance IsHTMLElement HTMLDirectoryElement+instance IsElement HTMLDirectoryElement+instance IsNode HTMLDirectoryElement+instance GObjectClass HTMLDirectoryElement where+  toGObject = GObject . castRef . unHTMLDirectoryElement+  unsafeCastGObject = HTMLDirectoryElement . castRef . unGObject++castToHTMLDirectoryElement :: GObjectClass obj => obj -> HTMLDirectoryElement+castToHTMLDirectoryElement = castTo gTypeHTMLDirectoryElement "HTMLDirectoryElement"++foreign import javascript unsafe "window[\"HTMLDirectoryElement\"]" gTypeHTMLDirectoryElement' :: JSRef GType+gTypeHTMLDirectoryElement = GType gTypeHTMLDirectoryElement'+#else+type IsHTMLDirectoryElement o = HTMLDirectoryElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLDivElement = HTMLDivElement (JSRef HTMLDivElement)++unHTMLDivElement (HTMLDivElement o) = o++instance ToJSRef HTMLDivElement where+  toJSRef = return . unHTMLDivElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLDivElement where+  fromJSRef = return . fmap HTMLDivElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLDivElement o+toHTMLDivElement :: IsHTMLDivElement o => o -> HTMLDivElement+toHTMLDivElement = unsafeCastGObject . toGObject++instance IsHTMLDivElement HTMLDivElement+instance IsHTMLElement HTMLDivElement+instance IsElement HTMLDivElement+instance IsNode HTMLDivElement+instance GObjectClass HTMLDivElement where+  toGObject = GObject . castRef . unHTMLDivElement+  unsafeCastGObject = HTMLDivElement . castRef . unGObject++castToHTMLDivElement :: GObjectClass obj => obj -> HTMLDivElement+castToHTMLDivElement = castTo gTypeHTMLDivElement "HTMLDivElement"++foreign import javascript unsafe "window[\"HTMLDivElement\"]" gTypeHTMLDivElement' :: JSRef GType+gTypeHTMLDivElement = GType gTypeHTMLDivElement'+#else+type IsHTMLDivElement o = HTMLDivElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLDocument = HTMLDocument (JSRef HTMLDocument)++unHTMLDocument (HTMLDocument o) = o++instance ToJSRef HTMLDocument where+  toJSRef = return . unHTMLDocument+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLDocument where+  fromJSRef = return . fmap HTMLDocument . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsDocument o => IsHTMLDocument o+toHTMLDocument :: IsHTMLDocument o => o -> HTMLDocument+toHTMLDocument = unsafeCastGObject . toGObject++instance IsHTMLDocument HTMLDocument+instance IsDocument HTMLDocument+instance IsNode HTMLDocument+instance GObjectClass HTMLDocument where+  toGObject = GObject . castRef . unHTMLDocument+  unsafeCastGObject = HTMLDocument . castRef . unGObject++castToHTMLDocument :: GObjectClass obj => obj -> HTMLDocument+castToHTMLDocument = castTo gTypeHTMLDocument "HTMLDocument"++foreign import javascript unsafe "window[\"HTMLDocument\"]" gTypeHTMLDocument' :: JSRef GType+gTypeHTMLDocument = GType gTypeHTMLDocument'+#else+type IsHTMLDocument o = HTMLDocumentClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLElement = HTMLElement (JSRef HTMLElement)++unHTMLElement (HTMLElement o) = o++instance ToJSRef HTMLElement where+  toJSRef = return . unHTMLElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLElement where+  fromJSRef = return . fmap HTMLElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsElement o => IsHTMLElement o+toHTMLElement :: IsHTMLElement o => o -> HTMLElement+toHTMLElement = unsafeCastGObject . toGObject++instance IsHTMLElement HTMLElement+instance IsElement HTMLElement+instance IsNode HTMLElement+instance GObjectClass HTMLElement where+  toGObject = GObject . castRef . unHTMLElement+  unsafeCastGObject = HTMLElement . castRef . unGObject++castToHTMLElement :: GObjectClass obj => obj -> HTMLElement+castToHTMLElement = castTo gTypeHTMLElement "HTMLElement"++foreign import javascript unsafe "window[\"HTMLElement\"]" gTypeHTMLElement' :: JSRef GType+gTypeHTMLElement = GType gTypeHTMLElement'+#else+type IsHTMLElement o = HTMLElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLEmbedElement = HTMLEmbedElement (JSRef HTMLEmbedElement)++unHTMLEmbedElement (HTMLEmbedElement o) = o++instance ToJSRef HTMLEmbedElement where+  toJSRef = return . unHTMLEmbedElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLEmbedElement where+  fromJSRef = return . fmap HTMLEmbedElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLEmbedElement o+toHTMLEmbedElement :: IsHTMLEmbedElement o => o -> HTMLEmbedElement+toHTMLEmbedElement = unsafeCastGObject . toGObject++instance IsHTMLEmbedElement HTMLEmbedElement+instance IsHTMLElement HTMLEmbedElement+instance IsElement HTMLEmbedElement+instance IsNode HTMLEmbedElement+instance GObjectClass HTMLEmbedElement where+  toGObject = GObject . castRef . unHTMLEmbedElement+  unsafeCastGObject = HTMLEmbedElement . castRef . unGObject++castToHTMLEmbedElement :: GObjectClass obj => obj -> HTMLEmbedElement+castToHTMLEmbedElement = castTo gTypeHTMLEmbedElement "HTMLEmbedElement"++foreign import javascript unsafe "window[\"HTMLEmbedElement\"]" gTypeHTMLEmbedElement' :: JSRef GType+gTypeHTMLEmbedElement = GType gTypeHTMLEmbedElement'+#else+type IsHTMLEmbedElement o = HTMLEmbedElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLFieldSetElement = HTMLFieldSetElement (JSRef HTMLFieldSetElement)++unHTMLFieldSetElement (HTMLFieldSetElement o) = o++instance ToJSRef HTMLFieldSetElement where+  toJSRef = return . unHTMLFieldSetElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLFieldSetElement where+  fromJSRef = return . fmap HTMLFieldSetElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLFieldSetElement o+toHTMLFieldSetElement :: IsHTMLFieldSetElement o => o -> HTMLFieldSetElement+toHTMLFieldSetElement = unsafeCastGObject . toGObject++instance IsHTMLFieldSetElement HTMLFieldSetElement+instance IsHTMLElement HTMLFieldSetElement+instance IsElement HTMLFieldSetElement+instance IsNode HTMLFieldSetElement+instance GObjectClass HTMLFieldSetElement where+  toGObject = GObject . castRef . unHTMLFieldSetElement+  unsafeCastGObject = HTMLFieldSetElement . castRef . unGObject++castToHTMLFieldSetElement :: GObjectClass obj => obj -> HTMLFieldSetElement+castToHTMLFieldSetElement = castTo gTypeHTMLFieldSetElement "HTMLFieldSetElement"++foreign import javascript unsafe "window[\"HTMLFieldSetElement\"]" gTypeHTMLFieldSetElement' :: JSRef GType+gTypeHTMLFieldSetElement = GType gTypeHTMLFieldSetElement'+#else+type IsHTMLFieldSetElement o = HTMLFieldSetElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLFontElement = HTMLFontElement (JSRef HTMLFontElement)++unHTMLFontElement (HTMLFontElement o) = o++instance ToJSRef HTMLFontElement where+  toJSRef = return . unHTMLFontElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLFontElement where+  fromJSRef = return . fmap HTMLFontElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLFontElement o+toHTMLFontElement :: IsHTMLFontElement o => o -> HTMLFontElement+toHTMLFontElement = unsafeCastGObject . toGObject++instance IsHTMLFontElement HTMLFontElement+instance IsHTMLElement HTMLFontElement+instance IsElement HTMLFontElement+instance IsNode HTMLFontElement+instance GObjectClass HTMLFontElement where+  toGObject = GObject . castRef . unHTMLFontElement+  unsafeCastGObject = HTMLFontElement . castRef . unGObject++castToHTMLFontElement :: GObjectClass obj => obj -> HTMLFontElement+castToHTMLFontElement = castTo gTypeHTMLFontElement "HTMLFontElement"++foreign import javascript unsafe "window[\"HTMLFontElement\"]" gTypeHTMLFontElement' :: JSRef GType+gTypeHTMLFontElement = GType gTypeHTMLFontElement'+#else+type IsHTMLFontElement o = HTMLFontElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLFormElement = HTMLFormElement (JSRef HTMLFormElement)++unHTMLFormElement (HTMLFormElement o) = o++instance ToJSRef HTMLFormElement where+  toJSRef = return . unHTMLFormElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLFormElement where+  fromJSRef = return . fmap HTMLFormElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLFormElement o+toHTMLFormElement :: IsHTMLFormElement o => o -> HTMLFormElement+toHTMLFormElement = unsafeCastGObject . toGObject++instance IsHTMLFormElement HTMLFormElement+instance IsHTMLElement HTMLFormElement+instance IsElement HTMLFormElement+instance IsNode HTMLFormElement+instance GObjectClass HTMLFormElement where+  toGObject = GObject . castRef . unHTMLFormElement+  unsafeCastGObject = HTMLFormElement . castRef . unGObject++castToHTMLFormElement :: GObjectClass obj => obj -> HTMLFormElement+castToHTMLFormElement = castTo gTypeHTMLFormElement "HTMLFormElement"++foreign import javascript unsafe "window[\"HTMLFormElement\"]" gTypeHTMLFormElement' :: JSRef GType+gTypeHTMLFormElement = GType gTypeHTMLFormElement'+#else+type IsHTMLFormElement o = HTMLFormElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLFrameElement = HTMLFrameElement (JSRef HTMLFrameElement)++unHTMLFrameElement (HTMLFrameElement o) = o++instance ToJSRef HTMLFrameElement where+  toJSRef = return . unHTMLFrameElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLFrameElement where+  fromJSRef = return . fmap HTMLFrameElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLFrameElement o+toHTMLFrameElement :: IsHTMLFrameElement o => o -> HTMLFrameElement+toHTMLFrameElement = unsafeCastGObject . toGObject++instance IsHTMLFrameElement HTMLFrameElement+instance IsHTMLElement HTMLFrameElement+instance IsElement HTMLFrameElement+instance IsNode HTMLFrameElement+instance GObjectClass HTMLFrameElement where+  toGObject = GObject . castRef . unHTMLFrameElement+  unsafeCastGObject = HTMLFrameElement . castRef . unGObject++castToHTMLFrameElement :: GObjectClass obj => obj -> HTMLFrameElement+castToHTMLFrameElement = castTo gTypeHTMLFrameElement "HTMLFrameElement"++foreign import javascript unsafe "window[\"HTMLFrameElement\"]" gTypeHTMLFrameElement' :: JSRef GType+gTypeHTMLFrameElement = GType gTypeHTMLFrameElement'+#else+type IsHTMLFrameElement o = HTMLFrameElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLFrameSetElement = HTMLFrameSetElement (JSRef HTMLFrameSetElement)++unHTMLFrameSetElement (HTMLFrameSetElement o) = o++instance ToJSRef HTMLFrameSetElement where+  toJSRef = return . unHTMLFrameSetElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLFrameSetElement where+  fromJSRef = return . fmap HTMLFrameSetElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLFrameSetElement o+toHTMLFrameSetElement :: IsHTMLFrameSetElement o => o -> HTMLFrameSetElement+toHTMLFrameSetElement = unsafeCastGObject . toGObject++instance IsHTMLFrameSetElement HTMLFrameSetElement+instance IsHTMLElement HTMLFrameSetElement+instance IsElement HTMLFrameSetElement+instance IsNode HTMLFrameSetElement+instance GObjectClass HTMLFrameSetElement where+  toGObject = GObject . castRef . unHTMLFrameSetElement+  unsafeCastGObject = HTMLFrameSetElement . castRef . unGObject++castToHTMLFrameSetElement :: GObjectClass obj => obj -> HTMLFrameSetElement+castToHTMLFrameSetElement = castTo gTypeHTMLFrameSetElement "HTMLFrameSetElement"++foreign import javascript unsafe "window[\"HTMLFrameSetElement\"]" gTypeHTMLFrameSetElement' :: JSRef GType+gTypeHTMLFrameSetElement = GType gTypeHTMLFrameSetElement'+#else+type IsHTMLFrameSetElement o = HTMLFrameSetElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLHRElement = HTMLHRElement (JSRef HTMLHRElement)++unHTMLHRElement (HTMLHRElement o) = o++instance ToJSRef HTMLHRElement where+  toJSRef = return . unHTMLHRElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLHRElement where+  fromJSRef = return . fmap HTMLHRElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLHRElement o+toHTMLHRElement :: IsHTMLHRElement o => o -> HTMLHRElement+toHTMLHRElement = unsafeCastGObject . toGObject++instance IsHTMLHRElement HTMLHRElement+instance IsHTMLElement HTMLHRElement+instance IsElement HTMLHRElement+instance IsNode HTMLHRElement+instance GObjectClass HTMLHRElement where+  toGObject = GObject . castRef . unHTMLHRElement+  unsafeCastGObject = HTMLHRElement . castRef . unGObject++castToHTMLHRElement :: GObjectClass obj => obj -> HTMLHRElement+castToHTMLHRElement = castTo gTypeHTMLHRElement "HTMLHRElement"++foreign import javascript unsafe "window[\"HTMLHRElement\"]" gTypeHTMLHRElement' :: JSRef GType+gTypeHTMLHRElement = GType gTypeHTMLHRElement'+#else+type IsHTMLHRElement o = HTMLHRElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLHeadElement = HTMLHeadElement (JSRef HTMLHeadElement)++unHTMLHeadElement (HTMLHeadElement o) = o++instance ToJSRef HTMLHeadElement where+  toJSRef = return . unHTMLHeadElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLHeadElement where+  fromJSRef = return . fmap HTMLHeadElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLHeadElement o+toHTMLHeadElement :: IsHTMLHeadElement o => o -> HTMLHeadElement+toHTMLHeadElement = unsafeCastGObject . toGObject++instance IsHTMLHeadElement HTMLHeadElement+instance IsHTMLElement HTMLHeadElement+instance IsElement HTMLHeadElement+instance IsNode HTMLHeadElement+instance GObjectClass HTMLHeadElement where+  toGObject = GObject . castRef . unHTMLHeadElement+  unsafeCastGObject = HTMLHeadElement . castRef . unGObject++castToHTMLHeadElement :: GObjectClass obj => obj -> HTMLHeadElement+castToHTMLHeadElement = castTo gTypeHTMLHeadElement "HTMLHeadElement"++foreign import javascript unsafe "window[\"HTMLHeadElement\"]" gTypeHTMLHeadElement' :: JSRef GType+gTypeHTMLHeadElement = GType gTypeHTMLHeadElement'+#else+type IsHTMLHeadElement o = HTMLHeadElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLHeadingElement = HTMLHeadingElement (JSRef HTMLHeadingElement)++unHTMLHeadingElement (HTMLHeadingElement o) = o++instance ToJSRef HTMLHeadingElement where+  toJSRef = return . unHTMLHeadingElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLHeadingElement where+  fromJSRef = return . fmap HTMLHeadingElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLHeadingElement o+toHTMLHeadingElement :: IsHTMLHeadingElement o => o -> HTMLHeadingElement+toHTMLHeadingElement = unsafeCastGObject . toGObject++instance IsHTMLHeadingElement HTMLHeadingElement+instance IsHTMLElement HTMLHeadingElement+instance IsElement HTMLHeadingElement+instance IsNode HTMLHeadingElement+instance GObjectClass HTMLHeadingElement where+  toGObject = GObject . castRef . unHTMLHeadingElement+  unsafeCastGObject = HTMLHeadingElement . castRef . unGObject++castToHTMLHeadingElement :: GObjectClass obj => obj -> HTMLHeadingElement+castToHTMLHeadingElement = castTo gTypeHTMLHeadingElement "HTMLHeadingElement"++foreign import javascript unsafe "window[\"HTMLHeadingElement\"]" gTypeHTMLHeadingElement' :: JSRef GType+gTypeHTMLHeadingElement = GType gTypeHTMLHeadingElement'+#else+type IsHTMLHeadingElement o = HTMLHeadingElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLHtmlElement = HTMLHtmlElement (JSRef HTMLHtmlElement)++unHTMLHtmlElement (HTMLHtmlElement o) = o++instance ToJSRef HTMLHtmlElement where+  toJSRef = return . unHTMLHtmlElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLHtmlElement where+  fromJSRef = return . fmap HTMLHtmlElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLHtmlElement o+toHTMLHtmlElement :: IsHTMLHtmlElement o => o -> HTMLHtmlElement+toHTMLHtmlElement = unsafeCastGObject . toGObject++instance IsHTMLHtmlElement HTMLHtmlElement+instance IsHTMLElement HTMLHtmlElement+instance IsElement HTMLHtmlElement+instance IsNode HTMLHtmlElement+instance GObjectClass HTMLHtmlElement where+  toGObject = GObject . castRef . unHTMLHtmlElement+  unsafeCastGObject = HTMLHtmlElement . castRef . unGObject++castToHTMLHtmlElement :: GObjectClass obj => obj -> HTMLHtmlElement+castToHTMLHtmlElement = castTo gTypeHTMLHtmlElement "HTMLHtmlElement"++foreign import javascript unsafe "window[\"HTMLHtmlElement\"]" gTypeHTMLHtmlElement' :: JSRef GType+gTypeHTMLHtmlElement = GType gTypeHTMLHtmlElement'+#else+type IsHTMLHtmlElement o = HTMLHtmlElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLIFrameElement = HTMLIFrameElement (JSRef HTMLIFrameElement)++unHTMLIFrameElement (HTMLIFrameElement o) = o++instance ToJSRef HTMLIFrameElement where+  toJSRef = return . unHTMLIFrameElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLIFrameElement where+  fromJSRef = return . fmap HTMLIFrameElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLIFrameElement o+toHTMLIFrameElement :: IsHTMLIFrameElement o => o -> HTMLIFrameElement+toHTMLIFrameElement = unsafeCastGObject . toGObject++instance IsHTMLIFrameElement HTMLIFrameElement+instance IsHTMLElement HTMLIFrameElement+instance IsElement HTMLIFrameElement+instance IsNode HTMLIFrameElement+instance GObjectClass HTMLIFrameElement where+  toGObject = GObject . castRef . unHTMLIFrameElement+  unsafeCastGObject = HTMLIFrameElement . castRef . unGObject++castToHTMLIFrameElement :: GObjectClass obj => obj -> HTMLIFrameElement+castToHTMLIFrameElement = castTo gTypeHTMLIFrameElement "HTMLIFrameElement"++foreign import javascript unsafe "window[\"HTMLIFrameElement\"]" gTypeHTMLIFrameElement' :: JSRef GType+gTypeHTMLIFrameElement = GType gTypeHTMLIFrameElement'+#else+type IsHTMLIFrameElement o = HTMLIFrameElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLImageElement = HTMLImageElement (JSRef HTMLImageElement)++unHTMLImageElement (HTMLImageElement o) = o++instance ToJSRef HTMLImageElement where+  toJSRef = return . unHTMLImageElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLImageElement where+  fromJSRef = return . fmap HTMLImageElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLImageElement o+toHTMLImageElement :: IsHTMLImageElement o => o -> HTMLImageElement+toHTMLImageElement = unsafeCastGObject . toGObject++instance IsHTMLImageElement HTMLImageElement+instance IsHTMLElement HTMLImageElement+instance IsElement HTMLImageElement+instance IsNode HTMLImageElement+instance GObjectClass HTMLImageElement where+  toGObject = GObject . castRef . unHTMLImageElement+  unsafeCastGObject = HTMLImageElement . castRef . unGObject++castToHTMLImageElement :: GObjectClass obj => obj -> HTMLImageElement+castToHTMLImageElement = castTo gTypeHTMLImageElement "HTMLImageElement"++foreign import javascript unsafe "window[\"HTMLImageElement\"]" gTypeHTMLImageElement' :: JSRef GType+gTypeHTMLImageElement = GType gTypeHTMLImageElement'+#else+type IsHTMLImageElement o = HTMLImageElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLInputElement = HTMLInputElement (JSRef HTMLInputElement)++unHTMLInputElement (HTMLInputElement o) = o++instance ToJSRef HTMLInputElement where+  toJSRef = return . unHTMLInputElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLInputElement where+  fromJSRef = return . fmap HTMLInputElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLInputElement o+toHTMLInputElement :: IsHTMLInputElement o => o -> HTMLInputElement+toHTMLInputElement = unsafeCastGObject . toGObject++instance IsHTMLInputElement HTMLInputElement+instance IsHTMLElement HTMLInputElement+instance IsElement HTMLInputElement+instance IsNode HTMLInputElement+instance GObjectClass HTMLInputElement where+  toGObject = GObject . castRef . unHTMLInputElement+  unsafeCastGObject = HTMLInputElement . castRef . unGObject++castToHTMLInputElement :: GObjectClass obj => obj -> HTMLInputElement+castToHTMLInputElement = castTo gTypeHTMLInputElement "HTMLInputElement"++foreign import javascript unsafe "window[\"HTMLInputElement\"]" gTypeHTMLInputElement' :: JSRef GType+gTypeHTMLInputElement = GType gTypeHTMLInputElement'+#else+type IsHTMLInputElement o = HTMLInputElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLKeygenElement = HTMLKeygenElement (JSRef HTMLKeygenElement)++unHTMLKeygenElement (HTMLKeygenElement o) = o++instance ToJSRef HTMLKeygenElement where+  toJSRef = return . unHTMLKeygenElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLKeygenElement where+  fromJSRef = return . fmap HTMLKeygenElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLKeygenElement o+toHTMLKeygenElement :: IsHTMLKeygenElement o => o -> HTMLKeygenElement+toHTMLKeygenElement = unsafeCastGObject . toGObject++instance IsHTMLKeygenElement HTMLKeygenElement+instance IsHTMLElement HTMLKeygenElement+instance IsElement HTMLKeygenElement+instance IsNode HTMLKeygenElement+instance GObjectClass HTMLKeygenElement where+  toGObject = GObject . castRef . unHTMLKeygenElement+  unsafeCastGObject = HTMLKeygenElement . castRef . unGObject++castToHTMLKeygenElement :: GObjectClass obj => obj -> HTMLKeygenElement+castToHTMLKeygenElement = castTo gTypeHTMLKeygenElement "HTMLKeygenElement"++foreign import javascript unsafe "window[\"HTMLKeygenElement\"]" gTypeHTMLKeygenElement' :: JSRef GType+gTypeHTMLKeygenElement = GType gTypeHTMLKeygenElement'+#else+type IsHTMLKeygenElement o = HTMLKeygenElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLLIElement = HTMLLIElement (JSRef HTMLLIElement)++unHTMLLIElement (HTMLLIElement o) = o++instance ToJSRef HTMLLIElement where+  toJSRef = return . unHTMLLIElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLLIElement where+  fromJSRef = return . fmap HTMLLIElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLLIElement o+toHTMLLIElement :: IsHTMLLIElement o => o -> HTMLLIElement+toHTMLLIElement = unsafeCastGObject . toGObject++instance IsHTMLLIElement HTMLLIElement+instance IsHTMLElement HTMLLIElement+instance IsElement HTMLLIElement+instance IsNode HTMLLIElement+instance GObjectClass HTMLLIElement where+  toGObject = GObject . castRef . unHTMLLIElement+  unsafeCastGObject = HTMLLIElement . castRef . unGObject++castToHTMLLIElement :: GObjectClass obj => obj -> HTMLLIElement+castToHTMLLIElement = castTo gTypeHTMLLIElement "HTMLLIElement"++foreign import javascript unsafe "window[\"HTMLLIElement\"]" gTypeHTMLLIElement' :: JSRef GType+gTypeHTMLLIElement = GType gTypeHTMLLIElement'+#else+type IsHTMLLIElement o = HTMLLIElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLLabelElement = HTMLLabelElement (JSRef HTMLLabelElement)++unHTMLLabelElement (HTMLLabelElement o) = o++instance ToJSRef HTMLLabelElement where+  toJSRef = return . unHTMLLabelElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLLabelElement where+  fromJSRef = return . fmap HTMLLabelElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLLabelElement o+toHTMLLabelElement :: IsHTMLLabelElement o => o -> HTMLLabelElement+toHTMLLabelElement = unsafeCastGObject . toGObject++instance IsHTMLLabelElement HTMLLabelElement+instance IsHTMLElement HTMLLabelElement+instance IsElement HTMLLabelElement+instance IsNode HTMLLabelElement+instance GObjectClass HTMLLabelElement where+  toGObject = GObject . castRef . unHTMLLabelElement+  unsafeCastGObject = HTMLLabelElement . castRef . unGObject++castToHTMLLabelElement :: GObjectClass obj => obj -> HTMLLabelElement+castToHTMLLabelElement = castTo gTypeHTMLLabelElement "HTMLLabelElement"++foreign import javascript unsafe "window[\"HTMLLabelElement\"]" gTypeHTMLLabelElement' :: JSRef GType+gTypeHTMLLabelElement = GType gTypeHTMLLabelElement'+#else+type IsHTMLLabelElement o = HTMLLabelElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLLegendElement = HTMLLegendElement (JSRef HTMLLegendElement)++unHTMLLegendElement (HTMLLegendElement o) = o++instance ToJSRef HTMLLegendElement where+  toJSRef = return . unHTMLLegendElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLLegendElement where+  fromJSRef = return . fmap HTMLLegendElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLLegendElement o+toHTMLLegendElement :: IsHTMLLegendElement o => o -> HTMLLegendElement+toHTMLLegendElement = unsafeCastGObject . toGObject++instance IsHTMLLegendElement HTMLLegendElement+instance IsHTMLElement HTMLLegendElement+instance IsElement HTMLLegendElement+instance IsNode HTMLLegendElement+instance GObjectClass HTMLLegendElement where+  toGObject = GObject . castRef . unHTMLLegendElement+  unsafeCastGObject = HTMLLegendElement . castRef . unGObject++castToHTMLLegendElement :: GObjectClass obj => obj -> HTMLLegendElement+castToHTMLLegendElement = castTo gTypeHTMLLegendElement "HTMLLegendElement"++foreign import javascript unsafe "window[\"HTMLLegendElement\"]" gTypeHTMLLegendElement' :: JSRef GType+gTypeHTMLLegendElement = GType gTypeHTMLLegendElement'+#else+type IsHTMLLegendElement o = HTMLLegendElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLLinkElement = HTMLLinkElement (JSRef HTMLLinkElement)++unHTMLLinkElement (HTMLLinkElement o) = o++instance ToJSRef HTMLLinkElement where+  toJSRef = return . unHTMLLinkElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLLinkElement where+  fromJSRef = return . fmap HTMLLinkElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLLinkElement o+toHTMLLinkElement :: IsHTMLLinkElement o => o -> HTMLLinkElement+toHTMLLinkElement = unsafeCastGObject . toGObject++instance IsHTMLLinkElement HTMLLinkElement+instance IsHTMLElement HTMLLinkElement+instance IsElement HTMLLinkElement+instance IsNode HTMLLinkElement+instance GObjectClass HTMLLinkElement where+  toGObject = GObject . castRef . unHTMLLinkElement+  unsafeCastGObject = HTMLLinkElement . castRef . unGObject++castToHTMLLinkElement :: GObjectClass obj => obj -> HTMLLinkElement+castToHTMLLinkElement = castTo gTypeHTMLLinkElement "HTMLLinkElement"++foreign import javascript unsafe "window[\"HTMLLinkElement\"]" gTypeHTMLLinkElement' :: JSRef GType+gTypeHTMLLinkElement = GType gTypeHTMLLinkElement'+#else+type IsHTMLLinkElement o = HTMLLinkElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLMapElement = HTMLMapElement (JSRef HTMLMapElement)++unHTMLMapElement (HTMLMapElement o) = o++instance ToJSRef HTMLMapElement where+  toJSRef = return . unHTMLMapElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLMapElement where+  fromJSRef = return . fmap HTMLMapElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLMapElement o+toHTMLMapElement :: IsHTMLMapElement o => o -> HTMLMapElement+toHTMLMapElement = unsafeCastGObject . toGObject++instance IsHTMLMapElement HTMLMapElement+instance IsHTMLElement HTMLMapElement+instance IsElement HTMLMapElement+instance IsNode HTMLMapElement+instance GObjectClass HTMLMapElement where+  toGObject = GObject . castRef . unHTMLMapElement+  unsafeCastGObject = HTMLMapElement . castRef . unGObject++castToHTMLMapElement :: GObjectClass obj => obj -> HTMLMapElement+castToHTMLMapElement = castTo gTypeHTMLMapElement "HTMLMapElement"++foreign import javascript unsafe "window[\"HTMLMapElement\"]" gTypeHTMLMapElement' :: JSRef GType+gTypeHTMLMapElement = GType gTypeHTMLMapElement'+#else+type IsHTMLMapElement o = HTMLMapElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLMarqueeElement = HTMLMarqueeElement (JSRef HTMLMarqueeElement)++unHTMLMarqueeElement (HTMLMarqueeElement o) = o++instance ToJSRef HTMLMarqueeElement where+  toJSRef = return . unHTMLMarqueeElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLMarqueeElement where+  fromJSRef = return . fmap HTMLMarqueeElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLMarqueeElement o+toHTMLMarqueeElement :: IsHTMLMarqueeElement o => o -> HTMLMarqueeElement+toHTMLMarqueeElement = unsafeCastGObject . toGObject++instance IsHTMLMarqueeElement HTMLMarqueeElement+instance IsHTMLElement HTMLMarqueeElement+instance IsElement HTMLMarqueeElement+instance IsNode HTMLMarqueeElement+instance GObjectClass HTMLMarqueeElement where+  toGObject = GObject . castRef . unHTMLMarqueeElement+  unsafeCastGObject = HTMLMarqueeElement . castRef . unGObject++castToHTMLMarqueeElement :: GObjectClass obj => obj -> HTMLMarqueeElement+castToHTMLMarqueeElement = castTo gTypeHTMLMarqueeElement "HTMLMarqueeElement"++foreign import javascript unsafe "window[\"HTMLMarqueeElement\"]" gTypeHTMLMarqueeElement' :: JSRef GType+gTypeHTMLMarqueeElement = GType gTypeHTMLMarqueeElement'+#else+type IsHTMLMarqueeElement o = HTMLMarqueeElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLMediaElement = HTMLMediaElement (JSRef HTMLMediaElement)++unHTMLMediaElement (HTMLMediaElement o) = o++instance ToJSRef HTMLMediaElement where+  toJSRef = return . unHTMLMediaElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLMediaElement where+  fromJSRef = return . fmap HTMLMediaElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLMediaElement o+toHTMLMediaElement :: IsHTMLMediaElement o => o -> HTMLMediaElement+toHTMLMediaElement = unsafeCastGObject . toGObject++instance IsHTMLMediaElement HTMLMediaElement+instance IsHTMLElement HTMLMediaElement+instance IsElement HTMLMediaElement+instance IsNode HTMLMediaElement+instance GObjectClass HTMLMediaElement where+  toGObject = GObject . castRef . unHTMLMediaElement+  unsafeCastGObject = HTMLMediaElement . castRef . unGObject++castToHTMLMediaElement :: GObjectClass obj => obj -> HTMLMediaElement+castToHTMLMediaElement = castTo gTypeHTMLMediaElement "HTMLMediaElement"++foreign import javascript unsafe "window[\"HTMLMediaElement\"]" gTypeHTMLMediaElement' :: JSRef GType+gTypeHTMLMediaElement = GType gTypeHTMLMediaElement'+#else+type IsHTMLMediaElement o = HTMLMediaElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLMenuElement = HTMLMenuElement (JSRef HTMLMenuElement)++unHTMLMenuElement (HTMLMenuElement o) = o++instance ToJSRef HTMLMenuElement where+  toJSRef = return . unHTMLMenuElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLMenuElement where+  fromJSRef = return . fmap HTMLMenuElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLMenuElement o+toHTMLMenuElement :: IsHTMLMenuElement o => o -> HTMLMenuElement+toHTMLMenuElement = unsafeCastGObject . toGObject++instance IsHTMLMenuElement HTMLMenuElement+instance IsHTMLElement HTMLMenuElement+instance IsElement HTMLMenuElement+instance IsNode HTMLMenuElement+instance GObjectClass HTMLMenuElement where+  toGObject = GObject . castRef . unHTMLMenuElement+  unsafeCastGObject = HTMLMenuElement . castRef . unGObject++castToHTMLMenuElement :: GObjectClass obj => obj -> HTMLMenuElement+castToHTMLMenuElement = castTo gTypeHTMLMenuElement "HTMLMenuElement"++foreign import javascript unsafe "window[\"HTMLMenuElement\"]" gTypeHTMLMenuElement' :: JSRef GType+gTypeHTMLMenuElement = GType gTypeHTMLMenuElement'+#else+type IsHTMLMenuElement o = HTMLMenuElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLMetaElement = HTMLMetaElement (JSRef HTMLMetaElement)++unHTMLMetaElement (HTMLMetaElement o) = o++instance ToJSRef HTMLMetaElement where+  toJSRef = return . unHTMLMetaElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLMetaElement where+  fromJSRef = return . fmap HTMLMetaElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLMetaElement o+toHTMLMetaElement :: IsHTMLMetaElement o => o -> HTMLMetaElement+toHTMLMetaElement = unsafeCastGObject . toGObject++instance IsHTMLMetaElement HTMLMetaElement+instance IsHTMLElement HTMLMetaElement+instance IsElement HTMLMetaElement+instance IsNode HTMLMetaElement+instance GObjectClass HTMLMetaElement where+  toGObject = GObject . castRef . unHTMLMetaElement+  unsafeCastGObject = HTMLMetaElement . castRef . unGObject++castToHTMLMetaElement :: GObjectClass obj => obj -> HTMLMetaElement+castToHTMLMetaElement = castTo gTypeHTMLMetaElement "HTMLMetaElement"++foreign import javascript unsafe "window[\"HTMLMetaElement\"]" gTypeHTMLMetaElement' :: JSRef GType+gTypeHTMLMetaElement = GType gTypeHTMLMetaElement'+#else+type IsHTMLMetaElement o = HTMLMetaElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLModElement = HTMLModElement (JSRef HTMLModElement)++unHTMLModElement (HTMLModElement o) = o++instance ToJSRef HTMLModElement where+  toJSRef = return . unHTMLModElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLModElement where+  fromJSRef = return . fmap HTMLModElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLModElement o+toHTMLModElement :: IsHTMLModElement o => o -> HTMLModElement+toHTMLModElement = unsafeCastGObject . toGObject++instance IsHTMLModElement HTMLModElement+instance IsHTMLElement HTMLModElement+instance IsElement HTMLModElement+instance IsNode HTMLModElement+instance GObjectClass HTMLModElement where+  toGObject = GObject . castRef . unHTMLModElement+  unsafeCastGObject = HTMLModElement . castRef . unGObject++castToHTMLModElement :: GObjectClass obj => obj -> HTMLModElement+castToHTMLModElement = castTo gTypeHTMLModElement "HTMLModElement"++foreign import javascript unsafe "window[\"HTMLModElement\"]" gTypeHTMLModElement' :: JSRef GType+gTypeHTMLModElement = GType gTypeHTMLModElement'+#else+type IsHTMLModElement o = HTMLModElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLOListElement = HTMLOListElement (JSRef HTMLOListElement)++unHTMLOListElement (HTMLOListElement o) = o++instance ToJSRef HTMLOListElement where+  toJSRef = return . unHTMLOListElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLOListElement where+  fromJSRef = return . fmap HTMLOListElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLOListElement o+toHTMLOListElement :: IsHTMLOListElement o => o -> HTMLOListElement+toHTMLOListElement = unsafeCastGObject . toGObject++instance IsHTMLOListElement HTMLOListElement+instance IsHTMLElement HTMLOListElement+instance IsElement HTMLOListElement+instance IsNode HTMLOListElement+instance GObjectClass HTMLOListElement where+  toGObject = GObject . castRef . unHTMLOListElement+  unsafeCastGObject = HTMLOListElement . castRef . unGObject++castToHTMLOListElement :: GObjectClass obj => obj -> HTMLOListElement+castToHTMLOListElement = castTo gTypeHTMLOListElement "HTMLOListElement"++foreign import javascript unsafe "window[\"HTMLOListElement\"]" gTypeHTMLOListElement' :: JSRef GType+gTypeHTMLOListElement = GType gTypeHTMLOListElement'+#else+type IsHTMLOListElement o = HTMLOListElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLObjectElement = HTMLObjectElement (JSRef HTMLObjectElement)++unHTMLObjectElement (HTMLObjectElement o) = o++instance ToJSRef HTMLObjectElement where+  toJSRef = return . unHTMLObjectElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLObjectElement where+  fromJSRef = return . fmap HTMLObjectElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLObjectElement o+toHTMLObjectElement :: IsHTMLObjectElement o => o -> HTMLObjectElement+toHTMLObjectElement = unsafeCastGObject . toGObject++instance IsHTMLObjectElement HTMLObjectElement+instance IsHTMLElement HTMLObjectElement+instance IsElement HTMLObjectElement+instance IsNode HTMLObjectElement+instance GObjectClass HTMLObjectElement where+  toGObject = GObject . castRef . unHTMLObjectElement+  unsafeCastGObject = HTMLObjectElement . castRef . unGObject++castToHTMLObjectElement :: GObjectClass obj => obj -> HTMLObjectElement+castToHTMLObjectElement = castTo gTypeHTMLObjectElement "HTMLObjectElement"++foreign import javascript unsafe "window[\"HTMLObjectElement\"]" gTypeHTMLObjectElement' :: JSRef GType+gTypeHTMLObjectElement = GType gTypeHTMLObjectElement'+#else+type IsHTMLObjectElement o = HTMLObjectElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLOptGroupElement = HTMLOptGroupElement (JSRef HTMLOptGroupElement)++unHTMLOptGroupElement (HTMLOptGroupElement o) = o++instance ToJSRef HTMLOptGroupElement where+  toJSRef = return . unHTMLOptGroupElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLOptGroupElement where+  fromJSRef = return . fmap HTMLOptGroupElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLOptGroupElement o+toHTMLOptGroupElement :: IsHTMLOptGroupElement o => o -> HTMLOptGroupElement+toHTMLOptGroupElement = unsafeCastGObject . toGObject++instance IsHTMLOptGroupElement HTMLOptGroupElement+instance IsHTMLElement HTMLOptGroupElement+instance IsElement HTMLOptGroupElement+instance IsNode HTMLOptGroupElement+instance GObjectClass HTMLOptGroupElement where+  toGObject = GObject . castRef . unHTMLOptGroupElement+  unsafeCastGObject = HTMLOptGroupElement . castRef . unGObject++castToHTMLOptGroupElement :: GObjectClass obj => obj -> HTMLOptGroupElement+castToHTMLOptGroupElement = castTo gTypeHTMLOptGroupElement "HTMLOptGroupElement"++foreign import javascript unsafe "window[\"HTMLOptGroupElement\"]" gTypeHTMLOptGroupElement' :: JSRef GType+gTypeHTMLOptGroupElement = GType gTypeHTMLOptGroupElement'+#else+type IsHTMLOptGroupElement o = HTMLOptGroupElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLOptionElement = HTMLOptionElement (JSRef HTMLOptionElement)++unHTMLOptionElement (HTMLOptionElement o) = o++instance ToJSRef HTMLOptionElement where+  toJSRef = return . unHTMLOptionElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLOptionElement where+  fromJSRef = return . fmap HTMLOptionElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLOptionElement o+toHTMLOptionElement :: IsHTMLOptionElement o => o -> HTMLOptionElement+toHTMLOptionElement = unsafeCastGObject . toGObject++instance IsHTMLOptionElement HTMLOptionElement+instance IsHTMLElement HTMLOptionElement+instance IsElement HTMLOptionElement+instance IsNode HTMLOptionElement+instance GObjectClass HTMLOptionElement where+  toGObject = GObject . castRef . unHTMLOptionElement+  unsafeCastGObject = HTMLOptionElement . castRef . unGObject++castToHTMLOptionElement :: GObjectClass obj => obj -> HTMLOptionElement+castToHTMLOptionElement = castTo gTypeHTMLOptionElement "HTMLOptionElement"++foreign import javascript unsafe "window[\"HTMLOptionElement\"]" gTypeHTMLOptionElement' :: JSRef GType+gTypeHTMLOptionElement = GType gTypeHTMLOptionElement'+#else+type IsHTMLOptionElement o = HTMLOptionElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLOptionsCollection = HTMLOptionsCollection (JSRef HTMLOptionsCollection)++unHTMLOptionsCollection (HTMLOptionsCollection o) = o++instance ToJSRef HTMLOptionsCollection where+  toJSRef = return . unHTMLOptionsCollection+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLOptionsCollection where+  fromJSRef = return . fmap HTMLOptionsCollection . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLCollection o => IsHTMLOptionsCollection o+toHTMLOptionsCollection :: IsHTMLOptionsCollection o => o -> HTMLOptionsCollection+toHTMLOptionsCollection = unsafeCastGObject . toGObject++instance IsHTMLOptionsCollection HTMLOptionsCollection+instance IsHTMLCollection HTMLOptionsCollection+instance GObjectClass HTMLOptionsCollection where+  toGObject = GObject . castRef . unHTMLOptionsCollection+  unsafeCastGObject = HTMLOptionsCollection . castRef . unGObject++castToHTMLOptionsCollection :: GObjectClass obj => obj -> HTMLOptionsCollection+castToHTMLOptionsCollection = castTo gTypeHTMLOptionsCollection "HTMLOptionsCollection"++foreign import javascript unsafe "window[\"HTMLOptionsCollection\"]" gTypeHTMLOptionsCollection' :: JSRef GType+gTypeHTMLOptionsCollection = GType gTypeHTMLOptionsCollection'+#else+type IsHTMLOptionsCollection o = HTMLOptionsCollectionClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLParagraphElement = HTMLParagraphElement (JSRef HTMLParagraphElement)++unHTMLParagraphElement (HTMLParagraphElement o) = o++instance ToJSRef HTMLParagraphElement where+  toJSRef = return . unHTMLParagraphElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLParagraphElement where+  fromJSRef = return . fmap HTMLParagraphElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLParagraphElement o+toHTMLParagraphElement :: IsHTMLParagraphElement o => o -> HTMLParagraphElement+toHTMLParagraphElement = unsafeCastGObject . toGObject++instance IsHTMLParagraphElement HTMLParagraphElement+instance IsHTMLElement HTMLParagraphElement+instance IsElement HTMLParagraphElement+instance IsNode HTMLParagraphElement+instance GObjectClass HTMLParagraphElement where+  toGObject = GObject . castRef . unHTMLParagraphElement+  unsafeCastGObject = HTMLParagraphElement . castRef . unGObject++castToHTMLParagraphElement :: GObjectClass obj => obj -> HTMLParagraphElement+castToHTMLParagraphElement = castTo gTypeHTMLParagraphElement "HTMLParagraphElement"++foreign import javascript unsafe "window[\"HTMLParagraphElement\"]" gTypeHTMLParagraphElement' :: JSRef GType+gTypeHTMLParagraphElement = GType gTypeHTMLParagraphElement'+#else+type IsHTMLParagraphElement o = HTMLParagraphElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLParamElement = HTMLParamElement (JSRef HTMLParamElement)++unHTMLParamElement (HTMLParamElement o) = o++instance ToJSRef HTMLParamElement where+  toJSRef = return . unHTMLParamElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLParamElement where+  fromJSRef = return . fmap HTMLParamElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLParamElement o+toHTMLParamElement :: IsHTMLParamElement o => o -> HTMLParamElement+toHTMLParamElement = unsafeCastGObject . toGObject++instance IsHTMLParamElement HTMLParamElement+instance IsHTMLElement HTMLParamElement+instance IsElement HTMLParamElement+instance IsNode HTMLParamElement+instance GObjectClass HTMLParamElement where+  toGObject = GObject . castRef . unHTMLParamElement+  unsafeCastGObject = HTMLParamElement . castRef . unGObject++castToHTMLParamElement :: GObjectClass obj => obj -> HTMLParamElement+castToHTMLParamElement = castTo gTypeHTMLParamElement "HTMLParamElement"++foreign import javascript unsafe "window[\"HTMLParamElement\"]" gTypeHTMLParamElement' :: JSRef GType+gTypeHTMLParamElement = GType gTypeHTMLParamElement'+#else+type IsHTMLParamElement o = HTMLParamElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLPreElement = HTMLPreElement (JSRef HTMLPreElement)++unHTMLPreElement (HTMLPreElement o) = o++instance ToJSRef HTMLPreElement where+  toJSRef = return . unHTMLPreElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLPreElement where+  fromJSRef = return . fmap HTMLPreElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLPreElement o+toHTMLPreElement :: IsHTMLPreElement o => o -> HTMLPreElement+toHTMLPreElement = unsafeCastGObject . toGObject++instance IsHTMLPreElement HTMLPreElement+instance IsHTMLElement HTMLPreElement+instance IsElement HTMLPreElement+instance IsNode HTMLPreElement+instance GObjectClass HTMLPreElement where+  toGObject = GObject . castRef . unHTMLPreElement+  unsafeCastGObject = HTMLPreElement . castRef . unGObject++castToHTMLPreElement :: GObjectClass obj => obj -> HTMLPreElement+castToHTMLPreElement = castTo gTypeHTMLPreElement "HTMLPreElement"++foreign import javascript unsafe "window[\"HTMLPreElement\"]" gTypeHTMLPreElement' :: JSRef GType+gTypeHTMLPreElement = GType gTypeHTMLPreElement'+#else+type IsHTMLPreElement o = HTMLPreElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLQuoteElement = HTMLQuoteElement (JSRef HTMLQuoteElement)++unHTMLQuoteElement (HTMLQuoteElement o) = o++instance ToJSRef HTMLQuoteElement where+  toJSRef = return . unHTMLQuoteElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLQuoteElement where+  fromJSRef = return . fmap HTMLQuoteElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLQuoteElement o+toHTMLQuoteElement :: IsHTMLQuoteElement o => o -> HTMLQuoteElement+toHTMLQuoteElement = unsafeCastGObject . toGObject++instance IsHTMLQuoteElement HTMLQuoteElement+instance IsHTMLElement HTMLQuoteElement+instance IsElement HTMLQuoteElement+instance IsNode HTMLQuoteElement+instance GObjectClass HTMLQuoteElement where+  toGObject = GObject . castRef . unHTMLQuoteElement+  unsafeCastGObject = HTMLQuoteElement . castRef . unGObject++castToHTMLQuoteElement :: GObjectClass obj => obj -> HTMLQuoteElement+castToHTMLQuoteElement = castTo gTypeHTMLQuoteElement "HTMLQuoteElement"++foreign import javascript unsafe "window[\"HTMLQuoteElement\"]" gTypeHTMLQuoteElement' :: JSRef GType+gTypeHTMLQuoteElement = GType gTypeHTMLQuoteElement'+#else+type IsHTMLQuoteElement o = HTMLQuoteElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLScriptElement = HTMLScriptElement (JSRef HTMLScriptElement)++unHTMLScriptElement (HTMLScriptElement o) = o++instance ToJSRef HTMLScriptElement where+  toJSRef = return . unHTMLScriptElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLScriptElement where+  fromJSRef = return . fmap HTMLScriptElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLScriptElement o+toHTMLScriptElement :: IsHTMLScriptElement o => o -> HTMLScriptElement+toHTMLScriptElement = unsafeCastGObject . toGObject++instance IsHTMLScriptElement HTMLScriptElement+instance IsHTMLElement HTMLScriptElement+instance IsElement HTMLScriptElement+instance IsNode HTMLScriptElement+instance GObjectClass HTMLScriptElement where+  toGObject = GObject . castRef . unHTMLScriptElement+  unsafeCastGObject = HTMLScriptElement . castRef . unGObject++castToHTMLScriptElement :: GObjectClass obj => obj -> HTMLScriptElement+castToHTMLScriptElement = castTo gTypeHTMLScriptElement "HTMLScriptElement"++foreign import javascript unsafe "window[\"HTMLScriptElement\"]" gTypeHTMLScriptElement' :: JSRef GType+gTypeHTMLScriptElement = GType gTypeHTMLScriptElement'+#else+type IsHTMLScriptElement o = HTMLScriptElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLSelectElement = HTMLSelectElement (JSRef HTMLSelectElement)++unHTMLSelectElement (HTMLSelectElement o) = o++instance ToJSRef HTMLSelectElement where+  toJSRef = return . unHTMLSelectElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLSelectElement where+  fromJSRef = return . fmap HTMLSelectElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLSelectElement o+toHTMLSelectElement :: IsHTMLSelectElement o => o -> HTMLSelectElement+toHTMLSelectElement = unsafeCastGObject . toGObject++instance IsHTMLSelectElement HTMLSelectElement+instance IsHTMLElement HTMLSelectElement+instance IsElement HTMLSelectElement+instance IsNode HTMLSelectElement+instance GObjectClass HTMLSelectElement where+  toGObject = GObject . castRef . unHTMLSelectElement+  unsafeCastGObject = HTMLSelectElement . castRef . unGObject++castToHTMLSelectElement :: GObjectClass obj => obj -> HTMLSelectElement+castToHTMLSelectElement = castTo gTypeHTMLSelectElement "HTMLSelectElement"++foreign import javascript unsafe "window[\"HTMLSelectElement\"]" gTypeHTMLSelectElement' :: JSRef GType+gTypeHTMLSelectElement = GType gTypeHTMLSelectElement'+#else+type IsHTMLSelectElement o = HTMLSelectElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLStyleElement = HTMLStyleElement (JSRef HTMLStyleElement)++unHTMLStyleElement (HTMLStyleElement o) = o++instance ToJSRef HTMLStyleElement where+  toJSRef = return . unHTMLStyleElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLStyleElement where+  fromJSRef = return . fmap HTMLStyleElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLStyleElement o+toHTMLStyleElement :: IsHTMLStyleElement o => o -> HTMLStyleElement+toHTMLStyleElement = unsafeCastGObject . toGObject++instance IsHTMLStyleElement HTMLStyleElement+instance IsHTMLElement HTMLStyleElement+instance IsElement HTMLStyleElement+instance IsNode HTMLStyleElement+instance GObjectClass HTMLStyleElement where+  toGObject = GObject . castRef . unHTMLStyleElement+  unsafeCastGObject = HTMLStyleElement . castRef . unGObject++castToHTMLStyleElement :: GObjectClass obj => obj -> HTMLStyleElement+castToHTMLStyleElement = castTo gTypeHTMLStyleElement "HTMLStyleElement"++foreign import javascript unsafe "window[\"HTMLStyleElement\"]" gTypeHTMLStyleElement' :: JSRef GType+gTypeHTMLStyleElement = GType gTypeHTMLStyleElement'+#else+type IsHTMLStyleElement o = HTMLStyleElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLTableCaptionElement = HTMLTableCaptionElement (JSRef HTMLTableCaptionElement)++unHTMLTableCaptionElement (HTMLTableCaptionElement o) = o++instance ToJSRef HTMLTableCaptionElement where+  toJSRef = return . unHTMLTableCaptionElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLTableCaptionElement where+  fromJSRef = return . fmap HTMLTableCaptionElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLTableCaptionElement o+toHTMLTableCaptionElement :: IsHTMLTableCaptionElement o => o -> HTMLTableCaptionElement+toHTMLTableCaptionElement = unsafeCastGObject . toGObject++instance IsHTMLTableCaptionElement HTMLTableCaptionElement+instance IsHTMLElement HTMLTableCaptionElement+instance IsElement HTMLTableCaptionElement+instance IsNode HTMLTableCaptionElement+instance GObjectClass HTMLTableCaptionElement where+  toGObject = GObject . castRef . unHTMLTableCaptionElement+  unsafeCastGObject = HTMLTableCaptionElement . castRef . unGObject++castToHTMLTableCaptionElement :: GObjectClass obj => obj -> HTMLTableCaptionElement+castToHTMLTableCaptionElement = castTo gTypeHTMLTableCaptionElement "HTMLTableCaptionElement"++foreign import javascript unsafe "window[\"HTMLTableCaptionElement\"]" gTypeHTMLTableCaptionElement' :: JSRef GType+gTypeHTMLTableCaptionElement = GType gTypeHTMLTableCaptionElement'+#else+type IsHTMLTableCaptionElement o = HTMLTableCaptionElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLTableCellElement = HTMLTableCellElement (JSRef HTMLTableCellElement)++unHTMLTableCellElement (HTMLTableCellElement o) = o++instance ToJSRef HTMLTableCellElement where+  toJSRef = return . unHTMLTableCellElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLTableCellElement where+  fromJSRef = return . fmap HTMLTableCellElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLTableCellElement o+toHTMLTableCellElement :: IsHTMLTableCellElement o => o -> HTMLTableCellElement+toHTMLTableCellElement = unsafeCastGObject . toGObject++instance IsHTMLTableCellElement HTMLTableCellElement+instance IsHTMLElement HTMLTableCellElement+instance IsElement HTMLTableCellElement+instance IsNode HTMLTableCellElement+instance GObjectClass HTMLTableCellElement where+  toGObject = GObject . castRef . unHTMLTableCellElement+  unsafeCastGObject = HTMLTableCellElement . castRef . unGObject++castToHTMLTableCellElement :: GObjectClass obj => obj -> HTMLTableCellElement+castToHTMLTableCellElement = castTo gTypeHTMLTableCellElement "HTMLTableCellElement"++foreign import javascript unsafe "window[\"HTMLTableCellElement\"]" gTypeHTMLTableCellElement' :: JSRef GType+gTypeHTMLTableCellElement = GType gTypeHTMLTableCellElement'+#else+type IsHTMLTableCellElement o = HTMLTableCellElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLTableColElement = HTMLTableColElement (JSRef HTMLTableColElement)++unHTMLTableColElement (HTMLTableColElement o) = o++instance ToJSRef HTMLTableColElement where+  toJSRef = return . unHTMLTableColElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLTableColElement where+  fromJSRef = return . fmap HTMLTableColElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLTableColElement o+toHTMLTableColElement :: IsHTMLTableColElement o => o -> HTMLTableColElement+toHTMLTableColElement = unsafeCastGObject . toGObject++instance IsHTMLTableColElement HTMLTableColElement+instance IsHTMLElement HTMLTableColElement+instance IsElement HTMLTableColElement+instance IsNode HTMLTableColElement+instance GObjectClass HTMLTableColElement where+  toGObject = GObject . castRef . unHTMLTableColElement+  unsafeCastGObject = HTMLTableColElement . castRef . unGObject++castToHTMLTableColElement :: GObjectClass obj => obj -> HTMLTableColElement+castToHTMLTableColElement = castTo gTypeHTMLTableColElement "HTMLTableColElement"++foreign import javascript unsafe "window[\"HTMLTableColElement\"]" gTypeHTMLTableColElement' :: JSRef GType+gTypeHTMLTableColElement = GType gTypeHTMLTableColElement'+#else+type IsHTMLTableColElement o = HTMLTableColElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLTableElement = HTMLTableElement (JSRef HTMLTableElement)++unHTMLTableElement (HTMLTableElement o) = o++instance ToJSRef HTMLTableElement where+  toJSRef = return . unHTMLTableElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLTableElement where+  fromJSRef = return . fmap HTMLTableElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLTableElement o+toHTMLTableElement :: IsHTMLTableElement o => o -> HTMLTableElement+toHTMLTableElement = unsafeCastGObject . toGObject++instance IsHTMLTableElement HTMLTableElement+instance IsHTMLElement HTMLTableElement+instance IsElement HTMLTableElement+instance IsNode HTMLTableElement+instance GObjectClass HTMLTableElement where+  toGObject = GObject . castRef . unHTMLTableElement+  unsafeCastGObject = HTMLTableElement . castRef . unGObject++castToHTMLTableElement :: GObjectClass obj => obj -> HTMLTableElement+castToHTMLTableElement = castTo gTypeHTMLTableElement "HTMLTableElement"++foreign import javascript unsafe "window[\"HTMLTableElement\"]" gTypeHTMLTableElement' :: JSRef GType+gTypeHTMLTableElement = GType gTypeHTMLTableElement'+#else+type IsHTMLTableElement o = HTMLTableElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLTableRowElement = HTMLTableRowElement (JSRef HTMLTableRowElement)++unHTMLTableRowElement (HTMLTableRowElement o) = o++instance ToJSRef HTMLTableRowElement where+  toJSRef = return . unHTMLTableRowElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLTableRowElement where+  fromJSRef = return . fmap HTMLTableRowElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLTableRowElement o+toHTMLTableRowElement :: IsHTMLTableRowElement o => o -> HTMLTableRowElement+toHTMLTableRowElement = unsafeCastGObject . toGObject++instance IsHTMLTableRowElement HTMLTableRowElement+instance IsHTMLElement HTMLTableRowElement+instance IsElement HTMLTableRowElement+instance IsNode HTMLTableRowElement+instance GObjectClass HTMLTableRowElement where+  toGObject = GObject . castRef . unHTMLTableRowElement+  unsafeCastGObject = HTMLTableRowElement . castRef . unGObject++castToHTMLTableRowElement :: GObjectClass obj => obj -> HTMLTableRowElement+castToHTMLTableRowElement = castTo gTypeHTMLTableRowElement "HTMLTableRowElement"++foreign import javascript unsafe "window[\"HTMLTableRowElement\"]" gTypeHTMLTableRowElement' :: JSRef GType+gTypeHTMLTableRowElement = GType gTypeHTMLTableRowElement'+#else+type IsHTMLTableRowElement o = HTMLTableRowElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLTableSectionElement = HTMLTableSectionElement (JSRef HTMLTableSectionElement)++unHTMLTableSectionElement (HTMLTableSectionElement o) = o++instance ToJSRef HTMLTableSectionElement where+  toJSRef = return . unHTMLTableSectionElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLTableSectionElement where+  fromJSRef = return . fmap HTMLTableSectionElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLTableSectionElement o+toHTMLTableSectionElement :: IsHTMLTableSectionElement o => o -> HTMLTableSectionElement+toHTMLTableSectionElement = unsafeCastGObject . toGObject++instance IsHTMLTableSectionElement HTMLTableSectionElement+instance IsHTMLElement HTMLTableSectionElement+instance IsElement HTMLTableSectionElement+instance IsNode HTMLTableSectionElement+instance GObjectClass HTMLTableSectionElement where+  toGObject = GObject . castRef . unHTMLTableSectionElement+  unsafeCastGObject = HTMLTableSectionElement . castRef . unGObject++castToHTMLTableSectionElement :: GObjectClass obj => obj -> HTMLTableSectionElement+castToHTMLTableSectionElement = castTo gTypeHTMLTableSectionElement "HTMLTableSectionElement"++foreign import javascript unsafe "window[\"HTMLTableSectionElement\"]" gTypeHTMLTableSectionElement' :: JSRef GType+gTypeHTMLTableSectionElement = GType gTypeHTMLTableSectionElement'+#else+type IsHTMLTableSectionElement o = HTMLTableSectionElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLTextAreaElement = HTMLTextAreaElement (JSRef HTMLTextAreaElement)++unHTMLTextAreaElement (HTMLTextAreaElement o) = o++instance ToJSRef HTMLTextAreaElement where+  toJSRef = return . unHTMLTextAreaElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLTextAreaElement where+  fromJSRef = return . fmap HTMLTextAreaElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLTextAreaElement o+toHTMLTextAreaElement :: IsHTMLTextAreaElement o => o -> HTMLTextAreaElement+toHTMLTextAreaElement = unsafeCastGObject . toGObject++instance IsHTMLTextAreaElement HTMLTextAreaElement+instance IsHTMLElement HTMLTextAreaElement+instance IsElement HTMLTextAreaElement+instance IsNode HTMLTextAreaElement+instance GObjectClass HTMLTextAreaElement where+  toGObject = GObject . castRef . unHTMLTextAreaElement+  unsafeCastGObject = HTMLTextAreaElement . castRef . unGObject++castToHTMLTextAreaElement :: GObjectClass obj => obj -> HTMLTextAreaElement+castToHTMLTextAreaElement = castTo gTypeHTMLTextAreaElement "HTMLTextAreaElement"++foreign import javascript unsafe "window[\"HTMLTextAreaElement\"]" gTypeHTMLTextAreaElement' :: JSRef GType+gTypeHTMLTextAreaElement = GType gTypeHTMLTextAreaElement'+#else+type IsHTMLTextAreaElement o = HTMLTextAreaElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLTitleElement = HTMLTitleElement (JSRef HTMLTitleElement)++unHTMLTitleElement (HTMLTitleElement o) = o++instance ToJSRef HTMLTitleElement where+  toJSRef = return . unHTMLTitleElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLTitleElement where+  fromJSRef = return . fmap HTMLTitleElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLTitleElement o+toHTMLTitleElement :: IsHTMLTitleElement o => o -> HTMLTitleElement+toHTMLTitleElement = unsafeCastGObject . toGObject++instance IsHTMLTitleElement HTMLTitleElement+instance IsHTMLElement HTMLTitleElement+instance IsElement HTMLTitleElement+instance IsNode HTMLTitleElement+instance GObjectClass HTMLTitleElement where+  toGObject = GObject . castRef . unHTMLTitleElement+  unsafeCastGObject = HTMLTitleElement . castRef . unGObject++castToHTMLTitleElement :: GObjectClass obj => obj -> HTMLTitleElement+castToHTMLTitleElement = castTo gTypeHTMLTitleElement "HTMLTitleElement"++foreign import javascript unsafe "window[\"HTMLTitleElement\"]" gTypeHTMLTitleElement' :: JSRef GType+gTypeHTMLTitleElement = GType gTypeHTMLTitleElement'+#else+type IsHTMLTitleElement o = HTMLTitleElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLUListElement = HTMLUListElement (JSRef HTMLUListElement)++unHTMLUListElement (HTMLUListElement o) = o++instance ToJSRef HTMLUListElement where+  toJSRef = return . unHTMLUListElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLUListElement where+  fromJSRef = return . fmap HTMLUListElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLElement o => IsHTMLUListElement o+toHTMLUListElement :: IsHTMLUListElement o => o -> HTMLUListElement+toHTMLUListElement = unsafeCastGObject . toGObject++instance IsHTMLUListElement HTMLUListElement+instance IsHTMLElement HTMLUListElement+instance IsElement HTMLUListElement+instance IsNode HTMLUListElement+instance GObjectClass HTMLUListElement where+  toGObject = GObject . castRef . unHTMLUListElement+  unsafeCastGObject = HTMLUListElement . castRef . unGObject++castToHTMLUListElement :: GObjectClass obj => obj -> HTMLUListElement+castToHTMLUListElement = castTo gTypeHTMLUListElement "HTMLUListElement"++foreign import javascript unsafe "window[\"HTMLUListElement\"]" gTypeHTMLUListElement' :: JSRef GType+gTypeHTMLUListElement = GType gTypeHTMLUListElement'+#else+type IsHTMLUListElement o = HTMLUListElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype HTMLVideoElement = HTMLVideoElement (JSRef HTMLVideoElement)++unHTMLVideoElement (HTMLVideoElement o) = o++instance ToJSRef HTMLVideoElement where+  toJSRef = return . unHTMLVideoElement+  {-# INLINE toJSRef #-}++instance FromJSRef HTMLVideoElement where+  fromJSRef = return . fmap HTMLVideoElement . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsHTMLMediaElement o => IsHTMLVideoElement o+toHTMLVideoElement :: IsHTMLVideoElement o => o -> HTMLVideoElement+toHTMLVideoElement = unsafeCastGObject . toGObject++instance IsHTMLVideoElement HTMLVideoElement+instance IsHTMLMediaElement HTMLVideoElement+instance IsHTMLElement HTMLVideoElement+instance IsElement HTMLVideoElement+instance IsNode HTMLVideoElement+instance GObjectClass HTMLVideoElement where+  toGObject = GObject . castRef . unHTMLVideoElement+  unsafeCastGObject = HTMLVideoElement . castRef . unGObject++castToHTMLVideoElement :: GObjectClass obj => obj -> HTMLVideoElement+castToHTMLVideoElement = castTo gTypeHTMLVideoElement "HTMLVideoElement"++foreign import javascript unsafe "window[\"HTMLVideoElement\"]" gTypeHTMLVideoElement' :: JSRef GType+gTypeHTMLVideoElement = GType gTypeHTMLVideoElement'+#else+type IsHTMLVideoElement o = HTMLVideoElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype History = History (JSRef History)++unHistory (History o) = o++instance ToJSRef History where+  toJSRef = return . unHistory+  {-# INLINE toJSRef #-}++instance FromJSRef History where+  fromJSRef = return . fmap History . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsHistory o+toHistory :: IsHistory o => o -> History+toHistory = unsafeCastGObject . toGObject++instance IsHistory History+instance GObjectClass History where+  toGObject = GObject . castRef . unHistory+  unsafeCastGObject = History . castRef . unGObject++castToHistory :: GObjectClass obj => obj -> History+castToHistory = castTo gTypeHistory "History"++foreign import javascript unsafe "window[\"History\"]" gTypeHistory' :: JSRef GType+gTypeHistory = GType gTypeHistory'+#else+type IsHistory o = HistoryClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype KeyboardEvent = KeyboardEvent (JSRef KeyboardEvent)++unKeyboardEvent (KeyboardEvent o) = o++instance ToJSRef KeyboardEvent where+  toJSRef = return . unKeyboardEvent+  {-# INLINE toJSRef #-}++instance FromJSRef KeyboardEvent where+  fromJSRef = return . fmap KeyboardEvent . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsUIEvent o => IsKeyboardEvent o+toKeyboardEvent :: IsKeyboardEvent o => o -> KeyboardEvent+toKeyboardEvent = unsafeCastGObject . toGObject++instance IsKeyboardEvent KeyboardEvent+instance IsUIEvent KeyboardEvent+instance IsEvent KeyboardEvent+instance GObjectClass KeyboardEvent where+  toGObject = GObject . castRef . unKeyboardEvent+  unsafeCastGObject = KeyboardEvent . castRef . unGObject++castToKeyboardEvent :: GObjectClass obj => obj -> KeyboardEvent+castToKeyboardEvent = castTo gTypeKeyboardEvent "KeyboardEvent"++foreign import javascript unsafe "window[\"KeyboardEvent\"]" gTypeKeyboardEvent' :: JSRef GType+gTypeKeyboardEvent = GType gTypeKeyboardEvent'+#else+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Location = Location (JSRef Location)++unLocation (Location o) = o++instance ToJSRef Location where+  toJSRef = return . unLocation+  {-# INLINE toJSRef #-}++instance FromJSRef Location where+  fromJSRef = return . fmap Location . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsLocation o+toLocation :: IsLocation o => o -> Location+toLocation = unsafeCastGObject . toGObject++instance IsLocation Location+instance GObjectClass Location where+  toGObject = GObject . castRef . unLocation+  unsafeCastGObject = Location . castRef . unGObject++castToLocation :: GObjectClass obj => obj -> Location+castToLocation = castTo gTypeLocation "Location"++foreign import javascript unsafe "window[\"Location\"]" gTypeLocation' :: JSRef GType+gTypeLocation = GType gTypeLocation'+#else+type IsLocation o = LocationClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype MediaError = MediaError (JSRef MediaError)++unMediaError (MediaError o) = o++instance ToJSRef MediaError where+  toJSRef = return . unMediaError+  {-# INLINE toJSRef #-}++instance FromJSRef MediaError where+  fromJSRef = return . fmap MediaError . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsMediaError o+toMediaError :: IsMediaError o => o -> MediaError+toMediaError = unsafeCastGObject . toGObject++instance IsMediaError MediaError+instance GObjectClass MediaError where+  toGObject = GObject . castRef . unMediaError+  unsafeCastGObject = MediaError . castRef . unGObject++castToMediaError :: GObjectClass obj => obj -> MediaError+castToMediaError = castTo gTypeMediaError "MediaError"++foreign import javascript unsafe "window[\"MediaError\"]" gTypeMediaError' :: JSRef GType+gTypeMediaError = GType gTypeMediaError'+#else+type IsMediaError o = MediaErrorClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype MediaList = MediaList (JSRef MediaList)++unMediaList (MediaList o) = o++instance ToJSRef MediaList where+  toJSRef = return . unMediaList+  {-# INLINE toJSRef #-}++instance FromJSRef MediaList where+  fromJSRef = return . fmap MediaList . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsMediaList o+toMediaList :: IsMediaList o => o -> MediaList+toMediaList = unsafeCastGObject . toGObject++instance IsMediaList MediaList+instance GObjectClass MediaList where+  toGObject = GObject . castRef . unMediaList+  unsafeCastGObject = MediaList . castRef . unGObject++castToMediaList :: GObjectClass obj => obj -> MediaList+castToMediaList = castTo gTypeMediaList "MediaList"++foreign import javascript unsafe "window[\"MediaList\"]" gTypeMediaList' :: JSRef GType+gTypeMediaList = GType gTypeMediaList'+#else+type IsMediaList o = MediaListClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype MediaQueryList = MediaQueryList (JSRef MediaQueryList)++unMediaQueryList (MediaQueryList o) = o++instance ToJSRef MediaQueryList where+  toJSRef = return . unMediaQueryList+  {-# INLINE toJSRef #-}++instance FromJSRef MediaQueryList where+  fromJSRef = return . fmap MediaQueryList . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsMediaQueryList o+toMediaQueryList :: IsMediaQueryList o => o -> MediaQueryList+toMediaQueryList = unsafeCastGObject . toGObject++instance IsMediaQueryList MediaQueryList+instance GObjectClass MediaQueryList where+  toGObject = GObject . castRef . unMediaQueryList+  unsafeCastGObject = MediaQueryList . castRef . unGObject++castToMediaQueryList :: GObjectClass obj => obj -> MediaQueryList+castToMediaQueryList = castTo gTypeMediaQueryList "MediaQueryList"++foreign import javascript unsafe "window[\"MediaQueryList\"]" gTypeMediaQueryList' :: JSRef GType+gTypeMediaQueryList = GType gTypeMediaQueryList'+#else+type IsMediaQueryList o = MediaQueryListClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype MessagePort = MessagePort (JSRef MessagePort)++unMessagePort (MessagePort o) = o++instance ToJSRef MessagePort where+  toJSRef = return . unMessagePort+  {-# INLINE toJSRef #-}++instance FromJSRef MessagePort where+  fromJSRef = return . fmap MessagePort . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsMessagePort o+toMessagePort :: IsMessagePort o => o -> MessagePort+toMessagePort = unsafeCastGObject . toGObject++instance IsMessagePort MessagePort+instance GObjectClass MessagePort where+  toGObject = GObject . castRef . unMessagePort+  unsafeCastGObject = MessagePort . castRef . unGObject++castToMessagePort :: GObjectClass obj => obj -> MessagePort+castToMessagePort = castTo gTypeMessagePort "MessagePort"++foreign import javascript unsafe "window[\"MessagePort\"]" gTypeMessagePort' :: JSRef GType+gTypeMessagePort = GType gTypeMessagePort'+#else+type IsMessagePort o = MessagePortClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype MouseEvent = MouseEvent (JSRef MouseEvent)++unMouseEvent (MouseEvent o) = o++instance ToJSRef MouseEvent where+  toJSRef = return . unMouseEvent+  {-# INLINE toJSRef #-}++instance FromJSRef MouseEvent where+  fromJSRef = return . fmap MouseEvent . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsUIEvent o => IsMouseEvent o+toMouseEvent :: IsMouseEvent o => o -> MouseEvent+toMouseEvent = unsafeCastGObject . toGObject++instance IsMouseEvent MouseEvent+instance IsUIEvent MouseEvent+instance IsEvent MouseEvent+instance GObjectClass MouseEvent where+  toGObject = GObject . castRef . unMouseEvent+  unsafeCastGObject = MouseEvent . castRef . unGObject++castToMouseEvent :: GObjectClass obj => obj -> MouseEvent+castToMouseEvent = castTo gTypeMouseEvent "MouseEvent"++foreign import javascript unsafe "window[\"MouseEvent\"]" gTypeMouseEvent' :: JSRef GType+gTypeMouseEvent = GType gTypeMouseEvent'+#else+type IsMouseEvent o = MouseEventClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype NamedNodeMap = NamedNodeMap (JSRef NamedNodeMap)++unNamedNodeMap (NamedNodeMap o) = o++instance ToJSRef NamedNodeMap where+  toJSRef = return . unNamedNodeMap+  {-# INLINE toJSRef #-}++instance FromJSRef NamedNodeMap where+  fromJSRef = return . fmap NamedNodeMap . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsNamedNodeMap o+toNamedNodeMap :: IsNamedNodeMap o => o -> NamedNodeMap+toNamedNodeMap = unsafeCastGObject . toGObject++instance IsNamedNodeMap NamedNodeMap+instance GObjectClass NamedNodeMap where+  toGObject = GObject . castRef . unNamedNodeMap+  unsafeCastGObject = NamedNodeMap . castRef . unGObject++castToNamedNodeMap :: GObjectClass obj => obj -> NamedNodeMap+castToNamedNodeMap = castTo gTypeNamedNodeMap "NamedNodeMap"++foreign import javascript unsafe "window[\"NamedNodeMap\"]" gTypeNamedNodeMap' :: JSRef GType+gTypeNamedNodeMap = GType gTypeNamedNodeMap'+#else+type IsNamedNodeMap o = NamedNodeMapClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Navigator = Navigator (JSRef Navigator)++unNavigator (Navigator o) = o++instance ToJSRef Navigator where+  toJSRef = return . unNavigator+  {-# INLINE toJSRef #-}++instance FromJSRef Navigator where+  fromJSRef = return . fmap Navigator . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsNavigator o+toNavigator :: IsNavigator o => o -> Navigator+toNavigator = unsafeCastGObject . toGObject++instance IsNavigator Navigator+instance GObjectClass Navigator where+  toGObject = GObject . castRef . unNavigator+  unsafeCastGObject = Navigator . castRef . unGObject++castToNavigator :: GObjectClass obj => obj -> Navigator+castToNavigator = castTo gTypeNavigator "Navigator"++foreign import javascript unsafe "window[\"Navigator\"]" gTypeNavigator' :: JSRef GType+gTypeNavigator = GType gTypeNavigator'+#else+type IsNavigator o = NavigatorClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Node = Node (JSRef Node)++unNode (Node o) = o++instance ToJSRef Node where+  toJSRef = return . unNode+  {-# INLINE toJSRef #-}++instance FromJSRef Node where+  fromJSRef = return . fmap Node . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsNode o+toNode :: IsNode o => o -> Node+toNode = unsafeCastGObject . toGObject++instance IsNode Node+instance GObjectClass Node where+  toGObject = GObject . castRef . unNode+  unsafeCastGObject = Node . castRef . unGObject++castToNode :: GObjectClass obj => obj -> Node+castToNode = castTo gTypeNode "Node"++foreign import javascript unsafe "window[\"Node\"]" gTypeNode' :: JSRef GType+gTypeNode = GType gTypeNode'+#else+type IsNode o = NodeClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype NodeFilter = NodeFilter (JSRef NodeFilter)++unNodeFilter (NodeFilter o) = o++instance ToJSRef NodeFilter where+  toJSRef = return . unNodeFilter+  {-# INLINE toJSRef #-}++instance FromJSRef NodeFilter where+  fromJSRef = return . fmap NodeFilter . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsNodeFilter o+toNodeFilter :: IsNodeFilter o => o -> NodeFilter+toNodeFilter = unsafeCastGObject . toGObject++instance IsNodeFilter NodeFilter+instance GObjectClass NodeFilter where+  toGObject = GObject . castRef . unNodeFilter+  unsafeCastGObject = NodeFilter . castRef . unGObject++castToNodeFilter :: GObjectClass obj => obj -> NodeFilter+castToNodeFilter = castTo gTypeNodeFilter "NodeFilter"++foreign import javascript unsafe "window[\"NodeFilter\"]" gTypeNodeFilter' :: JSRef GType+gTypeNodeFilter = GType gTypeNodeFilter'+#else+type IsNodeFilter o = NodeFilterClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype NodeIterator = NodeIterator (JSRef NodeIterator)++unNodeIterator (NodeIterator o) = o++instance ToJSRef NodeIterator where+  toJSRef = return . unNodeIterator+  {-# INLINE toJSRef #-}++instance FromJSRef NodeIterator where+  fromJSRef = return . fmap NodeIterator . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsNodeIterator o+toNodeIterator :: IsNodeIterator o => o -> NodeIterator+toNodeIterator = unsafeCastGObject . toGObject++instance IsNodeIterator NodeIterator+instance GObjectClass NodeIterator where+  toGObject = GObject . castRef . unNodeIterator+  unsafeCastGObject = NodeIterator . castRef . unGObject++castToNodeIterator :: GObjectClass obj => obj -> NodeIterator+castToNodeIterator = castTo gTypeNodeIterator "NodeIterator"++foreign import javascript unsafe "window[\"NodeIterator\"]" gTypeNodeIterator' :: JSRef GType+gTypeNodeIterator = GType gTypeNodeIterator'+#else+type IsNodeIterator o = NodeIteratorClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype NodeList = NodeList (JSRef NodeList)++unNodeList (NodeList o) = o++instance ToJSRef NodeList where+  toJSRef = return . unNodeList+  {-# INLINE toJSRef #-}++instance FromJSRef NodeList where+  fromJSRef = return . fmap NodeList . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsNodeList o+toNodeList :: IsNodeList o => o -> NodeList+toNodeList = unsafeCastGObject . toGObject++instance IsNodeList NodeList+instance GObjectClass NodeList where+  toGObject = GObject . castRef . unNodeList+  unsafeCastGObject = NodeList . castRef . unGObject++castToNodeList :: GObjectClass obj => obj -> NodeList+castToNodeList = castTo gTypeNodeList "NodeList"++foreign import javascript unsafe "window[\"NodeList\"]" gTypeNodeList' :: JSRef GType+gTypeNodeList = GType gTypeNodeList'+#else+type IsNodeList o = NodeListClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype ProcessingInstruction = ProcessingInstruction (JSRef ProcessingInstruction)++unProcessingInstruction (ProcessingInstruction o) = o++instance ToJSRef ProcessingInstruction where+  toJSRef = return . unProcessingInstruction+  {-# INLINE toJSRef #-}++instance FromJSRef ProcessingInstruction where+  fromJSRef = return . fmap ProcessingInstruction . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsCharacterData o => IsProcessingInstruction o+toProcessingInstruction :: IsProcessingInstruction o => o -> ProcessingInstruction+toProcessingInstruction = unsafeCastGObject . toGObject++instance IsProcessingInstruction ProcessingInstruction+instance IsCharacterData ProcessingInstruction+instance IsNode ProcessingInstruction+instance GObjectClass ProcessingInstruction where+  toGObject = GObject . castRef . unProcessingInstruction+  unsafeCastGObject = ProcessingInstruction . castRef . unGObject++castToProcessingInstruction :: GObjectClass obj => obj -> ProcessingInstruction+castToProcessingInstruction = castTo gTypeProcessingInstruction "ProcessingInstruction"++foreign import javascript unsafe "window[\"ProcessingInstruction\"]" gTypeProcessingInstruction' :: JSRef GType+gTypeProcessingInstruction = GType gTypeProcessingInstruction'+#else+type IsProcessingInstruction o = ProcessingInstructionClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype DOMRange = DOMRange (JSRef DOMRange)++unDOMRange (DOMRange o) = o++instance ToJSRef DOMRange where+  toJSRef = return . unDOMRange+  {-# INLINE toJSRef #-}++instance FromJSRef DOMRange where+  fromJSRef = return . fmap DOMRange . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsDOMRange o+toDOMRange :: IsDOMRange o => o -> DOMRange+toDOMRange = unsafeCastGObject . toGObject++instance IsDOMRange DOMRange+instance GObjectClass DOMRange where+  toGObject = GObject . castRef . unDOMRange+  unsafeCastGObject = DOMRange . castRef . unGObject++castToDOMRange :: GObjectClass obj => obj -> DOMRange+castToDOMRange = castTo gTypeDOMRange "DOMRange"++foreign import javascript unsafe "window[\"DOMRange\"]" gTypeDOMRange' :: JSRef GType+gTypeDOMRange = GType gTypeDOMRange'+#else+type IsDOMRange o = DOMRangeClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype DOMScreen = DOMScreen (JSRef DOMScreen)++unDOMScreen (DOMScreen o) = o++instance ToJSRef DOMScreen where+  toJSRef = return . unDOMScreen+  {-# INLINE toJSRef #-}++instance FromJSRef DOMScreen where+  fromJSRef = return . fmap DOMScreen . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsDOMScreen o+toDOMScreen :: IsDOMScreen o => o -> DOMScreen+toDOMScreen = unsafeCastGObject . toGObject++instance IsDOMScreen DOMScreen+instance GObjectClass DOMScreen where+  toGObject = GObject . castRef . unDOMScreen+  unsafeCastGObject = DOMScreen . castRef . unGObject++castToDOMScreen :: GObjectClass obj => obj -> DOMScreen+castToDOMScreen = castTo gTypeDOMScreen "DOMScreen"++foreign import javascript unsafe "window[\"DOMScreen\"]" gTypeDOMScreen' :: JSRef GType+gTypeDOMScreen = GType gTypeDOMScreen'+#else+type IsDOMScreen o = DOMScreenClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Storage = Storage (JSRef Storage)++unStorage (Storage o) = o++instance ToJSRef Storage where+  toJSRef = return . unStorage+  {-# INLINE toJSRef #-}++instance FromJSRef Storage where+  fromJSRef = return . fmap Storage . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsStorage o+toStorage :: IsStorage o => o -> Storage+toStorage = unsafeCastGObject . toGObject++instance IsStorage Storage+instance GObjectClass Storage where+  toGObject = GObject . castRef . unStorage+  unsafeCastGObject = Storage . castRef . unGObject++castToStorage :: GObjectClass obj => obj -> Storage+castToStorage = castTo gTypeStorage "Storage"++foreign import javascript unsafe "window[\"Storage\"]" gTypeStorage' :: JSRef GType+gTypeStorage = GType gTypeStorage'+#else+type IsStorage o = StorageClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype StorageInfo = StorageInfo (JSRef StorageInfo)++unStorageInfo (StorageInfo o) = o++instance ToJSRef StorageInfo where+  toJSRef = return . unStorageInfo+  {-# INLINE toJSRef #-}++instance FromJSRef StorageInfo where+  fromJSRef = return . fmap StorageInfo . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsStorageInfo o+toStorageInfo :: IsStorageInfo o => o -> StorageInfo+toStorageInfo = unsafeCastGObject . toGObject++instance IsStorageInfo StorageInfo+instance GObjectClass StorageInfo where+  toGObject = GObject . castRef . unStorageInfo+  unsafeCastGObject = StorageInfo . castRef . unGObject++castToStorageInfo :: GObjectClass obj => obj -> StorageInfo+castToStorageInfo = castTo gTypeStorageInfo "StorageInfo"++foreign import javascript unsafe "window[\"StorageInfo\"]" gTypeStorageInfo' :: JSRef GType+gTypeStorageInfo = GType gTypeStorageInfo'+#else+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype StyleMedia = StyleMedia (JSRef StyleMedia)++unStyleMedia (StyleMedia o) = o++instance ToJSRef StyleMedia where+  toJSRef = return . unStyleMedia+  {-# INLINE toJSRef #-}++instance FromJSRef StyleMedia where+  fromJSRef = return . fmap StyleMedia . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsStyleMedia o+toStyleMedia :: IsStyleMedia o => o -> StyleMedia+toStyleMedia = unsafeCastGObject . toGObject++instance IsStyleMedia StyleMedia+instance GObjectClass StyleMedia where+  toGObject = GObject . castRef . unStyleMedia+  unsafeCastGObject = StyleMedia . castRef . unGObject++castToStyleMedia :: GObjectClass obj => obj -> StyleMedia+castToStyleMedia = castTo gTypeStyleMedia "StyleMedia"++foreign import javascript unsafe "window[\"StyleMedia\"]" gTypeStyleMedia' :: JSRef GType+gTypeStyleMedia = GType gTypeStyleMedia'+#else+type IsStyleMedia o = StyleMediaClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype StyleSheet = StyleSheet (JSRef StyleSheet)++unStyleSheet (StyleSheet o) = o++instance ToJSRef StyleSheet where+  toJSRef = return . unStyleSheet+  {-# INLINE toJSRef #-}++instance FromJSRef StyleSheet where+  fromJSRef = return . fmap StyleSheet . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsStyleSheet o+toStyleSheet :: IsStyleSheet o => o -> StyleSheet+toStyleSheet = unsafeCastGObject . toGObject++instance IsStyleSheet StyleSheet+instance GObjectClass StyleSheet where+  toGObject = GObject . castRef . unStyleSheet+  unsafeCastGObject = StyleSheet . castRef . unGObject++castToStyleSheet :: GObjectClass obj => obj -> StyleSheet+castToStyleSheet = castTo gTypeStyleSheet "StyleSheet"++foreign import javascript unsafe "window[\"StyleSheet\"]" gTypeStyleSheet' :: JSRef GType+gTypeStyleSheet = GType gTypeStyleSheet'+#else+type IsStyleSheet o = StyleSheetClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype StyleSheetList = StyleSheetList (JSRef StyleSheetList)++unStyleSheetList (StyleSheetList o) = o++instance ToJSRef StyleSheetList where+  toJSRef = return . unStyleSheetList+  {-# INLINE toJSRef #-}++instance FromJSRef StyleSheetList where+  fromJSRef = return . fmap StyleSheetList . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsStyleSheetList o+toStyleSheetList :: IsStyleSheetList o => o -> StyleSheetList+toStyleSheetList = unsafeCastGObject . toGObject++instance IsStyleSheetList StyleSheetList+instance GObjectClass StyleSheetList where+  toGObject = GObject . castRef . unStyleSheetList+  unsafeCastGObject = StyleSheetList . castRef . unGObject++castToStyleSheetList :: GObjectClass obj => obj -> StyleSheetList+castToStyleSheetList = castTo gTypeStyleSheetList "StyleSheetList"++foreign import javascript unsafe "window[\"StyleSheetList\"]" gTypeStyleSheetList' :: JSRef GType+gTypeStyleSheetList = GType gTypeStyleSheetList'+#else+type IsStyleSheetList o = StyleSheetListClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Text = Text (JSRef Text)++unText (Text o) = o++instance ToJSRef Text where+  toJSRef = return . unText+  {-# INLINE toJSRef #-}++instance FromJSRef Text where+  fromJSRef = return . fmap Text . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsCharacterData o => IsText o+toText :: IsText o => o -> Text+toText = unsafeCastGObject . toGObject++instance IsText Text+instance IsCharacterData Text+instance IsNode Text+instance GObjectClass Text where+  toGObject = GObject . castRef . unText+  unsafeCastGObject = Text . castRef . unGObject++castToText :: GObjectClass obj => obj -> Text+castToText = castTo gTypeText "Text"++foreign import javascript unsafe "window[\"Text\"]" gTypeText' :: JSRef GType+gTypeText = GType gTypeText'+#else+type IsText o = TextClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype TimeRanges = TimeRanges (JSRef TimeRanges)++unTimeRanges (TimeRanges o) = o++instance ToJSRef TimeRanges where+  toJSRef = return . unTimeRanges+  {-# INLINE toJSRef #-}++instance FromJSRef TimeRanges where+  fromJSRef = return . fmap TimeRanges . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsTimeRanges o+toTimeRanges :: IsTimeRanges o => o -> TimeRanges+toTimeRanges = unsafeCastGObject . toGObject++instance IsTimeRanges TimeRanges+instance GObjectClass TimeRanges where+  toGObject = GObject . castRef . unTimeRanges+  unsafeCastGObject = TimeRanges . castRef . unGObject++castToTimeRanges :: GObjectClass obj => obj -> TimeRanges+castToTimeRanges = castTo gTypeTimeRanges "TimeRanges"++foreign import javascript unsafe "window[\"TimeRanges\"]" gTypeTimeRanges' :: JSRef GType+gTypeTimeRanges = GType gTypeTimeRanges'+#else+type IsTimeRanges o = TimeRangesClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype TreeWalker = TreeWalker (JSRef TreeWalker)++unTreeWalker (TreeWalker o) = o++instance ToJSRef TreeWalker where+  toJSRef = return . unTreeWalker+  {-# INLINE toJSRef #-}++instance FromJSRef TreeWalker where+  fromJSRef = return . fmap TreeWalker . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsTreeWalker o+toTreeWalker :: IsTreeWalker o => o -> TreeWalker+toTreeWalker = unsafeCastGObject . toGObject++instance IsTreeWalker TreeWalker+instance GObjectClass TreeWalker where+  toGObject = GObject . castRef . unTreeWalker+  unsafeCastGObject = TreeWalker . castRef . unGObject++castToTreeWalker :: GObjectClass obj => obj -> TreeWalker+castToTreeWalker = castTo gTypeTreeWalker "TreeWalker"++foreign import javascript unsafe "window[\"TreeWalker\"]" gTypeTreeWalker' :: JSRef GType+gTypeTreeWalker = GType gTypeTreeWalker'+#else+type IsTreeWalker o = TreeWalkerClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype UIEvent = UIEvent (JSRef UIEvent)++unUIEvent (UIEvent o) = o++instance ToJSRef UIEvent where+  toJSRef = return . unUIEvent+  {-# INLINE toJSRef #-}++instance FromJSRef UIEvent where+  fromJSRef = return . fmap UIEvent . maybeJSNull+  {-# INLINE fromJSRef #-}++class IsEvent o => IsUIEvent o+toUIEvent :: IsUIEvent o => o -> UIEvent+toUIEvent = unsafeCastGObject . toGObject++instance IsUIEvent UIEvent+instance IsEvent UIEvent+instance GObjectClass UIEvent where+  toGObject = GObject . castRef . unUIEvent+  unsafeCastGObject = UIEvent . castRef . unGObject++castToUIEvent :: GObjectClass obj => obj -> UIEvent+castToUIEvent = castTo gTypeUIEvent "UIEvent"++foreign import javascript unsafe "window[\"UIEvent\"]" gTypeUIEvent' :: JSRef GType+gTypeUIEvent = GType gTypeUIEvent'+#else+type IsUIEvent o = UIEventClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype ValidityState = ValidityState (JSRef ValidityState)++unValidityState (ValidityState o) = o++instance ToJSRef ValidityState where+  toJSRef = return . unValidityState+  {-# INLINE toJSRef #-}++instance FromJSRef ValidityState where+  fromJSRef = return . fmap ValidityState . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsValidityState o+toValidityState :: IsValidityState o => o -> ValidityState+toValidityState = unsafeCastGObject . toGObject++instance IsValidityState ValidityState+instance GObjectClass ValidityState where+  toGObject = GObject . castRef . unValidityState+  unsafeCastGObject = ValidityState . castRef . unGObject++castToValidityState :: GObjectClass obj => obj -> ValidityState+castToValidityState = castTo gTypeValidityState "ValidityState"++foreign import javascript unsafe "window[\"ValidityState\"]" gTypeValidityState' :: JSRef GType+gTypeValidityState = GType gTypeValidityState'+#else+type IsValidityState o = ValidityStateClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype WebKitNamedFlow = WebKitNamedFlow (JSRef WebKitNamedFlow)++unWebKitNamedFlow (WebKitNamedFlow o) = o++instance ToJSRef WebKitNamedFlow where+  toJSRef = return . unWebKitNamedFlow+  {-# INLINE toJSRef #-}++instance FromJSRef WebKitNamedFlow where+  fromJSRef = return . fmap WebKitNamedFlow . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsWebKitNamedFlow o+toWebKitNamedFlow :: IsWebKitNamedFlow o => o -> WebKitNamedFlow+toWebKitNamedFlow = unsafeCastGObject . toGObject++instance IsWebKitNamedFlow WebKitNamedFlow+instance GObjectClass WebKitNamedFlow where+  toGObject = GObject . castRef . unWebKitNamedFlow+  unsafeCastGObject = WebKitNamedFlow . castRef . unGObject++castToWebKitNamedFlow :: GObjectClass obj => obj -> WebKitNamedFlow+castToWebKitNamedFlow = castTo gTypeWebKitNamedFlow "WebKitNamedFlow"++foreign import javascript unsafe "window[\"WebKitNamedFlow\"]" gTypeWebKitNamedFlow' :: JSRef GType+gTypeWebKitNamedFlow = GType gTypeWebKitNamedFlow'+#else+type IsWebKitNamedFlow o = WebKitNamedFlowClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype WebKitPoint = WebKitPoint (JSRef WebKitPoint)++unWebKitPoint (WebKitPoint o) = o++instance ToJSRef WebKitPoint where+  toJSRef = return . unWebKitPoint+  {-# INLINE toJSRef #-}++instance FromJSRef WebKitPoint where+  fromJSRef = return . fmap WebKitPoint . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsWebKitPoint o+toWebKitPoint :: IsWebKitPoint o => o -> WebKitPoint+toWebKitPoint = unsafeCastGObject . toGObject++instance IsWebKitPoint WebKitPoint+instance GObjectClass WebKitPoint where+  toGObject = GObject . castRef . unWebKitPoint+  unsafeCastGObject = WebKitPoint . castRef . unGObject++castToWebKitPoint :: GObjectClass obj => obj -> WebKitPoint+castToWebKitPoint = castTo gTypeWebKitPoint "WebKitPoint"++foreign import javascript unsafe "window[\"WebKitPoint\"]" gTypeWebKitPoint' :: JSRef GType+gTypeWebKitPoint = GType gTypeWebKitPoint'+#else+type IsWebKitPoint o = WebKitPointClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype XPathExpression = XPathExpression (JSRef XPathExpression)++unXPathExpression (XPathExpression o) = o++instance ToJSRef XPathExpression where+  toJSRef = return . unXPathExpression+  {-# INLINE toJSRef #-}++instance FromJSRef XPathExpression where+  fromJSRef = return . fmap XPathExpression . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsXPathExpression o+toXPathExpression :: IsXPathExpression o => o -> XPathExpression+toXPathExpression = unsafeCastGObject . toGObject++instance IsXPathExpression XPathExpression+instance GObjectClass XPathExpression where+  toGObject = GObject . castRef . unXPathExpression+  unsafeCastGObject = XPathExpression . castRef . unGObject++castToXPathExpression :: GObjectClass obj => obj -> XPathExpression+castToXPathExpression = castTo gTypeXPathExpression "XPathExpression"++foreign import javascript unsafe "window[\"XPathExpression\"]" gTypeXPathExpression' :: JSRef GType+gTypeXPathExpression = GType gTypeXPathExpression'+#else+type IsXPathExpression o = XPathExpressionClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype XPathNSResolver = XPathNSResolver (JSRef XPathNSResolver)++unXPathNSResolver (XPathNSResolver o) = o++instance ToJSRef XPathNSResolver where+  toJSRef = return . unXPathNSResolver+  {-# INLINE toJSRef #-}++instance FromJSRef XPathNSResolver where+  fromJSRef = return . fmap XPathNSResolver . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsXPathNSResolver o+toXPathNSResolver :: IsXPathNSResolver o => o -> XPathNSResolver+toXPathNSResolver = unsafeCastGObject . toGObject++instance IsXPathNSResolver XPathNSResolver+instance GObjectClass XPathNSResolver where+  toGObject = GObject . castRef . unXPathNSResolver+  unsafeCastGObject = XPathNSResolver . castRef . unGObject++castToXPathNSResolver :: GObjectClass obj => obj -> XPathNSResolver+castToXPathNSResolver = castTo gTypeXPathNSResolver "XPathNSResolver"++foreign import javascript unsafe "window[\"XPathNSResolver\"]" gTypeXPathNSResolver' :: JSRef GType+gTypeXPathNSResolver = GType gTypeXPathNSResolver'+#else+type IsXPathNSResolver o = XPathNSResolverClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype XPathResult = XPathResult (JSRef XPathResult)++unXPathResult (XPathResult o) = o++instance ToJSRef XPathResult where+  toJSRef = return . unXPathResult+  {-# INLINE toJSRef #-}++instance FromJSRef XPathResult where+  fromJSRef = return . fmap XPathResult . maybeJSNull+  {-# INLINE fromJSRef #-}++class GObjectClass o => IsXPathResult o+toXPathResult :: IsXPathResult o => o -> XPathResult+toXPathResult = unsafeCastGObject . toGObject++instance IsXPathResult XPathResult+instance GObjectClass XPathResult where+  toGObject = GObject . castRef . unXPathResult+  unsafeCastGObject = XPathResult . castRef . unGObject++castToXPathResult :: GObjectClass obj => obj -> XPathResult+castToXPathResult = castTo gTypeXPathResult "XPathResult"++foreign import javascript unsafe "window[\"XPathResult\"]" gTypeXPathResult' :: JSRef GType gTypeXPathResult = GType gTypeXPathResult' #else type IsXPathResult o = XPathResultClass o

src/GHCJS/DOM/UIEvent.hs view

@@ -16,29 +16,18 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "$1[\"initUIEvent\"]($2, $3, $4,\n$5, $6)"         ghcjs_dom_ui_event_init_ui_event ::         JSRef UIEvent ->           JSString -> Bool -> Bool -> JSRef DOMWindow -> Int -> IO ()-#else -ghcjs_dom_ui_event_init_ui_event ::-                                   JSRef UIEvent ->-                                     JSString -> Bool -> Bool -> JSRef DOMWindow -> Int -> IO ()-ghcjs_dom_ui_event_init_ui_event = undefined-#endif   uiEventInitUIEvent ::                    (IsUIEvent self, ToJSString type', IsDOMWindow view) =>@@ -50,122 +39,67 @@       cancelable       (maybe jsNull (unDOMWindow . toDOMWindow) view)       detail---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"view\"]"         ghcjs_dom_ui_event_get_view ::         JSRef UIEvent -> IO (JSRef DOMWindow)-#else -ghcjs_dom_ui_event_get_view ::-                              JSRef UIEvent -> IO (JSRef DOMWindow)-ghcjs_dom_ui_event_get_view = undefined-#endif   uiEventGetView :: (IsUIEvent self) => self -> IO (Maybe DOMWindow) uiEventGetView self   = fmap DOMWindow . maybeJSNull <$>       (ghcjs_dom_ui_event_get_view (unUIEvent (toUIEvent self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"detail\"]"         ghcjs_dom_ui_event_get_detail :: JSRef UIEvent -> IO Int-#else -ghcjs_dom_ui_event_get_detail :: JSRef UIEvent -> IO Int-ghcjs_dom_ui_event_get_detail = undefined-#endif   uiEventGetDetail :: (IsUIEvent self) => self -> IO Int uiEventGetDetail self   = ghcjs_dom_ui_event_get_detail (unUIEvent (toUIEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"keyCode\"]"         ghcjs_dom_ui_event_get_key_code :: JSRef UIEvent -> IO Int-#else -ghcjs_dom_ui_event_get_key_code :: JSRef UIEvent -> IO Int-ghcjs_dom_ui_event_get_key_code = undefined-#endif   uiEventGetKeyCode :: (IsUIEvent self) => self -> IO Int uiEventGetKeyCode self   = ghcjs_dom_ui_event_get_key_code (unUIEvent (toUIEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"charCode\"]"         ghcjs_dom_ui_event_get_char_code :: JSRef UIEvent -> IO Int-#else -ghcjs_dom_ui_event_get_char_code :: JSRef UIEvent -> IO Int-ghcjs_dom_ui_event_get_char_code = undefined-#endif   uiEventGetCharCode :: (IsUIEvent self) => self -> IO Int uiEventGetCharCode self   = ghcjs_dom_ui_event_get_char_code (unUIEvent (toUIEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"layerX\"]"         ghcjs_dom_ui_event_get_layer_x :: JSRef UIEvent -> IO Int-#else -ghcjs_dom_ui_event_get_layer_x :: JSRef UIEvent -> IO Int-ghcjs_dom_ui_event_get_layer_x = undefined-#endif   uiEventGetLayerX :: (IsUIEvent self) => self -> IO Int uiEventGetLayerX self   = ghcjs_dom_ui_event_get_layer_x (unUIEvent (toUIEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"layerY\"]"         ghcjs_dom_ui_event_get_layer_y :: JSRef UIEvent -> IO Int-#else -ghcjs_dom_ui_event_get_layer_y :: JSRef UIEvent -> IO Int-ghcjs_dom_ui_event_get_layer_y = undefined-#endif   uiEventGetLayerY :: (IsUIEvent self) => self -> IO Int uiEventGetLayerY self   = ghcjs_dom_ui_event_get_layer_y (unUIEvent (toUIEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"pageX\"]"         ghcjs_dom_ui_event_get_page_x :: JSRef UIEvent -> IO Int-#else -ghcjs_dom_ui_event_get_page_x :: JSRef UIEvent -> IO Int-ghcjs_dom_ui_event_get_page_x = undefined-#endif   uiEventGetPageX :: (IsUIEvent self) => self -> IO Int uiEventGetPageX self   = ghcjs_dom_ui_event_get_page_x (unUIEvent (toUIEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"pageY\"]"         ghcjs_dom_ui_event_get_page_y :: JSRef UIEvent -> IO Int-#else -ghcjs_dom_ui_event_get_page_y :: JSRef UIEvent -> IO Int-ghcjs_dom_ui_event_get_page_y = undefined-#endif   uiEventGetPageY :: (IsUIEvent self) => self -> IO Int uiEventGetPageY self   = ghcjs_dom_ui_event_get_page_y (unUIEvent (toUIEvent self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"which\"]"         ghcjs_dom_ui_event_get_which :: JSRef UIEvent -> IO Int-#else -ghcjs_dom_ui_event_get_which :: JSRef UIEvent -> IO Int-ghcjs_dom_ui_event_get_which = undefined-#endif   uiEventGetWhich :: (IsUIEvent self) => self -> IO Int uiEventGetWhich self

src/GHCJS/DOM/ValidityState.hs view

@@ -23,182 +23,108 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"valueMissing\"] ? 1 : 0)"         ghcjs_dom_validity_state_get_value_missing ::         JSRef ValidityState -> IO Bool-#else -ghcjs_dom_validity_state_get_value_missing ::-                                             JSRef ValidityState -> IO Bool-ghcjs_dom_validity_state_get_value_missing = undefined-#endif   validityStateGetValueMissing ::                              (IsValidityState self) => self -> IO Bool validityStateGetValueMissing self   = ghcjs_dom_validity_state_get_value_missing       (unValidityState (toValidityState self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"typeMismatch\"] ? 1 : 0)"         ghcjs_dom_validity_state_get_type_mismatch ::         JSRef ValidityState -> IO Bool-#else -ghcjs_dom_validity_state_get_type_mismatch ::-                                             JSRef ValidityState -> IO Bool-ghcjs_dom_validity_state_get_type_mismatch = undefined-#endif   validityStateGetTypeMismatch ::                              (IsValidityState self) => self -> IO Bool validityStateGetTypeMismatch self   = ghcjs_dom_validity_state_get_type_mismatch       (unValidityState (toValidityState self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"patternMismatch\"] ? 1 : 0)"         ghcjs_dom_validity_state_get_pattern_mismatch ::         JSRef ValidityState -> IO Bool-#else -ghcjs_dom_validity_state_get_pattern_mismatch ::-                                                JSRef ValidityState -> IO Bool-ghcjs_dom_validity_state_get_pattern_mismatch = undefined-#endif   validityStateGetPatternMismatch ::                                 (IsValidityState self) => self -> IO Bool validityStateGetPatternMismatch self   = ghcjs_dom_validity_state_get_pattern_mismatch       (unValidityState (toValidityState self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"tooLong\"] ? 1 : 0)"         ghcjs_dom_validity_state_get_too_long ::         JSRef ValidityState -> IO Bool-#else -ghcjs_dom_validity_state_get_too_long ::-                                        JSRef ValidityState -> IO Bool-ghcjs_dom_validity_state_get_too_long = undefined-#endif   validityStateGetTooLong ::                         (IsValidityState self) => self -> IO Bool validityStateGetTooLong self   = ghcjs_dom_validity_state_get_too_long       (unValidityState (toValidityState self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"rangeUnderflow\"] ? 1 : 0)"         ghcjs_dom_validity_state_get_range_underflow ::         JSRef ValidityState -> IO Bool-#else -ghcjs_dom_validity_state_get_range_underflow ::-                                               JSRef ValidityState -> IO Bool-ghcjs_dom_validity_state_get_range_underflow = undefined-#endif   validityStateGetRangeUnderflow ::                                (IsValidityState self) => self -> IO Bool validityStateGetRangeUnderflow self   = ghcjs_dom_validity_state_get_range_underflow       (unValidityState (toValidityState self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"rangeOverflow\"] ? 1 : 0)"         ghcjs_dom_validity_state_get_range_overflow ::         JSRef ValidityState -> IO Bool-#else -ghcjs_dom_validity_state_get_range_overflow ::-                                              JSRef ValidityState -> IO Bool-ghcjs_dom_validity_state_get_range_overflow = undefined-#endif   validityStateGetRangeOverflow ::                               (IsValidityState self) => self -> IO Bool validityStateGetRangeOverflow self   = ghcjs_dom_validity_state_get_range_overflow       (unValidityState (toValidityState self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"stepMismatch\"] ? 1 : 0)"         ghcjs_dom_validity_state_get_step_mismatch ::         JSRef ValidityState -> IO Bool-#else -ghcjs_dom_validity_state_get_step_mismatch ::-                                             JSRef ValidityState -> IO Bool-ghcjs_dom_validity_state_get_step_mismatch = undefined-#endif   validityStateGetStepMismatch ::                              (IsValidityState self) => self -> IO Bool validityStateGetStepMismatch self   = ghcjs_dom_validity_state_get_step_mismatch       (unValidityState (toValidityState self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"badInput\"] ? 1 : 0)"         ghcjs_dom_validity_state_get_bad_input ::         JSRef ValidityState -> IO Bool-#else -ghcjs_dom_validity_state_get_bad_input ::-                                         JSRef ValidityState -> IO Bool-ghcjs_dom_validity_state_get_bad_input = undefined-#endif   validityStateGetBadInput ::                          (IsValidityState self) => self -> IO Bool validityStateGetBadInput self   = ghcjs_dom_validity_state_get_bad_input       (unValidityState (toValidityState self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"customError\"] ? 1 : 0)"         ghcjs_dom_validity_state_get_custom_error ::         JSRef ValidityState -> IO Bool-#else -ghcjs_dom_validity_state_get_custom_error ::-                                            JSRef ValidityState -> IO Bool-ghcjs_dom_validity_state_get_custom_error = undefined-#endif   validityStateGetCustomError ::                             (IsValidityState self) => self -> IO Bool validityStateGetCustomError self   = ghcjs_dom_validity_state_get_custom_error       (unValidityState (toValidityState self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"valid\"] ? 1 : 0)"         ghcjs_dom_validity_state_get_valid ::         JSRef ValidityState -> IO Bool-#else -ghcjs_dom_validity_state_get_valid ::-                                     JSRef ValidityState -> IO Bool-ghcjs_dom_validity_state_get_valid = undefined-#endif   validityStateGetValid :: (IsValidityState self) => self -> IO Bool validityStateGetValid self

src/GHCJS/DOM/WebKitNamedFlow.hs view

@@ -17,29 +17,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"getRegionsByContent\"]($2)"         ghcjs_dom_webkit_named_flow_get_regions_by_content ::         JSRef WebKitNamedFlow -> JSRef Node -> IO (JSRef NodeList)-#else -ghcjs_dom_webkit_named_flow_get_regions_by_content ::-                                                     JSRef WebKitNamedFlow ->-                                                       JSRef Node -> IO (JSRef NodeList)-ghcjs_dom_webkit_named_flow_get_regions_by_content = undefined-#endif   webKitNamedFlowGetRegionsByContent ::                                    (IsWebKitNamedFlow self, IsNode contentNode) =>@@ -49,17 +37,10 @@       (ghcjs_dom_webkit_named_flow_get_regions_by_content          (unWebKitNamedFlow (toWebKitNamedFlow self))          (maybe jsNull (unNode . toNode) contentNode))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"getRegions\"]()"         ghcjs_dom_webkit_named_flow_get_regions ::         JSRef WebKitNamedFlow -> IO (JSRef NodeList)-#else -ghcjs_dom_webkit_named_flow_get_regions ::-                                          JSRef WebKitNamedFlow -> IO (JSRef NodeList)-ghcjs_dom_webkit_named_flow_get_regions = undefined-#endif   webKitNamedFlowGetRegions ::                           (IsWebKitNamedFlow self) => self -> IO (Maybe NodeList)@@ -67,17 +48,10 @@   = fmap NodeList . maybeJSNull <$>       (ghcjs_dom_webkit_named_flow_get_regions          (unWebKitNamedFlow (toWebKitNamedFlow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"getContent\"]()"         ghcjs_dom_webkit_named_flow_get_content ::         JSRef WebKitNamedFlow -> IO (JSRef NodeList)-#else -ghcjs_dom_webkit_named_flow_get_content ::-                                          JSRef WebKitNamedFlow -> IO (JSRef NodeList)-ghcjs_dom_webkit_named_flow_get_content = undefined-#endif   webKitNamedFlowGetContent ::                           (IsWebKitNamedFlow self) => self -> IO (Maybe NodeList)@@ -85,18 +59,11 @@   = fmap NodeList . maybeJSNull <$>       (ghcjs_dom_webkit_named_flow_get_content          (unWebKitNamedFlow (toWebKitNamedFlow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"dispatchEvent\"]($2) ? 1 : 0)"         ghcjs_dom_webkit_named_flow_dispatch_event ::         JSRef WebKitNamedFlow -> JSRef Event -> IO Bool-#else -ghcjs_dom_webkit_named_flow_dispatch_event ::-                                             JSRef WebKitNamedFlow -> JSRef Event -> IO Bool-ghcjs_dom_webkit_named_flow_dispatch_event = undefined-#endif   webKitNamedFlowDispatchEvent ::                              (IsWebKitNamedFlow self, IsEvent event) =>@@ -105,17 +72,10 @@   = ghcjs_dom_webkit_named_flow_dispatch_event       (unWebKitNamedFlow (toWebKitNamedFlow self))       (maybe jsNull (unEvent . toEvent) event)---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"name\"]"         ghcjs_dom_webkit_named_flow_get_name ::         JSRef WebKitNamedFlow -> IO JSString-#else -ghcjs_dom_webkit_named_flow_get_name ::-                                       JSRef WebKitNamedFlow -> IO JSString-ghcjs_dom_webkit_named_flow_get_name = undefined-#endif   webKitNamedFlowGetName ::                        (IsWebKitNamedFlow self, FromJSString result) => self -> IO result@@ -123,35 +83,20 @@   = fromJSString <$>       (ghcjs_dom_webkit_named_flow_get_name          (unWebKitNamedFlow (toWebKitNamedFlow self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"overset\"] ? 1 : 0)"         ghcjs_dom_webkit_named_flow_get_overset ::         JSRef WebKitNamedFlow -> IO Bool-#else -ghcjs_dom_webkit_named_flow_get_overset ::-                                          JSRef WebKitNamedFlow -> IO Bool-ghcjs_dom_webkit_named_flow_get_overset = undefined-#endif   webKitNamedFlowGetOverset ::                           (IsWebKitNamedFlow self) => self -> IO Bool webKitNamedFlowGetOverset self   = ghcjs_dom_webkit_named_flow_get_overset       (unWebKitNamedFlow (toWebKitNamedFlow self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"firstEmptyRegionIndex\"]"         ghcjs_dom_webkit_named_flow_get_first_empty_region_index ::         JSRef WebKitNamedFlow -> IO Int-#else -ghcjs_dom_webkit_named_flow_get_first_empty_region_index ::-                                                           JSRef WebKitNamedFlow -> IO Int-ghcjs_dom_webkit_named_flow_get_first_empty_region_index-  = undefined-#endif   webKitNamedFlowGetFirstEmptyRegionIndex ::                                         (IsWebKitNamedFlow self) => self -> IO Int

src/GHCJS/DOM/WebKitPoint.hs view

@@ -10,67 +10,39 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"x\"] = $2;"         ghcjs_dom_webkit_point_set_x :: JSRef WebKitPoint -> Float -> IO ()-#else -ghcjs_dom_webkit_point_set_x :: JSRef WebKitPoint -> Float -> IO ()-ghcjs_dom_webkit_point_set_x = undefined-#endif   webKitPointSetX :: (IsWebKitPoint self) => self -> Float -> IO () webKitPointSetX self val   = ghcjs_dom_webkit_point_set_x (unWebKitPoint (toWebKitPoint self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"x\"]"         ghcjs_dom_webkit_point_get_x :: JSRef WebKitPoint -> IO Float-#else -ghcjs_dom_webkit_point_get_x :: JSRef WebKitPoint -> IO Float-ghcjs_dom_webkit_point_get_x = undefined-#endif   webKitPointGetX :: (IsWebKitPoint self) => self -> IO Float webKitPointGetX self   = ghcjs_dom_webkit_point_get_x (unWebKitPoint (toWebKitPoint self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"y\"] = $2;"         ghcjs_dom_webkit_point_set_y :: JSRef WebKitPoint -> Float -> IO ()-#else -ghcjs_dom_webkit_point_set_y :: JSRef WebKitPoint -> Float -> IO ()-ghcjs_dom_webkit_point_set_y = undefined-#endif   webKitPointSetY :: (IsWebKitPoint self) => self -> Float -> IO () webKitPointSetY self val   = ghcjs_dom_webkit_point_set_y (unWebKitPoint (toWebKitPoint self))       val---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"y\"]"         ghcjs_dom_webkit_point_get_y :: JSRef WebKitPoint -> IO Float-#else -ghcjs_dom_webkit_point_get_y :: JSRef WebKitPoint -> IO Float-ghcjs_dom_webkit_point_get_y = undefined-#endif   webKitPointGetY :: (IsWebKitPoint self) => self -> IO Float webKitPointGetY self

src/GHCJS/DOM/XPathExpression.hs view

@@ -8,31 +8,18 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"evaluate\"]($2, $3, $4)"         ghcjs_dom_xpath_expression_evaluate ::         JSRef XPathExpression ->           JSRef Node -> Word -> JSRef XPathResult -> IO (JSRef XPathResult)-#else -ghcjs_dom_xpath_expression_evaluate ::-                                      JSRef XPathExpression ->-                                        JSRef Node ->-                                          Word -> JSRef XPathResult -> IO (JSRef XPathResult)-ghcjs_dom_xpath_expression_evaluate = undefined-#endif   xPathExpressionEvaluate ::                         (IsXPathExpression self, IsNode contextNode,

src/GHCJS/DOM/XPathNSResolver.hs view

@@ -9,28 +9,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"lookupNamespaceURI\"]($2)"         ghcjs_dom_xpath_ns_resolver_lookup_namespace_uri ::         JSRef XPathNSResolver -> JSString -> IO JSString-#else -ghcjs_dom_xpath_ns_resolver_lookup_namespace_uri ::-                                                   JSRef XPathNSResolver -> JSString -> IO JSString-ghcjs_dom_xpath_ns_resolver_lookup_namespace_uri = undefined-#endif   xPathNSResolverLookupNamespaceURI ::                                   (IsXPathNSResolver self, ToJSString prefix,

src/GHCJS/DOM/XPathResult.hs view

@@ -23,28 +23,17 @@        where import GHCJS.Types import GHCJS.Foreign-import Data.Word-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventM-import GHCJS.Types-import GHCJS.Foreign+import GHCJS.Marshal+import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM ---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"iterateNext\"]()"         ghcjs_dom_xpath_result_iterate_next ::         JSRef XPathResult -> IO (JSRef Node)-#else -ghcjs_dom_xpath_result_iterate_next ::-                                      JSRef XPathResult -> IO (JSRef Node)-ghcjs_dom_xpath_result_iterate_next = undefined-#endif   xPathResultIterateNext ::                        (IsXPathResult self) => self -> IO (Maybe Node)@@ -52,17 +41,10 @@   = fmap Node . maybeJSNull <$>       (ghcjs_dom_xpath_result_iterate_next          (unXPathResult (toXPathResult self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"snapshotItem\"]($2)"         ghcjs_dom_xpath_result_snapshot_item ::         JSRef XPathResult -> Word -> IO (JSRef Node)-#else -ghcjs_dom_xpath_result_snapshot_item ::-                                       JSRef XPathResult -> Word -> IO (JSRef Node)-ghcjs_dom_xpath_result_snapshot_item = undefined-#endif   xPathResultSnapshotItem ::                         (IsXPathResult self) => self -> Word -> IO (Maybe Node)@@ -81,50 +63,29 @@ cORDERED_NODE_SNAPSHOT_TYPE = 7 cANY_UNORDERED_NODE_TYPE = 8 cFIRST_ORDERED_NODE_TYPE = 9---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"resultType\"]"         ghcjs_dom_xpath_result_get_result_type ::         JSRef XPathResult -> IO Word-#else -ghcjs_dom_xpath_result_get_result_type ::-                                         JSRef XPathResult -> IO Word-ghcjs_dom_xpath_result_get_result_type = undefined-#endif   xPathResultGetResultType :: (IsXPathResult self) => self -> IO Word xPathResultGetResultType self   = ghcjs_dom_xpath_result_get_result_type       (unXPathResult (toXPathResult self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"numberValue\"]"         ghcjs_dom_xpath_result_get_number_value ::         JSRef XPathResult -> IO Double-#else -ghcjs_dom_xpath_result_get_number_value ::-                                          JSRef XPathResult -> IO Double-ghcjs_dom_xpath_result_get_number_value = undefined-#endif   xPathResultGetNumberValue ::                           (IsXPathResult self) => self -> IO Double xPathResultGetNumberValue self   = ghcjs_dom_xpath_result_get_number_value       (unXPathResult (toXPathResult self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"stringValue\"]"         ghcjs_dom_xpath_result_get_string_value ::         JSRef XPathResult -> IO JSString-#else -ghcjs_dom_xpath_result_get_string_value ::-                                          JSRef XPathResult -> IO JSString-ghcjs_dom_xpath_result_get_string_value = undefined-#endif   xPathResultGetStringValue ::                           (IsXPathResult self, FromJSString result) => self -> IO result@@ -132,34 +93,20 @@   = fromJSString <$>       (ghcjs_dom_xpath_result_get_string_value          (unXPathResult (toXPathResult self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "($1[\"booleanValue\"] ? 1 : 0)"         ghcjs_dom_xpath_result_get_boolean_value ::         JSRef XPathResult -> IO Bool-#else -ghcjs_dom_xpath_result_get_boolean_value ::-                                           JSRef XPathResult -> IO Bool-ghcjs_dom_xpath_result_get_boolean_value = undefined-#endif   xPathResultGetBooleanValue ::                            (IsXPathResult self) => self -> IO Bool xPathResultGetBooleanValue self   = ghcjs_dom_xpath_result_get_boolean_value       (unXPathResult (toXPathResult self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"singleNodeValue\"]"         ghcjs_dom_xpath_result_get_single_node_value ::         JSRef XPathResult -> IO (JSRef Node)-#else -ghcjs_dom_xpath_result_get_single_node_value ::-                                               JSRef XPathResult -> IO (JSRef Node)-ghcjs_dom_xpath_result_get_single_node_value = undefined-#endif   xPathResultGetSingleNodeValue ::                               (IsXPathResult self) => self -> IO (Maybe Node)@@ -167,35 +114,21 @@   = fmap Node . maybeJSNull <$>       (ghcjs_dom_xpath_result_get_single_node_value          (unXPathResult (toXPathResult self)))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe         "($1[\"invalidIteratorState\"] ? 1 : 0)"         ghcjs_dom_xpath_result_get_invalid_iterator_state ::         JSRef XPathResult -> IO Bool-#else -ghcjs_dom_xpath_result_get_invalid_iterator_state ::-                                                    JSRef XPathResult -> IO Bool-ghcjs_dom_xpath_result_get_invalid_iterator_state = undefined-#endif   xPathResultGetInvalidIteratorState ::                                    (IsXPathResult self) => self -> IO Bool xPathResultGetInvalidIteratorState self   = ghcjs_dom_xpath_result_get_invalid_iterator_state       (unXPathResult (toXPathResult self))---#ifdef ghcjs_HOST_OS +  foreign import javascript unsafe "$1[\"snapshotLength\"]"         ghcjs_dom_xpath_result_get_snapshot_length ::         JSRef XPathResult -> IO Word-#else -ghcjs_dom_xpath_result_get_snapshot_length ::-                                             JSRef XPathResult -> IO Word-ghcjs_dom_xpath_result_get_snapshot_length = undefined-#endif   xPathResultGetSnapshotLength ::                              (IsXPathResult self) => self -> IO Word