(* Js_of_ocaml library
 * http://www.ocsigen.org/js_of_ocaml/
 * Copyright (C) 2010 Jérôme Vouillon
 * Laboratoire PPS - CNRS Université Paris Diderot
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU Lesser General Public License as published by
 * the Free Software Foundation, with linking exception;
 * either version 2.1 of the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 *)

(** DOM HTML binding

This is a partial binding to the DOM HTML API.
*)

open Js

(** {2 CSS style declaration} *)

class type cssStyleDeclaration = object
  method setProperty :
    js_string t -> js_string t -> js_string t optdef -> js_string t meth

  method getPropertyValue : js_string t -> js_string t meth

  method getPropertyPriority : js_string t -> js_string t meth

  method removeProperty : js_string t -> js_string t meth

  method accentColor : js_string t prop

  method alignContent : js_string t prop

  method alignItems : js_string t prop

  method alignSelf : js_string t prop

  method all : js_string t prop

  method animation : js_string t prop

  method animationDelay : js_string t prop

  method animationDirection : js_string t prop

  method animationDuration : js_string t prop

  method animationFillMode : js_string t prop

  method animationIterationCount : js_string t prop

  method animationName : js_string t prop

  method animationPlayState : js_string t prop

  method animationTimingFunction : js_string t prop

  method appearance : js_string t prop

  method aspectRatio : js_string t prop

  method backdropFilter : js_string t prop

  method backfaceVisibility : js_string t prop

  method background : js_string t prop

  method backgroundAttachment : js_string t prop

  method backgroundBlendMode : js_string t prop

  method backgroundClip : js_string t prop

  method backgroundColor : js_string t prop

  method backgroundImage : js_string t prop

  method backgroundOrigin : js_string t prop

  method backgroundPosition : js_string t prop

  method backgroundRepeat : js_string t prop

  method backgroundSize : js_string t prop

  method blockSize : js_string t prop

  method border : js_string t prop

  method borderBlock : js_string t prop

  method borderBlockColor : js_string t prop

  method borderBlockEnd : js_string t prop

  method borderBlockEndColor : js_string t prop

  method borderBlockEndStyle : js_string t prop

  method borderBlockEndWidth : js_string t prop

  method borderBlockStart : js_string t prop

  method borderBlockStartColor : js_string t prop

  method borderBlockStartStyle : js_string t prop

  method borderBlockStartWidth : js_string t prop

  method borderBlockStyle : js_string t prop

  method borderBlockWidth : js_string t prop

  method borderBottom : js_string t prop

  method borderBottomColor : js_string t prop

  method borderBottomLeftRadius : js_string t prop

  method borderBottomRightRadius : js_string t prop

  method borderBottomStyle : js_string t prop

  method borderBottomWidth : js_string t prop

  method borderCollapse : js_string t prop

  method borderColor : js_string t prop

  method borderImage : js_string t prop

  method borderImageOutset : js_string t prop

  method borderImageRepeat : js_string t prop

  method borderImageSlice : js_string t prop

  method borderImageSource : js_string t prop

  method borderImageWidth : js_string t prop

  method borderInline : js_string t prop

  method borderInlineColor : js_string t prop

  method borderInlineEnd : js_string t prop

  method borderInlineEndColor : js_string t prop

  method borderInlineEndStyle : js_string t prop

  method borderInlineEndWidth : js_string t prop

  method borderInlineStart : js_string t prop

  method borderInlineStartColor : js_string t prop

  method borderInlineStartStyle : js_string t prop

  method borderInlineStartWidth : js_string t prop

  method borderInlineStyle : js_string t prop

  method borderInlineWidth : js_string t prop

  method borderLeft : js_string t prop

  method borderLeftColor : js_string t prop

  method borderLeftStyle : js_string t prop

  method borderLeftWidth : js_string t prop

  method borderRadius : js_string t prop

  method borderRight : js_string t prop

  method borderRightColor : js_string t prop

  method borderRightStyle : js_string t prop

  method borderRightWidth : js_string t prop

  method borderSpacing : js_string t prop

  method borderStyle : js_string t prop

  method borderTop : js_string t prop

  method borderTopColor : js_string t prop

  method borderTopLeftRadius : js_string t prop

  method borderTopRightRadius : js_string t prop

  method borderTopStyle : js_string t prop

  method borderTopWidth : js_string t prop

  method borderWidth : js_string t prop

  method bottom : js_string t prop

  method boxShadow : js_string t prop

  method boxSizing : js_string t prop

  method captionSide : js_string t prop

  method caretColor : js_string t prop

  method clear : js_string t prop

  method clip : js_string t prop

  method clipPath : js_string t prop

  method color : js_string t prop

  method colorScheme : js_string t prop

  method columnGap : js_string t prop

  method contain : js_string t prop

  method content : js_string t prop

  method counterIncrement : js_string t prop

  method counterReset : js_string t prop

  method cssFloat : js_string t prop

  method cssText : js_string t prop

  method cursor : js_string t prop

  method direction : js_string t prop

  method display : js_string t prop

  method emptyCells : js_string t prop

  method fill : js_string t prop

  method filter : js_string t prop

  method flex : js_string t prop

  method flexBasis : js_string t prop

  method flexDirection : js_string t prop

  method flexFlow : js_string t prop

  method flexGrow : js_string t prop

  method flexShrink : js_string t prop

  method flexWrap : js_string t prop

  method font : js_string t prop

  method fontFamily : js_string t prop

  method fontFeatureSettings : js_string t prop

  method fontKerning : js_string t prop

  method fontSize : js_string t prop

  method fontStretch : js_string t prop

  method fontStyle : js_string t prop

  method fontVariant : js_string t prop

  method fontVariantLigatures : js_string t prop

  method fontVariantNumeric : js_string t prop

  method fontWeight : js_string t prop

  method gap : js_string t prop

  method grid : js_string t prop

  method gridArea : js_string t prop

  method gridAutoColumns : js_string t prop

  method gridAutoFlow : js_string t prop

  method gridAutoRows : js_string t prop

  method gridColumn : js_string t prop

  method gridColumnEnd : js_string t prop

  method gridColumnStart : js_string t prop

  method gridRow : js_string t prop

  method gridRowEnd : js_string t prop

  method gridRowStart : js_string t prop

  method gridTemplate : js_string t prop

  method gridTemplateAreas : js_string t prop

  method gridTemplateColumns : js_string t prop

  method gridTemplateRows : js_string t prop

  method height : js_string t prop

  method hyphens : js_string t prop

  method imageRendering : js_string t prop

  method inlineSize : js_string t prop

  method inset : js_string t prop

  method insetBlock : js_string t prop

  method insetBlockEnd : js_string t prop

  method insetBlockStart : js_string t prop

  method insetInline : js_string t prop

  method insetInlineEnd : js_string t prop

  method insetInlineStart : js_string t prop

  method isolation : js_string t prop

  method justifyContent : js_string t prop

  method justifyItems : js_string t prop

  method justifySelf : js_string t prop

  method left : js_string t prop

  method letterSpacing : js_string t prop

  method lineHeight : js_string t prop

  method listStyle : js_string t prop

  method listStyleImage : js_string t prop

  method listStylePosition : js_string t prop

  method listStyleType : js_string t prop

  method margin : js_string t prop

  method marginBlock : js_string t prop

  method marginBlockEnd : js_string t prop

  method marginBlockStart : js_string t prop

  method marginBottom : js_string t prop

  method marginInline : js_string t prop

  method marginInlineEnd : js_string t prop

  method marginInlineStart : js_string t prop

  method marginLeft : js_string t prop

  method marginRight : js_string t prop

  method marginTop : js_string t prop

  method mask : js_string t prop

  method maskImage : js_string t prop

  method maxBlockSize : js_string t prop

  method maxHeight : js_string t prop

  method maxInlineSize : js_string t prop

  method maxWidth : js_string t prop

  method minBlockSize : js_string t prop

  method minHeight : js_string t prop

  method minInlineSize : js_string t prop

  method minWidth : js_string t prop

  method mixBlendMode : js_string t prop

  method objectFit : js_string t prop

  method objectPosition : js_string t prop

  method opacity : js_string t prop

  method order : js_string t prop

  method outline : js_string t prop

  method outlineColor : js_string t prop

  method outlineOffset : js_string t prop

  method outlineStyle : js_string t prop

  method outlineWidth : js_string t prop

  method overflow : js_string t prop

  method overflowWrap : js_string t prop

  method overflowX : js_string t prop

  method overflowY : js_string t prop

  method overscrollBehavior : js_string t prop

  method padding : js_string t prop

  method paddingBlock : js_string t prop

  method paddingBlockEnd : js_string t prop

  method paddingBlockStart : js_string t prop

  method paddingBottom : js_string t prop

  method paddingInline : js_string t prop

  method paddingInlineEnd : js_string t prop

  method paddingInlineStart : js_string t prop

  method paddingLeft : js_string t prop

  method paddingRight : js_string t prop

  method paddingTop : js_string t prop

  method pageBreakAfter : js_string t prop

  method pageBreakBefore : js_string t prop

  method perspective : js_string t prop

  method perspectiveOrigin : js_string t prop

  method placeContent : js_string t prop

  method placeItems : js_string t prop

  method placeSelf : js_string t prop

  method pointerEvents : js_string t prop

  method position : js_string t prop

  method quotes : js_string t prop

  method resize : js_string t prop

  method right : js_string t prop

  method rowGap : js_string t prop

  method scrollBehavior : js_string t prop

  method scrollMargin : js_string t prop

  method scrollPadding : js_string t prop

  method scrollSnapAlign : js_string t prop

  method scrollSnapType : js_string t prop

  method stroke : js_string t prop

  method strokeWidth : js_string t prop

  method tableLayout : js_string t prop

  method tabSize : js_string t prop

  method textAlign : js_string t prop

  method textAnchor : js_string t prop

  method textDecoration : js_string t prop

  method textDecorationColor : js_string t prop

  method textDecorationLine : js_string t prop

  method textDecorationStyle : js_string t prop

  method textDecorationThickness : js_string t prop

  method textIndent : js_string t prop

  method textOverflow : js_string t prop

  method textShadow : js_string t prop

  method textTransform : js_string t prop

  method top : js_string t prop

  method transform : js_string t prop

  method transformOrigin : js_string t prop

  method transformStyle : js_string t prop

  method transition : js_string t prop

  method transitionDelay : js_string t prop

  method transitionDuration : js_string t prop

  method transitionProperty : js_string t prop

  method transitionTimingFunction : js_string t prop

  method userSelect : js_string t prop

  method verticalAlign : js_string t prop

  method visibility : js_string t prop

  method whiteSpace : js_string t prop

  method width : js_string t prop

  method willChange : js_string t prop

  method wordBreak : js_string t prop

  method wordSpacing : js_string t prop

  method writingMode : js_string t prop

  method zIndex : js_string t prop
end

(** {2 Events} *)

