Changeset 670 for sans/Dev


Ignore:
Timestamp:
Apr 8, 2010 1:28:21 PM (13 years ago)
Author:
srkline
Message:

Corrections to NSORT and CombineFiles? to work with XML i/o.

CombineFiles? table hook now is properly active only in the upper table.

Some file filtering functions have been streamlined, but are still somewhat redundant, and could be consolidated. These are whenever listing of reduced files is requested (filter out what is known to be something else)

Commented out print statements from XML reader.

Location:
sans/Dev/trunk/NCNR_User_Procedures
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Common/NIST_XML_v40.ipf

    r669 r670  
    2626 
    2727                 
    28         Print "Trying to load canSAS XML format data"  
     28//      Print "Trying to load canSAS XML format data"  
    2929        Variable result = CS_XMLReader(filestr) 
    3030         
     
    7979                                                //print "fileName: ",fileName 
    8080                                                //remove the semicolon AND period from files from the VAX 
    81                                                 print basestr 
     81//                                              print basestr 
    8282                                                w0 = basestr + "_q" 
    8383                                                w1 = basestr + "_i" 
     
    195195                                        SetDataFolder xmlDataFolder                                      
    196196                                         
    197                                         print xmlDataFolder 
     197//                                      print xmlDataFolder 
    198198                                         
    199199                                        //if outstr has been specified, we'll find ourselves here.... 
     
    676676                endif 
    677677                buffer = RemoveEnding(buffer) 
    678                 print buffer 
     678//              print buffer 
    679679                //Get run value 
    680680                if (stringmatch(buffer,"*file:*") == 1) 
  • sans/Dev/trunk/NCNR_User_Procedures/Common/Packages/PlotManager/PlotUtilsMacro_v40.ipf

    r668 r670  
    13021302////// 
    13031303//on main portion of panel, always visible 
    1304         Button PrefPanelButtA,pos={354,12},size={50,20},proc=PrefDoneButtonProc,title="Done" 
     1304        Button PrefPanelButtonA,pos={354,12},size={50,20},proc=PrefDoneButtonProc,title="Done" 
    13051305 
    13061306        TabControl PrefTab,pos={7,49},size={410,202},tabLabel(0)="General",proc=PrefTabProc 
     
    13101310         
    13111311//on tab(0) - General - initially visible 
    1312         CheckBox PrefChec_0a,pos={21,96},size={124,14},proc=XMLWritePref,title="Use canSAS XML Output" 
    1313         CheckBox PrefChec_0a,help={"Checking this will set the default output format to be canSAS XML rather than NIST 6 column"} 
    1314         CheckBox PrefChec_0a,value= root:Packages:NIST:gXML_Write 
     1312        CheckBox PrefCtrl_0a,pos={21,96},size={124,14},proc=XMLWritePref,title="Use canSAS XML Output" 
     1313        CheckBox PrefCtrl_0a,help={"Checking this will set the default output format to be canSAS XML rather than NIST 6 column"} 
     1314        CheckBox PrefCtrl_0a,value= root:Packages:NIST:gXML_Write 
    13151315 
    13161316//on tab(1) - SANS 
    1317         CheckBox PrefChec_1a,pos={21,100},size={171,14},proc=LogScalePrefCheck,title="Use Log scaling for 2D data display" 
    1318         CheckBox PrefChec_1a,help={"Checking this will display 2D SANS data with a logarithmic color scale of neutron counts. If not checked, the color mapping will be linear."} 
    1319         CheckBox PrefChec_1a,value= root:Packages:NIST:gLogScalingAsDefault 
    1320         CheckBox PrefChec_1b,pos={21,120},size={163,14},proc=DRKProtocolPref,title="Allow DRK correction in protocols" 
    1321         CheckBox PrefChec_1b,help={"Checking this will allow DRK correction to be used in reduction protocols. You will need to re-draw the protocol panel for this change to be visible."} 
    1322         CheckBox PrefChec_1b,value= root:Packages:NIST:gAllowDRK 
    1323         CheckBox PrefChec_1c,pos={21,140},size={137,14},proc=UnityTransPref,title="Check for Transmission = 1" 
    1324         CheckBox PrefChec_1c,help={"Checking this will check for SAM or EMP Trans = 1 during data correction"} 
    1325         CheckBox PrefChec_1c,value= root:Packages:NIST:gDoTransCheck 
    1326         SetVariable PrefSetV_1d,pos={21,170},size={200,15},title="Averaging Bin Width (pixels)" 
    1327         SetVariable PrefSetV_1d,limits={1,100,1},value= root:Packages:NIST:gBinWidth 
    1328         SetVariable PrefSetV_1e,pos={21,195},size={200,15},title="# Phi Steps (annular avg)" 
    1329         SetVariable PrefSetV_1e,limits={1,360,1},value= root:Packages:NIST:gNPhiSteps 
    1330         CheckBox PrefChec_1f title="Do Transmssion Correction?",size={140,14},value=1 
    1331         CheckBox PrefChec_1f pos={255,100},help={"TURN OFF ONLY FOR DEBUGGING. This corrects the data for angle dependent transmssion."} 
    1332         CheckBox PrefChec_1g title="Do Efficiency Correction?",size={140,14} 
    1333         CheckBox PrefChec_1g value=1,pos={255,120},help={"TURN OFF ONLY FOR DEBUGGING. This corrects the data for angle dependent detector efficiency."} 
    1334  
    1335  
    1336         CheckBox PrefChec_1a,disable=1 
    1337         CheckBox PrefChec_1b,disable=1 
    1338         CheckBox PrefChec_1c,disable=1 
    1339         SetVariable PrefSetV_1d,disable=1 
    1340         SetVariable PrefSetV_1e,disable=1 
    1341         CheckBox PrefChec_1f,disable=1 
    1342         CheckBox PrefChec_1g,disable=1 
     1317        CheckBox PrefCtrl_1a,pos={21,100},size={171,14},proc=LogScalePrefCheck,title="Use Log scaling for 2D data display" 
     1318        CheckBox PrefCtrl_1a,help={"Checking this will display 2D SANS data with a logarithmic color scale of neutron counts. If not checked, the color mapping will be linear."} 
     1319        CheckBox PrefCtrl_1a,value= root:Packages:NIST:gLogScalingAsDefault 
     1320        CheckBox PrefCtrl_1b,pos={21,120},size={163,14},proc=DRKProtocolPref,title="Allow DRK correction in protocols" 
     1321        CheckBox PrefCtrl_1b,help={"Checking this will allow DRK correction to be used in reduction protocols. You will need to re-draw the protocol panel for this change to be visible."} 
     1322        CheckBox PrefCtrl_1b,value= root:Packages:NIST:gAllowDRK 
     1323        CheckBox PrefCtrl_1c,pos={21,140},size={137,14},proc=UnityTransPref,title="Check for Transmission = 1" 
     1324        CheckBox PrefCtrl_1c,help={"Checking this will check for SAM or EMP Trans = 1 during data correction"} 
     1325        CheckBox PrefCtrl_1c,value= root:Packages:NIST:gDoTransCheck 
     1326        SetVariable PrefCtrl_1d,pos={21,170},size={200,15},title="Averaging Bin Width (pixels)" 
     1327        SetVariable PrefCtrl_1d,limits={1,100,1},value= root:Packages:NIST:gBinWidth 
     1328        SetVariable PrefCtrl_1e,pos={21,195},size={200,15},title="# Phi Steps (annular avg)" 
     1329        SetVariable PrefCtrl_1e,limits={1,360,1},value= root:Packages:NIST:gNPhiSteps 
     1330        CheckBox PrefCtrl_1f title="Do Transmssion Correction?",size={140,14},value=1 
     1331        CheckBox PrefCtrl_1f pos={255,100},help={"TURN OFF ONLY FOR DEBUGGING. This corrects the data for angle dependent transmssion."} 
     1332        CheckBox PrefCtrl_1g title="Do Efficiency Correction?",size={140,14} 
     1333        CheckBox PrefCtrl_1g value=1,pos={255,120},help={"TURN OFF ONLY FOR DEBUGGING. This corrects the data for angle dependent detector efficiency."} 
     1334 
     1335 
     1336        CheckBox PrefCtrl_1a,disable=1 
     1337        CheckBox PrefCtrl_1b,disable=1 
     1338        CheckBox PrefCtrl_1c,disable=1 
     1339        SetVariable PrefCtrl_1d,disable=1 
     1340        SetVariable PrefCtrl_1e,disable=1 
     1341        CheckBox PrefCtrl_1f,disable=1 
     1342        CheckBox PrefCtrl_1g,disable=1 
    13431343 
    13441344//on tab(2) - USANS 
    1345         GroupBox PrefGrou_2a pos={21,100},size={1,1},title="nothing to set",fSize=12 
    1346  
    1347         GroupBox PrefGrou_2a,disable=1 
     1345        GroupBox PrefCtrl_2a pos={21,100},size={1,1},title="nothing to set",fSize=12 
     1346 
     1347        GroupBox PrefCtrl_2a,disable=1 
    13481348 
    13491349 
    13501350//on tab(3) - Analysis 
    1351         GroupBox PrefGrou_3a pos={21,100},size={1,1},title="nothing to set",fSize=12 
    1352          
    1353         GroupBox PrefGrou_3a,disable=1 
     1351        GroupBox PrefCtrl_3a pos={21,100},size={1,1},title="nothing to set",fSize=12 
     1352         
     1353        GroupBox PrefCtrl_3a,disable=1 
    13541354 
    13551355EndMacro 
     
    13701370        Variable num = ItemsinList(ctrlList,";"),ii,onTab 
    13711371        for(ii=0;ii<num;ii+=1) 
    1372                 //items all start w/"PrefCtrl_" 
     1372                //items all start w/"PrefCtrl_", 9 characters 
    13731373                item=StringFromList(ii, ctrlList ,";") 
    1374                 nameStr=item[0,10] 
    1375                 strswitch(item[0,7])     
    1376                         case "PrefChec":                 
    1377                                 onTab = str2num(item[9]) 
    1378                                 CheckBox $item,disable=(tab!=onTab) 
    1379                                 break                                           // exit from switch 
    1380                         case "PrefSetV":                 
    1381                                 onTab = str2num(item[9]) 
    1382                                 SetVariable $item,disable=(tab!=onTab) 
    1383                                 break 
    1384                         case "PrefGrou":                 
    1385                                 onTab = str2num(item[9]) 
    1386                                 GroupBox $item,disable=(tab!=onTab) 
    1387                                 break 
    1388                         default: 
    1389                                         //do nothing for no match 
    1390                 endswitch 
    1391          
     1374                nameStr=item[0,8] 
     1375                if(cmpstr(nameStr,"PrefCtrl_")==0) 
     1376                        onTab = str2num(item[9])                        //[9] is a number 
     1377                        ControlInfo $item 
     1378                        switch(abs(V_flag))      
     1379                                case 1: 
     1380                                        Button $item,disable=(tab!=onTab) 
     1381                                        break 
     1382                                case 2:  
     1383                                        CheckBox $item,disable=(tab!=onTab) 
     1384                                        break 
     1385                                case 5:  
     1386                                        SetVariable $item,disable=(tab!=onTab) 
     1387                                        break 
     1388                                case 10:         
     1389                                        TitleBox $item,disable=(tab!=onTab) 
     1390                                        break 
     1391                                case 4: 
     1392                                        ValDisplay $item,disable=(tab!=onTab) 
     1393                                        break 
     1394                                case 9: 
     1395                                        GroupBox $item,disable=(tab!=onTab) 
     1396                                        break 
     1397                                // add more items to the switch if different control types are used 
     1398                        endswitch 
     1399                endif 
    13921400        endfor  
    1393 End 
    1394  
     1401        return(0) 
     1402End 
     1403 
  • sans/Dev/trunk/NCNR_User_Procedures/Common/canSASXML.ipf

    r658 r670  
    115115        STRSWITCH(ns)    
    116116        CASE "cansas1d/1.0":                                                    // version 1.0 of the canSAS 1-D reduced SAS data standard 
    117                 PRINT fileName, "\t\t identified as: cansas1d/1.0 XML file" 
     117//              PRINT fileName, "\t\t identified as: cansas1d/1.0 XML file" 
    118118                returnCode = CS_1i_parseXml(fileID)                     //  This is where the action happens! 
    119119                IF (returnCode != 0) 
     
    613613                TitlePath = "" 
    614614        ENDIF 
    615         PRINT "\t Title:", Title 
     615//      PRINT "\t Title:", Title 
    616616        RETURN(Title) 
    617617END 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/NCNR_Utils.ipf

    r644 r670  
    12901290         
    12911291        list = IndexedFile(catpathName,-1,"????") 
    1292         num=ItemsInList(list,";") 
    1293         //print "num = ",num 
    1294         for(ii=(num-1);ii>=0;ii-=1) 
    1295                 item = StringFromList(ii, list  ,";") 
    1296                 //simply remove all that are not raw data files (SA1 SA2 SA3) 
    1297                 if( !stringmatch(item,"*.SA1*") && !stringmatch(item,"*.SA2*") && !stringmatch(item,"*.SA3*") ) 
    1298                         if( !stringmatch(item,".*") && !stringmatch(item,"*.pxp") && !stringmatch(item,"*.DIV"))                //eliminate mac "hidden" files, pxp, and div files 
    1299                                 newlist += item + ";" 
    1300                         endif 
    1301                 endif 
    1302         endfor 
     1292         
     1293        list = RemoveFromList(ListMatch(list,"*.SA1*",";"), list, ";", 0) 
     1294        list = RemoveFromList(ListMatch(list,"*.SA2*",";"), list, ";", 0) 
     1295        list = RemoveFromList(ListMatch(list,"*.SA3*",";"), list, ";", 0) 
     1296        list = RemoveFromList(ListMatch(list,".*",";"), list, ";", 0) 
     1297        list = RemoveFromList(ListMatch(list,"*.pxp",";"), list, ";", 0) 
     1298        list = RemoveFromList(ListMatch(list,"*.DIV",";"), list, ";", 0) 
     1299        list = RemoveFromList(ListMatch(list,"*.GSP",";"), list, ";", 0) 
     1300        list = RemoveFromList(ListMatch(list,"*.MASK",";"), list, ";", 0) 
     1301 
    13031302        //remove VAX version numbers 
    1304         newList = RemoveVersNumsFromList(newList) 
     1303        list = RemoveVersNumsFromList(List) 
    13051304        //sort 
    1306         newList = SortList(newList,";",0) 
     1305        newList = SortList(List,";",0) 
    13071306 
    13081307        return newlist 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/NSORT.ipf

    r665 r670  
    14211421// run numbers and a run prefix 
    14221422// 
     1423// it is assumed that you are combining data from the current reduction session, 
     1424// so that the XML y/n hasn't changed. 
    14231425// 
    14241426Function Set3NSORTFiles(low,med,hi,pref) 
     
    14271429         
    14281430        //make strings from the numbers 
    1429         String absStr="" 
     1431        String absStr="",ext 
    14301432        Variable popNum 
    14311433        DoWindow/F NSORT_Panel 
     
    14341436        SVAR medHiQPopStr = root:myGlobals:NSORT:gDataPopList_3 
    14351437         
    1436         String ext = ".ABS" 
     1438        NVAR useXMLOutput = root:Packages:NIST:gXML_Write 
     1439        if(useXMLOutput) 
     1440                ext = ".ABSx" 
     1441        else 
     1442                ext = ".ABS" 
     1443        endif 
    14371444         
    14381445        //lowQ menu 
    14391446        absStr = pref+ThreeDigitString(low)+ext 
    1440         popNum = 1+WhichListItem(absStr,lowQPopStr,";",0) 
     1447        popNum = WhichListItem(absStr,lowQPopStr,";",0) 
     1448        if(popNum == -1) 
     1449                Abort "Could not find file: " + absStr +" aborting..." 
     1450        endif 
     1451        popNum += 1             // add 1 to get the item number 
    14411452        PopupMenu popup_1,win=NSORT_Panel,mode=(popNum) 
     1453         
    14421454        //medQ (a different list for the popup) 
    14431455        absStr = pref+ThreeDigitString(med)+ext 
    1444         popNum = 1+WhichListItem(absStr,medHiQPopStr,";",0) 
     1456        popNum = WhichListItem(absStr,medHiQPopStr,";",0) 
     1457        if(popNum == -1) 
     1458                Abort "Could not find file: "+absStr+" aborting..." 
     1459        endif 
     1460        popNum += 1             // add 1 to get the item number 
    14451461        PopupMenu popup_2,win=NSORT_Panel,mode=(popNum) 
     1462         
     1463         
    14461464        //highQ (same pop list as medQ) 
    14471465        if(hi != 0) 
    14481466                absStr = pref+ThreeDigitString(hi)+ext 
    1449                 popNum = 1+WhichListItem(absStr,medHiQPopStr,";",0) 
     1467                popNum = WhichListItem(absStr,medHiQPopStr,";",0) 
     1468                if(popNum == -1) 
     1469                        Abort "Could not find file: "+absStr+" aborting..." 
     1470                endif 
     1471                popNum += 1             // add 1 to get the item number 
    14501472                PopupMenu popup_3,win=NSORT_Panel,mode=(popNum) 
    14511473        else 
     
    14861508        Make/O/D/N=0 $"root:myGlobals:CombineTable:IsTrans" 
    14871509 
    1488 //      If(V_Flag==0) 
    1489                 BuildCombineTableWindow() 
    1490                 ModifyTable/W=CombinePanel#FilesToCombine width(:myGlobals:CombineTable:SDD)=40 
    1491                 ModifyTable/W=CombinePanel#FilesToCombine width(:myGlobals:CombineTable:Labels)=180 
    1492                  
    1493                 ModifyTable/W=CombinePanel#FilesToCombine width(Point)=0                //JUN04, remove point numbers - confuses users since point != run 
    1494 //      Endif 
     1510 
     1511        AppendToTable/W=CombinePanel#GroupedFiles root:myGlobals:CombineTable:Labels, root:myGlobals:CombineTable:SDD, root:myGlobals:CombineTable:RunNumber 
     1512 
     1513        ModifyTable/W=CombinePanel#GroupedFiles width(:myGlobals:CombineTable:SDD)=40 
     1514        ModifyTable/W=CombinePanel#GroupedFiles width(:myGlobals:CombineTable:Labels)=180 
     1515        ModifyTable/W=CombinePanel#GroupedFiles width(Point)=0          //JUN04, remove point numbers - confuses users since point != run 
     1516 
    14951517 
    14961518        //get a list of all files in the folder, some will be junk version numbers that don't exist      
     
    15541576        Make/O/T/N=0 $"root:myGlobals:CombineTable:Prefix" 
    15551577        Make/O/T/N=0 $"root:myGlobals:CombineTable:SaveName" 
    1556         MakeTableToCombine() 
    1557  
     1578         
     1579        SetDataFolder root:myGlobals:CombineTable 
     1580         
     1581        // make the second table 
     1582        AppendToTable/W=CombinePanel#RunNumbersToCombine LowRun,MediumRun,HighRun,Prefix,SaveName 
     1583 
     1584        SetDataFolder root: 
    15581585End 
    15591586 
     
    15751602                ii-=1 
    15761603        while(ii>=0) 
    1577         return(0) 
    1578 End 
    1579  
    1580 Function MakeTabletoCombine() 
    1581  
    1582         Wave low = $"root:myGlobals:CombineTable:LowRun" 
    1583         Wave medium = $"root:myGlobals:CombineTable:MediumRun" 
    1584         Wave high = $"root:myGlobals:CombineTable:HighRun" 
    1585         Wave/T prefix = $"root:myGlobals:CombineTable:Prefix" 
    1586         Wave/T saveName = $"root:myGlobals:CombineTable:SaveName" 
    1587  
    1588 //      DoWindow/F ToCombine 
    1589 //      if(V_flag==0) 
    1590 //              edit Low,Medium,High,Prefix,SaveName as "Run Numbers to Combine" 
    1591 //              DoWindow/C ToCombine 
    1592 //      endif 
    1593 //      AutoPositionWindow/M=1/R=CombineTable toCombine 
    1594         AppendToTable/W=CombinePanel#RunNumbersToCombine Low,Medium,High,Prefix,SaveName 
    1595          
    1596         ///// 
    1597 //      SetWindow kwTopWin hook=CombineTableHook, hookevents=1  // mouse down events 
    1598          
    1599 end 
    1600  
    1601 Function BuildCombineTableWindow() 
    1602         Wave/T Filenames = $"root:myGlobals:CombineTable:Filenames" 
    1603         Wave/T Labels = $"root:myGlobals:CombineTable:Labels" 
    1604         Wave SDD = $"root:myGlobals:CombineTable:SDD" 
    1605         Wave/T suffix = $"root:myGlobals:CombineTable:Suffix" 
    1606         Wave runnum = $"root:myGlobals:CombineTable:RunNumber" 
    1607         Wave isTrans = $"root:myGlobals:CombineTable:IsTrans" 
    1608          
    1609 //      Edit Filenames, Labels, DateAndTime, SDD, Lambda, CntTime, TotCnts, CntRate, Transmission, Thickness, XCenter, YCenter, NumAttens as "Files to Combine" 
    1610 //      Edit Labels, SDD, runNum as "Files to Combine" 
    1611         AppendToTable/W=CombinePanel#FilesToCombine Labels, SDD, runNum 
    1612          
    1613         SetWindow kwTopWin hook=CombineTableHook, hookevents=1  // mouse down events 
    1614  
    1615 //      String name="CombineTable" 
    1616 //      DoWindow/C $name 
    16171604        return(0) 
    16181605End 
     
    17381725                WriteNSORTFileButton("") 
    17391726                 
     1727                Print "wrote file : ",path+saveName[ii] 
    17401728                ii+=1 
    17411729        while(ii<num) 
     
    17471735 
    17481736 
    1749 // Commentized lines here are incomplete - and NON-FUNCTIONING 
     1737// only respond to clicks in the subwindow (table) rather than everywhere. Hooks can't be set for subwindows 
    17501738// 
    17511739//// Window hook example: 
     1740//  WINDOW:CombinePanel;HCSPEC:CombinePanel#GroupedFiles;EVENT:mouseup;MOUSEX:152;MOUSEY:143;TICKS:7722029;MODIFIERS:0; 
    17521741// 
    17531742Function CombineTableHook(infoStr) 
    17541743        String infoStr 
    17551744        String event= StringByKey("EVENT",infoStr) 
     1745        String subwin = StringByKey("HCSPEC",infoStr) 
     1746//      Print subwin 
     1747//      Print infoStr 
    17561748//      Print "EVENT= ",event 
    1757         strswitch(event) 
    1758                 case "mousedown": 
    1759                         Variable xpix= NumberByKey("MOUSEX",infoStr) 
    1760                         Variable ypix= NumberByKey("MOUSEY",infoStr) 
    1761                         Variable modif= NumberByKey("MODIFIERS",infoStr) 
    1762                         //print modif 
    1763                         if(modif & 2^1)         //bit 1 set, shift key is down 
    1764                                 PopupContextualMenu/C=(xpix, ypix) "combine;" 
    1765                                 strswitch(S_selection) 
    1766                                         case "combine": 
    1767                                                 //Print "combine the files" 
    1768                                                 SendSelectionToTable() 
    1769                                                 break 
    1770         //                              case "no": 
    1771         //                                      break 
    1772         //                              case "maybe": 
    1773         //                                      // do something because "maybe" was chosen 
    1774         //                                      break 
    1775                                 endswitch               //on selection 
    1776                         endif 
    1777         endswitch       // on event 
    1778          
     1749        if(cmpstr(subwin,"CombinePanel#GroupedFiles")==0) 
     1750                strswitch(event) 
     1751                        case "mousedown": 
     1752                                Variable xpix= NumberByKey("MOUSEX",infoStr) 
     1753                                Variable ypix= NumberByKey("MOUSEY",infoStr) 
     1754                                Variable modif= NumberByKey("MODIFIERS",infoStr) 
     1755                                //print modif 
     1756                                if(modif & 2^1)         //bit 1 set, shift key is down 
     1757                                        PopupContextualMenu/C=(xpix, ypix) "combine;" 
     1758                                        strswitch(S_selection) 
     1759                                                case "combine": 
     1760                                                        //Print "combine the files" 
     1761                                                        SendSelectionToTable() 
     1762                                                        break 
     1763                                        endswitch               //on selection 
     1764                                endif 
     1765                endswitch       // on event 
     1766        endif 
    17791767        return 0 
    17801768End 
     
    18081796        endif 
    18091797         
    1810         GetSelection table,CombinePanel#FilesToCombine,3 
    1811         Print V_startRow, V_endRow 
     1798        GetSelection table,CombinePanel#GroupedFiles,3 
     1799//      Print V_startRow, V_endRow 
    18121800         
    18131801        //prompt for combined name, give the user a chance to cancel 
     
    19051893        Edit/W=(20,54,368,249)/HOST=#  
    19061894        ModifyTable format=1,width=0 
    1907         RenameWindow #,FilesToCombine 
     1895        RenameWindow #,GroupedFiles 
    19081896        SetActiveSubwindow ## 
    19091897        Edit/W=(20,263,634,455)/HOST=#  
     
    19111899        RenameWindow #,RunNumbersToCombine 
    19121900        SetActiveSubwindow ## 
     1901        SetWindow kwTopWin hook=CombineTableHook, hookevents=1  // mouse down events 
    19131902EndMacro 
    19141903 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/Transmission.ipf

    r647 r670  
    17591759                TitleBox title0,pos={9,5},variable=root:myGlobals:TransHeaderInfo:gResultStr 
    17601760        else 
    1761                 NewPanel /W=(578,44,1263,214) as "Confirm Guess" 
     1761                NewPanel /W=(600,44,1150,225) as "Confirm Guess" 
    17621762                DoWindow/C ConfirmGuess 
    1763                 TitleBox title0,pos={9,5},size={501,32} 
     1763                TitleBox title0,pos={15,8},size={560,32} 
    17641764                TitleBox title0,variable= root:myGlobals:TransHeaderInfo:gResultStr 
    1765                 Button button0,pos={9,107},size={190,20},proc=DoAssignTransButtonProc,title="Assign Transmission Files" 
    1766                 Button button2,pos={341,108},size={90,20},proc=DoTryAgainButtonProc,title="Try Again" 
     1765                Button button0,pos={9,150},size={190,20},proc=DoAssignTransButtonProc,title="Assign Transmission Files" 
     1766                Button button2,pos={341,150},size={90,20},proc=DoTryAgainButtonProc,title="Try Again" 
    17671767                ToolsGrid snap=1,visible=1 
    17681768        endif 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/WorkFileUtils.ipf

    r668 r670  
    13881388         
    13891389        list = IndexedFile(catpathName,-1,"????") 
    1390         num=ItemsInList(list,";") 
    1391         //print "num = ",num 
    1392         for(ii=(num-1);ii>=0;ii-=1) 
    1393                 item = StringFromList(ii, list  ,";") 
    1394                 //simply remove all that are not raw data files (SA1 SA2 SA3) 
    1395                 if( !stringmatch(item,"*.SA1*") && !stringmatch(item,"*.SA2*") && !stringmatch(item,"*.SA3*") ) 
    1396                         if( !stringmatch(item,".*") && !stringmatch(item,"*.pxp") && !stringmatch(item,"*.DIV"))                //eliminate mac "hidden" files, pxp, and div files 
    1397                                 if(!stringmatch(item,"*.AVE") && !stringmatch(item,"*.ABS")) 
    1398                                         newlist += item + ";" 
    1399                                 endif 
    1400                         endif 
    1401                 endif 
    1402         endfor 
     1390         
     1391        list = RemoveFromList(ListMatch(list,"*.SA1*",";"), list, ";", 0) 
     1392        list = RemoveFromList(ListMatch(list,"*.SA2*",";"), list, ";", 0) 
     1393        list = RemoveFromList(ListMatch(list,"*.SA3*",";"), list, ";", 0) 
     1394        list = RemoveFromList(ListMatch(list,".*",";"), list, ";", 0) 
     1395        list = RemoveFromList(ListMatch(list,"*.pxp",";"), list, ";", 0) 
     1396        list = RemoveFromList(ListMatch(list,"*.DIV",";"), list, ";", 0) 
     1397        list = RemoveFromList(ListMatch(list,"*.GSP",";"), list, ";", 0) 
     1398        list = RemoveFromList(ListMatch(list,"*.MASK",";"), list, ";", 0) 
     1399 
    14031400        //remove VAX version numbers 
    1404         newList = RemoveVersNumsFromList(newList) 
     1401        list = RemoveVersNumsFromList(List) 
    14051402        //sort 
    1406         newList = SortList(newList,";",0) 
     1403        newList = SortList(List,";",0) 
    14071404 
    14081405        return newlist 
Note: See TracChangeset for help on using the changeset viewer.