;---------;---------;---------;---------;---------;---------;---------;--------:
;This procedure takes an object reference to an iTool and writes an ISV file of
; it to argument filename. This file can then be opened in an iTool.
;Reference thread 1182 in the IDL User Forum

pro ExportIplotToISV,oTool,filename

idSave = oTool->FindIdentifiers('*OPERATIONS/FILE/SAVE')	;/TOOLS/PLOT TOOL_1/OPERATIONS/FILE/SAVE
oSave = oTool->GetByIdentifier(idSave)
success = oTool->DoSetProperty(idSave,'FILENAME',filename)
success = oTool->DoAction(idSave)

OBJ_DESTROY,oSave

END

;---------;---------;---------;---------;---------;---------;---------;--------: