Ignore:
Timestamp:
Jun 16, 2008 4:00:54 PM (14 years ago)
Author:
srkline
Message:

Merging revisions 382:HEAD (=385) into the release branch for version 6.010

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Release/trunk/NCNR_User_Procedures/SANS/Analysis/Models/Packages/Wrapper_v40.ipf

    r381 r386  
    118118 
    119119 
    120 //obvious use 
     120//obvious use, now finds the most recent data loaded, finds the folder, and pops the menu with that selection... 
     121// 
    121122Function W_LoadDataButtonProc(ba) : ButtonControl 
    122123        STRUCT WMButtonAction &ba 
     
    130131                        endif 
    131132                        Execute "A_LoadOneDData()" 
     133                         
     134                        ControlUpdate/W=WrapperPanel popup_0 
     135                        //instead of a simple controlUpdate, better to pop the menu to make sure that the other menus follow 
     136                        // convoluted method to find the right item and pop the menu. 
     137 
     138                        // data is plotted, so get the "new" top graph 
     139                        topGraph= WinName(0,1)  //this is the topmost graph, and should exist, but... 
     140                        if(cmpstr(topGraph,"")==0) 
     141                                return(0) 
     142                        endif 
     143                        String list,folderStr 
     144                        Variable num 
     145                        list = TraceNameList(topGraph,";",1)            //want the last item in the list 
     146                        num= ItemsInList(list) 
     147                        FolderStr = StringFromList(num-1,list,";") 
     148                        folderStr = folderStr[0,strlen(folderStr)-3]            //remove the "_i" that the loader enforced 
     149                        list = W_DataSetPopupList() 
     150                        num=WhichListItem(folderStr,list,";",0,0) 
     151                        if(num != -1) 
     152                                PopupMenu popup_0,mode=num+1,win=WrapperPanel 
     153                                ControlUpdate/W=WrapperPanel popup_0 
     154                                 
     155                                // fake mouse up 
     156                                Struct WMPopupAction ps 
     157                                ps.eventCode = 2                //fake mouse up 
     158        //                      ps.popStr = str 
     159                                DataSet_PopMenuProc(ps) 
     160                                 
     161                                // new data set has been selected, always uncheck the "use cursors", other checkboxes are benign. 
     162                                CheckBox check_0,win=WrapperPanel,value=0 
     163                        endif 
    132164                        break 
    133165        endswitch 
    134166 
    135 //      ControlUpdate/W=WrapperPanel popup_0 
    136         //instead of a simple controlUpdate, better to pop the menu to make sure that the other menus follow 
    137         // but not sure how to get the most recently loaded file as the selected item - bring the  
    138         // wrapper panel back to the top - then pop -  
    139167 
    140168        return 0 
     
    398426//                      print "str = ",str 
    399427                        //set the item in the coef popup, and pop it 
    400                         PopupMenu popup_2 mode=(num+1) 
     428                        PopupMenu popup_2 win=WrapperPanel,mode=(num+1) 
    401429                         
    402430                        Struct WMPopupAction ps 
     
    11551183        STRUCT WMCheckboxAction &cba 
    11561184 
    1157         String topGraph= WinName(0,1)   //this is the topmost graph      
    1158         String ciStr = CsrInfo(A , topGraph) 
    1159          
    1160         ControlInfo/W=wrapperpanel popup_0 
    1161         String folderStr=S_Value 
    1162         String traceList = TraceNameList(topGraph, ";", 1 ) 
    1163          
     1185 
    11641186        switch( cba.eventCode ) 
    11651187                case 2: // mouse up 
     1188                        // check to make sure there really is a "topmost" graph          
     1189                        String topGraph= WinName(0,1)   //this is the topmost graph 
     1190                        if(cmpstr(topGraph,"")==0)      //no graphs, uncheck and exit 
     1191                                CheckBox check_0,value=0 
     1192                                return(0) 
     1193                        endif 
     1194                                 
     1195                        String ciStr = CsrInfo(A , topGraph) 
     1196                         
     1197                        ControlInfo/W=wrapperpanel popup_0 
     1198                        String folderStr=S_Value 
     1199                        String traceList = TraceNameList(topGraph, ";", 1 )              
     1200                 
    11661201                        Variable checked = cba.checked 
     1202                         
    11671203                        if(checked) 
    11681204                                //print "add the cursors to the topmost graph, if the data set is there, or move them" 
Note: See TracChangeset for help on using the changeset viewer.