method apply =
      let new_value = param.string_of_string we#text in
      if new_value <> param.string_value then
        let _ = param.string_f_apply new_value in
        param.string_value <- new_value
      else
        ()