; Create a DICOM object, read a DICOM file and dump its contents:
obj = OBJ_NEW( 'IDLffDICOM' )
var = obj->Read(DIALOG_PICKFILE(FILTER='*'))
obj->DumpElements
obj->Reset
; DumpElements should produce no output here:
obj->DumpElements
OBJ_DESTROY, obj