Changeset 292 for sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v4.00/Packages/Wrapper_v40.ipf

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:

• sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v4.00/Packages/Wrapper_v40.ipf (modified) (2 diffs)

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

@@ -64 +64 @@
         PopupMenu popup_2,mode=1,value= #"W_CoefPopupList()",proc=Coef_PopMenuProc
         CheckBox check_0,pos={440,19},size={79,14},title="Use Cursors?",value= 0
+        CheckBox check_0,proc=UseCursorsWrapperProc
         CheckBox check_1,pos={440,42},size={74,14},title="Use Epsilon?",value= 0
         CheckBox check_2,pos={440,65},size={95,14},title="Use Constraints?",value= 0
@@ -1114 +1115 @@
         return 0
 End
+
+// function to either add or remove the cursors from the topmost graph, as needed
+
+Function UseCursorsWrapperProc(cba) : CheckBoxControl
+        STRUCT WMCheckboxAction &cba
+
+        String topGraph= WinName(0,1)   //this is the topmost graph     
+        String ciStr = CsrInfo(A , topGraph)
+        
+        ControlInfo/W=wrapperpanel popup_0
+        String folderStr=S_Value
+        String traceList = TraceNameList(topGraph, ";", 1 )
+        
+        switch( cba.eventCode )
+                case 2: // mouse up
+                        Variable checked = cba.checked
+                        if(checked)
+                                //print "add the cursors to the topmost graph, if the data set is there, or move them"
+                                if(strlen(ciStr)==0 && strsearch(traceList, folderStr, 0) != -1 )               //no cursors && data is there
+                                        ShowInfo
+                                        Wave yw=$("root:"+folderStr+":"+folderStr+"_i")
+                                        Cursor/P/W=$topGraph A, $(folderStr+"_i"),0
+                                        Cursor/P/W=$topGraph/A=0 B, $(folderStr+"_i"),numpnts(yw)-1                     //deactivate the one at the high Q end
+                                        DoUpdate
+//                              else            //if (strlen(ciStr)!=0 && strsearch(traceList, folderStr, 0) != -1 ) //cursors present, but on wrong data
+//                                      Wave yw=$("root:"+folderStr+":"+folderStr+"_i")
+//                                      Cursor/P/W=$topGraph A, $(folderStr+"_i"),0                                                             //move the cursors
+//                                      Cursor/P/W=$topGraph/A=0 B, $(folderStr+"_i"),numpnts(yw)-1
+//                                      DoUpdate
+                                endif
+                        
+                        else
+                                //print "unchecked, remove the cursors"
+                                HideInfo
+                                Cursor/K A
+                                Cursor/K B
+                        endif
+                        break
+        endswitch
+
+        return 0
+End