method insert_cond () =
      let cond = { cond = "" ; subs_then = [] ; subs_else = []} in
      match C.simple_get ~width: 500 Rep_messages.insert_cond
          (self#params_for_cond cond)
      with
        C.Return_ok -> self#insert_in_selected (Cond cond)
      | _ -> ()