diff --git a/ghcjs-dom.cabal b/ghcjs-dom.cabal --- a/ghcjs-dom.cabal +++ b/ghcjs-dom.cabal @@ -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 diff --git a/src/GHCJS/DOM/Attr.hs b/src/GHCJS/DOM/Attr.hs --- a/src/GHCJS/DOM/Attr.hs +++ b/src/GHCJS/DOM/Attr.hs @@ -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 diff --git a/src/GHCJS/DOM/BarProp.hs b/src/GHCJS/DOM/BarProp.hs --- a/src/GHCJS/DOM/BarProp.hs +++ b/src/GHCJS/DOM/BarProp.hs @@ -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 diff --git a/src/GHCJS/DOM/Blob.hs b/src/GHCJS/DOM/Blob.hs --- a/src/GHCJS/DOM/Blob.hs +++ b/src/GHCJS/DOM/Blob.hs @@ -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 diff --git a/src/GHCJS/DOM/CSSRule.hs b/src/GHCJS/DOM/CSSRule.hs --- a/src/GHCJS/DOM/CSSRule.hs +++ b/src/GHCJS/DOM/CSSRule.hs @@ -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) diff --git a/src/GHCJS/DOM/CSSRuleList.hs b/src/GHCJS/DOM/CSSRuleList.hs --- a/src/GHCJS/DOM/CSSRuleList.hs +++ b/src/GHCJS/DOM/CSSRuleList.hs @@ -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 diff --git a/src/GHCJS/DOM/CSSStyleDeclaration.hs b/src/GHCJS/DOM/CSSStyleDeclaration.hs --- a/src/GHCJS/DOM/CSSStyleDeclaration.hs +++ b/src/GHCJS/DOM/CSSStyleDeclaration.hs @@ -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) diff --git a/src/GHCJS/DOM/CSSStyleSheet.hs b/src/GHCJS/DOM/CSSStyleSheet.hs --- a/src/GHCJS/DOM/CSSStyleSheet.hs +++ b/src/GHCJS/DOM/CSSStyleSheet.hs @@ -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) diff --git a/src/GHCJS/DOM/CSSValue.hs b/src/GHCJS/DOM/CSSValue.hs --- a/src/GHCJS/DOM/CSSValue.hs +++ b/src/GHCJS/DOM/CSSValue.hs @@ -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 diff --git a/src/GHCJS/DOM/CharacterData.hs b/src/GHCJS/DOM/CharacterData.hs --- a/src/GHCJS/DOM/CharacterData.hs +++ b/src/GHCJS/DOM/CharacterData.hs @@ -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 diff --git a/src/GHCJS/DOM/Console.hs b/src/GHCJS/DOM/Console.hs deleted file mode 100644 --- a/src/GHCJS/DOM/Console.hs +++ /dev/null @@ -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 diff --git a/src/GHCJS/DOM/DOMApplicationCache.hs b/src/GHCJS/DOM/DOMApplicationCache.hs --- a/src/GHCJS/DOM/DOMApplicationCache.hs +++ b/src/GHCJS/DOM/DOMApplicationCache.hs @@ -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 diff --git a/src/GHCJS/DOM/DOMImplementation.hs b/src/GHCJS/DOM/DOMImplementation.hs --- a/src/GHCJS/DOM/DOMImplementation.hs +++ b/src/GHCJS/DOM/DOMImplementation.hs @@ -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) => diff --git a/src/GHCJS/DOM/DOMMimeType.hs b/src/GHCJS/DOM/DOMMimeType.hs --- a/src/GHCJS/DOM/DOMMimeType.hs +++ b/src/GHCJS/DOM/DOMMimeType.hs @@ -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) diff --git a/src/GHCJS/DOM/DOMMimeTypeArray.hs b/src/GHCJS/DOM/DOMMimeTypeArray.hs --- a/src/GHCJS/DOM/DOMMimeTypeArray.hs +++ b/src/GHCJS/DOM/DOMMimeTypeArray.hs @@ -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 diff --git a/src/GHCJS/DOM/DOMNamedFlowCollection.hs b/src/GHCJS/DOM/DOMNamedFlowCollection.hs --- a/src/GHCJS/DOM/DOMNamedFlowCollection.hs +++ b/src/GHCJS/DOM/DOMNamedFlowCollection.hs @@ -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 diff --git a/src/GHCJS/DOM/DOMPlugin.hs b/src/GHCJS/DOM/DOMPlugin.hs --- a/src/GHCJS/DOM/DOMPlugin.hs +++ b/src/GHCJS/DOM/DOMPlugin.hs @@ -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 diff --git a/src/GHCJS/DOM/DOMPluginArray.hs b/src/GHCJS/DOM/DOMPluginArray.hs --- a/src/GHCJS/DOM/DOMPluginArray.hs +++ b/src/GHCJS/DOM/DOMPluginArray.hs @@ -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 diff --git a/src/GHCJS/DOM/DOMSecurityPolicy.hs b/src/GHCJS/DOM/DOMSecurityPolicy.hs --- a/src/GHCJS/DOM/DOMSecurityPolicy.hs +++ b/src/GHCJS/DOM/DOMSecurityPolicy.hs @@ -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) diff --git a/src/GHCJS/DOM/DOMSelection.hs b/src/GHCJS/DOM/DOMSelection.hs --- a/src/GHCJS/DOM/DOMSelection.hs +++ b/src/GHCJS/DOM/DOMSelection.hs @@ -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 diff --git a/src/GHCJS/DOM/DOMSettableTokenList.hs b/src/GHCJS/DOM/DOMSettableTokenList.hs --- a/src/GHCJS/DOM/DOMSettableTokenList.hs +++ b/src/GHCJS/DOM/DOMSettableTokenList.hs @@ -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) => diff --git a/src/GHCJS/DOM/DOMStringList.hs b/src/GHCJS/DOM/DOMStringList.hs --- a/src/GHCJS/DOM/DOMStringList.hs +++ b/src/GHCJS/DOM/DOMStringList.hs @@ -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 diff --git a/src/GHCJS/DOM/DOMTokenList.hs b/src/GHCJS/DOM/DOMTokenList.hs --- a/src/GHCJS/DOM/DOMTokenList.hs +++ b/src/GHCJS/DOM/DOMTokenList.hs @@ -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 diff --git a/src/GHCJS/DOM/DOMWindow.hs b/src/GHCJS/DOM/DOMWindow.hs --- a/src/GHCJS/DOM/DOMWindow.hs +++ b/src/GHCJS/DOM/DOMWindow.hs @@ -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 diff --git a/src/GHCJS/DOM/DOMWindowCSS.hs b/src/GHCJS/DOM/DOMWindowCSS.hs --- a/src/GHCJS/DOM/DOMWindowCSS.hs +++ b/src/GHCJS/DOM/DOMWindowCSS.hs @@ -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 diff --git a/src/GHCJS/DOM/Document.hs b/src/GHCJS/DOM/Document.hs --- a/src/GHCJS/DOM/Document.hs +++ b/src/GHCJS/DOM/Document.hs @@ -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 diff --git a/src/GHCJS/DOM/DocumentType.hs b/src/GHCJS/DOM/DocumentType.hs --- a/src/GHCJS/DOM/DocumentType.hs +++ b/src/GHCJS/DOM/DocumentType.hs @@ -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 diff --git a/src/GHCJS/DOM/Element.hs b/src/GHCJS/DOM/Element.hs --- a/src/GHCJS/DOM/Element.hs +++ b/src/GHCJS/DOM/Element.hs @@ -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 diff --git a/src/GHCJS/DOM/Event.hs b/src/GHCJS/DOM/Event.hs --- a/src/GHCJS/DOM/Event.hs +++ b/src/GHCJS/DOM/Event.hs @@ -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 diff --git a/src/GHCJS/DOM/EventM.hs b/src/GHCJS/DOM/EventM.hs --- a/src/GHCJS/DOM/EventM.hs +++ b/src/GHCJS/DOM/EventM.hs @@ -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 diff --git a/src/GHCJS/DOM/File.hs b/src/GHCJS/DOM/File.hs --- a/src/GHCJS/DOM/File.hs +++ b/src/GHCJS/DOM/File.hs @@ -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 diff --git a/src/GHCJS/DOM/FileList.hs b/src/GHCJS/DOM/FileList.hs --- a/src/GHCJS/DOM/FileList.hs +++ b/src/GHCJS/DOM/FileList.hs @@ -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 diff --git a/src/GHCJS/DOM/Geolocation.hs b/src/GHCJS/DOM/Geolocation.hs --- a/src/GHCJS/DOM/Geolocation.hs +++ b/src/GHCJS/DOM/Geolocation.hs @@ -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 () diff --git a/src/GHCJS/DOM/HTMLAnchorElement.hs b/src/GHCJS/DOM/HTMLAnchorElement.hs --- a/src/GHCJS/DOM/HTMLAnchorElement.hs +++ b/src/GHCJS/DOM/HTMLAnchorElement.hs @@ -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 ( diff --git a/src/GHCJS/DOM/HTMLAppletElement.hs b/src/GHCJS/DOM/HTMLAppletElement.hs --- a/src/GHCJS/DOM/HTMLAppletElement.hs +++ b/src/GHCJS/DOM/HTMLAppletElement.hs @@ -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) => diff --git a/src/GHCJS/DOM/HTMLAreaElement.hs b/src/GHCJS/DOM/HTMLAreaElement.hs --- a/src/GHCJS/DOM/HTMLAreaElement.hs +++ b/src/GHCJS/DOM/HTMLAreaElement.hs @@ -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 ( diff --git a/src/GHCJS/DOM/HTMLBRElement.hs b/src/GHCJS/DOM/HTMLBRElement.hs --- a/src/GHCJS/DOM/HTMLBRElement.hs +++ b/src/GHCJS/DOM/HTMLBRElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLBaseElement.hs b/src/GHCJS/DOM/HTMLBaseElement.hs --- a/src/GHCJS/DOM/HTMLBaseElement.hs +++ b/src/GHCJS/DOM/HTMLBaseElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLBaseFontElement.hs b/src/GHCJS/DOM/HTMLBaseFontElement.hs --- a/src/GHCJS/DOM/HTMLBaseFontElement.hs +++ b/src/GHCJS/DOM/HTMLBaseFontElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLBodyElement.hs b/src/GHCJS/DOM/HTMLBodyElement.hs --- a/src/GHCJS/DOM/HTMLBodyElement.hs +++ b/src/GHCJS/DOM/HTMLBodyElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLButtonElement.hs b/src/GHCJS/DOM/HTMLButtonElement.hs --- a/src/GHCJS/DOM/HTMLButtonElement.hs +++ b/src/GHCJS/DOM/HTMLButtonElement.hs @@ -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) diff --git a/src/GHCJS/DOM/HTMLCanvasElement.hs b/src/GHCJS/DOM/HTMLCanvasElement.hs --- a/src/GHCJS/DOM/HTMLCanvasElement.hs +++ b/src/GHCJS/DOM/HTMLCanvasElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLCollection.hs b/src/GHCJS/DOM/HTMLCollection.hs --- a/src/GHCJS/DOM/HTMLCollection.hs +++ b/src/GHCJS/DOM/HTMLCollection.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLDListElement.hs b/src/GHCJS/DOM/HTMLDListElement.hs --- a/src/GHCJS/DOM/HTMLDListElement.hs +++ b/src/GHCJS/DOM/HTMLDListElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLDetailsElement.hs b/src/GHCJS/DOM/HTMLDetailsElement.hs --- a/src/GHCJS/DOM/HTMLDetailsElement.hs +++ b/src/GHCJS/DOM/HTMLDetailsElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLDirectoryElement.hs b/src/GHCJS/DOM/HTMLDirectoryElement.hs --- a/src/GHCJS/DOM/HTMLDirectoryElement.hs +++ b/src/GHCJS/DOM/HTMLDirectoryElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLDivElement.hs b/src/GHCJS/DOM/HTMLDivElement.hs --- a/src/GHCJS/DOM/HTMLDivElement.hs +++ b/src/GHCJS/DOM/HTMLDivElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLDocument.hs b/src/GHCJS/DOM/HTMLDocument.hs --- a/src/GHCJS/DOM/HTMLDocument.hs +++ b/src/GHCJS/DOM/HTMLDocument.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLElement.hs b/src/GHCJS/DOM/HTMLElement.hs --- a/src/GHCJS/DOM/HTMLElement.hs +++ b/src/GHCJS/DOM/HTMLElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLEmbedElement.hs b/src/GHCJS/DOM/HTMLEmbedElement.hs --- a/src/GHCJS/DOM/HTMLEmbedElement.hs +++ b/src/GHCJS/DOM/HTMLEmbedElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLFieldSetElement.hs b/src/GHCJS/DOM/HTMLFieldSetElement.hs --- a/src/GHCJS/DOM/HTMLFieldSetElement.hs +++ b/src/GHCJS/DOM/HTMLFieldSetElement.hs @@ -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) => diff --git a/src/GHCJS/DOM/HTMLFontElement.hs b/src/GHCJS/DOM/HTMLFontElement.hs --- a/src/GHCJS/DOM/HTMLFontElement.hs +++ b/src/GHCJS/DOM/HTMLFontElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLFormElement.hs b/src/GHCJS/DOM/HTMLFormElement.hs --- a/src/GHCJS/DOM/HTMLFormElement.hs +++ b/src/GHCJS/DOM/HTMLFormElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLFrameElement.hs b/src/GHCJS/DOM/HTMLFrameElement.hs --- a/src/GHCJS/DOM/HTMLFrameElement.hs +++ b/src/GHCJS/DOM/HTMLFrameElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLFrameSetElement.hs b/src/GHCJS/DOM/HTMLFrameSetElement.hs --- a/src/GHCJS/DOM/HTMLFrameSetElement.hs +++ b/src/GHCJS/DOM/HTMLFrameSetElement.hs @@ -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) => diff --git a/src/GHCJS/DOM/HTMLHRElement.hs b/src/GHCJS/DOM/HTMLHRElement.hs --- a/src/GHCJS/DOM/HTMLHRElement.hs +++ b/src/GHCJS/DOM/HTMLHRElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLHeadElement.hs b/src/GHCJS/DOM/HTMLHeadElement.hs --- a/src/GHCJS/DOM/HTMLHeadElement.hs +++ b/src/GHCJS/DOM/HTMLHeadElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLHeadingElement.hs b/src/GHCJS/DOM/HTMLHeadingElement.hs --- a/src/GHCJS/DOM/HTMLHeadingElement.hs +++ b/src/GHCJS/DOM/HTMLHeadingElement.hs @@ -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) => diff --git a/src/GHCJS/DOM/HTMLHtmlElement.hs b/src/GHCJS/DOM/HTMLHtmlElement.hs --- a/src/GHCJS/DOM/HTMLHtmlElement.hs +++ b/src/GHCJS/DOM/HTMLHtmlElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLIFrameElement.hs b/src/GHCJS/DOM/HTMLIFrameElement.hs --- a/src/GHCJS/DOM/HTMLIFrameElement.hs +++ b/src/GHCJS/DOM/HTMLIFrameElement.hs @@ -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) diff --git a/src/GHCJS/DOM/HTMLImageElement.hs b/src/GHCJS/DOM/HTMLImageElement.hs --- a/src/GHCJS/DOM/HTMLImageElement.hs +++ b/src/GHCJS/DOM/HTMLImageElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLInputElement.hs b/src/GHCJS/DOM/HTMLInputElement.hs --- a/src/GHCJS/DOM/HTMLInputElement.hs +++ b/src/GHCJS/DOM/HTMLInputElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLKeygenElement.hs b/src/GHCJS/DOM/HTMLKeygenElement.hs --- a/src/GHCJS/DOM/HTMLKeygenElement.hs +++ b/src/GHCJS/DOM/HTMLKeygenElement.hs @@ -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) diff --git a/src/GHCJS/DOM/HTMLLIElement.hs b/src/GHCJS/DOM/HTMLLIElement.hs --- a/src/GHCJS/DOM/HTMLLIElement.hs +++ b/src/GHCJS/DOM/HTMLLIElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLLabelElement.hs b/src/GHCJS/DOM/HTMLLabelElement.hs --- a/src/GHCJS/DOM/HTMLLabelElement.hs +++ b/src/GHCJS/DOM/HTMLLabelElement.hs @@ -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) diff --git a/src/GHCJS/DOM/HTMLLegendElement.hs b/src/GHCJS/DOM/HTMLLegendElement.hs --- a/src/GHCJS/DOM/HTMLLegendElement.hs +++ b/src/GHCJS/DOM/HTMLLegendElement.hs @@ -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) => diff --git a/src/GHCJS/DOM/HTMLLinkElement.hs b/src/GHCJS/DOM/HTMLLinkElement.hs --- a/src/GHCJS/DOM/HTMLLinkElement.hs +++ b/src/GHCJS/DOM/HTMLLinkElement.hs @@ -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 ( diff --git a/src/GHCJS/DOM/HTMLMapElement.hs b/src/GHCJS/DOM/HTMLMapElement.hs --- a/src/GHCJS/DOM/HTMLMapElement.hs +++ b/src/GHCJS/DOM/HTMLMapElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLMarqueeElement.hs b/src/GHCJS/DOM/HTMLMarqueeElement.hs --- a/src/GHCJS/DOM/HTMLMarqueeElement.hs +++ b/src/GHCJS/DOM/HTMLMarqueeElement.hs @@ -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) => diff --git a/src/GHCJS/DOM/HTMLMediaElement.hs b/src/GHCJS/DOM/HTMLMediaElement.hs --- a/src/GHCJS/DOM/HTMLMediaElement.hs +++ b/src/GHCJS/DOM/HTMLMediaElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLMenuElement.hs b/src/GHCJS/DOM/HTMLMenuElement.hs --- a/src/GHCJS/DOM/HTMLMenuElement.hs +++ b/src/GHCJS/DOM/HTMLMenuElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLMetaElement.hs b/src/GHCJS/DOM/HTMLMetaElement.hs --- a/src/GHCJS/DOM/HTMLMetaElement.hs +++ b/src/GHCJS/DOM/HTMLMetaElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLModElement.hs b/src/GHCJS/DOM/HTMLModElement.hs --- a/src/GHCJS/DOM/HTMLModElement.hs +++ b/src/GHCJS/DOM/HTMLModElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLOListElement.hs b/src/GHCJS/DOM/HTMLOListElement.hs --- a/src/GHCJS/DOM/HTMLOListElement.hs +++ b/src/GHCJS/DOM/HTMLOListElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLObjectElement.hs b/src/GHCJS/DOM/HTMLObjectElement.hs --- a/src/GHCJS/DOM/HTMLObjectElement.hs +++ b/src/GHCJS/DOM/HTMLObjectElement.hs @@ -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) diff --git a/src/GHCJS/DOM/HTMLOptGroupElement.hs b/src/GHCJS/DOM/HTMLOptGroupElement.hs --- a/src/GHCJS/DOM/HTMLOptGroupElement.hs +++ b/src/GHCJS/DOM/HTMLOptGroupElement.hs @@ -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) => diff --git a/src/GHCJS/DOM/HTMLOptionElement.hs b/src/GHCJS/DOM/HTMLOptionElement.hs --- a/src/GHCJS/DOM/HTMLOptionElement.hs +++ b/src/GHCJS/DOM/HTMLOptionElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLOptionsCollection.hs b/src/GHCJS/DOM/HTMLOptionsCollection.hs --- a/src/GHCJS/DOM/HTMLOptionsCollection.hs +++ b/src/GHCJS/DOM/HTMLOptionsCollection.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLParagraphElement.hs b/src/GHCJS/DOM/HTMLParagraphElement.hs --- a/src/GHCJS/DOM/HTMLParagraphElement.hs +++ b/src/GHCJS/DOM/HTMLParagraphElement.hs @@ -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) => diff --git a/src/GHCJS/DOM/HTMLParamElement.hs b/src/GHCJS/DOM/HTMLParamElement.hs --- a/src/GHCJS/DOM/HTMLParamElement.hs +++ b/src/GHCJS/DOM/HTMLParamElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLPreElement.hs b/src/GHCJS/DOM/HTMLPreElement.hs --- a/src/GHCJS/DOM/HTMLPreElement.hs +++ b/src/GHCJS/DOM/HTMLPreElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLQuoteElement.hs b/src/GHCJS/DOM/HTMLQuoteElement.hs --- a/src/GHCJS/DOM/HTMLQuoteElement.hs +++ b/src/GHCJS/DOM/HTMLQuoteElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLScriptElement.hs b/src/GHCJS/DOM/HTMLScriptElement.hs --- a/src/GHCJS/DOM/HTMLScriptElement.hs +++ b/src/GHCJS/DOM/HTMLScriptElement.hs @@ -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) => diff --git a/src/GHCJS/DOM/HTMLSelectElement.hs b/src/GHCJS/DOM/HTMLSelectElement.hs --- a/src/GHCJS/DOM/HTMLSelectElement.hs +++ b/src/GHCJS/DOM/HTMLSelectElement.hs @@ -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) diff --git a/src/GHCJS/DOM/HTMLStyleElement.hs b/src/GHCJS/DOM/HTMLStyleElement.hs --- a/src/GHCJS/DOM/HTMLStyleElement.hs +++ b/src/GHCJS/DOM/HTMLStyleElement.hs @@ -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) diff --git a/src/GHCJS/DOM/HTMLTableCaptionElement.hs b/src/GHCJS/DOM/HTMLTableCaptionElement.hs --- a/src/GHCJS/DOM/HTMLTableCaptionElement.hs +++ b/src/GHCJS/DOM/HTMLTableCaptionElement.hs @@ -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) => diff --git a/src/GHCJS/DOM/HTMLTableCellElement.hs b/src/GHCJS/DOM/HTMLTableCellElement.hs --- a/src/GHCJS/DOM/HTMLTableCellElement.hs +++ b/src/GHCJS/DOM/HTMLTableCellElement.hs @@ -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) => diff --git a/src/GHCJS/DOM/HTMLTableColElement.hs b/src/GHCJS/DOM/HTMLTableColElement.hs --- a/src/GHCJS/DOM/HTMLTableColElement.hs +++ b/src/GHCJS/DOM/HTMLTableColElement.hs @@ -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) => diff --git a/src/GHCJS/DOM/HTMLTableElement.hs b/src/GHCJS/DOM/HTMLTableElement.hs --- a/src/GHCJS/DOM/HTMLTableElement.hs +++ b/src/GHCJS/DOM/HTMLTableElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLTableRowElement.hs b/src/GHCJS/DOM/HTMLTableRowElement.hs --- a/src/GHCJS/DOM/HTMLTableRowElement.hs +++ b/src/GHCJS/DOM/HTMLTableRowElement.hs @@ -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) => diff --git a/src/GHCJS/DOM/HTMLTableSectionElement.hs b/src/GHCJS/DOM/HTMLTableSectionElement.hs --- a/src/GHCJS/DOM/HTMLTableSectionElement.hs +++ b/src/GHCJS/DOM/HTMLTableSectionElement.hs @@ -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) => diff --git a/src/GHCJS/DOM/HTMLTextAreaElement.hs b/src/GHCJS/DOM/HTMLTextAreaElement.hs --- a/src/GHCJS/DOM/HTMLTextAreaElement.hs +++ b/src/GHCJS/DOM/HTMLTextAreaElement.hs @@ -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 ( diff --git a/src/GHCJS/DOM/HTMLTitleElement.hs b/src/GHCJS/DOM/HTMLTitleElement.hs --- a/src/GHCJS/DOM/HTMLTitleElement.hs +++ b/src/GHCJS/DOM/HTMLTitleElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLUListElement.hs b/src/GHCJS/DOM/HTMLUListElement.hs --- a/src/GHCJS/DOM/HTMLUListElement.hs +++ b/src/GHCJS/DOM/HTMLUListElement.hs @@ -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 diff --git a/src/GHCJS/DOM/HTMLVideoElement.hs b/src/GHCJS/DOM/HTMLVideoElement.hs --- a/src/GHCJS/DOM/HTMLVideoElement.hs +++ b/src/GHCJS/DOM/HTMLVideoElement.hs @@ -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 diff --git a/src/GHCJS/DOM/History.hs b/src/GHCJS/DOM/History.hs --- a/src/GHCJS/DOM/History.hs +++ b/src/GHCJS/DOM/History.hs @@ -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 diff --git a/src/GHCJS/DOM/KeyboardEvent.hs b/src/GHCJS/DOM/KeyboardEvent.hs --- a/src/GHCJS/DOM/KeyboardEvent.hs +++ b/src/GHCJS/DOM/KeyboardEvent.hs @@ -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 diff --git a/src/GHCJS/DOM/Location.hs b/src/GHCJS/DOM/Location.hs --- a/src/GHCJS/DOM/Location.hs +++ b/src/GHCJS/DOM/Location.hs @@ -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) diff --git a/src/GHCJS/DOM/MediaError.hs b/src/GHCJS/DOM/MediaError.hs --- a/src/GHCJS/DOM/MediaError.hs +++ b/src/GHCJS/DOM/MediaError.hs @@ -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 diff --git a/src/GHCJS/DOM/MediaList.hs b/src/GHCJS/DOM/MediaList.hs --- a/src/GHCJS/DOM/MediaList.hs +++ b/src/GHCJS/DOM/MediaList.hs @@ -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 diff --git a/src/GHCJS/DOM/MediaQueryList.hs b/src/GHCJS/DOM/MediaQueryList.hs --- a/src/GHCJS/DOM/MediaQueryList.hs +++ b/src/GHCJS/DOM/MediaQueryList.hs @@ -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 diff --git a/src/GHCJS/DOM/MouseEvent.hs b/src/GHCJS/DOM/MouseEvent.hs --- a/src/GHCJS/DOM/MouseEvent.hs +++ b/src/GHCJS/DOM/MouseEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/NamedNodeMap.hs b/src/GHCJS/DOM/NamedNodeMap.hs --- a/src/GHCJS/DOM/NamedNodeMap.hs +++ b/src/GHCJS/DOM/NamedNodeMap.hs @@ -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 diff --git a/src/GHCJS/DOM/Navigator.hs b/src/GHCJS/DOM/Navigator.hs --- a/src/GHCJS/DOM/Navigator.hs +++ b/src/GHCJS/DOM/Navigator.hs @@ -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 diff --git a/src/GHCJS/DOM/Node.hs b/src/GHCJS/DOM/Node.hs --- a/src/GHCJS/DOM/Node.hs +++ b/src/GHCJS/DOM/Node.hs @@ -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 diff --git a/src/GHCJS/DOM/NodeFilter.hs b/src/GHCJS/DOM/NodeFilter.hs --- a/src/GHCJS/DOM/NodeFilter.hs +++ b/src/GHCJS/DOM/NodeFilter.hs @@ -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 ((<$>)) diff --git a/src/GHCJS/DOM/NodeIterator.hs b/src/GHCJS/DOM/NodeIterator.hs --- a/src/GHCJS/DOM/NodeIterator.hs +++ b/src/GHCJS/DOM/NodeIterator.hs @@ -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 diff --git a/src/GHCJS/DOM/NodeList.hs b/src/GHCJS/DOM/NodeList.hs --- a/src/GHCJS/DOM/NodeList.hs +++ b/src/GHCJS/DOM/NodeList.hs @@ -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 diff --git a/src/GHCJS/DOM/ProcessingInstruction.hs b/src/GHCJS/DOM/ProcessingInstruction.hs --- a/src/GHCJS/DOM/ProcessingInstruction.hs +++ b/src/GHCJS/DOM/ProcessingInstruction.hs @@ -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) diff --git a/src/GHCJS/DOM/Range.hs b/src/GHCJS/DOM/Range.hs --- a/src/GHCJS/DOM/Range.hs +++ b/src/GHCJS/DOM/Range.hs @@ -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 diff --git a/src/GHCJS/DOM/Screen.hs b/src/GHCJS/DOM/Screen.hs --- a/src/GHCJS/DOM/Screen.hs +++ b/src/GHCJS/DOM/Screen.hs @@ -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)) diff --git a/src/GHCJS/DOM/Storage.hs b/src/GHCJS/DOM/Storage.hs --- a/src/GHCJS/DOM/Storage.hs +++ b/src/GHCJS/DOM/Storage.hs @@ -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 diff --git a/src/GHCJS/DOM/StorageInfo.hs b/src/GHCJS/DOM/StorageInfo.hs --- a/src/GHCJS/DOM/StorageInfo.hs +++ b/src/GHCJS/DOM/StorageInfo.hs @@ -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 ((<$>)) diff --git a/src/GHCJS/DOM/StyleMedia.hs b/src/GHCJS/DOM/StyleMedia.hs --- a/src/GHCJS/DOM/StyleMedia.hs +++ b/src/GHCJS/DOM/StyleMedia.hs @@ -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) => diff --git a/src/GHCJS/DOM/StyleSheet.hs b/src/GHCJS/DOM/StyleSheet.hs --- a/src/GHCJS/DOM/StyleSheet.hs +++ b/src/GHCJS/DOM/StyleSheet.hs @@ -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) diff --git a/src/GHCJS/DOM/StyleSheetList.hs b/src/GHCJS/DOM/StyleSheetList.hs --- a/src/GHCJS/DOM/StyleSheetList.hs +++ b/src/GHCJS/DOM/StyleSheetList.hs @@ -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 diff --git a/src/GHCJS/DOM/Text.hs b/src/GHCJS/DOM/Text.hs --- a/src/GHCJS/DOM/Text.hs +++ b/src/GHCJS/DOM/Text.hs @@ -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 diff --git a/src/GHCJS/DOM/TimeRanges.hs b/src/GHCJS/DOM/TimeRanges.hs --- a/src/GHCJS/DOM/TimeRanges.hs +++ b/src/GHCJS/DOM/TimeRanges.hs @@ -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 diff --git a/src/GHCJS/DOM/TreeWalker.hs b/src/GHCJS/DOM/TreeWalker.hs --- a/src/GHCJS/DOM/TreeWalker.hs +++ b/src/GHCJS/DOM/TreeWalker.hs @@ -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) diff --git a/src/GHCJS/DOM/Types.hs b/src/GHCJS/DOM/Types.hs --- a/src/GHCJS/DOM/Types.hs +++ b/src/GHCJS/DOM/Types.hs @@ -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 diff --git a/src/GHCJS/DOM/UIEvent.hs b/src/GHCJS/DOM/UIEvent.hs --- a/src/GHCJS/DOM/UIEvent.hs +++ b/src/GHCJS/DOM/UIEvent.hs @@ -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 diff --git a/src/GHCJS/DOM/ValidityState.hs b/src/GHCJS/DOM/ValidityState.hs --- a/src/GHCJS/DOM/ValidityState.hs +++ b/src/GHCJS/DOM/ValidityState.hs @@ -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 diff --git a/src/GHCJS/DOM/WebKitNamedFlow.hs b/src/GHCJS/DOM/WebKitNamedFlow.hs --- a/src/GHCJS/DOM/WebKitNamedFlow.hs +++ b/src/GHCJS/DOM/WebKitNamedFlow.hs @@ -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 diff --git a/src/GHCJS/DOM/WebKitPoint.hs b/src/GHCJS/DOM/WebKitPoint.hs --- a/src/GHCJS/DOM/WebKitPoint.hs +++ b/src/GHCJS/DOM/WebKitPoint.hs @@ -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 diff --git a/src/GHCJS/DOM/XPathExpression.hs b/src/GHCJS/DOM/XPathExpression.hs --- a/src/GHCJS/DOM/XPathExpression.hs +++ b/src/GHCJS/DOM/XPathExpression.hs @@ -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, diff --git a/src/GHCJS/DOM/XPathNSResolver.hs b/src/GHCJS/DOM/XPathNSResolver.hs --- a/src/GHCJS/DOM/XPathNSResolver.hs +++ b/src/GHCJS/DOM/XPathNSResolver.hs @@ -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, diff --git a/src/GHCJS/DOM/XPathResult.hs b/src/GHCJS/DOM/XPathResult.hs --- a/src/GHCJS/DOM/XPathResult.hs +++ b/src/GHCJS/DOM/XPathResult.hs @@ -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