Changeset 69 for trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/longclickaction.pro

Timestamp:

05/11/06 12:35:53 (18 years ago)

Author:

smasson

Message:

debug + new xxx

File:

• trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/longclickaction.pro (modified) (1 diff)

trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/longclickaction.pro

@@ -1 +1 @@
 PRO longclickaction, event
-   widget_control, event.id, get_uvalue=uval
-   widget_control,event.top, get_uvalue = top_uvalue
+  widget_control, event.id, get_uvalue = uval
+  widget_control, event.top, get_uvalue = top_uvalue
 ; quel est le dessin selectionne??
-   smallout = extractatt(top_uvalue, 'smallout')
-   smallin = extractatt(top_uvalue, 'smallin')
-   small = smallin
-   x = (convert_coord(uval.x[0],uval.y[0], /device, /to_normal))[0]
-   y = (convert_coord(uval.x[0],uval.y[0], /device, /to_normal))[1]
-   numcolonne = n_elements(where(findgen(small[0])/small[0] lt x))-1
-   numligne = n_elements(where(findgen(small[1])/small[1] lt 1-y))-1
-   numdessin = numcolonne+numligne*small[0]
-; on met ce cadrant en leader
-   tracecadre, smallin, /erase
-   if total(smallin EQ smallout) EQ 3 then $
-    tracecadre, smallout, /out
-   smallin = [smallin[0:1], numdessin+1]
-   *top_uvalue[1, findline(top_uvalue, 'smallin')] = smallin
-   tracecadre, smallin
-   !p = (extractatt(top_uvalue, 'penvs'))[numdessin]
-   !x = (extractatt(top_uvalue, 'xenvs'))[numdessin]
-   !y = (extractatt(top_uvalue, 'yenvs'))[numdessin]
+  smallout = extractatt(top_uvalue, 'smallout')
+  smallin = extractatt(top_uvalue, 'smallin')
+  small = smallin
+  x = (convert_coord(uval.x[0], uval.y[0], /device, /to_normal))[0]
+  y = (convert_coord(uval.x[0], uval.y[0], /device, /to_normal))[1]
+  numcolonne = n_elements(where(findgen(small[0])/small[0] lt x))-1
+  numligne = n_elements(where(findgen(small[1])/small[1] lt 1-y))-1
+  numdessin = numcolonne+numligne*small[0]
+; we put on numdessin as the leader plot
+  tracecadre, smallin, /erase
+  if total(smallin EQ smallout) EQ 3 then $
+     tracecadre, smallout, /out
+  smallin = [smallin[0:1], numdessin+1]
+  *top_uvalue[1, findline(top_uvalue, 'smallin')] = smallin
+  tracecadre, smallin
+  !p = (extractatt(top_uvalue, 'penvs'))[numdessin]
+  !x = (extractatt(top_uvalue, 'xenvs'))[numdessin]
+  !y = (extractatt(top_uvalue, 'yenvs'))[numdessin]
+;------------------------------------------------------------
+; Change the domain box:
+;------------------------------------------------------------
+  coor = (convert_coord(uval.x, uval.y, /device, /to_data))
+  x = [coor[0, 0], coor[0, 1]]
+  y = [coor[1, 0], coor[1, 1]]
+  domainid = widget_info(event.top, find_by_uname = 'domain')
+  boxzoom = [x, y]
+; faut-il passer la boxzoom en indexes ???
+  currentplot = (extractatt(top_uvalue, 'smallin'))[2]-1
+  options = extractatt(top_uvalue, 'options')   
+  flags = extractatt(top_uvalue, 'optionsflag')
+  flags = flags[*, currentplot]
+  changex = (flags[where(options EQ 'Longitude / x index')])[0] EQ 1
+  changey = (flags[where(options EQ 'Latitude / y index')])[0] EQ 1
+  if changex OR changey then begin
+; on veut retrouver le type de grille qui est utilisee
+    currentfile = extractatt(top_uvalue, 'currentfile')
+    listgrid = (*(extractatt(top_uvalue, 'fileparameters'))[currentfile]).listgrid
+    listvar = (*(extractatt(top_uvalue, 'fileparameters'))[currentfile]).listvar
+    vlstid = widget_info(event.top, find_by_uname = 'varlist')
+    namevar = widget_info(vlstid, /combobox_gettext)
+    indexvar = where(listvar EQ namevar)
+    vargrid = strupcase(listgrid[indexvar])
+    domdef, boxzoom, gridtype = vargrid
+    grille, -1, -1, -1, -1, nx, ny, nz, firstx, firsty, firstz, lastx, lasty, lastz
+    if changex then boxzoom[0:1] = [firstx, lastx]
+    if changey then boxzoom[2:3] = [firsty, lasty]
+  endif
+;
+  widget_control, domainid, set_value = boxzoom
 ;
 ;------------------------------------------------------------
