;---------;---------;---------;---------;---------;---------;---------;--------:
;This procedure adds a text annotation to an iPlot object.
;"text" is placed beginning at the bottom left of the plot.

pro annotate,oTool,text

; Get an object reference to the current iTool's annotation layer
idAnnotationLayer = oTool->findIdentifiers('*ANNOTATION LAYER')
oAnnotationLayer = oTool->getByIdentifier(idAnnotationLayer)

; Create an annotation
oTextAnnotation = OBJ_NEW('IDLitVisText',_STRING = text,LOCATION=[-1.0,-0.9])

; Add the annotation to the annotation layer
oAnnotationLayer->add, oTextAnnotation

END
;---------;---------;---------;---------;---------;---------;---------;--------: