;+
; NAME:
;	SMEI_DELAY
;
;
; PURPOSE:
;	Set the interframe delay for a SMEI sequence
;
;
; CATEGORY:
;	CLI
;
;
; CALLING SEQUENCE:
;	smei_delay, seqref, delay
;
;
; INPUTS:
;	seqref	objref	Object reference of the SMEI sequence to be
;			modified.
;	delay	float	The delay in seconds
;
;
; MODIFICATION HISTORY:
;	Original: 19/12/02; SJT
;-

pro smei_delay, seqref, delay, help = help

if keyword_set(help) then begin
    self_help
    return
end

if not obj_valid(seqref) then begin
    smei_msg, /alert,  'SMEI_DELAY requires an object reference'
    return
endif

if not obj_isa(seqref, 'SMEI_SEQUENCE') then begin
    smei_msg, /alert, $
              'The object you are trying to modify is not a ' + $
              'SMEI_SEQUENCE'
    return
endif

seqref -> set_delay, delay

end