source: trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_slide_slice.pro @ 495

;+
;
; @file_comments
;
; @categories
; Compound widget
;
; @param ID
;
; @param VALUE
; It is the default tick mark value (a floating-point number).
;
; @returns
;
; @uses
;
; @restrictions
;
; @examples
;
; @history
;
; @version
; $Id$
;
;-
PRO cw_slide_slice_set_value, id, value
;
  compile_opt idl2, strictarrsubs
;
@common
   topid = findtopid(id)
   domainid = widget_info(topid, find_by_uname = 'domain')
   widget_control, domainid, get_value = boxzoom
   if boxzoom[1]-boxzoom[0] LT boxzoom[3]-boxzoom[2] then type = 'y' ELSE type = 'x'
   thickid  = widget_info(topid, find_by_uname = 'thickness')
   widget_control, thickid, get_uvalue = thicknessuval
   widget_control, thickid, get_value = thickness
   thickness = thicknessuval.choix[thickness.droplist_select]
   sliderid = widget_info(topid, find_by_uname = 'slider')
   if type EQ 'y' then BEGIN
      mini = floor(min([glamt, glamf], max = maxi))
      maxi = ceil(maxi)-thickness
      widget_control, sliderid, set_value = {slider_min:mini, slider_max:maxi, value:boxzoom[0]<maxi}
      thickness = boxzoom[1]-boxzoom[0]
   ENDIF ELSE BEGIN
      mini = floor(min([gphit, gphif], max = maxi))
      maxi = ceil(maxi)-thickness
      widget_control, sliderid, set_value = {slider_min:mini, slider_max:maxi, value:boxzoom[2]<maxi}
      thickness = boxzoom[3]-boxzoom[2]
   ENDELSE
   thicknessval = thicknessuval.choix
   index = where(thicknessval EQ thickness) & index = index[0]
   if index EQ -1 then BEGIN
      index = 20
      thicknessval[20] = strtrim(thickness, 1)
      widget_control, thickid, set_value = thicknessval
      widget_control, thickid, set_uvalue ={name:'thickness', choix:thicknessval}
   endif
   widget_control, thickid, set_value = {droplist_select:index}
   return
end
;
;+
;
; @file_comments
;
; @categories
; Compound widget
;
; @param EVENT
;
; @returns
;
; @uses
;
; @restrictions
;
; @examples
;
; @history
;
; @version
; $Id$
;
;-
FUNCTION cw_slide_slice_event,  event
;
  compile_opt idl2, strictarrsubs
;
@common
   widget_control, event.id, get_uvalue=uval
   domainid = widget_info(event.top, find_by_uname = 'domain')
   thickid  = widget_info(event.handler, find_by_uname = 'thickness')
   sliderid = widget_info(event.handler, find_by_uname = 'slider')
;   uniteid  = widget_info(event.handler, find_by_uname = 'unite')
   widget_control, domainid, get_value = boxzoom
   if boxzoom[1]-boxzoom[0] LT boxzoom[3]-boxzoom[2] then type = 'y' ELSE type = 'x'
   widget_control, thickid, get_uvalue = thicknessuval
   widget_control, thickid, get_value = thickness
   thickness = thicknessuval.choix[thickness.droplist_select]
   widget_control, sliderid, get_value = slider & slider = slider.value

   if uval.name EQ 'thickness' then begin
      if boxzoom[1]-boxzoom[0] LT boxzoom[3]-boxzoom[2] then type = 'y' ELSE type = 'x'
      if type EQ 'y' then BEGIN
         mini = floor(min([glamt, glamf], max = maxi))
         maxi = ceil(maxi)-thickness
      ENDIF ELSE BEGIN
         mini = floor(min([gphit, gphif], max = maxi))
         maxi = ceil(maxi)-thickness
      ENDELSE
      slider = slider<maxi
      widget_control, sliderid, set_value = {slider_min:mini, slider_max:maxi, value:slider}
   endif

;   widget_control, uniteid, get_value = unite
;
;    if uval.name EQ 'unite' then begin
;       domdef, boxzoom, gridtype = 'T'
;       if unite EQ 'degre' then BEGIN
;          if strpos(type,'y') NE -1 then begin
;             mini = floor(min([glamt, glamf], max = maxi))
;             maxi = ceil(maxi)
; print, lon1, mini, maxi
;             widget_control, sliderid, set_value = {value:lon1, slider_min_max:[mini, maxi]}
;          ENDIF ELSE BEGIN
;             mini = floor(min([gphit, glamf], max = maxi))
;             maxi = ceil(maxi)
;             widget_control, sliderid, set_value = {value:lat1, slider_min_max:[mini, maxi]}
;          ENDELSE
;       ENDIF ELSE BEGIN
;          if strpos(type,'y') NE -1 then BEGIN
; print, 'ds if',firstxt, 0, jpi-1
;             widget_control, sliderid, set_value = {value:firstxt, slider_min_max:[0, jpi-1]}
;          ENDIF ELSE BEGIN
;             widget_control, sliderid, set_value = {value:firstyt, slider_min_max:[0, jpj-1]}
;          ENDELSE
;       ENDELSE
;    endif
;
;   if unite EQ 'degre' then BEGIN
   if type EQ 'y' then begin
      boxzoom[0] = slider &  boxzoom[1] = slider+thickness
   ENDIF ELSE BEGIN
      boxzoom[2] = slider &  boxzoom[3] = slider+thickness
   ENDELSE
