Ignore:
Timestamp:
Feb 22, 2008 9:14:21 AM (15 years ago)
Author:
srkline
Message:

Changed the behavior of the useCursors checkbox to now automaticaly place cursors at the ends of the data set, if the selected data set is on the top graph. unchecking the box removes all cursors from the graph.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v4.00/Packages/Wrapper_v40.ipf

    r291 r292  
    6464        PopupMenu popup_2,mode=1,value= #"W_CoefPopupList()",proc=Coef_PopMenuProc 
    6565        CheckBox check_0,pos={440,19},size={79,14},title="Use Cursors?",value= 0 
     66        CheckBox check_0,proc=UseCursorsWrapperProc 
    6667        CheckBox check_1,pos={440,42},size={74,14},title="Use Epsilon?",value= 0 
    6768        CheckBox check_2,pos={440,65},size={95,14},title="Use Constraints?",value= 0 
     
    11141115        return 0 
    11151116End 
     1117 
     1118// function to either add or remove the cursors from the topmost graph, as needed 
     1119 
     1120Function UseCursorsWrapperProc(cba) : CheckBoxControl 
     1121        STRUCT WMCheckboxAction &cba 
     1122 
     1123        String topGraph= WinName(0,1)   //this is the topmost graph      
     1124        String ciStr = CsrInfo(A , topGraph) 
     1125         
     1126        ControlInfo/W=wrapperpanel popup_0 
     1127        String folderStr=S_Value 
     1128        String traceList = TraceNameList(topGraph, ";", 1 ) 
     1129         
     1130        switch( cba.eventCode ) 
     1131                case 2: // mouse up 
     1132                        Variable checked = cba.checked 
     1133                        if(checked) 
     1134                                //print "add the cursors to the topmost graph, if the data set is there, or move them" 
     1135                                if(strlen(ciStr)==0 && strsearch(traceList, folderStr, 0) != -1 )               //no cursors && data is there 
     1136                                        ShowInfo 
     1137                                        Wave yw=$("root:"+folderStr+":"+folderStr+"_i") 
     1138                                        Cursor/P/W=$topGraph A, $(folderStr+"_i"),0 
     1139                                        Cursor/P/W=$topGraph/A=0 B, $(folderStr+"_i"),numpnts(yw)-1                     //deactivate the one at the high Q end 
     1140                                        DoUpdate 
     1141//                              else            //if (strlen(ciStr)!=0 && strsearch(traceList, folderStr, 0) != -1 ) //cursors present, but on wrong data 
     1142//                                      Wave yw=$("root:"+folderStr+":"+folderStr+"_i") 
     1143//                                      Cursor/P/W=$topGraph A, $(folderStr+"_i"),0                                                             //move the cursors 
     1144//                                      Cursor/P/W=$topGraph/A=0 B, $(folderStr+"_i"),numpnts(yw)-1 
     1145//                                      DoUpdate 
     1146                                endif 
     1147                         
     1148                        else 
     1149                                //print "unchecked, remove the cursors" 
     1150                                HideInfo 
     1151                                Cursor/K A 
     1152                                Cursor/K B 
     1153                        endif 
     1154                        break 
     1155        endswitch 
     1156 
     1157        return 0 
     1158End 
Note: See TracChangeset for help on using the changeset viewer.