let new_click =
let new_marshaller f x y =
MathView.Signals.click.S.marshaller
- (fun e s -> f (new Gdome.element e) s) x y
+ (fun e s -> f (option_element_of_option e) s) x y
in
{ S.name = "click"; S.classe = `math_view;
S.marshaller = new_marshaller }