pro kb_in_time_event,ev,a

Common Exch_kb_in_time,Value

WIDGET_CONTROL,ev.id,GET_UVALUE = uv

CASE uv OF

"DONE":	WIDGET_CONTROL,ev.top,/DESTROY
"Help": xtext,text= $
['You must press ENTER before exiting if you have made any changes.', $
'Empty lines are allowed.']
"TEXT": begin
	WIDGET_CONTROL,ev.id,GET_V=a
	Value=strlowcase(strcompress(a))
	end
ELSE:
ENDCASE
empty
end

;*************************************

pro kb_in_time,Date,Time,prompt=prompt,xsize=xsize,group_leader=group_leader
Common Exch_kb_in_time,Value

;	Interactive input of time.

IF(XRegistered("kb_in_time") NE 0) THEN GOTO, exit

device,get_scr=scr
if n_elements(prompt) le 0 then prompt='Input date and time'
if n_elements(group_leader) le 0 then group_leader=0
if n_elements(xsize) le 0 then xsize=scr(0)/3

Value=['Date: ','Time: ']
if n_elements(Time) gt 0 then Value(1)='Time: '+Time
if n_elements(Date) gt 0 then Value(0)='Date: '+Date

base=widget_base(/colu,xoff=scr(0)*0.01,yoff=scr(1)*0.01, $
     space=5,xsiz=xsize,ypad=6,tit=prompt,group=group_leader)

XPdMenu,	['"DONE" 			DONE', $
		'"Help" 			Help'],base

Label=['     Example:  Date: 06 12 93','     Time: 07 04 08.458']

label0=widget_label(base,YSI=20,Val=Label(0))
label1=widget_label(base,YSI=20,Val=Label(1))

text=WIDGET_TEXT(base,/fra,/scroll,/EDIT, $
	XSI=40,YSI=2,UV='TEXT',val=Value)

WIDGET_CONTROL,base,/realize,/hourglass
WIDGET_CONTROL,text,/input_focus

xmanager,'kb_in_time',base,/modal

exit:

Value=strlowcase(strcompress(Value))

		for j=0,n_elements(Value)-1 do begin
if strmid(Value(j),0,4) eq 'date' then $
	Date=strmid(Value(j),6,8)
if strmid(Value(j),0,4) eq 'time' then $
	Time=strmid(Value(j),6,12)
		endfor
end