module HJScript.DOM.XHTML
(
IsXHTMLElement, asXHTMLElement, className,
Anchor(..), Area(..), Base(..), Body(..),
Event(..), Form(..), Frame(..), Frameset(..), History(..),
IFrame(..), Image(..), InputButton(..), InputCheckbox(..), InputFile(..),
InputHidden(..), InputPassword(..), InputRadio(..), InputReset(..),
InputSubmit(..), InputText(..), Link(..),Location(..),
Meta(..), Navigator(..), Object(..), Option(..), Screen(..),
Select(..), Style(..), Table(..), TableData(..), TableHeader(..),
TableRow(..), Textarea(..)
) where
import HJScript.DOM.NodeTypes
import HJScript.Lang
import HJScript.DOM.Node
import HJScript.DOM.ElementNode
import HJScript.Objects.Object(Object(..))
class IsElementNode a => IsXHTMLElement a
data XHTMLElement = XHTMLElement deriving Show
instance IsClass XHTMLElement
instance IsElementNode XHTMLElement
instance IsXHTMLElement XHTMLElement
asXHTMLElement :: IsElementNode n => Exp n -> Exp XHTMLElement
asXHTMLElement = castObject
className :: IsXHTMLElement n => Exp n -> Var String
className = derefVar "className"
dir :: IsXHTMLElement n => Exp n -> Var String
dir = derefVar "lang"
lang :: IsXHTMLElement n => Exp n -> Var String
lang = derefVar "lang"
title :: IsXHTMLElement n => Exp n -> Var String
title = derefVar "title"
generalize :: IsXHTMLElement a => Exp a -> Exp ElementNode
generalize = castObject
specialize :: IsXHTMLElement a => Exp ElementNode -> Exp a
specialize = castObject
data Anchor = Anchor deriving Show
instance IsClass Anchor
instance IsNode Anchor
instance IsElementNode Anchor
instance IsXHTMLElement Anchor
data Area = Area deriving Show
instance IsNode Area
instance IsClass Area
instance IsElementNode Area
instance IsXHTMLElement Area
data Base = Base deriving Show
instance IsClass Base
instance IsNode Base
instance IsElementNode Base
instance IsXHTMLElement Base
data Body = Body deriving Show
instance IsClass Body
instance IsNode Body
instance IsElementNode Body
instance IsXHTMLElement Body
data Event = Event deriving Show
instance IsClass Event
data Form = Form deriving Show
instance IsClass Form
instance IsNode Form
instance IsElementNode Form
instance IsXHTMLElement Form
data Frame = Frame deriving Show
instance IsClass Frame
instance IsNode Frame
instance IsElementNode Frame
instance IsXHTMLElement Frame
data Frameset = Frameset deriving Show
instance IsClass Frameset
data History = History deriving Show
instance IsClass History
data IFrame = IFrame deriving Show
instance IsClass IFrame
instance IsNode IFrame
instance IsElementNode IFrame
instance IsXHTMLElement IFrame
data Image = Image deriving Show
instance IsClass Image
instance IsNode Image
instance IsElementNode Image
instance IsXHTMLElement Image
data InputButton = InputButton deriving Show
instance IsClass InputButton
instance IsNode InputButton
instance IsElementNode InputButton
instance IsXHTMLElement InputButton
data InputCheckbox = InputCheckbox deriving Show
instance IsClass InputCheckbox
instance IsNode InputCheckbox
instance IsElementNode InputCheckbox
instance IsXHTMLElement InputCheckbox
data InputFile = InputFile deriving Show
instance IsClass InputFile
data InputHidden = InputHidden deriving Show
instance IsClass InputHidden
data InputPassword = InputPassword deriving Show
instance IsClass InputPassword
data InputRadio = InputRadio deriving Show
instance IsClass InputRadio
data InputReset = InputTextInputReset deriving Show
instance IsClass InputReset
data InputSubmit = InputSubmit deriving Show
instance IsClass InputSubmit
data InputText = InputText deriving Show
instance IsClass InputText
instance IsNode InputText
instance IsElementNode InputText
instance IsXHTMLElement InputText
data Link = Link deriving Show
instance IsClass Link
instance IsNode Link
instance IsElementNode Link
instance IsXHTMLElement Link
data Location = Location deriving Show
instance IsClass Location
data Meta = Meta deriving Show
instance IsClass Meta
data Navigator = Navigator deriving Show
instance IsClass Navigator
data Option = Option deriving Show
instance IsClass Option
data Screen = Screen deriving Show
instance IsClass Screen
data Select = Select deriving Show
instance IsClass Select
data Style = Style deriving Show
instance IsClass Style
data Table = Table deriving Show
instance IsClass Table
instance IsNode Table
instance IsElementNode Table
instance IsXHTMLElement Table
data TableData = TableData deriving Show
instance IsClass TableData
instance IsNode TableData
instance IsElementNode TableData
instance IsXHTMLElement TableData
data TableHeader = TableHeader deriving Show
instance IsClass TableHeader
instance IsNode TableHeader
instance IsElementNode TableHeader
instance IsXHTMLElement TableHeader
data TableRow = TableRow deriving Show
instance IsClass TableRow
instance IsNode TableRow
instance IsElementNode TableRow
instance IsXHTMLElement TableRow
data Textarea = Textarea deriving Show
instance IsClass Textarea
instance IsNode Textarea
instance IsElementNode Textarea
instance IsXHTMLElement Textarea