Changeset 213 for trunk/SRC/ToBeReviewed


Ignore:
Timestamp:
02/16/07 12:29:17 (17 years ago)
Author:
smasson
Message:

bugfix: keywords in xxx

Location:
trunk/SRC/ToBeReviewed
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/ToBeReviewed/PLOTS/reinitplt.pro

    r163 r213  
    2929; @keyword INVERT 
    3030; Invert the logic. Clear all unselected variables. 
    31 ; Therefore "clearplt,/all,/invert" does nothing. 
     31; Therefore "reinitplt,/all,/invert" does nothing. 
    3232; 
    3333; @uses 

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

    r192 r213  
    3434; 
    3535;- 
    36 PRO loadgrid, meshfilein, _extra = ex 
    37 ; 
     36PRO loadgrid, meshfiletxtin, _extra = ex 
    3837;  
     38  meshfilein = strsed(meshfiletxtin,'@@@', '''') 
    3939; 
    4040  compile_opt idl2, strictarrsubs 
    … …  
    6363  ENDELSE 
    6464; add the arguments and keywords if necessary 
    65   IF n_elements(meshfile) GT 1 AND strmid(listing, 0, 1) NE '@' THEN BEGIN  
    66     FOR i = 1, n_elements(meshfile)-1 DO BEGIN 
    67       IF strpos(meshfile[i], '.') NE -1 THEN str = isnumber(meshfile[i]) ELSE str = createfunc('n_elements('+meshfile[i]+')') 
    68       IF str EQ 0 THEN listing = listing + ', ''' + meshfile[i] + '''' ELSE listing = listing + ', ' + meshfile[i] 
    69     ENDFOR 
    70   ENDIF 
     65  IF n_elements(meshfile) GT 1 AND strmid(listing, 0, 1) NE '@' THEN $  
     66    listing = listing + strmid(meshfilein, strpos(meshfilein, ',')) 
    7167 
     68  meshfilein = strsed(meshfilein, '''', '@@@') 
    7269  IF strmid(listing, 0, 1) NE '@' THEN listing = listing + ', strcalling = ''' + meshfilein + ''', _extra = ex' 
    7370 

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

    r202 r213  
    172172      widget_control, event.handler, /destroy 
    173173    END 
    174  
     174    ELSE: 
    175175  endcase 
    176176  return 
Note: See TracChangeset for help on using the changeset viewer.