;+
; NAME:
;	SMEI_SEQUENCE::MENU
;
;
; PURPOSE:
;	To interactively define a SMEI sequence
;
;
; CATEGORY:
;	SMEI_SEQUENCE
;
;
; CALLING SEQUENCE:
;	status = seqref -> menu([flag, group=group])
;
;
; INPUTS:
;
;
;
; OPTIONAL INPUTS:
;
;
;
; KEYWORD PARAMETERS:
;	group	long	A possible group leader for the menu
;	/no_progress	If set, then disable the progress bars (useful
;			if slow network means the progress bars are
;			slowing operation).
;	/show_display	If set, then start by showing the display tab
;			rather than the sequence setting tab (ignored
;			if IDL version < 5.6)
;	/noverify	If set, then trust the image header lists.		
;
;
; OPTIONAL OUTPUTS:
;	flag	1 or 0 for success or failure (needed when called from
;		the constructor)
;
;
; RESTRICTIONS:
;	If any managed widgets are present then the GROUP keyword MUST
;	be present if the sequence doesn't already exist.
;
;
; MODIFICATION HISTORY:
; 	Reduced to stub for alternates depending on IDL version:
; 	26/11/03; SJT
;	Add no_progress keyword: 25/8/05; SJT
;	Add show_display keyword: 31/8/10; SJT
;	Add noverify keyword: 11/12/12; SJT
;-


pro smei_sequence::menu, flag, group = group, no_progress = $
                         no_progress, show_display = show_display, $
                         noverify = noverify

help, call = stack
rtn = str_sep(stack[1], ' ')

if rtn[0] eq "SMEI_SEQUENCE::INIT" then iam_init = 1b $
else iam_init = 0b

v = float(!version.release)
if v lt 5.6 then self -> menu1, flag, iam_init, group = group, $
  no_progress = no_progress  $
else self -> menu2, flag, iam_init, group = group, no_progress = $
                    no_progress, show_display = show_display, $
                         noverify = noverify

end