module JSDOM.Generated.SVGTextContentElement
(getNumberOfChars, getNumberOfChars_, getComputedTextLength,
getComputedTextLength_, getSubStringLength, getSubStringLength_,
getStartPositionOfChar, getStartPositionOfChar_,
getStartPositionOfCharUnsafe, getStartPositionOfCharUnchecked,
getEndPositionOfChar, getEndPositionOfChar_,
getEndPositionOfCharUnsafe, getEndPositionOfCharUnchecked,
getExtentOfChar, getExtentOfChar_, getExtentOfCharUnsafe,
getExtentOfCharUnchecked, getRotationOfChar, getRotationOfChar_,
getCharNumAtPosition, getCharNumAtPosition_, selectSubString,
pattern LENGTHADJUST_UNKNOWN, pattern LENGTHADJUST_SPACING,
pattern LENGTHADJUST_SPACINGANDGLYPHS, getTextLength,
getTextLengthUnsafe, getTextLengthUnchecked, getLengthAdjust,
getLengthAdjustUnsafe, getLengthAdjustUnchecked,
SVGTextContentElement(..), gTypeSVGTextContentElement,
IsSVGTextContentElement, toSVGTextContentElement)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
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 JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName)
import JSDOM.Enums
getNumberOfChars ::
(MonadDOM m, IsSVGTextContentElement self) => self -> m Int
getNumberOfChars self
= liftDOM
(round <$>
(((toSVGTextContentElement self) ^. jsf "getNumberOfChars" ()) >>=
valToNumber))
getNumberOfChars_ ::
(MonadDOM m, IsSVGTextContentElement self) => self -> m ()
getNumberOfChars_ self
= liftDOM
(void
((toSVGTextContentElement self) ^. jsf "getNumberOfChars" ()))
getComputedTextLength ::
(MonadDOM m, IsSVGTextContentElement self) => self -> m Float
getComputedTextLength self
= liftDOM
(realToFrac <$>
(((toSVGTextContentElement self) ^. jsf "getComputedTextLength" ())
>>= valToNumber))
getComputedTextLength_ ::
(MonadDOM m, IsSVGTextContentElement self) => self -> m ()
getComputedTextLength_ self
= liftDOM
(void
((toSVGTextContentElement self) ^. jsf "getComputedTextLength" ()))
getSubStringLength ::
(MonadDOM m, IsSVGTextContentElement self) =>
self -> Word -> Word -> m Float
getSubStringLength self offset length
= liftDOM
(realToFrac <$>
(((toSVGTextContentElement self) ^. jsf "getSubStringLength"
[toJSVal offset, toJSVal length])
>>= valToNumber))
getSubStringLength_ ::
(MonadDOM m, IsSVGTextContentElement self) =>
self -> Word -> Word -> m ()
getSubStringLength_ self offset length
= liftDOM
(void
((toSVGTextContentElement self) ^. jsf "getSubStringLength"
[toJSVal offset, toJSVal length]))
getStartPositionOfChar ::
(MonadDOM m, IsSVGTextContentElement self) =>
self -> Word -> m (Maybe SVGPoint)
getStartPositionOfChar self offset
= liftDOM
(((toSVGTextContentElement self) ^. jsf "getStartPositionOfChar"
[toJSVal offset])
>>= fromJSVal)
getStartPositionOfChar_ ::
(MonadDOM m, IsSVGTextContentElement self) => self -> Word -> m ()
getStartPositionOfChar_ self offset
= liftDOM
(void
((toSVGTextContentElement self) ^. jsf "getStartPositionOfChar"
[toJSVal offset]))
getStartPositionOfCharUnsafe ::
(MonadDOM m, IsSVGTextContentElement self, HasCallStack) =>
self -> Word -> m SVGPoint
getStartPositionOfCharUnsafe self offset
= liftDOM
((((toSVGTextContentElement self) ^. jsf "getStartPositionOfChar"
[toJSVal offset])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
getStartPositionOfCharUnchecked ::
(MonadDOM m, IsSVGTextContentElement self) =>
self -> Word -> m SVGPoint
getStartPositionOfCharUnchecked self offset
= liftDOM
(((toSVGTextContentElement self) ^. jsf "getStartPositionOfChar"
[toJSVal offset])
>>= fromJSValUnchecked)
getEndPositionOfChar ::
(MonadDOM m, IsSVGTextContentElement self) =>
self -> Word -> m (Maybe SVGPoint)
getEndPositionOfChar self offset
= liftDOM
(((toSVGTextContentElement self) ^. jsf "getEndPositionOfChar"
[toJSVal offset])
>>= fromJSVal)
getEndPositionOfChar_ ::
(MonadDOM m, IsSVGTextContentElement self) => self -> Word -> m ()
getEndPositionOfChar_ self offset
= liftDOM
(void
((toSVGTextContentElement self) ^. jsf "getEndPositionOfChar"
[toJSVal offset]))
getEndPositionOfCharUnsafe ::
(MonadDOM m, IsSVGTextContentElement self, HasCallStack) =>
self -> Word -> m SVGPoint
getEndPositionOfCharUnsafe self offset
= liftDOM
((((toSVGTextContentElement self) ^. jsf "getEndPositionOfChar"
[toJSVal offset])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
getEndPositionOfCharUnchecked ::
(MonadDOM m, IsSVGTextContentElement self) =>
self -> Word -> m SVGPoint
getEndPositionOfCharUnchecked self offset
= liftDOM
(((toSVGTextContentElement self) ^. jsf "getEndPositionOfChar"
[toJSVal offset])
>>= fromJSValUnchecked)
getExtentOfChar ::
(MonadDOM m, IsSVGTextContentElement self) =>
self -> Word -> m (Maybe SVGRect)
getExtentOfChar self offset
= liftDOM
(((toSVGTextContentElement self) ^. jsf "getExtentOfChar"
[toJSVal offset])
>>= fromJSVal)
getExtentOfChar_ ::
(MonadDOM m, IsSVGTextContentElement self) => self -> Word -> m ()
getExtentOfChar_ self offset
= liftDOM
(void
((toSVGTextContentElement self) ^. jsf "getExtentOfChar"
[toJSVal offset]))
getExtentOfCharUnsafe ::
(MonadDOM m, IsSVGTextContentElement self, HasCallStack) =>
self -> Word -> m SVGRect
getExtentOfCharUnsafe self offset
= liftDOM
((((toSVGTextContentElement self) ^. jsf "getExtentOfChar"
[toJSVal offset])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
getExtentOfCharUnchecked ::
(MonadDOM m, IsSVGTextContentElement self) =>
self -> Word -> m SVGRect
getExtentOfCharUnchecked self offset
= liftDOM
(((toSVGTextContentElement self) ^. jsf "getExtentOfChar"
[toJSVal offset])
>>= fromJSValUnchecked)
getRotationOfChar ::
(MonadDOM m, IsSVGTextContentElement self) =>
self -> Word -> m Float
getRotationOfChar self offset
= liftDOM
(realToFrac <$>
(((toSVGTextContentElement self) ^. jsf "getRotationOfChar"
[toJSVal offset])
>>= valToNumber))
getRotationOfChar_ ::
(MonadDOM m, IsSVGTextContentElement self) => self -> Word -> m ()
getRotationOfChar_ self offset
= liftDOM
(void
((toSVGTextContentElement self) ^. jsf "getRotationOfChar"
[toJSVal offset]))
getCharNumAtPosition ::
(MonadDOM m, IsSVGTextContentElement self) =>
self -> Maybe SVGPoint -> m Int
getCharNumAtPosition self point
= liftDOM
(round <$>
(((toSVGTextContentElement self) ^. jsf "getCharNumAtPosition"
[toJSVal point])
>>= valToNumber))
getCharNumAtPosition_ ::
(MonadDOM m, IsSVGTextContentElement self) =>
self -> Maybe SVGPoint -> m ()
getCharNumAtPosition_ self point
= liftDOM
(void
((toSVGTextContentElement self) ^. jsf "getCharNumAtPosition"
[toJSVal point]))
selectSubString ::
(MonadDOM m, IsSVGTextContentElement self) =>
self -> Word -> Word -> m ()
selectSubString self offset length
= liftDOM
(void
((toSVGTextContentElement self) ^. jsf "selectSubString"
[toJSVal offset, toJSVal length]))
pattern LENGTHADJUST_UNKNOWN = 0
pattern LENGTHADJUST_SPACING = 1
pattern LENGTHADJUST_SPACINGANDGLYPHS = 2
getTextLength ::
(MonadDOM m, IsSVGTextContentElement self) =>
self -> m (Maybe SVGAnimatedLength)
getTextLength self
= liftDOM
(((toSVGTextContentElement self) ^. js "textLength") >>= fromJSVal)
getTextLengthUnsafe ::
(MonadDOM m, IsSVGTextContentElement self, HasCallStack) =>
self -> m SVGAnimatedLength
getTextLengthUnsafe self
= liftDOM
((((toSVGTextContentElement self) ^. js "textLength") >>=
fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
getTextLengthUnchecked ::
(MonadDOM m, IsSVGTextContentElement self) =>
self -> m SVGAnimatedLength
getTextLengthUnchecked self
= liftDOM
(((toSVGTextContentElement self) ^. js "textLength") >>=
fromJSValUnchecked)
getLengthAdjust ::
(MonadDOM m, IsSVGTextContentElement self) =>
self -> m (Maybe SVGAnimatedEnumeration)
getLengthAdjust self
= liftDOM
(((toSVGTextContentElement self) ^. js "lengthAdjust") >>=
fromJSVal)
getLengthAdjustUnsafe ::
(MonadDOM m, IsSVGTextContentElement self, HasCallStack) =>
self -> m SVGAnimatedEnumeration
getLengthAdjustUnsafe self
= liftDOM
((((toSVGTextContentElement self) ^. js "lengthAdjust") >>=
fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
getLengthAdjustUnchecked ::
(MonadDOM m, IsSVGTextContentElement self) =>
self -> m SVGAnimatedEnumeration
getLengthAdjustUnchecked self
= liftDOM
(((toSVGTextContentElement self) ^. js "lengthAdjust") >>=
fromJSValUnchecked)