PRO RH_W_DPHARMONIC_Event, Event

  COMMON rh_wdphar, i_redond, tab_sel_ext, tab_sel_ant, iuv
  COMMON rh_dphar_base, biuv, bredond

  WIDGET_CONTROL,Event.Id,GET_UVALUE = Ev

  CASE Ev OF

  'help_har': BEGIN
	     rh_dp_aide, message, sujet = 'selection of harmonics'
             mes = DIALOG_MESSAGE(message, /INFORMATION, $
                   TITLE = 'Read Me : selection of harmonics ')
	  END


  'extensions': BEGIN
              tab_ext = ['IE0_ew  ' ,   $      ; / 1
                         'IE0_ns  ' ,   $      ; / 0
                         'IE1_ew  ' ,   $      ; / 1
                         'IE2_ew  ' ,   $      ; / 1
                         'IE2_ns  ' ,   $      ; / 1
                         'INS45_ew' ,   $      ; / 1               
                         'INS45_ns'     ]      ; / 1  

	      rh_selection,'Extension Antennas',tab_ext,tab_sel_ext,$
                           /sel_qcq, group=event.top
          END
  'redondant': BEGIN 
               CASE event.index OF
               0: i_redond = 0
               1: i_redond = 1
               ENDCASE
               END
  'suppr_ant': BEGIN
              nb_tab = 44
              tab_ant = rh_antenne()
	      rh_selection,'Antennas',tab_ant,tab_sel_ant, $
                           /sel_qcq, group=event.top
          END
  'uv'    : BEGIN
               CASE event.index OF
               0: iuv = 0
               1: iuv = 1
               ENDCASE
;               print,'iuv',iuv
           END
  'std'   : BEGIN
            def_str_dp, str_dp
            i_redond    = str_dp.i_redond
            tab_sel_ext(0) = str_dp.ie0_ew 
            tab_sel_ext(1) = str_dp.ie0_ns 
            tab_sel_ext(2) = str_dp.ie1_ew 
            tab_sel_ext(3) = str_dp.ie2_ew 
            tab_sel_ext(4) = str_dp.ie2_ns 
            tab_sel_ext(5) = str_dp.ins45_ew
            tab_sel_ext(6) = str_dp.ins45_ns
            tab_sel_ant = str_dp.sel_ant
            iuv         = str_dp.i_pave_plein

            WIDGET_CONTROL, biuv, SET_DROPLIST_SELECT = iuv
            WIDGET_CONTROL, bredond, SET_DROPLIST_SELECT = i_redond

	 END
  'ok':  BEGIN
;         print,'ok',np, larg, period, iuv, i_clean, tab_sel_ext, mode_inter
         WIDGET_CONTROL,EVENT.TOP,/DESTROY   
         END
  ENDCASE
END


PRO RH_W_DPHARMONIC

  COMMON rh_wdphar, i_redond, tab_sel_ext, tab_sel_ant, iuv
  COMMON rh_dphar_base, biuv, bredond 

  if (xregistered('RH_W_DPHARMONIC')) then begin     ; Don't make a second copy.
     print,' " SELECTION OF HARMONICS " already in use'
     return
  end

;  IF N_ELEMENTS(Group) EQ 0 THEN GROUP=0

  imBASE = WIDGET_BASE(COLUMN=1,$ 
             TITLE='selection of harmonics', SPACE= 20, $
	    /BASE_ALIGN_CENTER)

  BASE = WIDGET_BASE(imbase, /COLUMN, SPACE= 15,/BASE_ALIGN_CENTER,/FRAME)

  b = WIDGET_BUTTON( BASE, UVALUE='help_har', VALUE='Read Me', $
      xs=4., ys=0.8, units = 2)

  ggbase = widget_base(base, /col, /frame)
;----------------gbase1--------------------------------------
  gbase1 = widget_base(ggbase, /row)
  bant = WIDGET_BUTTON( gBASE1, UVALUE='extensions', $
		VALUE='Extension Antennas ', $
		xs=5., ys=0.8, units = 2)

  tab_red = [' No','Yes']
  lredond = WIDGET_Label(gbase1,Value=' Add Redund Harmonics:')  
  bredond = WIDGET_DROPLIST( gBASE1, UVALUE='redondant', $
		VALUE=tab_red)
  WIDGET_CONTROL, bredond, SET_DROPLIST_SELECT = i_redond
;----------------gbase2--------------------------------------
  gbase2 = widget_base(ggbase, /row)
  bant = WIDGET_BUTTON( gBASE2, UVALUE='suppr_ant',          $
		VALUE='Suppression of antennas (if spoilt)', $
		xs=10., ys=0.8, units = 2)
;----------------gbase3-------------------------------------- 
  gbase3 = widget_base(ggbase, /row)
  tab = [' No','Yes']
  liuv = WIDGET_Label(gbase3,Value=' Interpole odd EW harm. :')  
  biuv = WIDGET_DROPLIST( gBASE3, UVALUE='uv',	$
		value=tab)
  WIDGET_CONTROL, biuv, SET_DROPLIST_SELECT = iuv
;------------------------------------------------------------
  b = WIDGET_BUTTON( BASE, UVALUE='std',                        $
                     VALUE='Back to Local Standard Parameters', $
                     xs=10., ys=1, units=2)

  b = WIDGET_BUTTON( BASE, UVALUE='ok', VALUE='ok', $
      xs=2., ys=1, units = 2)

  WIDGET_CONTROL, imBASE, /REALIZE
  
  XMANAGER, 'RH_W_DPHARMONIC', imBASE,/NO_BLOCK

END