Changeset 882 for sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS

Timestamp:

Dec 3, 2012 3:31:37 PM (10 years ago)

Author:

srkline

Message:

adding buttons on the Event Panel for adjusting events and making custom bins.

File:

• sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/EventModeProcessing.ipf (modified) (5 diffs)

sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/EventModeProcessing.ipf

@@ -169 +169 @@
         Button button5,pos={175,147},size={140,20},proc=ExportSlicesButtonProc,title="Export Slices as VAX"
         Button button6,pos={378,13},size={40,20},proc=EventModeHelpButtonProc,title="?"
+
+        Button button7,pos={175+155,122},size={140,20},proc=AdjustEventDataButtonProc,title="Adjust Events"
+        Button button8,pos={175+155,147},size={140,20},proc=CustomBinButtonProc,title="Custom Bins"
         
         Button button1,pos = {10,50}, size={150,20},title="Process Data",fSize=12
@@ -201 +204 @@
         SetActiveSubwindow ##
 EndMacro
+
+
+Function AdjustEventDataButtonProc(ba) : ButtonControl
+        STRUCT WMButtonAction &ba
+
+        switch( ba.eventCode )
+                case 2: // mouse up
+                        // click code here
+                        Execute "EventCorrectionPanel()"
+                        //
+                        break
+                case -1: // control being killed
+                        break
+        endswitch
+
+        return 0
+End
+
+Function CustomBinButtonProc(ba) : ButtonControl
+        STRUCT WMButtonAction &ba
+
+        switch( ba.eventCode )
+                case 2: // mouse up
+                        // click code here
+                        Execute "Show_CustomBinPanel()"
+                        //
+                        break
+                case -1: // control being killed
+                        break
+        endswitch
+
+        return 0
+End
+Show_CustomBinPanel()
+
 
 Function ShowEventDataButtonProc(ba) : ButtonControl
@@ -1637 +1675 @@
                 ModifyGraph msize=1
 //              SetAxis/A=2 left                        //only autoscale the visible data (based on the bottom limits)
-//              SetAxis bottom 0,1500
+                SetAxis bottom 0,1500
                 ErrorBars rescaledTime OFF 
                 Label left "\\Z14Time (seconds)"
@@ -1865 +1903 @@
 ////////////// Post-processing of the event mode data
 
-Macro EventCorrectionPanel()
+Proc EventCorrectionPanel()
 
         PauseUpdate; Silent 1           // building window...
@@ -2143 +2181 @@
 // trying to draw the panel
 //
-Macro Show_CustomBinPanel()
+Proc Show_CustomBinPanel()
         DoWindow/F CustomBinPanel
         if(V_flag ==0)