;+
; NAME:
;	qLine_Write
; PURPOSE:
;	Writes the currently loaded curves into a binary file
; CATEGORY:
;	Widget qLine
; CALLING SEQUENCE:
	PRO qLine_Write, state
; INPUTS:
;	state			array[1]; type: structure
;						qLine state structure
; OUTPUTS:
;	(to disk file)
; INCLUDE:
	@compile_opt.pro		; On error, return to caller
; CALLS:
;	bin_write
; PROCEDURE:
;	The array with curve data is written to file using
;		tmp = sbinar(file, write=xx)
;	The resulting file can be reloaded using the 'Read' button in qLine
; MODIFICATION HISTORY:
;	FEB-2000, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
;-

y = *state.y
IF ptr_valid(state.t) THEN IF n_elements(*state.t) NE 0 THEN t = *state.t

file = dialog_pickfile(/write,file='qplot.pph',	$
	path=filepath(root=getenv('TUB'),''), group=state.wid_write)
IF file NE '' THEN bin_write, file, y

RETURN  &  END