;    ENDIF ELSE BEGIN
;       if strpos(type,'y') NE -1 then begin
;          boxzoom[0] = glamt[slider, 0] &  boxzoom[1] = glamf[slider+thickness, 0]
;       ENDIF ELSE BEGIN
;          boxzoom[2] = gphit[0, slider] &  boxzoom[3] = gphif[0, slider+thickness]
;       ENDELSE
;    ENDELSE
   widget_control, domainid, set_value = boxzoom
   return, {CW_SLIDE_SLICE, ID:event.handler, TOP:event.top, HANDLER:0L}
end
;
;+
;
; @file_comments
;
; @categories
; Compound widget
;
; @param PARENT {in}{required}
; The widget ID of the parent widget.
;
; @keyword BOXZOOM
; Vector indicating the geographic zone on which we want to cut the map.
; If BOXZOOM has :
;   1 element : The extraction is made on [lon1, lon2, lat1, lat2, 0.,boxzoom[0]]
;   2 elements: The extraction is made on [lon1, lon2, lat1, lat2, boxzoom[0],boxzoom[1]]
;   4 elements: The extraction is made on [Boxzoom, 0, max([gdept, gdepw])]
;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]]
;   6 elements: The extraction is made on Boxzoom
; Where lon1, lon2,lat1,lat2 are global variables defined at the last
; <pro>domdef</pro> !
;
; @keyword COLUMN
; Buttons will be arranged in the number of columns
; specified by this keyword.
;
; @keyword FRAME
; Specifies the width of the frame to be drawn around the base.
;
; @keyword ROW
; Buttons will be arranged in the number of rows
; specified by this keyword.
;
; @keyword UVALUE
; The user value to be associated with the widget.
;
; @keyword UNAME
; The user name to be associated with the widget.
;
; @keyword _EXTRA
; Used to pass keywords
;
; @returns
;
; @uses
;
; @restrictions
;
; @examples
;
; @history
;
; @version
; $Id$
;
; @todo
; seb: documenter
;
;-
FUNCTION cw_slide_slice, parent, BOXZOOM=boxzoom, UVALUE=uvalue, UNAME=uname $
                       , FRAME=frame, ROW=row, COLUMN=column, _EXTRA=ex
;
  compile_opt idl2, strictarrsubs
;
@common
;------------------------------------------------
; checking exclusive keywords
   column = keyword_set(column)*(1-keyword_set(row))
   row = keyword_set(row)*(1-keyword_set(column)) +(keyword_set(row) EQ column)
   if NOT keyword_set(uvalue) then uvalue = ''
   if NOT keyword_set(uname) then uname = ''
;
   base = widget_base(parent, ROW = row, COLUMN = column  $
                      , EVENT_FUNC = 'cw_slide_slice_event' $
                      , FUNC_GET_VALUE='cw_slide_slice_get_value' $
                      , PRO_SET_VALUE='cw_slide_slice_set_value' $
                      , ROW = row, COLUMN = column, UVALUE = uvalue, UNAME = uname $
                      , FRAME = frame, _extra = ex)
;------------------------------------------------
   if NOT keyword_set(boxzoom) then boxzoom = [lon1, lon2, lat1, lat2]
;    rien = cw_bgroup(base, ['degre', 'points'],/exclusive, /column, uname = 'unite', uvalue = {name:'unite'}, /return_name, set_value = 0, /no_release)
   thicknessval = indgen(21)+1
   thicknessval = string(thicknessval)
   for i = 0, n_elements(thicknessval)-1 do thicknessval[i] = strtrim(thicknessval[i], 1)
   droplistid = cw_droplist_pm(base, value = thicknessval, uname = 'thickness', uvalue = {name:'thickness', choix:thicknessval})
;
   if boxzoom[1]-boxzoom[0] LT boxzoom[3]-boxzoom[2] then type = 'y' ELSE type = 'x'
   if type EQ 'y' then BEGIN
      mini = floor(min([glamt, glamf], max = maxi))
      thickness = boxzoom[1]-boxzoom[0]
      maxi = ceil(maxi)-thickness
      rien = cw_slider_pm(base, minimum = mini, maximum = (mini+1) > maxi $
                          , value = mini > boxzoom[0] < maxi, /column, uname = 'slider' $
                          , uvalue = {name:'slider'})
   ENDIF ELSE BEGIN
      mini = floor(min([gphit, gphif], max = maxi))
      thickness = boxzoom[3]-boxzoom[2]
      maxi = ceil(maxi)-thickness
      rien = cw_slider_pm(base, minimum = mini, maximum =  (mini+1) > maxi $
                          , value = mini > boxzoom[2] < maxi, /column, uname = 'slider' $
                          , uvalue = {name:'slider'})
   ENDELSE
   index = where(thicknessval EQ thickness) & index = index[0]
   if index EQ -1 then BEGIN
      index = 20
      thicknessval[20] = strtrim(thickness, 1)
      widget_control, droplistid, set_value = thicknessval
      widget_control, droplistid, set_uvalue ={name:'thickness', choix:thicknessval}
   endif
   widget_control, droplistid, set_value = {droplist_select:index}

;   if type EQ 'xt' then begin
;       mini = floor(min([glamt,glamf], max = maxi))
;       maxi = ceil(maxi)
;    ENDIF ELSE BEGIN
;       mini = floor(min([gphit,gphif], max = maxi))
;       maxi = ceil(maxi)
;    ENDELSE

;------------------------------------------------
   return, base
end