method apply = let new_value = wc#entry#text in if new_value <> param.combo_value then let _ = param.combo_f_apply new_value in param.combo_value <- new_value else ()