;------------------------------------------------------------------------------;
;+
; NAME: 
;               eis_study_undo__DEFINE
; PURPOSE:
;		This procedure defines the data memebers of the 
;               object "eis_study_undo".
; INPUTS:
;		st - a study (eis_study) structure
; AUTHOR:
;               John A. Rainnie - RAL (j.a.rainnie@rl.ac.uk)
;-
;------------------------------------------------------------------------------;
FUNCTION eis_study_undo::Init , st

Self.st = st

RETURN,1
END
;______________________________________________________________________________
;
;______________________________________________________________________________
PRO eis_study_undo::setProperty , wavelength = wavelength

stop
IF (N_ELEMENTS(wavelength) GT 0) THEN stop

END
;______________________________________________________________________________
;
;______________________________________________________________________________
PRO eis_study_undo::getProperty , st = st

st = Self.st

END
;______________________________________________________________________________
; Cleanup
;______________________________________________________________________________
PRO eis_study_undo::Cleanup


END
;______________________________________________________________________________
Pro eis_study_undo__Define
;______________________________________________________________________________

junk =  {   eis_study_undo,                                                $
                        st                      : {eis_study}              $
    	   }

End