Ignore:
Timestamp:
Oct 7, 2008 1:09:04 PM (14 years ago)
Author:
ajj
Message:

Moving data folders into root:Packages:NIST

This could be hairy.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Analysis/Models/GaussUtils_v40.ipf

    r353 r418  
    6161EndStructure 
    6262 
    63 // utility used in the "PlotSmeared...() macros to get a list of data folders 
    64 // 
    65 //1:    Waves. 
    66 //2:    Numeric variables. 
    67 //3:    String variables. 
    68 //4:    Data folders. 
    69 Function/S GetAList(type) 
    70         Variable type 
    71          
    72         SetDataFolder root: 
    73          
    74         String objName,str="" 
    75         Variable index = 0 
    76         do 
    77                 objName = GetIndexedObjName(":", type, index) 
    78                 if (strlen(objName) == 0) 
    79                         break 
    80                 endif 
    81                 //Print objName 
    82                 str += objName + ";" 
    83                 index += 1 
    84         while(1) 
    85          
    86         // remove myGlobals, Packages from the folder list 
    87         if(type==4) 
    88                 str = RemoveFromList("myGlobals", str , ";" ) 
    89                 str = RemoveFromList("Packages", str, ";") 
    90                 str = RemoveFromList("AutoFit", str, ";") 
    91         endif 
    92          
    93         return(str) 
    94 End 
     63 
    9564 
    9665 
Note: See TracChangeset for help on using the changeset viewer.