method insert_sub () = let sub = { sub_code = "" } in match C.simple_get ~width: 500 Rep_messages.insert_sub (self#params_for_sub sub) with C.Return_ok -> self#insert_in_selected (Sub sub) | _ -> ()