type (-'a, -'b) event_listener = ('a, 'b) Dom.event_listener
(** The type of event listener functions.  The first type parameter
      ['a] is the type of the target object; the second parameter
      ['b] is the type of the event object. *)

type mouse_button =
  | No_button
  | Left_button
  | Middle_button
  | Right_button

type delta_mode =
  | Delta_pixel
  | Delta_line
  | Delta_page

type domStringMap
(** [DOMStringMap] used for the [dataset] property.  Use the
    {!DomStringMap} module for typed access. *)

class type event = object
  inherit [element] Dom.event
end

and ['a] customEvent = object
  inherit [element, 'a] Dom.customEvent
end

and focusEvent = object
  inherit event

  method relatedTarget : element t opt readonly_prop
end

and mouseEvent = object
  inherit event

  method relatedTarget : element t opt readonly_prop

  (* Relative to viewport *)
  method clientX : number_t readonly_prop

  method clientY : number_t readonly_prop

  method x : number_t readonly_prop

  method y : number_t readonly_prop

  (* Relative to the edge of the screen *)
  method screenX : number_t readonly_prop

  method screenY : number_t readonly_prop

  method offsetX : number_t readonly_prop

  method offsetY : number_t readonly_prop

  method ctrlKey : bool t readonly_prop

  method shiftKey : bool t readonly_prop

  method altKey : bool t readonly_prop

  method metaKey : bool t readonly_prop

  method button : int readonly_prop

  method buttons : int readonly_prop

  method getModifierState : js_string t -> bool t meth

  (* Legacy methods *)
  method which : mouse_button optdef readonly_prop

  method fromElement : element t opt optdef readonly_prop
  (** @deprecated Use [relatedTarget] instead. *)

  method toElement : element t opt optdef readonly_prop
  (** @deprecated Use [relatedTarget] instead. *)

  method pageX : number_t optdef readonly_prop

  method pageY : number_t optdef readonly_prop
end

and keyboardEvent = object
  inherit event

  method altKey : bool t readonly_prop

  method shiftKey : bool t readonly_prop

  method ctrlKey : bool t readonly_prop

  method metaKey : bool t readonly_prop

  method location : int readonly_prop

  (* Chrome can send fake keyboard events without any of the expected
     properties (https://chromium-review.googlesource.com/771674), so
     we keep the [optdef] annotation for now *)
  method key : js_string t optdef readonly_prop

  method code : js_string t optdef readonly_prop

  method isComposing : bool t readonly_prop

  method repeat : bool t readonly_prop

  method getModifierState : js_string t -> bool t meth

  (* Deprecated properties *)
  method which : int optdef readonly_prop

  method charCode : int optdef readonly_prop

  method keyCode : int readonly_prop

  method keyIdentifier : js_string t optdef readonly_prop
end

and wheelEvent = object
  inherit mouseEvent

  method deltaX : number_t readonly_prop

  method deltaY : number_t readonly_prop

  method deltaZ : number_t readonly_prop

  method deltaMode : delta_mode readonly_prop

  (* Deprecated *)
  method wheelDelta : int readonly_prop

  method wheelDeltaX : int optdef readonly_prop

  method wheelDeltaY : int optdef readonly_prop
end

and mousewheelEvent = (* Deprecated *) wheelEvent

and touchEvent = object
  inherit event

  method touches : touchList t readonly_prop

  method targetTouches : touchList t readonly_prop

  method changedTouches : touchList t readonly_prop

  method ctrlKey : bool t readonly_prop

  method shiftKey : bool t readonly_prop

  method altKey : bool t readonly_prop

  method metaKey : bool t readonly_prop

  method relatedTarget : element t opt readonly_prop
end

and touchList = object
  method length : int readonly_prop

  method item : int -> touch t optdef meth
end

and touch = object
  method identifier : int readonly_prop

  (* Not available on Safari *)
  method target : element t optdef readonly_prop

  method screenX : number_t readonly_prop

  method screenY : number_t readonly_prop

  method clientX : number_t readonly_prop

  method clientY : number_t readonly_prop

  method pageX : number_t readonly_prop

  method pageY : number_t readonly_prop

  method radiusX : number_t readonly_prop

  method radiusY : number_t readonly_prop

  method rotationAngle : number_t readonly_prop

  method force : number_t readonly_prop
end

and submitEvent = object
  inherit event

  method submitter : element t opt readonly_prop
end

and dragEvent = object
  inherit mouseEvent

  method dataTransfer : dataTransfer t opt readonly_prop
end

and clipboardEvent = object
  inherit event

  method clipboardData : dataTransfer t opt readonly_prop
end

and toggleEvent = object
  inherit event

  method newState : js_string t readonly_prop

  method oldState : js_string t readonly_prop

  method source : element t opt readonly_prop
end

and mediaQueryListEvent = object
  inherit event

  method matches : bool t readonly_prop

  method media : js_string t readonly_prop
end

and dataTransfer = object
  method dropEffect : js_string t prop

  method effectAllowed : js_string t prop

  method files : File.fileList t readonly_prop

  method types : js_string t js_array t readonly_prop

  (* Not standard *)
  method addElement : element t -> unit meth

  method clearData : js_string t -> unit meth

  method clearData_all : unit meth

  method getData : js_string t -> js_string t meth

  method setData : js_string t -> js_string t -> unit meth

  method setDragImage : element t -> int -> int -> unit meth
end

(** Common properties of event target objects: [onclick],
    [onkeypress], ... *)
and eventTarget = object ('self)
  method onclick : ('self t, mouseEvent t) event_listener writeonly_prop

  method ondblclick : ('self t, mouseEvent t) event_listener writeonly_prop

  method onmousedown : ('self t, mouseEvent t) event_listener writeonly_prop

  method onmouseup : ('self t, mouseEvent t) event_listener writeonly_prop

  method onmouseover : ('self t, mouseEvent t) event_listener writeonly_prop

  method onmousemove : ('self t, mouseEvent t) event_listener writeonly_prop

  method onmouseout : ('self t, mouseEvent t) event_listener writeonly_prop

  method onkeypress : ('self t, keyboardEvent t) event_listener writeonly_prop

  method onkeydown : ('self t, keyboardEvent t) event_listener writeonly_prop

  method onkeyup : ('self t, keyboardEvent t) event_listener writeonly_prop

  method onscroll : ('self t, event t) event_listener writeonly_prop

  method onwheel : ('self t, wheelEvent t) event_listener writeonly_prop

  method ondragstart : ('self t, dragEvent t) event_listener writeonly_prop

  method ondragend : ('self t, dragEvent t) event_listener writeonly_prop

  method ondragenter : ('self t, dragEvent t) event_listener writeonly_prop

  method ondragover : ('self t, dragEvent t) event_listener writeonly_prop

  method ondragleave : ('self t, dragEvent t) event_listener writeonly_prop

  method ondrag : ('self t, dragEvent t) event_listener writeonly_prop

  method ondrop : ('self t, dragEvent t) event_listener writeonly_prop

  method onanimationstart : ('self t, animationEvent t) event_listener writeonly_prop

  method onanimationend : ('self t, animationEvent t) event_listener writeonly_prop

  method onanimationiteration : ('self t, animationEvent t) event_listener writeonly_prop

  method onanimationcancel : ('self t, animationEvent t) event_listener writeonly_prop

  method ontransitionrun : ('self t, transitionEvent t) event_listener writeonly_prop

  method ontransitionstart : ('self t, transitionEvent t) event_listener writeonly_prop

  method ontransitionend : ('self t, transitionEvent t) event_listener writeonly_prop

  method ontransitioncancel : ('self t, transitionEvent t) event_listener writeonly_prop

  method ongotpointercapture : ('self t, pointerEvent t) event_listener writeonly_prop

  method onlostpointercapture : ('self t, pointerEvent t) event_listener writeonly_prop

  method onpointerenter : ('self t, pointerEvent t) event_listener writeonly_prop

  method onpointercancel : ('self t, pointerEvent t) event_listener writeonly_prop

  method onpointerdown : ('self t, pointerEvent t) event_listener writeonly_prop

  method onpointerleave : ('self t, pointerEvent t) event_listener writeonly_prop

  method onpointermove : ('self t, pointerEvent t) event_listener writeonly_prop

  method onpointerout : ('self t, pointerEvent t) event_listener writeonly_prop

  method onpointerover : ('self t, pointerEvent t) event_listener writeonly_prop

  method onpointerup : ('self t, pointerEvent t) event_listener writeonly_prop

  method onbeforetoggle : ('self t, toggleEvent t) event_listener writeonly_prop

  method ontoggle : ('self t, toggleEvent t) event_listener writeonly_prop

  method dispatchEvent : event t -> bool t meth
end

and popStateEvent = object
  inherit event

  method state : Js.Unsafe.any readonly_prop
end

and pointerEvent = object
  inherit mouseEvent

  method pointerId : int readonly_prop

  method width : number_t readonly_prop

  method height : number_t readonly_prop

  method pressure : number_t readonly_prop

  method tangentialPressure : number_t readonly_prop

  method tiltX : int readonly_prop

  method tiltY : int readonly_prop

  method twist : int readonly_prop

  method pointerType : js_string t readonly_prop

  method isPrimary : bool t readonly_prop

  method getCoalescedEvents : pointerEvent t js_array t meth
end

and storageEvent = object
  inherit event

  method key : js_string t opt readonly_prop

  method oldValue : js_string t opt readonly_prop

  method newValue : js_string t opt readonly_prop

  method url : js_string t readonly_prop

  method storageArea : storage t opt readonly_prop
end

(** Storage *)
and storage = object
  method length : int readonly_prop

  method key : int -> js_string t opt meth

  method getItem : js_string t -> js_string t opt meth

  method setItem : js_string t -> js_string t -> unit meth

  method removeItem : js_string t -> unit meth

  method clear : unit meth
end

and hashChangeEvent = object
  inherit event

  method oldURL : js_string t readonly_prop

  method newURL : js_string t readonly_prop
end

and animationEvent = object
  inherit event

  method animationName : js_string t readonly_prop

  method elapsedTime : number_t readonly_prop

  method pseudoElement : js_string t readonly_prop
end

and transitionEvent = object
  inherit event

  method propertyName : js_string t readonly_prop

  method elapsedTime : number_t readonly_prop

  method pseudoElement : js_string t readonly_prop
end

and mediaEvent = object
  inherit event
end

and messageEvent = object
  inherit event

  method data : Unsafe.any opt readonly_prop

  method origin : js_string t readonly_prop

  method lastEventId : js_string t readonly_prop

  method source : Unsafe.any opt readonly_prop
end

and staticRange = object
  method collapsed : bool t readonly_prop

  method startContainer : Dom.node t readonly_prop

  method startOffset : int readonly_prop

  method endContainer : Dom.node t readonly_prop

  method endOffset : int readonly_prop
end

and compositionEvent = object
  inherit event

  method data : js_string t readonly_prop
end

and inputEvent = object
  inherit event

  method data : js_string t opt readonly_prop

  method inputType : js_string t readonly_prop

  method dataTransfer : dataTransfer t opt readonly_prop

  method isComposing : bool t readonly_prop

  method getTargetRanges : staticRange t js_array t meth
end

and errorEvent = object
  inherit event

  method message : js_string t readonly_prop

  method filename : js_string t readonly_prop

  method lineno : int readonly_prop

  method colno : int readonly_prop

  method error : 'a. 'a opt readonly_prop
end

and progressEvent = object
  inherit event

  method lengthComputable : bool t readonly_prop

  method loaded : number_t readonly_prop

  method total : number_t readonly_prop
end

and beforeUnloadEvent = object
  inherit event

  method returnValue : js_string t prop
end

and pageTransitionEvent = object
  inherit event

  method persisted : bool t readonly_prop
end

(** {2 HTML elements} *)

and nodeSelector = object
  method querySelector : js_string t -> element t opt meth

  method querySelectorAll : js_string t -> element Dom.nodeList t meth
end

and tokenList = object
  method length : int readonly_prop

  method item : int -> js_string t optdef meth

  method contains : js_string t -> bool t meth

  method add : js_string t -> unit meth

  method remove : js_string t -> unit meth

  method toggle : js_string t -> bool t meth

  method stringifier : js_string t prop
end

and shadowRootInit = object
  method mode : js_string t writeonly_prop

  method delegatesFocus : bool t writeonly_prop
end

and shadowRoot = object
  inherit Dom.documentFragment

  method mode : js_string t readonly_prop

  method host : element t readonly_prop

  method innerHTML : js_string t prop

  method activeElement : element t opt readonly_prop
end

and animation = object
  method id : js_string t prop

  method effect_ : animationEffect t opt prop

  method timeline : animationTimeline t opt prop

  method playState : js_string t readonly_prop

  method replaceState : js_string t readonly_prop

  method playbackRate : number_t prop

  method currentTime : number_t opt prop

  method startTime : number_t opt prop

  method pending : bool t readonly_prop

  method play : unit meth

  method pause : unit meth

  method finish : unit meth

  method cancel : unit meth

  method reverse : unit meth

  method persist : unit meth

  method commitStyles : unit meth

  method updatePlaybackRate : number_t -> unit meth

  method finished : animation t Promise.t readonly_prop
  (** Resolves when the animation reaches its end, or rejects when it is
      cancelled. *)

  method ready : animation t Promise.t readonly_prop
  (** Resolves when the animation is ready to play (i.e. the user agent
      has finished any pending changes to its state). *)

  method oncancel : (animation t, animationPlaybackEvent t) event_listener writeonly_prop

  method onfinish : (animation t, animationPlaybackEvent t) event_listener writeonly_prop

  method onremove : (animation t, event t) event_listener writeonly_prop
end

and animationTimeline = object
  method currentTime : number_t opt readonly_prop
end

and documentTimeline = object
  inherit animationTimeline
end

and animationEffect = object
  method updateTiming : optionalEffectTiming t -> unit meth

  method getComputedTiming : computedEffectTiming t meth
end

and keyframeEffect = object
  inherit animationEffect

  method target : element t opt prop

  method pseudoElement : js_string t opt prop

  method composite : js_string t prop

  method getKeyframes : computedKeyframe t js_array t meth

  method setKeyframes : 'a. 'a -> unit meth
end

and computedKeyframe = object
  method offset : number_t opt readonly_prop

  method computedOffset : number_t readonly_prop

  method easing : js_string t readonly_prop

  method composite : js_string t readonly_prop
end

and optionalEffectTiming = object
  method delay : number_t writeonly_prop

  method endDelay : number_t writeonly_prop

  method fill : js_string t writeonly_prop

  method iterationStart : number_t writeonly_prop

  method iterations : number_t writeonly_prop

  method duration : number_t writeonly_prop

  method duration_auto : js_string t writeonly_prop

  method direction : js_string t writeonly_prop

  method easing : js_string t writeonly_prop
end

and computedEffectTiming = object
  method delay : number_t readonly_prop

  method endDelay : number_t readonly_prop

  method fill : js_string t readonly_prop

  method iterationStart : number_t readonly_prop

  method iterations : number_t readonly_prop

  method duration : number_t readonly_prop
  (** Duration in milliseconds. Computed timing always resolves the
      ["auto"] keyword to a number. *)

  method direction : js_string t readonly_prop

  method easing : js_string t readonly_prop

  method endTime : number_t readonly_prop

  method activeDuration : number_t readonly_prop

  method localTime : number_t opt readonly_prop

  method progress : number_t opt readonly_prop

  method currentIteration : number_t opt readonly_prop
end

and keyframeAnimationOptions = object
  method delay : number_t writeonly_prop

  method endDelay : number_t writeonly_prop

  method fill : js_string t writeonly_prop

  method iterationStart : number_t writeonly_prop

  method iterations : number_t writeonly_prop

  method duration : number_t writeonly_prop

  method duration_auto : js_string t writeonly_prop

  method direction : js_string t writeonly_prop

  method easing : js_string t writeonly_prop

  method id : js_string t writeonly_prop

  method composite : js_string t writeonly_prop

  method pseudoElement : js_string t opt writeonly_prop

  method timeline : animationTimeline t opt writeonly_prop
end

and animationPlaybackEvent = object
  inherit event

  method currentTime : number_t opt readonly_prop

  method timelineTime : number_t opt readonly_prop
end

and scrollToOptions = object
  method top : number_t writeonly_prop

  method left : number_t writeonly_prop

  method behavior : js_string t writeonly_prop
end

and scrollIntoViewOptions = object
  method behavior : js_string t writeonly_prop

  method block : js_string t writeonly_prop

  method inline : js_string t writeonly_prop
end

and focusOptions = object
  method preventScroll : bool t writeonly_prop
end

and showPopover_options = object
  method source : element t writeonly_prop
end

and togglePopover_options = object
  method force : bool t writeonly_prop

  method source : element t writeonly_prop
end

(** Properties common to all HTML elements *)
and element = object
  inherit Dom.element

  inherit nodeSelector

  method id : js_string t prop

  method title : js_string t prop

  method lang : js_string t prop

  method dir : js_string t prop

  method className : js_string t prop

  method classList : tokenList t readonly_prop

  method closest : js_string t -> element t opt meth

  method slot : js_string t prop

  method shadowRoot : shadowRoot t opt readonly_prop

  method assignedSlot : element t opt readonly_prop

  method attachShadow : shadowRootInit t -> shadowRoot t meth

  method style : cssStyleDeclaration t prop

  method innerHTML : js_string t prop

  method outerHTML : js_string t prop

  method textContent : js_string t opt prop

  method innerText : js_string t prop

  method dataset : domStringMap t readonly_prop

  method tabIndex : int prop

  method hidden : bool t writeonly_prop
  (** Setter only: reading [hidden] in some browsers can return the string
      ["until-found"] rather than a boolean, so the getter is not exposed. *)

  method draggable : bool t prop

  method spellcheck : bool t prop

  method translate : bool t prop

  method contentEditable : js_string t prop

  method isContentEditable : bool t readonly_prop

  method accessKey : js_string t prop

  method autofocus : bool t prop

  method inputMode : js_string t prop

  method enterKeyHint : js_string t prop

  method nonce : js_string t prop

  method clientLeft : int readonly_prop

  method clientTop : int readonly_prop

  method clientWidth : int readonly_prop

  method clientHeight : int readonly_prop

  method offsetLeft : int readonly_prop

  method offsetTop : int readonly_prop

  method offsetParent : element t opt readonly_prop

  method offsetWidth : int readonly_prop

  method offsetHeight : int readonly_prop

  method scrollLeft : number_t prop

  method scrollTop : number_t prop

  method scrollWidth : int readonly_prop

  method scrollHeight : int readonly_prop

  method popover : js_string t opt prop

  method getClientRects : clientRectList t meth

  method getBoundingClientRect : clientRect t meth

  method scrollIntoView : bool t -> unit meth

  method scrollIntoView_options : scrollIntoViewOptions t -> unit meth

  method scrollTo_options : scrollToOptions t -> unit meth

  method scrollBy_options : scrollToOptions t -> unit meth

  method click : unit meth

  method focus : unit meth

  method focus_options : focusOptions t -> unit meth

  method blur : unit meth

  method requestFullscreen : unit Promise.t meth

  method requestPointerLock : unit Promise.t meth

  method animate : 'a 'b. 'a -> 'b -> animation t meth

  method animate_keyframes : 'a. 'a -> animation t meth
  (** [animate(keyframes)] — no options/duration. *)

  method animate_duration : 'a. 'a -> number_t -> animation t meth
  (** [animate(keyframes, duration)] — duration in milliseconds. *)

  method animate_options : 'a. 'a -> keyframeAnimationOptions t -> animation t meth
  (** [animate(keyframes, options)] with a typed options dictionary. *)

  method getAnimations : animation t js_array t meth

  method hidePopover : unit meth

  method showPopover : unit meth

  method showPopover_options : showPopover_options t -> unit meth

  method togglePopover : bool t meth

  method togglePopover_force : bool t -> bool t meth
  (** [togglePopover(force)] — [force=true] forces the popover open, [false]
      forces it closed; the no-arg form toggles. Returns the new open state. *)

  method togglePopover_options : togglePopover_options t -> bool t meth

  inherit eventTarget
end

(** Rectangular box (used for element bounding boxes) *)
and clientRect = object
  method top : number_t readonly_prop

  method right : number_t readonly_prop

  method bottom : number_t readonly_prop

  method left : number_t readonly_prop

  method width : number_t readonly_prop

  method height : number_t readonly_prop
end

and clientRectList = object
  method length : int readonly_prop

  method item : int -> clientRect t opt meth
end

class type ['node] collection = ['node] Dom.collection
(** Collection of HTML elements. Alias for {!Dom.collection}. *)

class type htmlElement = element

class type headElement = object
  inherit element

  method profile : js_string t prop
end

class type linkElement = object
  inherit element

  method disabled : bool t prop

  method charset : js_string t prop

  method crossorigin : js_string t prop
  (** @deprecated Wrong casing — the standard property is [crossOrigin]. *)

  method crossOrigin : js_string t opt prop

  method _as : js_string t prop

  method href : js_string t prop

  method hreflang : js_string t prop

  method imageSrcset : js_string t prop

  method imageSizes : js_string t prop

  method integrity : js_string t prop

  method media : js_string t prop

  method referrerPolicy : js_string t prop

  method rel : js_string t prop

  method relList : tokenList t readonly_prop

  method rev : js_string t prop

  method target : js_string t prop

  method _type : js_string t prop
end

class type titleElement = object
  inherit element

  method text : js_string t prop
end

class type metaElement = object
  inherit element

  method content : js_string t prop

  method httpEquiv : js_string t prop

  method name : js_string t prop

  method scheme : js_string t prop
end

class type baseElement = object
  inherit element

  method href : js_string t prop

  method target : js_string t prop
end

class type styleElement = object
  inherit element

  method disabled : bool t prop

  method media : js_string t prop

  method _type : js_string t prop
end

class type bodyElement = element

(** Result of the constraint validation API on form-associated elements. *)
class type validityState = object
  method valueMissing : bool t readonly_prop

  method typeMismatch : bool t readonly_prop

  method patternMismatch : bool t readonly_prop

  method tooLong : bool t readonly_prop

  method tooShort : bool t readonly_prop

  method rangeUnderflow : bool t readonly_prop

  method rangeOverflow : bool t readonly_prop

  method stepMismatch : bool t readonly_prop

  method badInput : bool t readonly_prop

  method customError : bool t readonly_prop

  method valid : bool t readonly_prop
end

class type submitterElement = object
  inherit element
end

class type formElement = object
  inherit element

  method elements : element collection t readonly_prop

  method length : int readonly_prop

  method name : js_string t prop

  method acceptCharset : js_string t prop

  method action : js_string t prop

  method autocomplete : js_string t prop

  method enctype : js_string t prop

  method _method : js_string t prop

  method noValidate : bool t prop

  method target : js_string t prop

  method submit : unit meth

  method requestSubmit : unit meth

  method requestSubmit_submitter : submitterElement t -> unit meth

  method reset : unit meth

  method checkValidity : bool t meth

  method reportValidity : bool t meth

  method onsubmit : ('self t, submitEvent t) event_listener writeonly_prop
end

class type labelElement = object
  inherit element

  method form : formElement t opt readonly_prop

  method accessKey : js_string t prop

  method htmlFor : js_string t prop

  method control : element t opt readonly_prop
end

class type optGroupElement = object
  inherit element

  method disabled : bool t prop

  method label : js_string t prop
end

class type optionElement = object
  inherit optGroupElement

  method form : formElement t opt readonly_prop

  method defaultSelected : bool t prop

  method text : js_string t readonly_prop

  method index : int readonly_prop

  method selected : bool t prop

  method value : js_string t prop
end

class type dataListElement = object
  inherit element

  method options : optionElement collection t readonly_prop
end

class type selectElement = object ('self)
  inherit element

  method _type : js_string t readonly_prop

  method selectedIndex : int prop

  method selectedOptions : optionElement collection t readonly_prop

  method value : js_string t prop

  method length : int prop

  method form : formElement t opt readonly_prop

  method options : optionElement collection t readonly_prop

  method disabled : bool t prop

  method multiple : bool t prop

  method name : js_string t readonly_prop

  method size : int prop

  method tabIndex : int prop

  method add : #optGroupElement t -> #optGroupElement t opt -> unit meth

  method remove : int -> unit meth

  method required : bool t writeonly_prop

  method labels : labelElement Dom.nodeList t opt readonly_prop

  method validity : validityState t readonly_prop

  method validationMessage : js_string t readonly_prop

  method willValidate : bool t readonly_prop

  method checkValidity : bool t meth

  method reportValidity : bool t meth

  method setCustomValidity : js_string t -> unit meth

  method onchange : ('self t, event t) event_listener prop

  method oninput : ('self t, event t) event_listener prop
end

class type inputElement = object ('self)
  inherit submitterElement

  method defaultValue : js_string t prop

  method defaultChecked : bool t prop

  method form : formElement t opt readonly_prop

  method accept : js_string t prop

  method accessKey : js_string t prop

  method align : js_string t prop
  (** @deprecated Use CSS instead. *)

  method alt : js_string t prop

  method autocomplete : js_string t prop

  method capture : js_string t prop

  method checked : bool t prop

  method dirName : js_string t prop

  method disabled : bool t prop

  method formAction : js_string t prop

  method formEnctype : js_string t prop

  method formMethod : js_string t prop

  method formNoValidate : bool t prop

  method formTarget : js_string t prop

  method indeterminate : bool t prop

  method list : dataListElement t opt readonly_prop

  method max : js_string t prop

  method maxLength : int prop

  method min : js_string t prop

  method minLength : int prop

  method multiple : bool t prop

  method name : js_string t readonly_prop

  method pattern : js_string t prop

  method readOnly : bool t prop

  method required : bool t writeonly_prop

  method size : int prop

  method src : js_string t prop

  method step : js_string t prop

  method tabIndex : int prop

  method _type : js_string t readonly_prop

  (* Deprecated *)
  method useMap : js_string t prop

  method value : js_string t prop

  method valueAsDate : Js.date t opt prop

  method valueAsNumber : number_t prop

  method stepUp : unit meth

  method stepUp_n : int -> unit meth

  method stepDown : unit meth

  method stepDown_n : int -> unit meth

  method select : unit meth

  method setSelectionRange : int -> int -> unit meth

  method setSelectionRange_direction : int -> int -> js_string t -> unit meth

  method files : File.fileList t opt readonly_prop

  method placeholder : js_string t prop

  method selectionDirection : js_string t prop

  method selectionStart : int prop

  method selectionEnd : int prop

  method labels : labelElement Dom.nodeList t opt readonly_prop

  method validity : validityState t readonly_prop

  method validationMessage : js_string t readonly_prop

  method willValidate : bool t readonly_prop

  method checkValidity : bool t meth

  method reportValidity : bool t meth

  method setCustomValidity : js_string t -> unit meth

  method popoverTargetElement : element t opt prop

  method popoverTargetAction : js_string t prop

  method onselect : ('self t, event t) event_listener prop

  method onchange : ('self t, event t) event_listener prop

  method oninput : ('self t, event t) event_listener prop

  method onblur : ('self t, focusEvent t) event_listener prop

  method onfocus : ('self t, focusEvent t) event_listener prop
end

class type textAreaElement = object ('self)
  inherit element

  method defaultValue : js_string t prop

  method form : formElement t opt readonly_prop

  method accessKey : js_string t prop

  method autocomplete : js_string t prop

  method cols : int prop

  method dirName : js_string t prop

  method disabled : bool t prop

  method maxLength : int prop

  method minLength : int prop

  method name : js_string t readonly_prop

  method readOnly : bool t prop

  method rows : int prop

  method selectionDirection : js_string t prop

  method selectionEnd : int prop

  method selectionStart : int prop

  method tabIndex : int prop

  method _type : js_string t readonly_prop

  method value : js_string t prop

  method wrap : js_string t prop

  method select : unit meth

  method setSelectionRange : int -> int -> unit meth

  method setSelectionRange_direction : int -> int -> js_string t -> unit meth

  method setRangeText : js_string t -> unit meth

  method setRangeText_full : js_string t -> int -> int -> js_string t -> unit meth

  method required : bool t writeonly_prop

  method placeholder : js_string t prop

  method labels : labelElement Dom.nodeList t opt readonly_prop

  method validity : validityState t readonly_prop

  method validationMessage : js_string t readonly_prop

  method willValidate : bool t readonly_prop

  method checkValidity : bool t meth

  method reportValidity : bool t meth

  method setCustomValidity : js_string t -> unit meth

  method onselect : ('self t, event t) event_listener prop

  method onchange : ('self t, event t) event_listener prop

  method oninput : ('self t, event t) event_listener prop

  method onblur : ('self t, focusEvent t) event_listener prop

  method onfocus : ('self t, focusEvent t) event_listener prop
end

class type buttonElement = object
  inherit submitterElement

  method form : formElement t opt readonly_prop

  method accessKey : js_string t prop

  method disabled : bool t prop

  method formAction : js_string t prop

  method formEnctype : js_string t prop

  method formMethod : js_string t prop

  method formNoValidate : bool t prop

  method formTarget : js_string t prop

  method name : js_string t readonly_prop

  method tabIndex : int prop

  method _type : js_string t readonly_prop

  method value : js_string t prop

  method popoverTargetElement : element t opt prop

  method popoverTargetAction : js_string t prop

  method labels : labelElement Dom.nodeList t opt readonly_prop

  method validity : validityState t readonly_prop

  method validationMessage : js_string t readonly_prop

  method willValidate : bool t readonly_prop

  method checkValidity : bool t meth

  method reportValidity : bool t meth

  method setCustomValidity : js_string t -> unit meth
end

class type fieldSetElement = object
  inherit element

  method form : formElement t opt readonly_prop

  method name : js_string t prop

  method disabled : bool t prop

  method _type : js_string t readonly_prop

  method elements : element collection t readonly_prop

  method validity : validityState t readonly_prop

  method validationMessage : js_string t readonly_prop

  method willValidate : bool t readonly_prop

  method checkValidity : bool t meth

  method reportValidity : bool t meth

  method setCustomValidity : js_string t -> unit meth
end

class type legendElement = object
  inherit element

  method form : formElement t opt readonly_prop

  method accessKey : js_string t prop
end

class type outputElement = object
  inherit element

  method form : formElement t opt readonly_prop

  method name : js_string t prop

  method _type : js_string t readonly_prop

  method defaultValue : js_string t prop

  method value : js_string t prop

  method htmlFor : tokenList t readonly_prop

  method labels : labelElement Dom.nodeList t opt readonly_prop

  method validity : validityState t readonly_prop

  method validationMessage : js_string t readonly_prop

  method willValidate : bool t readonly_prop

  method checkValidity : bool t meth

  method reportValidity : bool t meth

  method setCustomValidity : js_string t -> unit meth
end

class type progressElement = object
  inherit element

  method value : number_t prop

  method max : number_t prop

  method position : number_t readonly_prop

  method labels : labelElement Dom.nodeList t opt readonly_prop
end

class type meterElement = object
  inherit element

  method value : number_t prop

  method min : number_t prop

  method max : number_t prop

  method low : number_t prop

  method high : number_t prop

  method optimum : number_t prop

  method labels : labelElement Dom.nodeList t opt readonly_prop
end

class type templateElement = object
  inherit element

  method content : Dom.documentFragment t readonly_prop
end

class type slotElement = object
  inherit element

  method name : js_string t prop

  method assignedNodes : Dom.node t js_array t meth

  method assignedElements : element t js_array t meth
end

class type pictureElement = element

class type sourceElement = object
  inherit element

  method src : js_string t prop

  method _type : js_string t prop

  method srcset : js_string t prop

  method sizes : js_string t prop

  method media : js_string t prop

  method width : int prop

  method height : int prop
end

type trackReadyState =
  | TRACK_NONE
  | TRACK_LOADING
  | TRACK_LOADED
  | TRACK_ERROR

class type trackElement = object
  inherit element

  method kind : js_string t prop

  method src : js_string t prop

  method srclang : js_string t prop

  method label : js_string t prop

  method default : bool t prop

  method readyState_int : int readonly_prop

  method readyState : trackReadyState readonly_prop
end

class type timeElement = object
  inherit element

  method dateTime : js_string t prop
end

class type dataElement = object
  inherit element

  method value : js_string t prop
end

class type uListElement = element

class type oListElement = element

class type dListElement = element

class type liElement = element

class type dialogElement = object
  inherit element

  method close : unit meth

  method close_returnValue : js_string t -> unit meth

  method open_ : bool t prop

  method returnValue : js_string t prop

  method show : unit meth

  method showModal : unit meth

  method oncancel : ('self t, event t) event_listener prop

  method onclose : ('self t, event t) event_listener prop
end

class type divElement = element

class type paragraphElement = element

class type headingElement = element

class type quoteElement = object
  inherit element

  method cite : js_string t prop
end

class type preElement = element

class type brElement = element

class type hrElement = element

class type modElement = object
  inherit element

  method cite : js_string t prop

  method dateTime : js_string t prop
end

class type anchorElement = object
  inherit element

  method accessKey : js_string t prop

  method charset : js_string t prop

  method coords : js_string t prop

  method download : js_string t prop

  method href : js_string t prop

  method hreflang : js_string t prop

  method name : js_string t prop

  method ping : js_string t prop

  method referrerPolicy : js_string t prop

  method rel : js_string t prop

  method relList : tokenList t readonly_prop

  method rev : js_string t prop

  method shape : js_string t prop

  method tabIndex : int prop

  method target : js_string t prop

  method text : js_string t prop

  method _type : js_string t prop
end

class type detailsElement = object ('self)
  inherit element

  method open_ : bool t prop

  method name : js_string t prop
end

class type imageElement = object ('self)
  inherit element

  method alt : js_string t prop

  method src : js_string t prop

  method srcset : js_string t prop

  method sizes : js_string t prop

  method currentSrc : js_string t readonly_prop

  method crossOrigin : js_string t opt prop

  method decoding : js_string t prop

  method loading : js_string t prop

  method referrerPolicy : js_string t prop

  method useMap : js_string t prop

  method isMap : bool t prop

  method width : int prop

  method height : int prop

  (* Properties naturalWidth/Height not available in all browsers. *)
  method naturalWidth : int readonly_prop

  method naturalHeight : int readonly_prop

  method complete : bool t prop

  method decode : unit Promise.t meth

  method onload : ('self t, event t) event_listener prop

  method onerror : ('self t, event t) event_listener prop

  method onabort : ('self t, event t) event_listener prop
end

class type objectElement = object
  inherit element

  method form : formElement t opt readonly_prop

  method code : js_string t prop

  method archive : js_string t prop

  method codeBase : js_string t prop

  method codeType : js_string t prop

  method data : js_string t prop

  method declare : bool t prop

  method height : js_string t prop

  method name : js_string t prop

  method standby : js_string t prop

  method tabIndex : int prop

  method _type : js_string t prop

  method useMap : js_string t prop

  method width : js_string t prop

  method document : Dom.element Dom.document t opt readonly_prop
end

class type paramElement = object
  inherit element

  method name : js_string t prop

  method _type : js_string t prop

  method value : js_string t prop

  method valueType : js_string t prop
end

class type areaElement = object
  inherit element

  method accessKey : js_string t prop

  method alt : js_string t prop

  method coords : js_string t prop

  method href : js_string t prop

  method noHref : bool t prop

  method shape : js_string t prop

  method tabIndex : int prop

  method target : js_string t prop
end

class type mapElement = object
  inherit element

  method areas : areaElement collection t readonly_prop

  method name : js_string t prop
end

class type scriptElement = object
  inherit element

  method text : js_string t prop

  method charset : js_string t prop

  method crossOrigin : js_string t opt prop

  method defer : bool t prop

  method integrity : js_string t prop

  method noModule : bool t prop

  method referrerPolicy : js_string t prop

  method src : js_string t prop

  method _type : js_string t prop

  method async : bool t prop
end

class type embedElement = object
  inherit element

  method src : js_string t prop

  method height : js_string t prop

  method width : js_string t prop

  method _type : js_string t prop
end

class type tableCellElement = object
  inherit element

  method cellIndex : int readonly_prop

  method abbr : js_string t prop

  method align : js_string t prop

  method axis : js_string t prop

  method ch : js_string t prop

  method chOff : js_string t prop

  method colSpan : int prop

  method headers : js_string t prop

  method rowSpan : int prop

  method scope : js_string t prop

  method vAlign : js_string t prop
end

class type tableRowElement = object
  inherit element

  method rowIndex : int readonly_prop

  method sectionRowIndex : int readonly_prop

  method cells : tableCellElement collection t readonly_prop

  method align : js_string t prop

  method ch : js_string t prop

  method chOff : js_string t prop

  method vAlign : js_string t prop

  method insertCell : int -> tableCellElement t meth

  method deleteCell : int -> unit meth
end

class type tableColElement = object
  inherit element

  method align : js_string t prop

  method ch : js_string t prop

  method chOff : js_string t prop

  method span : int prop

  method vAlign : js_string t prop

  method width : js_string t prop
end

class type tableSectionElement = object
  inherit element

  method align : js_string t prop

  method ch : js_string t prop

  method chOff : js_string t prop

  method vAlign : js_string t prop

  method rows : tableRowElement collection t readonly_prop

  method insertRow : int -> tableRowElement t meth

  method deleteRow : int -> unit meth
end

class type tableCaptionElement = element

class type tableElement = object
  inherit element

  method caption : tableCaptionElement t prop

  method tHead : tableSectionElement t prop

  method tFoot : tableSectionElement t prop

  method rows : tableRowElement collection t readonly_prop

  method tBodies : tableSectionElement collection t readonly_prop

  method align : js_string t prop

  method border : js_string t prop

  method cellPadding : js_string t prop
  (** @deprecated Use CSS instead. *)

  method cellSpacing : js_string t prop
  (** @deprecated Use CSS instead. *)

  method frame : js_string t prop
  (** @deprecated Use CSS instead. *)

  method rules : js_string t prop
  (** @deprecated Use CSS instead. *)

  method summary : js_string t prop
  (** @deprecated Use CSS instead. *)

  method width : js_string t prop

  method createTHead : tableSectionElement t meth

  method deleteTHead : unit meth

  method createTFoot : tableSectionElement t meth

  method deleteTFoot : unit meth

  method createCaption : tableCaptionElement t meth

  method deleteCaption : unit meth

  method insertRow : int -> tableRowElement t meth

  method deleteRow : int -> unit meth
end

class type timeRanges = object
  method length : int readonly_prop

  method start : int -> number_t meth

  method end_ : int -> number_t meth
end

type networkState =
  | NETWORK_EMPTY
  | NETWORK_IDLE
  | NETWORK_LOADING
  | NETWORK_NO_SOURCE

type readyState =
  | HAVE_NOTHING
  | HAVE_METADATA
  | HAVE_CURRENT_DATA
  | HAVE_FUTURE_DATA
  | HAVE_ENOUGH_DATA

class type mediaElement = object
  inherit element

  method canPlayType : js_string t -> js_string t meth

  method load : unit meth

  method play : unit Promise.t meth

  method pause : unit meth

  method autoplay : bool t prop

  method buffered : timeRanges t readonly_prop

  method controls : bool t prop

  method currentSrc : js_string t readonly_prop

  method currentTime : number_t prop

  method duration : number_t readonly_prop

  method ended : bool t readonly_prop

  method loop : bool t prop

  method mediagroup : js_string t prop

  method muted : bool t prop

  method networkState_int : int readonly_prop

  method networkState : networkState readonly_prop

  method paused : bool t readonly_prop

  method playbackRate : number_t prop

  method played : timeRanges t readonly_prop

  method preload : js_string t prop

  method readyState_int : int readonly_prop

  method readyState : readyState readonly_prop

  method seekable : timeRanges t readonly_prop

  method seeking : bool t readonly_prop

  method src : js_string t prop

  method volume : number_t prop

  method oncanplay : ('self t, mediaEvent t) event_listener writeonly_prop

  method oncanplaythrough : ('self t, mediaEvent t) event_listener writeonly_prop

  method ondurationchange : ('self t, mediaEvent t) event_listener writeonly_prop

  method onemptied : ('self t, mediaEvent t) event_listener writeonly_prop

  method onended : ('self t, mediaEvent t) event_listener writeonly_prop

  method onloadeddata : ('self t, mediaEvent t) event_listener writeonly_prop

  method onloadedmetadata : ('self t, mediaEvent t) event_listener writeonly_prop

  method onloadstart : ('self t, mediaEvent t) event_listener writeonly_prop

  method onpause : ('self t, mediaEvent t) event_listener writeonly_prop

  method onplay : ('self t, mediaEvent t) event_listener writeonly_prop

  method onplaying : ('self t, mediaEvent t) event_listener writeonly_prop

  method onratechange : ('self t, mediaEvent t) event_listener writeonly_prop

  method onseeked : ('self t, mediaEvent t) event_listener writeonly_prop

  method onseeking : ('self t, mediaEvent t) event_listener writeonly_prop

  method onstalled : ('self t, mediaEvent t) event_listener writeonly_prop

  method onsuspend : ('self t, mediaEvent t) event_listener writeonly_prop

  method onvolumechange : ('self t, mediaEvent t) event_listener writeonly_prop

  method onwaiting : ('self t, mediaEvent t) event_listener writeonly_prop
end

class type audioElement = object
  inherit mediaElement
end

class type videoElement = object
  inherit mediaElement

  method width : int prop

  method height : int prop

  method videoWidth : int readonly_prop

  method videoHeight : int readonly_prop

  method poster : js_string t prop

  method playsInline : bool t prop
end

(** {2 Canvas object} *)

type context

val _2d_ : context

type canvasPattern

class type canvasElement = object
  inherit element

  method width : int prop

  method height : int prop

  method toDataURL : js_string t meth

  method toDataURL_type : js_string t -> js_string t meth

  method toDataURL_compression : js_string t -> number_t -> js_string t meth

  method getContext : context -> canvasRenderingContext2D t meth
end

and canvasRenderingContext2D = object
  method canvas : canvasElement t readonly_prop

  method save : unit meth

  method restore : unit meth

  method scale : number_t -> number_t -> unit meth

  method rotate : number_t -> unit meth

  method translate : number_t -> number_t -> unit meth

  method transform :
    number_t -> number_t -> number_t -> number_t -> number_t -> number_t -> unit meth

  method setTransform :
    number_t -> number_t -> number_t -> number_t -> number_t -> number_t -> unit meth

  method globalAlpha : number_t prop

  method globalCompositeOperation : js_string t prop

  method strokeStyle : js_string t writeonly_prop

  method strokeStyle_gradient : canvasGradient t writeonly_prop

  method strokeStyle_pattern : canvasPattern t writeonly_prop

  method fillStyle : js_string t writeonly_prop

  method fillStyle_gradient : canvasGradient t writeonly_prop

  method fillStyle_pattern : canvasPattern t writeonly_prop

  method createLinearGradient :
    number_t -> number_t -> number_t -> number_t -> canvasGradient t meth

  method createRadialGradient :
       number_t
    -> number_t
    -> number_t
    -> number_t
    -> number_t
    -> number_t
    -> canvasGradient t meth

  method createPattern : imageElement t -> js_string t -> canvasPattern t meth

  method createPattern_fromCanvas : canvasElement t -> js_string t -> canvasPattern t meth

  method createPattern_fromVideo : videoElement t -> js_string t -> canvasPattern t meth

  method lineWidth : number_t prop

  method lineCap : js_string t prop

  method lineJoin : js_string t prop

  method miterLimit : number_t prop

  method shadowOffsetX : number_t prop

  method shadowOffsetY : number_t prop

  method shadowBlur : number_t prop

  method shadowColor : js_string t prop

  method clearRect : number_t -> number_t -> number_t -> number_t -> unit meth

  method fillRect : number_t -> number_t -> number_t -> number_t -> unit meth

  method strokeRect : number_t -> number_t -> number_t -> number_t -> unit meth

  method beginPath : unit meth

  method closePath : unit meth

  method moveTo : number_t -> number_t -> unit meth

  method lineTo : number_t -> number_t -> unit meth

  method quadraticCurveTo : number_t -> number_t -> number_t -> number_t -> unit meth

  method bezierCurveTo :
    number_t -> number_t -> number_t -> number_t -> number_t -> number_t -> unit meth

  method arcTo : number_t -> number_t -> number_t -> number_t -> number_t -> unit meth

  method rect : number_t -> number_t -> number_t -> number_t -> unit meth

  method arc :
    number_t -> number_t -> number_t -> number_t -> number_t -> bool t -> unit meth

  method ellipse :
       number_t
    -> number_t
    -> number_t
    -> number_t
    -> number_t
    -> number_t
    -> number_t
    -> bool t
    -> unit meth

  method fill : unit meth

  method stroke : unit meth

  method clip : unit meth

  method isPointInPath : number_t -> number_t -> bool t meth

  method drawFocusRing : #element t -> number_t -> number_t -> bool t -> bool t meth

  method font : js_string t prop

  method textAlign : js_string t prop

  method textBaseline : js_string t prop

  method fillText : js_string t -> number_t -> number_t -> unit meth

  method fillText_withWidth : js_string t -> number_t -> number_t -> number_t -> unit meth

  method strokeText : js_string t -> number_t -> number_t -> unit meth

  method strokeText_withWidth :
    js_string t -> number_t -> number_t -> number_t -> unit meth

  method measureText : js_string t -> textMetrics t meth

  method drawImage : imageElement t -> number_t -> number_t -> unit meth

  method drawImage_withSize :
    imageElement t -> number_t -> number_t -> number_t -> number_t -> unit meth

  method drawImage_full :
       imageElement t
    -> number_t
    -> number_t
    -> number_t
    -> number_t
    -> number_t
    -> number_t
    -> number_t
    -> number_t
    -> unit meth

  method drawImage_fromCanvas : canvasElement t -> number_t -> number_t -> unit meth

  method drawImage_fromCanvasWithSize :
    canvasElement t -> number_t -> number_t -> number_t -> number_t -> unit meth

  method drawImage_fullFromCanvas :
       canvasElement t
    -> number_t
    -> number_t
    -> number_t
    -> number_t
    -> number_t
    -> number_t
    -> number_t
    -> number_t
    -> unit meth

  method drawImage_fromVideoWithVideo :
    videoElement t -> number_t -> number_t -> unit meth

  method drawImage_fromVideoWithSize :
    videoElement t -> number_t -> number_t -> number_t -> number_t -> unit meth

  method drawImage_fullFromVideo :
       videoElement t
    -> number_t
    -> number_t
    -> number_t
    -> number_t
    -> number_t
    -> number_t
    -> number_t
    -> number_t
    -> unit meth

  (* Method createImageData not available in Opera *)
  method createImageData : int -> int -> imageData t meth

  method getImageData : number_t -> number_t -> number_t -> number_t -> imageData t meth

  method putImageData : imageData t -> number_t -> number_t -> unit meth
end

and canvasGradient = object
  method addColorStop : number_t -> js_string t -> unit meth
end

and textMetrics = object
  method actualBoundingBoxAscent : number_t readonly_prop
  (** https://developer.mozilla.org/docs/Web/API/TextMetrics/actualBoundingBoxAscent *)

  method actualBoundingBoxDescent : number_t readonly_prop
  (** https://developer.mozilla.org/docs/Web/API/TextMetrics/actualBoundingBoxDescent *)

  method actualBoundingBoxLeft : number_t readonly_prop
  (** https://developer.mozilla.org/docs/Web/API/TextMetrics/actualBoundingBoxLeft *)

  method actualBoundingBoxRight : number_t readonly_prop
  (** https://developer.mozilla.org/docs/Web/API/TextMetrics/actualBoundingBoxRight *)

  method alphabeticBaseline : number_t readonly_prop
  (** https://developer.mozilla.org/docs/Web/API/TextMetrics/alphabeticBaseline *)

  method fontBoundingBoxAscent : number_t readonly_prop
  (** https://developer.mozilla.org/docs/Web/API/TextMetrics/fontBoundingBoxAscent *)

  method fontBoundingBoxDescent : number_t readonly_prop
  (** https://developer.mozilla.org/docs/Web/API/TextMetrics/fontBoundingBoxDescent *)

  method hangingBaseline : number_t readonly_prop
  (** https://developer.mozilla.org/docs/Web/API/TextMetrics/hangingBaseline *)

  method ideographicBaseline : number_t readonly_prop
  (** https://developer.mozilla.org/docs/Web/API/TextMetrics/ideographicBaseline *)

  method width : number_t readonly_prop
  (** https://developer.mozilla.org/docs/Web/API/TextMetrics/width *)
end

and imageData = object
  method width : int readonly_prop

  method height : int readonly_prop

  method data : canvasPixelArray t readonly_prop
end

and canvasPixelArray = object
  method length : int readonly_prop
end

external pixel_get : canvasPixelArray t -> int -> int = "caml_js_get"

external pixel_set : canvasPixelArray t -> int -> int -> unit = "caml_js_set"

type boundary_points_comparison =
  | Start_to_start
  | Start_to_end
  | End_to_end
  | End_to_start

(** Object representing a range **)
class type range = object
  method collapsed : bool t readonly_prop

  method startOffset : int readonly_prop

  method endOffset : int readonly_prop

  method startContainer : Dom.node t readonly_prop

  method endContainer : Dom.node t readonly_prop

  method commonAncestorContainer : Dom.node t readonly_prop

  method setStart : Dom.node t -> int -> unit meth

  method setEnd : Dom.node t -> int -> unit meth

  method setStartBefore : Dom.node t -> unit meth

  method setEndBefore : Dom.node t -> unit meth

  method setStartAfter : Dom.node t -> unit meth

  method setEndAfter : Dom.node t -> unit meth

  method selectNode : Dom.node t -> unit meth

  method selectNodeContents : Dom.node t -> unit meth

  method collapse : bool t -> unit meth

  method compareBoundaryPoints : boundary_points_comparison -> range t -> int meth

  method comparePoint : Dom.node t -> int -> int meth

  method isPointInRange : Dom.node t -> int -> bool t meth

  method intersectsNode : Dom.node t -> bool t meth

  method getBoundingClientRect : clientRect t meth

  method getClientRects : clientRectList t meth

  method cloneContents : Dom.documentFragment t meth

  method extractContents : Dom.documentFragment t meth

  method deleteContents : unit meth

  method insertNode : Dom.node t -> unit meth

  method surroundContents : Dom.node t -> unit meth

  method createContextualFragment : js_string t -> Dom.documentFragment t meth

  method cloneRange : range t meth

  method detach : unit meth

  method toString : js_string t meth
end

(** Information on current selection *)
class type selection = object
  method anchorNode : Dom.node t opt readonly_prop

  method anchorOffset : int readonly_prop

  method focusNode : Dom.node t opt readonly_prop

  method focusOffset : int readonly_prop

  method isCollapsed : bool t readonly_prop

  method rangeCount : int readonly_prop

  method _type : js_string t readonly_prop
  (** ["None"], ["Caret"] or ["Range"]. *)

  method getRangeAt : int -> range t meth

  method collapse : Dom.node t opt -> unit meth

  method collapse_offset : Dom.node t opt -> int -> unit meth

  method setPosition : Dom.node t opt -> unit meth

  method setPosition_offset : Dom.node t opt -> int -> unit meth

  method setBaseAndExtent : Dom.node t -> int -> Dom.node t -> int -> unit meth

  method extend : Dom.node t -> int -> unit meth

  method modify : js_string t -> js_string t -> js_string t -> unit meth

  method collapseToStart : unit meth

  method collapseToEnd : unit meth

  method selectAllChildren : Dom.node t -> unit meth

  method addRange : range t -> unit meth

  method removeRange : range t -> unit meth

  method removeAllRanges : unit meth

  method deleteFromDocument : unit meth

  method containsNode : Dom.node t -> bool t -> bool t meth

  method toString : js_string t meth
end

(** {2 Document objects} *)

class type document = object
  inherit [element] Dom.document

  inherit nodeSelector

  inherit eventTarget

  method title : js_string t prop

  method referrer : js_string t readonly_prop

  method domain : js_string t prop

  method _URL : js_string t readonly_prop

  method lastModified : js_string t readonly_prop

  method head : headElement t prop

  method body : bodyElement t prop

  method documentElement : htmlElement t readonly_prop

  method currentScript : element t opt readonly_prop

  method scrollingElement : element t opt readonly_prop

  method images : imageElement collection t readonly_prop

  method applets : element collection t readonly_prop

  method links : element collection t readonly_prop

  method forms : formElement collection t readonly_prop

  method anchors : element collection t readonly_prop

  method embeds : embedElement collection t readonly_prop

  method plugins : element collection t readonly_prop

  method scripts : scriptElement collection t readonly_prop

  method cookie : js_string t prop

  method designMode : js_string t prop

  method open_ : unit meth

  method close : unit meth

  method write : js_string t -> unit meth

  method execCommand : js_string t -> bool t -> js_string t opt -> unit meth

  method createRange : range t meth

  method readyState : js_string t readonly_prop

  method getElementsByClassName : js_string t -> element Dom.collection t meth

  method getElementsByName : js_string t -> element Dom.nodeList t meth

  method activeElement : element t opt readonly_prop

  method hidden : bool t readonly_prop

  method visibilityState : js_string t readonly_prop

  method fullscreenElement : element t opt readonly_prop

  method fullscreenEnabled : bool t readonly_prop

  method pointerLockElement : element t opt readonly_prop

  method hasFocus : bool t meth

  method elementFromPoint : number_t -> number_t -> element t opt meth

  method elementsFromPoint : number_t -> number_t -> element t js_array t meth

  method getSelection : selection t opt meth

  method getAnimations : animation t js_array t meth

  method timeline : documentTimeline t readonly_prop

  method exitFullscreen : unit Promise.t meth

  method exitPointerLock : unit meth

  method onreadystatechange : (document t, event t) event_listener writeonly_prop

  method onvisibilitychange : (document t, event t) event_listener writeonly_prop

  method onfullscreenchange : (document t, event t) event_listener writeonly_prop

  method onfullscreenerror : (document t, event t) event_listener writeonly_prop

  method onpointerlockchange : (document t, event t) event_listener writeonly_prop

  method onpointerlockerror : (document t, event t) event_listener writeonly_prop

  method onwebkitfullscreenchange : (document t, event t) event_listener writeonly_prop

  inherit eventTarget
end

val document : document t
(** The current document *)

val getElementById_opt : string -> element Js.t option
(** [getElementById_opt id] returns the element with the id [id] in the
    current document. It returns [None] if there are no such element *)

val getElementById_exn : string -> element Js.t
(** [getElementById_exn id] returns the element with the id [id] in the
    current document. It raises if there are no such element *)

val getElementById_coerce : string -> (element t -> 'a opt) -> 'a option
(** [getElementById_coerce id coerce] returns the element with the id [id] in the
    current document and attempt to coerce it using the provided [coerce] function.
    It returns [None] if there are no such element or if the [coerce] function
    returns [Js.none].
    Typical usage is the following:
    {[
      match Dom_html.getElementById_coerce "myinput" Dom_html.CoerceTo.input with
      | None -> ..
      | Some input -> ..
    ]}
*)

val getElementById : string -> element Js.t
(** [getElementById id] returns the element with the id [id] in the
    current document. It raises [Not_found] if there are no such element *)

(** {2 Window objects} *)

(** Location information *)
class type location = object
  method href : js_string t prop

  method protocol : js_string t prop

  method host : js_string t prop

  method hostname : js_string t prop

  method origin : js_string t readonly_prop

  method port : js_string t prop

  method pathname : js_string t prop

  method search : js_string t prop

  method hash : js_string t prop

  method assign : js_string t -> unit meth

  method replace : js_string t -> unit meth

  method reload : unit meth
end

val location_origin : location t -> js_string t

(** Browser history information *)
class type history = object
  method length : int readonly_prop

  method state : Js.Unsafe.any readonly_prop

  method go : int opt -> unit meth

  method back : unit meth

  method forward : unit meth

  method pushState : 'a. 'a -> js_string t -> js_string t opt -> unit meth

  method replaceState : 'a. 'a -> js_string t -> js_string t opt -> unit meth
end

class type undoManager = object end
(** Undo manager *)

(** Navigator information *)
class type navigator = object
  method appCodeName : js_string t readonly_prop

  method appName : js_string t readonly_prop

  method appVersion : js_string t readonly_prop

  method cookieEnabled : bool t readonly_prop

  method onLine : bool t readonly_prop

  method platform : js_string t readonly_prop

  method vendor : js_string t readonly_prop

  method userAgent : js_string t readonly_prop

  method language : js_string t opt readonly_prop

  method maxTouchPoints : int readonly_prop

  (* Deprecated *)
  method userLanguage : js_string t optdef readonly_prop
end

class type screen = object
  method width : int readonly_prop

  method height : int readonly_prop

  method availWidth : int readonly_prop

  method availHeight : int readonly_prop
end

class type applicationCache = object
  method status : int readonly_prop

  method update : unit meth

  method abort : unit meth

  method swapCache : unit meth

  method onchecking : (applicationCache t, event t) event_listener prop

  method onerror : (applicationCache t, event t) event_listener prop

  method onnoupdate : (applicationCache t, event t) event_listener prop

  method ondownloading : (applicationCache t, event t) event_listener prop

  method onprogress : (applicationCache t, event t) event_listener prop

  method onupdateready : (applicationCache t, event t) event_listener prop

  method oncached : (applicationCache t, event t) event_listener prop

  method onobsolete : (applicationCache t, event t) event_listener prop

  inherit eventTarget
end

type interval_id

type timeout_id

type animation_frame_request_id

class type _URL = object
  method createObjectURL : #File.blob t -> js_string t meth

  method revokeObjectURL : js_string t -> unit meth
end

class type mediaQueryList = object
  method media : js_string t prop

  method matches : bool t readonly_prop

  method onchange : (mediaQueryList t, mediaQueryListEvent t) event_listener prop

  inherit eventTarget
end

(** Options for [Window.postMessage]. *)
class type windowPostMessageOptions = object
  method targetOrigin : js_string t writeonly_prop

  method transfer : Unsafe.any js_array t writeonly_prop
end

(** Specification of window objects *)
class type window = object
  inherit eventTarget

  method document : document t readonly_prop

  method applicationCache : applicationCache t readonly_prop

  method name : js_string t prop

  method location : location t readonly_prop

  method history : history t readonly_prop

  method undoManager : undoManager t readonly_prop

  method navigator : navigator t readonly_prop

  method getSelection : selection t meth

  method close : unit meth

  method closed : bool t readonly_prop

  method stop : unit meth

  method focus : unit meth

  method blur : unit meth

  method scrollX : number_t readonly_prop

  method scrollY : number_t readonly_prop

  method pageXOffset : number_t readonly_prop

  method pageYOffset : number_t readonly_prop

  method scroll : number_t -> number_t -> unit meth

  method scroll_options : scrollToOptions t -> unit meth

  method scrollTo : number_t -> number_t -> unit meth

  method scrollTo_options : scrollToOptions t -> unit meth

  method scrollBy : number_t -> number_t -> unit meth

  method scrollBy_options : scrollToOptions t -> unit meth

  (* These two properties are not available on non-Web environments
     (for instance, Web workers, node). So we keep the [optdef]
     annotation for now. *)

  method sessionStorage : storage t optdef readonly_prop

  method localStorage : storage t optdef readonly_prop

  method top : window t readonly_prop

  method parent : window t readonly_prop

  method opener : window t opt prop

  method frameElement : element t opt readonly_prop

  method open_ : js_string t -> js_string t -> js_string t opt -> window t opt meth

  method postMessage : 'a. 'a -> unit meth
  (** [postMessage(message)] — [targetOrigin] defaults to ["/"] (same origin). *)

  method postMessage_targetOrigin : 'a. 'a -> js_string t -> unit meth
  (** [postMessage(message, targetOrigin)]. *)

  method postMessage_transfer : 'a 'b. 'a -> js_string t -> 'b js_array t -> unit meth
  (** [postMessage(message, targetOrigin, transfer)]. *)

  method postMessage_options : 'a. 'a -> windowPostMessageOptions t -> unit meth
  (** [postMessage(message, options)]. *)

  method alert : js_string t -> unit meth

  method confirm : js_string t -> bool t meth

  method prompt : js_string t -> js_string t -> js_string t opt meth

  method print : unit meth

  method setInterval : (unit -> unit) Js.callback -> number_t -> interval_id meth

  method clearInterval : interval_id -> unit meth

  method setTimeout : (unit -> unit) Js.callback -> number_t -> timeout_id meth

  method clearTimeout : timeout_id -> unit meth

  method requestAnimationFrame :
    (number_t -> unit) Js.callback -> animation_frame_request_id meth

  method cancelAnimationFrame : animation_frame_request_id -> unit meth

  method screen : screen t readonly_prop

  method innerWidth : int readonly_prop

  method innerHeight : int readonly_prop

  method outerWidth : int readonly_prop

  method outerHeight : int readonly_prop

  method getComputedStyle : #element t -> cssStyleDeclaration t meth

  method getComputedStyle_pseudoElt :
    #element t -> js_string t -> cssStyleDeclaration t meth

  method atob : js_string t -> js_string t meth

  method btoa : js_string t -> js_string t meth

  method onload : (window t, event t) event_listener prop

  method onunload : (window t, event t) event_listener prop

  method onbeforeunload : (window t, beforeUnloadEvent t) event_listener prop

  method onblur : (window t, focusEvent t) event_listener prop

  method onfocus : (window t, focusEvent t) event_listener prop

  method onresize : (window t, event t) event_listener prop

  method onorientationchange : (window t, event t) event_listener prop

  method onpopstate : (window t, popStateEvent t) event_listener prop

  method onhashchange : (window t, hashChangeEvent t) event_listener prop

  method ononline : (window t, event t) event_listener writeonly_prop

  method onoffline : (window t, event t) event_listener writeonly_prop

  method _URL : _URL t readonly_prop

  method devicePixelRatio : number_t readonly_prop

  method matchMedia : js_string t -> mediaQueryList t meth
end

val window : window t
(** The current window *)

(* {2 Frames } *)

class type frameSetElement = object
  inherit element

  method cols : js_string t prop

  method rows : js_string t prop
end

class type frameElement = object
  inherit element

  method frameBorder : js_string t prop

  method longDesc : js_string t prop

  method marginHeight : js_string t prop

  method marginWidth : js_string t prop

  method name : js_string t prop

  method noResize : bool t prop

  method scrolling : js_string t prop

  method src : js_string t prop

  method contentDocument : document t opt readonly_prop
end

class type iFrameElement = object
  inherit element

  method allow : js_string t prop

  method allowFullscreen : bool t prop

  method frameBorder : js_string t prop

  method height : js_string t prop

  method width : js_string t prop

  method loading : js_string t prop

  method longDesc : js_string t prop

  method marginHeight : js_string t prop

  method marginWidth : js_string t prop

  method name : js_string t prop

  method referrerPolicy : js_string t prop

  method sandbox : tokenList t readonly_prop

  method scrolling : js_string t prop

  method src : js_string t prop

  method srcdoc : js_string t prop

  method contentDocument : document t opt readonly_prop

  method contentWindow : window t opt readonly_prop
end

(****)

(** {2 Event handlers} *)

val no_handler : ('a, 'b) event_listener
(** see [Dom.no_handler] *)

val handler : ((#event t as 'b) -> bool t) -> ('a, 'b) event_listener
(** see [Dom.handler] *)

val full_handler : ('a -> (#event t as 'b) -> bool t) -> ('a, 'b) event_listener
(** see [Dom.full_handler] *)

val listener : ((#event t as 'b) -> unit) -> ('a, 'b) event_listener
(** see [Dom.listener] *)

val full_listener : ('a -> (#event t as 'b) -> unit) -> ('a, 'b) event_listener
(** see [Dom.full_listener] *)

val invoke_handler : ('a, 'b) event_listener -> 'a -> 'b -> bool t
(** see [Dom.invoke_handler] *)

val eventTarget : #event t -> element t
(** see [Dom.eventTarget] *)

val eventRelatedTarget : #mouseEvent t -> element t opt
(** Returns this event related target. *)

(** Event types: [mousedown], [keypress], ... *)
module Event : sig
  type 'a typ = 'a Dom.Event.typ

  val cancel : event t typ

  val click : mouseEvent t typ

  val close : event t typ

  val copy : clipboardEvent t typ

  val cut : clipboardEvent t typ

  val paste : clipboardEvent t typ

  val dblclick : mouseEvent t typ

  val mousedown : mouseEvent t typ

  val mouseup : mouseEvent t typ

  val mouseover : mouseEvent t typ

  val mousemove : mouseEvent t typ

  val mouseout : mouseEvent t typ

  val keypress : keyboardEvent t typ

  val keydown : keyboardEvent t typ

  val keyup : keyboardEvent t typ

  val mousewheel : mousewheelEvent t typ

  val wheel : wheelEvent t typ

  val touchstart : touchEvent t typ

  val touchmove : touchEvent t typ

  val touchend : touchEvent t typ

  val touchcancel : touchEvent t typ

  val dragstart : dragEvent t typ

  val dragend : dragEvent t typ

  val dragenter : dragEvent t typ

  val dragover : dragEvent t typ

  val dragleave : dragEvent t typ

  val drag : dragEvent t typ

  val drop : dragEvent t typ

  val hashchange : hashChangeEvent t typ

  val change : event t typ

  val input : event t typ

  val timeupdate : event t typ

  val submit : submitEvent t typ

  val scroll : event t typ

  val focus : focusEvent t typ

  val blur : focusEvent t typ

  val load : event t typ

  val unload : event t typ

  val beforeunload : beforeUnloadEvent t typ

  val resize : event t typ

  val orientationchange : event t typ

  val popstate : popStateEvent t typ

  val error : event t typ

  val abort : event t typ

  val select : event t typ

  val online : event t typ

  val offline : event t typ

  val checking : event t typ

  val noupdate : event t typ

  val downloading : event t typ

  val progress : event t typ

  val updateready : event t typ

  val cached : event t typ

  val obsolete : event t typ

  val domContentLoaded : event t typ

  val animationstart : animationEvent t typ

  val animationend : animationEvent t typ

  val animationiteration : animationEvent t typ

  val animationcancel : animationEvent t typ

  val transitionrun : transitionEvent t typ

  val transitionstart : transitionEvent t typ

  val transitionend : transitionEvent t typ

  val transitioncancel : transitionEvent t typ

  val canplay : mediaEvent t typ

  val canplaythrough : mediaEvent t typ

  val durationchange : mediaEvent t typ

  val emptied : mediaEvent t typ

  val ended : mediaEvent t typ

  val gotpointercapture : pointerEvent t typ

  val loadeddata : mediaEvent t typ

  val loadedmetadata : mediaEvent t typ

  val loadstart : mediaEvent t typ

  val lostpointercapture : pointerEvent t typ

  val message : messageEvent t typ

  val pause : mediaEvent t typ

  val play : mediaEvent t typ

  val playing : mediaEvent t typ

  val pointerenter : pointerEvent t typ

  val pointercancel : pointerEvent t typ

  val pointerdown : pointerEvent t typ

  val pointerleave : pointerEvent t typ

  val pointermove : pointerEvent t typ

  val pointerout : pointerEvent t typ

  val pointerover : pointerEvent t typ

  val pointerup : pointerEvent t typ

  val ratechange : mediaEvent t typ

  val seeked : mediaEvent t typ

  val seeking : mediaEvent t typ

  val stalled : mediaEvent t typ

  val suspend : mediaEvent t typ

  val volumechange : mediaEvent t typ

  val waiting : mediaEvent t typ

  val beforetoggle : toggleEvent t typ

  val toggle : toggleEvent t typ

  val compositionstart : compositionEvent t typ

  val compositionupdate : compositionEvent t typ

  val compositionend : compositionEvent t typ

  val pageshow : pageTransitionEvent t typ

  val pagehide : pageTransitionEvent t typ

  val loadend : progressEvent t typ

  val make : string -> 'a typ
end

type event_listener_id = Dom.event_listener_id

val addEventListenerWithOptions :
     (#eventTarget t as 'a)
  -> 'b Event.typ
  -> ?capture:bool t
  -> ?once:bool t
  -> ?passive:bool t
  -> ('a, 'b) event_listener
  -> event_listener_id
(** Add an event listener.  This function matches the
      option-object variant of the [addEventListener] DOM method,
      except that it returns an id for removing the listener. *)

val addEventListener :
     (#eventTarget t as 'a)
  -> 'b Event.typ
  -> ('a, 'b) event_listener
  -> bool t
  -> event_listener_id
(** Add an event listener.  This function matches the
      useCapture boolean variant of the [addEventListener] DOM method,
      except that it returns an id for removing the listener. *)

val removeEventListener : event_listener_id -> unit
(** Remove the given event listener. *)

val addMousewheelEventListenerWithOptions :
     #eventTarget t
  -> ?capture:bool t
  -> ?once:bool t
  -> ?passive:bool t
  -> (mouseEvent t -> dx:int -> dy:int -> bool t)
  -> event_listener_id
(** Add a wheel event listener with option-object variant of the
      [addEventListener] DOM method.  The callback is provided the
      event and the numbers of ticks the mouse wheel moved.  Positive
      means down / right. *)

val addMousewheelEventListener :
     #eventTarget t
  -> (mouseEvent t -> dx:int -> dy:int -> bool t)
  -> bool t
  -> event_listener_id
(** Add a wheel event listener with the useCapture boolean variant
      of the [addEventListener] DOM method.  The callback is provided the
      event and the numbers of ticks the mouse wheel moved.  Positive
      means down / right. *)

val createCustomEvent :
     ?bubbles:bool
  -> ?cancelable:bool
  -> ?detail:'a
  -> 'a #customEvent Js.t Event.typ
  -> 'a customEvent Js.t
(** See [Dom.createCustomEvent] *)

(****)

(** {2 Mouse event helper functions} *)

val buttonPressed : #mouseEvent Js.t -> mouse_button

(** {2 Position helper functions} *)

val eventAbsolutePosition : #mouseEvent t -> float * float
(** Returns the absolute position of the mouse pointer. *)

val elementClientPosition : #element t -> int * int
(** Position of an element relative to the viewport *)

val getDocumentScroll : unit -> float * float
(** Viewport top/left position *)

(** {2 Key event helper functions} *)

(** Use [Keyboard_code] when you want to identify a key that the user pressed. This should
    be invoked for keydown and keyup events, not keypress events.

    If the browser supports the standardized [key] and [code] properties, then [of_event]
    on a keypress event will have the correct behavior. Otherwise, it might not identify
    or might mis-identify which key was pressed. This occurs because the keypress event is
    designed for printable characters while keydown and keyup are designed for physical
    keys. Thus, the older properties of [keyEvent] change behavior between keydown and
    keypress events. This change in behavior is what causes the mapping to be incorrect.
*)
module Keyboard_code : sig
  type t =
    | Unidentified
    (* Alphabetic Characters *)
    | KeyA
    | KeyB
    | KeyC
    | KeyD
    | KeyE
    | KeyF
    | KeyG
    | KeyH
    | KeyI
    | KeyJ
    | KeyK
    | KeyL
    | KeyM
    | KeyN
    | KeyO
    | KeyP
    | KeyQ
    | KeyR
    | KeyS
    | KeyT
    | KeyU
    | KeyV
    | KeyW
    | KeyX
    | KeyY
    | KeyZ
    (* Digits *)
    | Digit0
    | Digit1
    | Digit2
    | Digit3
    | Digit4
    | Digit5
    | Digit6
    | Digit7
    | Digit8
    | Digit9
    | Minus
    | Equal
    (* Whitespace *)
    | Tab
    | Enter
    | Space
    (* Editing *)
    | Escape
    | Backspace
    | Insert
    | Delete
    | CapsLock
    (* Misc Printable *)
    | BracketLeft
    | BracketRight
    | Semicolon
    | Quote
    | Backquote
    | Backslash
    | Comma
    | Period
    | Slash
    (* Function keys *)
    | F1
    | F2
    | F3
    | F4
    | F5
    | F6
    | F7
    | F8
    | F9
    | F10
    | F11
    | F12
    (* Numpad keys *)
    | Numpad0
    | Numpad1
    | Numpad2
    | Numpad3
    | Numpad4
    | Numpad5
    | Numpad6
    | Numpad7
    | Numpad8
    | Numpad9
    | NumpadMultiply
    | NumpadSubtract
    | NumpadAdd
    | NumpadDecimal
    | NumpadEqual
    | NumpadEnter
    | NumpadDivide
    | NumLock
    (* Modifier keys *)
    | ControlLeft
    | ControlRight
    | MetaLeft
    | MetaRight
    | ShiftLeft
    | ShiftRight
    | AltLeft
    | AltRight
    (* Arrow keys *)
    | ArrowLeft
    | ArrowRight
    | ArrowUp
    | ArrowDown
    (* Navigation *)
    | PageUp
    | PageDown
    | Home
    | End
    (* Sound *)
    | VolumeMute
    | VolumeDown
    | VolumeUp
    (* Media *)
    | MediaTrackPrevious
    | MediaTrackNext
    | MediaPlayPause
    | MediaStop
    (* Browser special *)
    | ContextMenu
    | BrowserSearch
    | BrowserHome
    | BrowserFavorites
    | BrowserRefresh
    | BrowserStop
    | BrowserForward
    | BrowserBack
    (* Misc *)
    | OSLeft
    | OSRight
    | ScrollLock
    | PrintScreen
    | IntlBackslash
    | IntlYen
    | Pause

  val of_event : keyboardEvent Js.t -> t

  val of_key_code : int -> t
end

(** Use [Keyboard_key] when you want to identify the character that the user typed. This
   should only be invoked on keypress events, not keydown or keyup events. *)
module Keyboard_key : sig
  type t = Uchar.t option

  val of_event : keyboardEvent Js.t -> t
end

(****)

(** {2 Helper functions for creating HTML elements} *)

val createHtml : document t -> htmlElement t

val createHead : document t -> headElement t

val createLink : document t -> linkElement t

val createTitle : document t -> titleElement t

val createMeta : document t -> metaElement t

val createBase : document t -> baseElement t

val createStyle : document t -> styleElement t

val createBody : document t -> bodyElement t

val createForm : document t -> formElement t

val createOptgroup : document t -> optGroupElement t

val createOption : document t -> optionElement t

val createSelect :
  ?_type:js_string t -> ?name:js_string t -> document t -> selectElement t

val createInput : ?_type:js_string t -> ?name:js_string t -> document t -> inputElement t

val createTextarea :
  ?_type:js_string t -> ?name:js_string t -> document t -> textAreaElement t

val createButton :
  ?_type:js_string t -> ?name:js_string t -> document t -> buttonElement t

val createLabel : document t -> labelElement t

val createFieldset : document t -> fieldSetElement t

val createLegend : document t -> legendElement t

val createUl : document t -> uListElement t

val createOl : document t -> oListElement t

val createDl : document t -> dListElement t

val createLi : document t -> liElement t

val createDialog : document t -> dialogElement t

val createDiv : document t -> divElement t

val createEmbed : document t -> embedElement t

val createP : document t -> paragraphElement t

val createH1 : document t -> headingElement t

val createH2 : document t -> headingElement t

val createH3 : document t -> headingElement t

val createH4 : document t -> headingElement t

val createH5 : document t -> headingElement t

val createH6 : document t -> headingElement t

val createQ : document t -> quoteElement t

val createBlockquote : document t -> quoteElement t

val createPre : document t -> preElement t

val createBr : document t -> brElement t

val createHr : document t -> hrElement t

val createIns : document t -> modElement t

val createDel : document t -> modElement t

val createA : document t -> anchorElement t

val createImg : document t -> imageElement t

val createObject : document t -> objectElement t

val createParam : document t -> paramElement t

val createMap : document t -> mapElement t

val createArea : document t -> areaElement t

val createScript : document t -> scriptElement t

val createTable : document t -> tableElement t

val createCaption : document t -> tableCaptionElement t

val createCol : document t -> tableColElement t

val createColgroup : document t -> tableColElement t

val createThead : document t -> tableSectionElement t

val createTfoot : document t -> tableSectionElement t

val createTbody : document t -> tableSectionElement t

val createTr : document t -> tableRowElement t

val createTh : document t -> tableCellElement t

val createTd : document t -> tableCellElement t

val createSub : document t -> element t

val createSup : document t -> element t

val createSpan : document t -> element t

val createTt : document t -> element t

val createI : document t -> element t

val createB : document t -> element t

val createBig : document t -> element t

val createSmall : document t -> element t

val createEm : document t -> element t

val createStrong : document t -> element t

val createCite : document t -> element t

val createDfn : document t -> element t

val createCode : document t -> element t

val createSamp : document t -> element t

val createKbd : document t -> element t

val createVar : document t -> element t

val createAbbr : document t -> element t

val createDd : document t -> element t

val createDt : document t -> element t

val createNoscript : document t -> element t

val createAddress : document t -> element t

val createFrameset : document t -> frameSetElement t

val createFrame : document t -> frameElement t

val createIframe : document t -> iFrameElement t

val createAudio : document t -> audioElement t

val createVideo : document t -> videoElement t

val createOutput : document t -> outputElement t

val createProgress : document t -> progressElement t

val createMeter : document t -> meterElement t

val createDatalist : document t -> dataListElement t

val createTemplate : document t -> templateElement t

val createSlot : document t -> slotElement t

val createPicture : document t -> pictureElement t

val createSource : document t -> sourceElement t

val createTrack : document t -> trackElement t

val createTime : document t -> timeElement t

val createData : document t -> dataElement t

exception Canvas_not_available

val createCanvas : document t -> canvasElement t
(** @raise Canvas_not_available when canvas elements are not
      supported by the browser. *)

(****)

(** {2 Coercion functions} *)

val element : #Dom.element t -> element t
(** Coercion from a general DOM element to an HTML element.
      (Unsafe in general.) *)

type taggedElement =
  | A of anchorElement t
  | Area of areaElement t
  | Audio of audioElement t
  | Base of baseElement t
  | Blockquote of quoteElement t
  | Body of bodyElement t
  | Br of brElement t
  | Button of buttonElement t
  | Canvas of canvasElement t
  | Caption of tableCaptionElement t
  | Col of tableColElement t
  | Colgroup of tableColElement t
  | Del of modElement t
  | Dialog of dialogElement t
  | Div of divElement t
  | Dl of dListElement t
  | Embed of embedElement t
  | Fieldset of fieldSetElement t
  | Form of formElement t
  | Frameset of frameSetElement t
  | Frame of frameElement t
  | H1 of headingElement t
  | H2 of headingElement t
  | H3 of headingElement t
  | H4 of headingElement t
  | H5 of headingElement t
  | H6 of headingElement t
  | Head of headElement t
  | Hr of hrElement t
  | Html of htmlElement t
  | Iframe of iFrameElement t
  | Img of imageElement t
  | Input of inputElement t
  | Ins of modElement t
  | Label of labelElement t
  | Legend of legendElement t
  | Li of liElement t
  | Link of linkElement t
  | Map of mapElement t
  | Meta of metaElement t
  | Object of objectElement t
  | Ol of oListElement t
  | Optgroup of optGroupElement t
  | Option of optionElement t
  | P of paragraphElement t
  | Param of paramElement t
  | Pre of preElement t
  | Q of quoteElement t
  | Script of scriptElement t
  | Select of selectElement t
  | Style of styleElement t
  | Table of tableElement t
  | Tbody of tableSectionElement t
  | Td of tableCellElement t
  | Textarea of textAreaElement t
  | Tfoot of tableSectionElement t
  | Th of tableCellElement t
  | Thead of tableSectionElement t
  | Title of titleElement t
  | Tr of tableRowElement t
  | Ul of uListElement t
  | Video of videoElement t
  | Other of element t

val tagged : #element t -> taggedElement

val opt_tagged : #element t opt -> taggedElement option

type taggedEvent =
  | MouseEvent of mouseEvent t
  | KeyboardEvent of keyboardEvent t
  | MessageEvent of messageEvent t
  | MousewheelEvent of mousewheelEvent t
  | PopStateEvent of popStateEvent t
  | OtherEvent of event t

val taggedEvent : #event t -> taggedEvent

val opt_taggedEvent : #event t opt -> taggedEvent option

val stopPropagation : #event t -> unit

(** Typed access to {!domStringMap} (the type of [Element.dataset]). *)
module DomStringMap : sig
  val get : domStringMap t -> js_string t -> js_string t optdef
  (** [get m k] is the value stored under key [k], or [undefined] if absent. *)

  val set : domStringMap t -> js_string t -> js_string t -> unit
  (** [set m k v] sets [k] to [v]. *)

  val remove : domStringMap t -> js_string t -> unit
  (** [remove m k] deletes the [k] entry. *)
end

val attachShadow :
  ?delegatesFocus:bool t -> mode:js_string t -> #element t -> shadowRoot t
(** Wrapper for [Element.attachShadow(init)] taking labeled arguments. *)

val scrollIntoView :
  ?behavior:js_string t -> ?block:js_string t -> ?inline:js_string t -> #element t -> unit
(** Wrapper for [Element.scrollIntoView(options)] taking labeled arguments. *)

val focus : ?preventScroll:bool t -> #element t -> unit
(** Wrapper for [HTMLElement.focus(options)] taking labeled arguments. *)

val showPopover : ?source:#element t -> #element t -> unit
(** Wrapper for [Element.showPopover(options)] taking labeled arguments. *)

val hidePopover : #element t -> unit
(** Wrapper for [Element.hidePopover()]. *)

val togglePopover : ?force:bool t -> ?source:#element t -> #element t -> bool t
(** Wrapper for [Element.togglePopover(options)] taking labeled arguments.
    Returns the new open state. *)

val postMessage :
  ?transfer:Unsafe.any js_array t -> ?targetOrigin:js_string t -> window t -> 'a -> unit
(** Wrapper for [window.postMessage(message, options)] taking labeled
    arguments. When [~targetOrigin] is omitted, the JavaScript default
    of ["/"] (same origin) applies. *)

val makeScrollToOptions :
  ?top:number_t -> ?left:number_t -> ?behavior:js_string t -> unit -> scrollToOptions t
(** Smart constructor for {!scrollToOptions}. *)

val makeKeyframeAnimationOptions :
     ?delay:number_t
  -> ?endDelay:number_t
  -> ?fill:js_string t
  -> ?iterationStart:number_t
  -> ?iterations:number_t
  -> ?duration:number_t
  -> ?direction:js_string t
  -> ?easing:js_string t
  -> ?id:js_string t
  -> ?composite:js_string t
  -> ?pseudoElement:js_string t opt
  -> ?timeline:animationTimeline t opt
  -> unit
  -> keyframeAnimationOptions t
(** Smart constructor for {!keyframeAnimationOptions}. *)

val makeOptionalEffectTiming :
     ?delay:number_t
  -> ?endDelay:number_t
  -> ?fill:js_string t
  -> ?iterationStart:number_t
  -> ?iterations:number_t
  -> ?duration:number_t
  -> ?direction:js_string t
  -> ?easing:js_string t
  -> unit
  -> optionalEffectTiming t
(** Smart constructor for {!optionalEffectTiming}. *)

module CoerceTo : sig
  (** HTMLElement *)

  val element : #Dom.node t -> element t opt

  (* null if it is not an element *)

  val a : #element t -> anchorElement t opt

  val area : #element t -> areaElement t opt

  val audio : #element t -> audioElement t opt

  val base : #element t -> baseElement t opt

  val blockquote : #element t -> quoteElement t opt

  val body : #element t -> bodyElement t opt

  val br : #element t -> brElement t opt

  val button : #element t -> buttonElement t opt

  val canvas : #element t -> canvasElement t opt

  val caption : #element t -> tableCaptionElement t opt

  val col : #element t -> tableColElement t opt

  val colgroup : #element t -> tableColElement t opt

  val del : #element t -> modElement t opt

  val details : #element t -> detailsElement t opt

  val div : #element t -> divElement t opt

  val embed : #element t -> embedElement t opt

  val dl : #element t -> dListElement t opt

  val fieldset : #element t -> fieldSetElement t opt

  val form : #element t -> formElement t opt

  val frameset : #element t -> frameSetElement t opt

  val frame : #element t -> frameElement t opt

  val h1 : #element t -> headingElement t opt

  val h2 : #element t -> headingElement t opt

  val h3 : #element t -> headingElement t opt

  val h4 : #element t -> headingElement t opt

  val h5 : #element t -> headingElement t opt

  val h6 : #element t -> headingElement t opt

  val head : #element t -> headElement t opt

  val hr : #element t -> hrElement t opt

  val html : #element t -> htmlElement t opt

  val iframe : #element t -> iFrameElement t opt

  val img : #element t -> imageElement t opt

  val input : #element t -> inputElement t opt

  val ins : #element t -> modElement t opt

  val label : #element t -> labelElement t opt

  val legend : #element t -> legendElement t opt

  val li : #element t -> liElement t opt

  val link : #element t -> linkElement t opt

  val map : #element t -> mapElement t opt

  val meta : #element t -> metaElement t opt

  val _object : #element t -> objectElement t opt

  val ol : #element t -> oListElement t opt

  val optgroup : #element t -> optGroupElement t opt

  val option : #element t -> optionElement t opt

  val p : #element t -> paragraphElement t opt

  val param : #element t -> paramElement t opt

  val pre : #element t -> preElement t opt

  val q : #element t -> quoteElement t opt

  val script : #element t -> scriptElement t opt

  val select : #element t -> selectElement t opt

  val style : #element t -> styleElement t opt

  val table : #element t -> tableElement t opt

  val tbody : #element t -> tableSectionElement t opt

  val td : #element t -> tableCellElement t opt

  val textarea : #element t -> textAreaElement t opt

  val tfoot : #element t -> tableSectionElement t opt

  val th : #element t -> tableCellElement t opt

  val thead : #element t -> tableSectionElement t opt

  val title : #element t -> titleElement t opt

  val tr : #element t -> tableRowElement t opt

  val ul : #element t -> uListElement t opt

  val video : #element t -> videoElement t opt

  (** Event *)

  val mouseEvent : #event t -> mouseEvent t opt

  val keyboardEvent : #event t -> keyboardEvent t opt

  val wheelEvent : #event t -> mousewheelEvent t opt

  val popStateEvent : #event t -> popStateEvent t opt

  val messageEvent : #event t -> messageEvent t opt

  val inputEvent : #event t -> inputEvent t opt

  val compositionEvent : #event t -> compositionEvent t opt

  val errorEvent : #event t -> errorEvent t opt

  val progressEvent : #event t -> progressEvent t opt

  val pageTransitionEvent : #event t -> pageTransitionEvent t opt

  val beforeUnloadEvent : #event t -> beforeUnloadEvent t opt
end

type timeout_id_safe

val setTimeout : (unit -> unit) -> float -> timeout_id_safe
(** Same as [Dom_html.window##setTimeout cb ms] but prevents overflow
    with delay greater than 24 days. *)

val clearTimeout : timeout_id_safe -> unit

val onload : (unit -> unit) -> unit
(** Register a callback to run when the page finishes loading.
    If the page has already loaded (e.g. when running as WebAssembly),
    the callback is invoked immediately. *)

val js_array_of_collection : #element collection Js.t -> #element Js.t Js.js_array Js.t
(** Convert a [Dom_html.collection] to a Js array *)

(** {2 Deprecated function.} *)

val _requestAnimationFrame : (unit -> unit) Js.callback -> unit
[@@ocaml.deprecated "[since 2.6] Use [Dom_html.window##requestAnimationFrame] instead."]
(** Call the appropriate [requestAnimationFrame] method variant
      (depending on the navigator), or sleep for a short amount
      of time when there no such method is provided. We currently
      prefix the function name with as underscore as the interface of
      this function is not completely standardized yet. Thus, we leave
      the room to a function with a possibly refined type.

      This function is deprecated. Use the requestAnimationFrame of
      the window object instead. *)

(**/**)

val decode_html_entities : js_string t -> js_string t

val hasPushState : unit -> bool

val hasPlaceholder : unit -> bool

val hasRequired : unit -> bool
