let wp_highlight
    (buffer:GSourceView2.source_buffer)
    (localizable:Pretty_source.localizable)
    ~(start:int) ~(stop:int) =
  match localizable with
    | Pretty_source.PStmt(_,({ skind=Instr(Call(_,e,_,_)) } as stmt)) ->
        (match WpStrategy.get_called_kf e with
           | Some kg ->
               let ips = WpAnnot.lookup_called_preconditions_at kg stmt in
               if ips <> [] then
                 let validity = Property_status.Feedback.get_conjunction ips in
                 Design.Feedback.mark buffer ~start ~stop validity
           | None -> ())
    | _ -> ()