Changeset 285 for trunk/SRC/ToBeReviewed

Timestamp:

09/14/07 13:05:09 (17 years ago)

Author:

smasson

Message:

allways return back a scalar is /firstfound used

Location:

trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX

Files:

• loadgrid.pro (modified) (2 diffs)
• selectfile.pro (modified) (2 diffs)

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

@@ -40 +40 @@
   meshfile = strtrim(meshfile, 2)
 ; try to find a .pro file with this name...
-  filepro = (find(meshfile[0], /firstfound, /onlypro))[0]
+  filepro = find(meshfile[0], /firstfound, /onlypro)
 ; if this is an idl batch file or a procedure
   if filepro NE 'NOT FOUND' THEN BEGIN
@@ -52 +52 @@
     ENDCASE
   ENDIF ELSE BEGIN
-    filenc = (find(meshfile[0], /firstfound, /onlync))[0]
+    filenc = find(meshfile[0], /firstfound, /onlync)
     if filenc EQ 'NOT FOUND' THEN stop
     listing = 'initncdf, ''' + filenc +''''

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

@@ -85 +85 @@
     'meshload':BEGIN
       widget_control, event.id, get_value = filename
-      filename = (find(filename[0], /onlypro, /firstfound))[0]
+      filename = find(filename[0], /onlypro, /firstfound)
       if filename EQ 'NOT FOUND' then begin
         widget_control, event.id, set_value = ''
@@ -150 +150 @@
           meshload = meshload[0]
           IF meshload EQ '' THEN return
-          meshload = (find(meshload[0], /onlypro, /firstfound))[0]
+          meshload = find(meshload[0], /onlypro, /firstfound)
           if meshload EQ 'NOT FOUND' then begin
             widget_control, meshload_id, set_value = ''