method apply =
let v = param.string_of_string (buffer#get_text ()) in
if v <> param.string_value then
(
dbg "apply new value !";
let _ = param.string_f_apply v in
param.string_value <- v
)
else
()