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
        ()