FUNCTION GetCurStr, Ptrs
;	-------------------------------------------------------------
;+							27-Jan-92
;	NAME: getcurstr
;	Purpose: given ptrs to current values of menu keys assemble
;		the current key string.
;	History: written 14-jan-92
;		update 27-Jan-92 for clearing a single key
;-
;	-------------------------------------------------------------
	
	strbuf = STRARR(N_ELEMENTS(Ptrs))	;str buffer

	FOR i= 0, N_ELEMENTS(Ptrs)-1 DO BEGIN
	  Widget_control, get_uvalue=info, Ptrs(i)
	  strbuf(i) = info.output		;get current value
	ENDFOR
;	strbuf = strbuf(where(strbuf ne '',nstr))	;no nulls
	yo = where(strbuf ne '', nstr)
	IF (nstr gt 0) THEN BEGIN		;found something
	  strbuf = strbuf(yo)
	ENDIF
	CASE 1 OF
	  nstr eq 0: str = ''				;ret null
	  nstr eq 1: str = STRTRIM(strbuf(0), 2)	;return string
	  ELSE: str = ARR2STR(strbuf, delimit=';')	;nstr>1
	ENDCASE

	RETURN, str
	END