let set_frame_handler v fh =
  Event.sync (Event.send v.channel (`set_frame_handler fh))