Changeset 152 for trunk/SRC/ToBeReviewed/WIDGET

Timestamp:

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

Author:

smasson

Message:

introduce pltv.pro

Location:

trunk/SRC/ToBeReviewed/WIDGET

Files:

• AUTOUR_de_XXX/buildcmd.pro (modified) (2 diffs)
• AUTOUR_de_XXX/longclickaction.pro (modified) (3 diffs)
• AUTOUR_de_XXX/selectfile.pro (modified) (4 diffs)
• xxx.pro (modified) (1 diff)

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

@@ -64 +64 @@
   ELSE type = widget_info(actionid, /combobox_gettext)
   case type of
-    'plt':procedure = 'plt'
-    'pltz':procedure = 'pltz'
     'pltz diag up':procedure = 'pltz'
     'pltz diag dn':procedure = 'pltz'
-    'pltt':procedure = 'pltt'
     'pltt diag up':procedure = 'pltt'
     'pltt diag dn':procedure = 'pltt'
@@ -81 +78 @@
     'z':procedure = 'plt1d'
     't':procedure = 'pltt'
+    ELSE:procedure = type
   endcase
 ;

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

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

@@ -25 +25 @@
     'datafilename':BEGIN
       widget_control, event.id, get_value = filename
-      filename = isafile(filename = filename[0], iodir = iodir, /onlync, title = 'data file name')
+      filename = isafile(filename = filename[0], /onlync $
+                         , title = 'data file name', /tryfind, /fully_qualify_path)
       if size(filename, /type) NE 7 then BEGIN 
         widget_control, event.id, set_value = ''
@@ -33 +34 @@
     END
     'browse datafilename':BEGIN
-      filename = isafile(iodir = iodir, /onlync, title = 'data file name')
+      filename = isafile(/onlync, title = 'data file name', /tryfind, /fully_qualify_path)
       if size(filename, /type) NE 7 then return
       widget_control, widget_info(event.handler, find_by_uname = 'datafilename') $
@@ -102 +103 @@
       datafilename = datafilename[0]
       IF datafilename EQ '' THEN return
-      datafilename = isafile(filename = datafilename, iodir = iodir, /onlync, title = 'data file name')
+      datafilename = isafile(filename = datafilename, /tryfind, /onlync $
+                             , title = 'data file name', /fully_qualify_path)
       if size(datafilename, /type) NE 7 then BEGIN 
         widget_control, widget_info(event.handler, find_by_uname = 'datafilename') $
@@ -266 +268 @@
           , izmindta:izmindta, izmaxdta:izmaxdta}
 
-  res3 = scanfile(res.datafilename, iodir = iodir, _extra = ex)
+  res3 = scanfile(res.datafilename, _extra = ex)
   if size(res3, /type) NE 8 then return,  -1
 

trunk/SRC/ToBeReviewed/WIDGET/xxx.pro

@@ -229 +229 @@
   xoff = 0
   yoff = 0
-  pltlst = ['plt' $
+  pltlst = ['plt', 'pltv' $
             , 'pltz', 'pltz diag up', 'pltz diag dn' $
             , 'pltt', 'pltt diag up', 'pltt diag dn' $