Changeset 152 for trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/longclickaction.pro

Timestamp:

08/10/06 09:01:35 (18 years ago)

Author:

smasson

Message:

introduce pltv.pro

File:

• trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/longclickaction.pro (modified) (3 diffs)

trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/longclickaction.pro

@@ -57 +57 @@
   !y = (extractatt(top_uvalue, 'yenvs'))[numdessin]
 ;------------------------------------------------------------
+  actionid = widget_info(event.top, find_by_uname = 'action')
+  type = widget_info(actionid, /combobox_gettext)
+;------------------------------------------------------------
 ; Change the domain box:
 ;------------------------------------------------------------
@@ -63 +66 @@
   y = [coor[1, 0], coor[1, 1]]
   domainid = widget_info(event.top, find_by_uname = 'domain')
-  boxzoom = [x, y]
+  IF type EQ 'pltv' THEN BEGIN 
+    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])
+    grille, -1, glam, gphi
+    boxzoom = [glam[x[0], y[0]], glam[x[1], y[1]], gphi[x[0], y[0]], gphi[x[1], y[1]]]
+  ENDIF ELSE boxzoom = [x, y]
 ; Do we have to pass the boxzoom in indexes ???
   currentplot = (extractatt(top_uvalue, 'smallin'))[2]-1
@@ -88 +101 @@
   widget_control, domainid, set_value = boxzoom
 ;
-;------------------------------------------------------------
-  actionid = widget_info(event.top, find_by_uname = 'action')
-  type = widget_info(actionid, /combobox_gettext)
   case uval.press of
     1:BEGIN