;+
; 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 WSave_event,event
@lasco.com
COMMON save_block,WSaveBase,oldval,t0,b0,Button
COMMON save_b1,ps_name

WIDGET_CONTROL,event.id,GET_UVALUE=uval
WIDGET_CONTROL,event.id,GET_VALUE=val

CASE uval OF

	"OK":		BEGIN
			 WIDGET_CONTROL,t0,GET_VALUE=sf
			 ps_name = sf(0)
			 print,ps_name
			 CASE oldval OF
				"PostScript": BEGIN  
					       wsave_ps
			                       WIDGET_CONTROL,event.top,/DESTROY
				   	      END	
			 ELSE: donothing=0
			 ENDCASE
			END

	"QUIT":		BEGIN
			 WIDGET_CONTROL,event.top,/DESTROY
			END

	"SELECT":	BEGIN
			 WIDGET_CONTROL,t0,SET_VALUE=val
			 CASE val OF
				"FITS": print,"fits"
			 	"GIF":	print,"gif"
				"TIFF": print,"tiff"
				"PostScript": print,"PostScript"
			 ELSE: donothing = 0
			 ENDCASE
			 oldval = val
			END

ELSE: donothing = 0
ENDCASE


END

PRO WSave,GROUP=GROUP

@lasco.com
COMMON save_block,WSaveBase,oldval,t0,b0,Button
COMMON save_b1,ps_name

IF XRegistered("WSave") NE 0 THEN RETURN

DefaultFormat = 'PostScript'
SaveFile = DefaultFormat
oldval = DefaultFormat

WSaveBase = WIDGET_BASE(TITLE = " Image Save Tools ",/FRAME,/COLUMN)
XPdMenu,['"   OK   " 	OK',		$
	 '"  Quit  "	QUIT'],		$
	WSaveBase

Button = ['FITS',	$
	  'GIF',	$
	  'TIFF',	$
	  'PostScript']

n_buttons = N_ELEMENTS(Button) 
p_buttons = lonarr(n_buttons)

t0 = WIDGET_TEXT(WSaveBase,XSIZE=25,UVALUE='OK',VALUE=SaveFile+".ps",/EDITABLE)
b0 = WIDGET_BASE(WSaveBase,/FRAME,/COLUMN,/EXCLUSIVE)

FOR i=0,n_buttons-1 DO BEGIN
  TempButton = Button(i)
  p_buttons(i) = WIDGET_BUTTON(b0,VALUE=TempButton,UVALUE='SELECT')
ENDFOR

WIDGET_CONTROL,WSaveBase,/REALIZE

index = WHERE(Button EQ DefaultFormat)
index = index(0)
WIDGET_CONTROL,p_buttons(index),/SET_BUTTON

XMANAGER,"WSave",WSaveBase, $
		GROUP_LEADER=GROUP
END