;+
; NAME:
;	WWBDIR
;
; PURPOSE:
;	This procedure sets up the location of the directory of
;	Wavelet Workbench (WWB), so that the 1D and 2D data files
;	can be found and loaded into the program menu.
;
; CATEGORY:
;	Wavelets
;
; CALLING SEQUENCE:
;	WWBDIR
;
; INPUTS: (via COMMON)
;
; OUTPUTS:
;	wd = working directory. This value is output in the form of a 
;	common block variable in WWB_COMMON
;
; COMMON BLOCKS:
; COMMON WWB_COMMON, $
;	TEXT_ANNOUNCE, wd, sig, len, st, noise_type, noise_lev, $
;	QMF, LD, shrinkage_type, WaveType, ParVal
;
; MODIFICATION HISTORY:
; 	Written by:	Amara Graps, September 1995.
;	copyright (c) Amara Graps 1995, 1996.
;-


PRO MAINDIR_EVENT, Event

COMMON WWB_COMMON, $
	TEXT_ANNOUNCE, wd, sig, len, st, noise_type, noise_lev, $
	QMF, LD, shrinkage_type
COMMON WDIR, FIELD3


type = TAG_NAMES(event, /structure_name)


WIDGET_CONTROL,Event.Id,GET_UVALUE=Ev
  
CASE 1 OF

	( type EQ 'WIDGET_BUTTON' ) AND ( ev EQ 'OK' ): BEGIN
		;keep wd
		WIDGET_CONTROL,FIELD3, get_value=new_wd
		IF string(new_wd(0)) NE '' THEN wd = string(new_wd(0))
		WIDGET_CONTROL, event.top, /destroy
		END

	ELSE: BEGIN	
		CASE ev OF
  			'FIELD3': BEGIN
      			Print, 'Event for New Directory:'
      			END
			ELSE: PRINT, 'Widget item not identified!'
		ENDCASE	;ev
	
		END	;ELSE
		
ENDCASE		;CASE 1.. Checking buttons and menu items

END


PRO WWBDIR, GROUP=Group

COMMON WWB_COMMON, $
	TEXT_ANNOUNCE, wd, sig, len, st, noise_type, noise_lev, $
	QMF, LD, shrinkage_type
COMMON WDIR, FIELD3


;wd = default_str

  IF N_ELEMENTS(Group) EQ 0 THEN GROUP=0

  junk   = { CW_PDMENU_S, flags:0, name:'' }


  MAINDIR = WIDGET_BASE(GROUP_LEADER=Group, $
      ROW=2, $
      MAP=1, $
      TITLE='Wavelet Workbench Directory', $
      UVALUE='MAINDIR')

  BASE2 = WIDGET_BASE(MAINDIR, $
      ROW=1, $
      MAP=1, $
      TITLE='New Directory', $
      UVALUE='BASE2')

  FieldVal167 = [ $
    '' ]
  FIELD3 = CW_FIELD( BASE2,VALUE=FieldVal167, $
      ROW=1, $
      STRING=1, $
      TITLE='New Directory:', $
      UVALUE='FIELD3', $
      XSIZE=45)

  BUTTON4 = WIDGET_BUTTON( BASE2, $
      FRAME=10, $
      UVALUE='OK', $
      VALUE='OK')


  BASE5 = WIDGET_BASE(MAINDIR, $
      ROW=1, $
      MAP=1, $
      TITLE='Default Directory', $
      UVALUE='BASE5')

   LABEL22 = WIDGET_LABEL( BASE5, $
      UVALUE='LABEL22', $
      VALUE='Default Directory: ' + wd)


  WIDGET_CONTROL, MAINDIR, /REALIZE

  XMANAGER, 'MAINDIR', MAINDIR
END