osiire’s blog

ふしぎなそふとやさん

2011-09-14から1日間の記事一覧

ドラッグイベントを作る例

例によってドラッグイベントを作る例。 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…