package oxbow

  1. Overview
  2. Docs
package oxbow
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file ctx.ml

1
2
3
4
5
6
7
8
9
open! Oxbow_state

type manage = [ `Manage ]
type render = [ `Render ]
type 'p t = { wm : Wm.t }

let wm c = c.wm
let with_manage wm f = Schedule.with_tick (fun () -> f { wm })
let with_render wm f = f { wm }