Misc: fix documentation for 4.02.2

Author: hhugo

lib/dom.mli

@@ -61,6 +61,7 @@ module DocumentPosition : sig
   val add : mask -> mask -> mask
   val (+) : mask -> mask -> mask
 end
+
 (** Specification of [Node] objects. *)
 class type node = object
   method nodeName : js_string t readonly_prop
@@ -173,16 +174,19 @@ val insertBefore : #node t -> #node t -> #node t opt -> unit
       The expression [insertBefore n c p] behave the same as
       [p##insertBefore(n, c)] but avoid the need of coercing the
       different objects to [node t]. *)
+
 val replaceChild : #node t -> #node t -> #node t -> unit
   (** The expression [replaceChild p n c] behave the same as
       [p##replaceChild(n, c)] (replace [c] by [n] in [p])
       but avoid the need of coercing the
       different objects to [node t]. *)
+
 val removeChild : #node t -> #node t -> unit
   (** The expression [removeChild n c] behave the same as
       [n##removeChild(c)] (remove [c] from [n])
       but avoid the need of coercing the
       different objects to [node t]. *)
+
 val appendChild : #node t -> #node t -> unit
   (** The expression [appendChild n c] behave the same as
       [n##appendChild(c)] (appends [c] to [n])
@@ -226,13 +230,16 @@ end
 
 val no_handler : ('a, 'b) event_listener
   (** Void event handler (Javascript [null] value). *)
+
 val handler : (('e #event t as 'b) -> bool t) -> ('a, 'b) event_listener
   (** Create an event handler that invokes the provided function.
       If the handler returns false, the default action is prevented. *)
+
 val full_handler : ('a -> ('e #event t as 'b) -> bool t) -> ('a, 'b) event_listener
   (** Create an event handler that invokes the provided function.
       The event target (implicit parameter [this]) is also passed as
       argument to the function.  *)
+
 val invoke_handler : ('a, 'b) event_listener -> 'a -> 'b -> bool t
   (** Invoke an existing handler.  Useful to chain event handlers. *)
 

lib/dom_html.mli

@@ -1238,12 +1238,16 @@ end
 
 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 invoke_handler : ('a, 'b) event_listener -> 'a -> 'b -> bool t
   (** see [Dom.invoke_handler] *)
+
 val eventTarget : #event t -> element t
   (** see [Dom.eventTarget] *)
 
@@ -1340,8 +1344,10 @@ val buttonPressed : #mouseEvent Js.t -> mouse_button
 
 val eventAbsolutePosition : #mouseEvent t -> int * int
   (** 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 -> int * int
   (** Viewport top/left position *)
 
@@ -1609,6 +1615,7 @@ module CoerceTo : sig
 end
 
 type timeout_id_safe
+
 (** Same as [Dom_html.window##setTimeout(cb,ms)] but prevents overflow
     with delay greater than 24 days. *)
 val setTimeout : (unit -> unit) -> float -> timeout_id_safe

lib/graphics/graphics_js.mli

@@ -37,8 +37,10 @@ val open_graph : string -> unit
 
 val open_canvas : Dom_html.canvasElement Js.t -> unit
 (** use a canvas to setup the current context *)
+
 val get_context : unit -> context
 (** Get the current context *)
+
 val set_context : context -> unit
 (** Set the current context *)