{-# LANGUAGE CPP #-} #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLAreaElement (ghcjs_dom_html_area_element_set_alt, htmlAreaElementSetAlt, ghcjs_dom_html_area_element_get_alt, htmlAreaElementGetAlt, ghcjs_dom_html_area_element_set_coords, htmlAreaElementSetCoords, ghcjs_dom_html_area_element_get_coords, htmlAreaElementGetCoords, ghcjs_dom_html_area_element_set_href, htmlAreaElementSetHref, ghcjs_dom_html_area_element_get_href, htmlAreaElementGetHref, ghcjs_dom_html_area_element_set_no_href, htmlAreaElementSetNoHref, 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, ghcjs_dom_html_area_element_get_target, htmlAreaElementGetTarget, ghcjs_dom_html_area_element_get_hash, htmlAreaElementGetHash, ghcjs_dom_html_area_element_get_host, htmlAreaElementGetHost, ghcjs_dom_html_area_element_get_hostname, htmlAreaElementGetHostname, ghcjs_dom_html_area_element_get_pathname, 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, ghcjs_dom_html_area_element_get_rel_list, htmlAreaElementGetRelList, HTMLAreaElement, IsHTMLAreaElement, castToHTMLAreaElement, gTypeHTMLAreaElement, toHTMLAreaElement) 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[\"alt\"] = $2;" ghcjs_dom_html_area_element_set_alt :: JSRef HTMLAreaElement -> JSString -> IO () htmlAreaElementSetAlt :: (IsHTMLAreaElement self, ToJSString val) => self -> val -> IO () htmlAreaElementSetAlt self val = ghcjs_dom_html_area_element_set_alt (unHTMLAreaElement (toHTMLAreaElement self)) (toJSString val) foreign import javascript unsafe "$1[\"alt\"]" ghcjs_dom_html_area_element_get_alt :: JSRef HTMLAreaElement -> IO JSString htmlAreaElementGetAlt :: (IsHTMLAreaElement self, FromJSString result) => self -> IO result htmlAreaElementGetAlt self = fromJSString <$> (ghcjs_dom_html_area_element_get_alt (unHTMLAreaElement (toHTMLAreaElement self))) foreign import javascript unsafe "$1[\"coords\"] = $2;" ghcjs_dom_html_area_element_set_coords :: JSRef HTMLAreaElement -> JSString -> IO () htmlAreaElementSetCoords :: (IsHTMLAreaElement self, ToJSString val) => self -> val -> IO () htmlAreaElementSetCoords self val = ghcjs_dom_html_area_element_set_coords (unHTMLAreaElement (toHTMLAreaElement self)) (toJSString val) foreign import javascript unsafe "$1[\"coords\"]" ghcjs_dom_html_area_element_get_coords :: JSRef HTMLAreaElement -> IO JSString htmlAreaElementGetCoords :: (IsHTMLAreaElement self, FromJSString result) => self -> IO result htmlAreaElementGetCoords self = fromJSString <$> (ghcjs_dom_html_area_element_get_coords (unHTMLAreaElement (toHTMLAreaElement self))) foreign import javascript unsafe "$1[\"href\"] = $2;" ghcjs_dom_html_area_element_set_href :: JSRef HTMLAreaElement -> JSString -> IO () htmlAreaElementSetHref :: (IsHTMLAreaElement self, ToJSString val) => self -> val -> IO () htmlAreaElementSetHref self val = ghcjs_dom_html_area_element_set_href (unHTMLAreaElement (toHTMLAreaElement self)) (toJSString val) foreign import javascript unsafe "$1[\"href\"]" ghcjs_dom_html_area_element_get_href :: JSRef HTMLAreaElement -> IO JSString htmlAreaElementGetHref :: (IsHTMLAreaElement self, FromJSString result) => self -> IO result htmlAreaElementGetHref self = fromJSString <$> (ghcjs_dom_html_area_element_get_href (unHTMLAreaElement (toHTMLAreaElement self))) foreign import javascript unsafe "$1[\"noHref\"] = $2;" ghcjs_dom_html_area_element_set_no_href :: JSRef HTMLAreaElement -> Bool -> IO () htmlAreaElementSetNoHref :: (IsHTMLAreaElement self) => self -> Bool -> IO () htmlAreaElementSetNoHref self val = ghcjs_dom_html_area_element_set_no_href (unHTMLAreaElement (toHTMLAreaElement self)) val foreign import javascript unsafe "($1[\"noHref\"] ? 1 : 0)" ghcjs_dom_html_area_element_get_no_href :: JSRef HTMLAreaElement -> IO Bool htmlAreaElementGetNoHref :: (IsHTMLAreaElement self) => self -> IO Bool htmlAreaElementGetNoHref self = ghcjs_dom_html_area_element_get_no_href (unHTMLAreaElement (toHTMLAreaElement self)) foreign import javascript unsafe "$1[\"ping\"] = $2;" ghcjs_dom_html_area_element_set_ping :: JSRef HTMLAreaElement -> JSString -> IO () htmlAreaElementSetPing :: (IsHTMLAreaElement self, ToJSString val) => self -> val -> IO () htmlAreaElementSetPing self val = ghcjs_dom_html_area_element_set_ping (unHTMLAreaElement (toHTMLAreaElement self)) (toJSString val) foreign import javascript unsafe "$1[\"ping\"]" ghcjs_dom_html_area_element_get_ping :: JSRef HTMLAreaElement -> IO JSString htmlAreaElementGetPing :: (IsHTMLAreaElement self, FromJSString result) => self -> IO result htmlAreaElementGetPing self = fromJSString <$> (ghcjs_dom_html_area_element_get_ping (unHTMLAreaElement (toHTMLAreaElement self))) 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 () htmlAreaElementSetShape :: (IsHTMLAreaElement self, ToJSString val) => self -> val -> IO () htmlAreaElementSetShape self val = ghcjs_dom_html_area_element_set_shape (unHTMLAreaElement (toHTMLAreaElement self)) (toJSString val) foreign import javascript unsafe "$1[\"shape\"]" ghcjs_dom_html_area_element_get_shape :: JSRef HTMLAreaElement -> IO JSString htmlAreaElementGetShape :: (IsHTMLAreaElement self, FromJSString result) => self -> IO result htmlAreaElementGetShape self = fromJSString <$> (ghcjs_dom_html_area_element_get_shape (unHTMLAreaElement (toHTMLAreaElement self))) foreign import javascript unsafe "$1[\"target\"] = $2;" ghcjs_dom_html_area_element_set_target :: JSRef HTMLAreaElement -> JSString -> IO () htmlAreaElementSetTarget :: (IsHTMLAreaElement self, ToJSString val) => self -> val -> IO () htmlAreaElementSetTarget self val = ghcjs_dom_html_area_element_set_target (unHTMLAreaElement (toHTMLAreaElement self)) (toJSString val) foreign import javascript unsafe "$1[\"target\"]" ghcjs_dom_html_area_element_get_target :: JSRef HTMLAreaElement -> IO JSString htmlAreaElementGetTarget :: (IsHTMLAreaElement self, FromJSString result) => self -> IO result htmlAreaElementGetTarget self = fromJSString <$> (ghcjs_dom_html_area_element_get_target (unHTMLAreaElement (toHTMLAreaElement self))) foreign import javascript unsafe "$1[\"hash\"]" ghcjs_dom_html_area_element_get_hash :: JSRef HTMLAreaElement -> IO JSString htmlAreaElementGetHash :: (IsHTMLAreaElement self, FromJSString result) => self -> IO result htmlAreaElementGetHash self = fromJSString <$> (ghcjs_dom_html_area_element_get_hash (unHTMLAreaElement (toHTMLAreaElement self))) foreign import javascript unsafe "$1[\"host\"]" ghcjs_dom_html_area_element_get_host :: JSRef HTMLAreaElement -> IO JSString htmlAreaElementGetHost :: (IsHTMLAreaElement self, FromJSString result) => self -> IO result htmlAreaElementGetHost self = fromJSString <$> (ghcjs_dom_html_area_element_get_host (unHTMLAreaElement (toHTMLAreaElement self))) foreign import javascript unsafe "$1[\"hostname\"]" ghcjs_dom_html_area_element_get_hostname :: JSRef HTMLAreaElement -> IO JSString htmlAreaElementGetHostname :: (IsHTMLAreaElement self, FromJSString result) => self -> IO result htmlAreaElementGetHostname self = fromJSString <$> (ghcjs_dom_html_area_element_get_hostname (unHTMLAreaElement (toHTMLAreaElement self))) foreign import javascript unsafe "$1[\"pathname\"]" ghcjs_dom_html_area_element_get_pathname :: JSRef HTMLAreaElement -> IO JSString htmlAreaElementGetPathname :: (IsHTMLAreaElement self, FromJSString result) => self -> IO result htmlAreaElementGetPathname self = fromJSString <$> (ghcjs_dom_html_area_element_get_pathname (unHTMLAreaElement (toHTMLAreaElement self))) foreign import javascript unsafe "$1[\"port\"]" ghcjs_dom_html_area_element_get_port :: JSRef HTMLAreaElement -> IO JSString htmlAreaElementGetPort :: (IsHTMLAreaElement self, FromJSString result) => self -> IO result htmlAreaElementGetPort self = fromJSString <$> (ghcjs_dom_html_area_element_get_port (unHTMLAreaElement (toHTMLAreaElement self))) foreign import javascript unsafe "$1[\"protocol\"]" ghcjs_dom_html_area_element_get_protocol :: JSRef HTMLAreaElement -> IO JSString htmlAreaElementGetProtocol :: (IsHTMLAreaElement self, FromJSString result) => self -> IO result htmlAreaElementGetProtocol self = fromJSString <$> (ghcjs_dom_html_area_element_get_protocol (unHTMLAreaElement (toHTMLAreaElement self))) foreign import javascript unsafe "$1[\"search\"]" ghcjs_dom_html_area_element_get_search :: JSRef HTMLAreaElement -> IO JSString 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 ( module Graphics.UI.Gtk.WebKit.DOM.HTMLAreaElement ) where import Graphics.UI.Gtk.WebKit.DOM.HTMLAreaElement #endif