module JSDOM.Generated.OESVertexArrayObject
(createVertexArrayOES, createVertexArrayOES_,
createVertexArrayOESUnsafe, createVertexArrayOESUnchecked,
deleteVertexArrayOES, isVertexArrayOES, isVertexArrayOES_,
bindVertexArrayOES, pattern VERTEX_ARRAY_BINDING_OES,
OESVertexArrayObject(..), gTypeOESVertexArrayObject)
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
createVertexArrayOES ::
(MonadDOM m) =>
OESVertexArrayObject -> m (Maybe WebGLVertexArrayObjectOES)
createVertexArrayOES self
= liftDOM ((self ^. jsf "createVertexArrayOES" ()) >>= fromJSVal)
createVertexArrayOES_ ::
(MonadDOM m) => OESVertexArrayObject -> m ()
createVertexArrayOES_ self
= liftDOM (void (self ^. jsf "createVertexArrayOES" ()))
createVertexArrayOESUnsafe ::
(MonadDOM m, HasCallStack) =>
OESVertexArrayObject -> m WebGLVertexArrayObjectOES
createVertexArrayOESUnsafe self
= liftDOM
(((self ^. jsf "createVertexArrayOES" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
createVertexArrayOESUnchecked ::
(MonadDOM m) => OESVertexArrayObject -> m WebGLVertexArrayObjectOES
createVertexArrayOESUnchecked self
= liftDOM
((self ^. jsf "createVertexArrayOES" ()) >>= fromJSValUnchecked)
deleteVertexArrayOES ::
(MonadDOM m) =>
OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m ()
deleteVertexArrayOES self arrayObject
= liftDOM
(void (self ^. jsf "deleteVertexArrayOES" [toJSVal arrayObject]))
isVertexArrayOES ::
(MonadDOM m) =>
OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m Bool
isVertexArrayOES self arrayObject
= liftDOM
((self ^. jsf "isVertexArrayOES" [toJSVal arrayObject]) >>=
valToBool)
isVertexArrayOES_ ::
(MonadDOM m) =>
OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m ()
isVertexArrayOES_ self arrayObject
= liftDOM
(void (self ^. jsf "isVertexArrayOES" [toJSVal arrayObject]))
bindVertexArrayOES ::
(MonadDOM m) =>
OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m ()
bindVertexArrayOES self arrayObject
= liftDOM
(void (self ^. jsf "bindVertexArrayOES" [toJSVal arrayObject]))
pattern VERTEX_ARRAY_BINDING_OES = 34229