{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.HTMLFrameSetElement
(setCols, getCols, setRows, getRows, blur, error, focus, focusin,
focusout, load, resize, scroll, webKitWillRevealBottom,
webKitWillRevealLeft, webKitWillRevealRight, webKitWillRevealTop,
HTMLFrameSetElement(..), gTypeHTMLFrameSetElement)
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 Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
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, unsafeEventNameAsync)
import JSDOM.Enums
setCols ::
(MonadDOM m, ToJSString val) => HTMLFrameSetElement -> val -> m ()
setCols :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLFrameSetElement -> val -> m ()
setCols HTMLFrameSetElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLFrameSetElement
self HTMLFrameSetElement
-> Getting (DOM ()) HTMLFrameSetElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"cols" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getCols ::
(MonadDOM m, FromJSString result) =>
HTMLFrameSetElement -> m result
getCols :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLFrameSetElement -> m result
getCols HTMLFrameSetElement
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLFrameSetElement
self HTMLFrameSetElement
-> Getting (JSM JSVal) HTMLFrameSetElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLFrameSetElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"cols") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setRows ::
(MonadDOM m, ToJSString val) => HTMLFrameSetElement -> val -> m ()
setRows :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLFrameSetElement -> val -> m ()
setRows HTMLFrameSetElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLFrameSetElement
self HTMLFrameSetElement
-> Getting (DOM ()) HTMLFrameSetElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"rows" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getRows ::
(MonadDOM m, FromJSString result) =>
HTMLFrameSetElement -> m result
getRows :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLFrameSetElement -> m result
getRows HTMLFrameSetElement
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLFrameSetElement
self HTMLFrameSetElement
-> Getting (JSM JSVal) HTMLFrameSetElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLFrameSetElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"rows") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
blur :: EventName HTMLFrameSetElement FocusEvent
blur :: EventName HTMLFrameSetElement FocusEvent
blur = DOMString -> EventName HTMLFrameSetElement FocusEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"blur")
error :: EventName HTMLFrameSetElement UIEvent
error :: EventName HTMLFrameSetElement UIEvent
error = DOMString -> EventName HTMLFrameSetElement UIEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"error")
focus :: EventName HTMLFrameSetElement FocusEvent
focus :: EventName HTMLFrameSetElement FocusEvent
focus = DOMString -> EventName HTMLFrameSetElement FocusEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"focus")
focusin :: EventName HTMLFrameSetElement onfocusin
focusin :: forall onfocusin. EventName HTMLFrameSetElement onfocusin
focusin = DOMString -> EventName HTMLFrameSetElement onfocusin
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"focusin")
focusout :: EventName HTMLFrameSetElement onfocusout
focusout :: forall onfocusin. EventName HTMLFrameSetElement onfocusin
focusout = DOMString -> EventName HTMLFrameSetElement onfocusout
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"focusout")
load :: EventName HTMLFrameSetElement UIEvent
load :: EventName HTMLFrameSetElement UIEvent
load = DOMString -> EventName HTMLFrameSetElement UIEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"load")
resize :: EventName HTMLFrameSetElement UIEvent
resize :: EventName HTMLFrameSetElement UIEvent
resize = DOMString -> EventName HTMLFrameSetElement UIEvent
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"resize")
scroll :: EventName HTMLFrameSetElement UIEvent
scroll :: EventName HTMLFrameSetElement UIEvent
scroll = DOMString -> EventName HTMLFrameSetElement UIEvent
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"scroll")
webKitWillRevealBottom :: EventName HTMLFrameSetElement Event
webKitWillRevealBottom :: EventName HTMLFrameSetElement Event
webKitWillRevealBottom
= DOMString -> EventName HTMLFrameSetElement Event
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"webkitwillrevealbottom")
webKitWillRevealLeft :: EventName HTMLFrameSetElement Event
webKitWillRevealLeft :: EventName HTMLFrameSetElement Event
webKitWillRevealLeft
= DOMString -> EventName HTMLFrameSetElement Event
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"webkitwillrevealleft")
webKitWillRevealRight :: EventName HTMLFrameSetElement Event
webKitWillRevealRight :: EventName HTMLFrameSetElement Event
webKitWillRevealRight
= DOMString -> EventName HTMLFrameSetElement Event
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"webkitwillrevealright")
webKitWillRevealTop :: EventName HTMLFrameSetElement Event
webKitWillRevealTop :: EventName HTMLFrameSetElement Event
webKitWillRevealTop
= DOMString -> EventName HTMLFrameSetElement Event
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"webkitwillrevealtop")