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.

Location:
sans/Dev/trunk/NCNR_User_Procedures/Common
Files:
2 edited
1 moved

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Common/Packages/PlotManager/PlotManager_v40.ipf

    r414 r418  
    7070// if it's right there, it's right here 
    7171Function/S A_OneDDataInMemory() 
    72         String list = W_DataSetPopupList() 
     72        //AJJ Oct 2008 
     73        //To make this general for both analysis and reduction this code must be a duplicate  
     74        //W_DataPopupList rather than a call to it as IGOR doesn't like assignment to function  
     75        //that doesn't exists even if you've done a if(exists... to check first. 
     76        //Grrr 
     77        String list = GetAList(4) 
     78        if (strlen(list) == 0) 
     79                list = "No data loaded" 
     80        endif 
     81        list = SortList(list) 
     82         
    7383        return(list) 
    7484end 
  • sans/Dev/trunk/NCNR_User_Procedures/Common/PlotUtilsMacro_v40.ipf

    r409 r418  
    768768                 
    769769End 
     770 
     771//AJJ Oct 2008 
     772//Moved from GaussUtils - makes more sense to have it here 
     773 
     774// utility used in the "PlotSmeared...() macros to get a list of data folders 
     775// 
     776//1:    Waves. 
     777//2:    Numeric variables. 
     778//3:    String variables. 
     779//4:    Data folders. 
     780Function/S GetAList(type) 
     781        Variable type 
     782         
     783        SetDataFolder root: 
     784         
     785        String objName,str="" 
     786        Variable index = 0 
     787        do 
     788                objName = GetIndexedObjName(":", type, index) 
     789                if (strlen(objName) == 0) 
     790                        break 
     791                endif 
     792                //Print objName 
     793                str += objName + ";" 
     794                index += 1 
     795        while(1) 
     796         
     797        // remove myGlobals, Packages from the folder list 
     798        if(type==4) 
     799                str = RemoveFromList("myGlobals", str , ";" ) 
     800                str = RemoveFromList("Packages", str, ";") 
     801                str = RemoveFromList("AutoFit", str, ";") 
     802        endif 
     803         
     804        return(str) 
     805End 
Note: See TracChangeset for help on using the changeset viewer.