;+
; Project     : SOHO - LASCO
;
; Name        : 
;
; Purpose     : 
;
; Category    : 
;
; Explanation : 
;
; Syntax      : 
;
; Examples    : 
;
; Inputs      : None
;
; Opt. Inputs : None
;
; Outputs     : None
;
; Opt. Outputs: None
;
; Keywords    : None
;
; Common      : 
;
; Restrictions:                                  
;
; Side effects: Not known
;
; History     : Version 1, 02-Sep-1995, B Podlipnik. Written
;
; Contact     : BP, borut@lasco1.mpae.gwdg.de
;-

PRO WEdithdr_event,event

WIDGET_CONTROL,event.id,GET_UVALUE=uval
WIDGET_CONTROL,event.top,GET_UVALUE=info

CASE uval OF

	"OK":	   BEGIN
                     WIDGET_CONTROL,info.t0, GET_VALUE=head
                     Handle_Value, info.ptr, head, /Set, /No_Copy
                     WIDGET_CONTROL,event.top,/DESTROY             
		   END

	"CANCEL":  BEGIN	
	             WIDGET_CONTROL,info.t0, GET_VALUE=head
	             Handle_Value, info.ptr, head, /Set, /No_Copy
                     WIDGET_CONTROL,event.top,/DESTROY
                  END

         "PRINT": BEGIN
                     WIDGET_CONTROL,info.t0, GET_VALUE=head 
                     Handle_Value, info.ptr, head, /Set 
                     wdn = GETENV('WORK')+!delimiter + GETENV('USER') +!delimiter+'ps'+!delimiter
                     IF chk_dir(wdn) EQ 0 THEN wdn = GETENV('HOME') + !delimiter
                     pf = wdn + 'tmp.txt'
                     wrt_asc,pf,head
                     wprint,filename=pf

                     spawn,'/usr/bin/rm '+pf
                  END

ELSE: donothing = 0
ENDCASE


END

PRO WEdithdr,head,frame=frame,GROUP=GROUP

IF XRegistered("WEdithdr") NE 0 THEN RETURN

WEdithdrBase = WIDGET_BASE(TITLE = " Edit Image Header ",/FRAME,/COLUMN)

ff = WIDGET_BASE(WEdithdrBase,/ROW)
l2  = WIDGET_LABEL(ff,VALUE="Edit header:")

r2 = WIDGET_BASE(WEdithdrBase,/ROW)
t0 = WIDGET_TEXT(r2,XSIZE=60,YSIZE=30,UVALUE='OK',VALUE=head,/SCROLL,/EDITABLE)


r4  = WIDGET_BASE(WEdithdrBase, /ROW,/FRAME)
ro  = WIDGET_BUTTON(r4,VALUE='   OK   ',UVALUE='OK')
rc  = WIDGET_BUTTON(r4,VALUE=' Cancel ',UVALUE='CANCEL')
rp  = WIDGET_BUTTON(r4,VALUE=' Print ',UVALUE='PRINT')

WIDGET_CONTROL,WEdithdrBase,/REALIZE

ptr = Handle_create()

info = { t0:t0, ptr:ptr }

WIDGET_CONTROL, WEdithdrBase, SET_UVALUE = info, /NO_COPY

XMANAGER,"WEdithdr",WEdithdrBase, GROUP_LEADER=GROUP,/MODAL

Handle_Value, ptr, head, /No_Copy
Handle_Free, ptr
		
RETURN		
END