;+
;PROJECT:
;           SolarB EIS
;
;NAME:      
;           eis_export_filename_generate
;
;PURPOSE:
;           Function to return a filename for eis_export_* - and to open
;           it for writing
;
;CATEGORY:
;           EIS Technical Planning
;
;INPUTS:
;           acronym  - one of linelist/raster/study
;
;MODIFICATION HISTORY:
;           Written by: John Rainnie, RAL (Jan 2006)
;
;-
;************************************************************************
FUNCTION eis_export_filename_generate , acronym , tlbID

; Determine disk
CASE !VERSION.OS_FAMILY OF
    'Windows'   : path = GETENV('SystemDrive') + '\'
    'unix'      : path = GETENV('HOME')
    ELSE        : stop
ENDCASE
; Make a default filename, eg:  /some/path/acronym_1.def
defFileName = STRCOMPRESS(acronym + '_1.def',/REMOVE_ALL)
; Get fileName
fileName = DIALOG_PICKFILE(path = path                     ,                $
                           file = STRLOWCASE(defFileName)  ,                $
                           default_extension = 'def'       ,                $
                           dialog_parent     = tlbID       ,                $
                           /overwrite_prompt               ,                $
                           /WRITE )

IF (fileName[0] EQ '') THEN BEGIN
    screwUp = DIALOG_MESSAGE("No valid filename selected. Aborting !" ,     $
                             dialog_parent  = tlbID ,                       $
                             /ERROR)
    RETURN, 0
ENDIF

RETURN, fileName
END