method set_active_value (v:string) = 
    try
      let i = raise_when_none (List.indexOf v self#choices) in 
      self#box#set_active i ;
      self#childs_rebuild () 
    with _ -> ()