{-# LANGUAGE PatternSynonyms #-} module Language.Javascript.JSaddle.DOM.Generated.HTMLAppletElement (setAlign, getAlign, setAlt, getAlt, setArchive, getArchive, setCode, getCode, setCodeBase, getCodeBase, setHeight, getHeight, setHspace, getHspace, setName, getName, setObject, getObject, setVspace, getVspace, setWidth, getWidth, HTMLAppletElement, castToHTMLAppletElement, gTypeHTMLAppletElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) import Data.Int (Int64) import Data.Word (Word, Word64) import Language.Javascript.JSaddle.DOM.Types import Control.Applicative ((<$>)) import Control.Monad (void) import Control.Lens.Operators ((^.)) import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName) import Language.Javascript.JSaddle.DOM.Enums -- | setAlign :: (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m () setAlign self val = liftDOM (self ^. jss "align" (toJSVal val)) -- | getAlign :: (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result getAlign self = liftDOM ((self ^. js "align") >>= fromJSValUnchecked) -- | setAlt :: (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m () setAlt self val = liftDOM (self ^. jss "alt" (toJSVal val)) -- | getAlt :: (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result getAlt self = liftDOM ((self ^. js "alt") >>= fromJSValUnchecked) -- | setArchive :: (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m () setArchive self val = liftDOM (self ^. jss "archive" (toJSVal val)) -- | getArchive :: (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result getArchive self = liftDOM ((self ^. js "archive") >>= fromJSValUnchecked) -- | setCode :: (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m () setCode self val = liftDOM (self ^. jss "code" (toJSVal val)) -- | getCode :: (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result getCode self = liftDOM ((self ^. js "code") >>= fromJSValUnchecked) -- | setCodeBase :: (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m () setCodeBase self val = liftDOM (self ^. jss "codeBase" (toJSVal val)) -- | getCodeBase :: (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result getCodeBase self = liftDOM ((self ^. js "codeBase") >>= fromJSValUnchecked) -- | setHeight :: (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m () setHeight self val = liftDOM (self ^. jss "height" (toJSVal val)) -- | getHeight :: (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result getHeight self = liftDOM ((self ^. js "height") >>= fromJSValUnchecked) -- | setHspace :: (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m () setHspace self val = liftDOM (self ^. jss "hspace" (toJSVal val)) -- | getHspace :: (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result getHspace self = liftDOM ((self ^. js "hspace") >>= fromJSValUnchecked) -- | setName :: (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m () setName self val = liftDOM (self ^. jss "name" (toJSVal val)) -- | getName :: (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked) -- | setObject :: (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m () setObject self val = liftDOM (self ^. jss "object" (toJSVal val)) -- | getObject :: (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result getObject self = liftDOM ((self ^. js "object") >>= fromJSValUnchecked) -- | setVspace :: (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m () setVspace self val = liftDOM (self ^. jss "vspace" (toJSVal val)) -- | getVspace :: (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result getVspace self = liftDOM ((self ^. js "vspace") >>= fromJSValUnchecked) -- | setWidth :: (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m () setWidth self val = liftDOM (self ^. jss "width" (toJSVal val)) -- | getWidth :: (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result getWidth self = liftDOM ((self ^. js "width") >>= fromJSValUnchecked)