;+
; Project     :	SOLAR-B - EIS
;
; Name        :	EIS_CPT_WIDGET
;
; Purpose     :	Handles output widget ID.
;
; Explanation : Handles output widget ID.
;
; Use         :	< res = eis_cpt_widget() >
;
; Inputs      :	See keywords.
;
; Opt. Inputs : None.
;
; Outputs     : res : LONG widget ID
;
; Opt. Outputs:	None.
;
; Keywords    : None.
;
; Calls       : None.
;
; Common      :	eis_cpt_widget_local
;
; Restrictions:	None.
;
; Side effects:	None.
;
; Category    :	EIS_CPT.
;
; Prev. Hist. :	None.
;
; Written     :	Martin Carter RAL 13/01/07
;
; Modified    :	Version 0.0, 13/01/07, MKC
;
; Version     :	0.0, 13/01/07
;-
;**********************************************************

FUNCTION eis_cpt_widget, SET=set, GET=get

  COMMON eis_cpt_widget_local, id

  ; NB have to be careful not to pass out a pointer to id

  temp = 0L

  ; set value

  IF N_ELEMENTS(set) NE 0 THEN BEGIN

    id = set

  ENDIF

  ; get value

  IF KEYWORD_SET(get) THEN BEGIN

    IF N_ELEMENTS(id) NE 0 THEN temp = id

  ENDIF

  ; return value

  RETURN, temp

END