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 -> ())
| _ -> ()