-; changement de domaine:
+  actionid = widget_info(event.top, find_by_uname = 'action')
+  type = widget_info(actionid, /combobox_gettext)
+  case uval.press of
+    1:BEGIN
+      nodates = (type EQ 'xt' OR type EQ 'yt' OR type EQ 'zt' OR type EQ 't')
+      updatewidget, event.top, /noboxzoom, nodates = nodates, notype = type NE 'plt'
+      letsdraw, event.top
+    END
+    2:BEGIN 
+      IF type EQ 'plt' THEN BEGIN 
+        (*top_uvalue[1, findline(top_uvalue, 'types')])[smallout[2]-1] = 'pltz'
+        forcetype = 'pltz'
+      ENDIF 
+      updatewidget, event.top, /noboxzoom
+      letsdraw, event.top
+    END
+    4:BEGIN
+      IF type EQ 'plt' THEN BEGIN 
+        (*top_uvalue[1, findline(top_uvalue, 'types')])[smallout[2]-1] = 'pltt'
+        forcetype = 'pltt'
+      ENDIF 
+      updatewidget, event.top, /noboxzoom, /nodates
+      letsdraw, event.top, forcetype = forcetype
+    END
+  endcase
 ;------------------------------------------------------------
-   coor = (convert_coord(uval.x,uval.y, /device, /to_data))
-   x = [coor[0, 0],coor[0, 1]]
-   y = [coor[1, 0],coor[1, 1]]
-   domainid = widget_info(event.top,find_by_uname = 'domain')
-   boxzoom = [x, y]
-; faut-il passer la boxzoom en indexes ???
-   currentplot = (extractatt(top_uvalue, 'smallin'))[2]-1
-   options = extractatt(top_uvalue, 'options')   
-   flags = extractatt(top_uvalue, 'optionsflag')
-   flags = flags[*, currentplot]
-   changex = (flags[where(options EQ 'Longitude / x index')])[0] EQ 1
-   changey = (flags[where(options EQ 'Latitude / y index')])[0] EQ 1
-   if changex OR changey then begin
-; on veut retrouver le type de grille qui est utilisee
-      currentfile = extractatt(top_uvalue, 'currentfile')
-      listgrid = (*(extractatt(top_uvalue, 'fileparameters'))[currentfile]).listgrid
-      indexvar = widget_info(widget_info(event.top, find_by_uname = 'champ'), /droplist_select)
-      vargrid = strupcase(listgrid[indexvar])
-      domdef, boxzoom, gridtype = vargrid
-      grille, -1, -1, -1, -1,nx,ny,nz,firstx,firsty,firstz,lastx,lasty,lastz
-      if changex then boxzoom[0:1] = [firstx, lastx]
-      if changey then boxzoom[2:3] = [firsty, lasty]
-   endif
-;
-   widget_control, domainid, set_value = boxzoom
-;
-;------------------------------------------------------------
-   graphtypeid = widget_info(event.top, find_by_uname = 'action')
-   widget_control,graphtypeid, get_uvalue = graphtype_uvalue
-   type = graphtype_uvalue.choix[widget_info(graphtypeid, /droplist_select)]
-   case uval.press of
-      1:BEGIN
-         nodates = (type EQ 'xt' OR type EQ 'yt' OR type EQ 'zt' OR type EQ 't')
-         updatewidget, event.top, /noboxzoom, nodates = nodates, notype = type NE 'plt'
-         forplth = type EQ 'plt'
-         letsdraw, event.top, forplth = forplth
-      END
-      2:BEGIN 
-         updatewidget, event.top, /noboxzoom
-         forpltz = type EQ 'plt'
-         letsdraw, event.top, forpltz = forpltz
-      END
-      4:BEGIN
-         updatewidget, event.top, /noboxzoom, /nodates
-         forpltt = type EQ 'plt'
-         letsdraw, event.top, forpltt = forpltt
-      END
-   endcase
-;------------------------------------------------------------
-   return
+  return
 end