sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>
On This Page
module Style : sig ... end
val draw_label :
View.t ->
C.context ->
min_x:float ->
max_x:float ->
x:float ->
y:float ->
string ->
unit
Draw msg
in the area (min_x, max_x) and ideally centred at x
.
val draw_l_bracket :
C.context ->
x:float ->
y:float ->
w:float ->
h:float ->
unit
val draw_r_bracket :
C.context ->
x:float ->
y:float ->
w:float ->
h:float ->
unit
val y_of_row : View.t -> int -> float
val iter_spans :
View.t ->
((Layout.timestamp * [ `Span of string | `Suspend of string ] list) -> unit) ->
Layout.item ->
unit
val link_fibers :
View.t ->
C.context ->
x:float ->
Layout.item ->
Layout.item ->
unit
val render_events : View.t -> C.context -> Layout.item -> unit
val render_fiber :
View.t ->
C.context ->
Layout.timestamp ->
Layout.item ->
unit
val render_cc :
View.t ->
C.context ->
Layout.timestamp ->
Layout.item ->
string ->
unit
val iter_gc_spans :
View.t ->
((int * float * Trace.Ring.event list) -> unit) ->
Layout.Ring.t ->
unit
val render_gc_events :
View.t ->
C.context ->
Layout.Ring.t ->
[< `Bg | `Fg ] ->
unit
val link_domain :
View.t ->
C.context ->
x:float ->
Layout.item ->
Layout.Ring.t ->
unit
val render_ring_bg : View.t -> C.context -> Layout.Ring.t -> unit
val render_ring : View.t -> C.context -> Layout.Ring.t -> unit