;+
; 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
;-

;Program : setup.pro

PRO setup_event,event

@wload.com
@chandle.com

COMMON newpicker, pathtxt, filttxt, dirlist, filelist, selecttxt, $
        ok, cancel, help, here, thefile, separator

 COMMON setup_block,pp,pn
   
  WIDGET_CONTROL,event.id,GET_UVALUE=val

  WIDGET_CONTROL,pp, GET_VALUE = new_path                
  new_path = new_path(0) 

  WIDGET_CONTROL,pn, GET_VALUE = new_name                
  new_name = new_name(0)

  IF N_ELEMENTS(val) EQ 0 THEN val = "EXIT"
  CASE val OF

         "HELP": BEGIN
                 END

         "EXIT": BEGIN
                  WIDGET_CONTROL, event.top, /DESTROY

		  setup_path = GETENV('HOME')
		  setup_las  = setup_path + '/setup.las'

   		  OPENW,unit,setup_las,/GET_LUN
   		  PRINTF,unit,new_name
   		  PRINTF,unit,new_path
   		  CLOSE, unit
   		  FREE_LUN, unit

                 END

  ELSE: donothing=0 
  ENDCASE

END


PRO setup,GROUP=GROUP

@wload.com
@chandle.com

COMMON newpicker, pathtxt, filttxt, dirlist, filelist, selecttxt, $
        ok, cancel, help, here, thefile, separator

 COMMON setup_block,pp,pn

;IF (XRegistered("setup") NE 0) THEN RETURN

x_len = 30
os = !VERSION.OS
CASE os OF
     'sunos': del = '/'
   'windows': del = '\'
       'vms': del = ']'
       ELSE : donothing
ENDCASE  

IF N_ELEMENTS(new_path) EQ 0 THEN CD, CURRENT = new_path
IF N_ELEMENTS(new_name) EQ 0 THEN new_name = ''

WSetupBase = WIDGET_BASE(TITLE = "LASCO Setup",/ROW)
s_row      = WIDGET_BASE(WSetupBase, /FRAME, /COLUMN)
                        
XPdMenu,['" Help "              HELP' ,    $                       
         '" Done "              EXIT'],    $
        s_row

rows  = WIDGET_BASE(s_row,/FRAME,/ROW)
cols  = WIDGET_BASE(rows, /COLUMN)

r1 = WIDGET_BASE (cols, /ROW)
l1 = WIDGET_LABEL(r1,VALUE = 'File :') 
t1 = WIDGET_BASE (r1, /ROW) 
pn = WIDGET_TEXT (t1,XSIZE=x_len,YSIZE=1,/EDITABLE, VALUE=new_name) 

r2 = WIDGET_BASE (cols, /ROW)
l2 = WIDGET_LABEL(r2,VALUE = 'Path :') 
t2 = WIDGET_BASE (r2, /ROW)
pp = WIDGET_TEXT (t2,XSIZE=x_len,YSIZE=1,/EDITABLE, VALUE=new_path) 

WIDGET_CONTROL, WSetupBase, /REALIZE

XMANAGER,"setup",WSetupBase, $               
                EVENT_HANDLER = "setup_event", $
                GROUP_LEADER = GROUP, $
                /MODAL

END