例によってドラッグイベントを作る例。 module E = Pec open Pec.OP let (!%) = Printf.sprintf let (+>) f g = g f let mouse_down, send_down = E.make () let mouse_up, send_up = E.make () let mouse_move, send_move = E.make () let dragging md mu m…

OCaml用のPush型のイベントコンビネーターです。とりあえずGitHubにアップしたので、記念。 https://osiire@github.com/osiire/Pec.git .mliはこんな感じ。 type 'a event (** [make ()] makes a new event and sender function.*) val make : unit -> 'a ev…