Merge pull request #2171 from AllenInstitute/feature/2171-add-table-support-in-sweepformula

Add table operation in SweepFormula

Author: t-b

Packages/MIES/MIES_Constants.ipf

@@ -1619,6 +1619,21 @@ Constant WINTYPE_CAMERA   = 15
 Constant WINTYPE_GIZMO    = 17
 ///@}
 
+/// @name WindowTypes for the WinList function (bitwise)
+/// @anchor WinListWindowTypes
+///@{
+Constant WINDOWTYPE_GRAPH     = 1
+Constant WINDOWTYPE_TABLE     = 2
+Constant WINDOWTYPE_LAYOUT    = 4
+Constant WINDOWTYPE_NOTEBOOK  = 16
+Constant WINDOWTYPE_PANEL     = 64
+Constant WINDOWTYPE_PROCEDURE = 128
+Constant WINDOWTYPE_HELP      = 512
+Constant WINDOWTYPE_XOP       = 4096
+Constant WINDOWTYPE_CAMERA    = 16384
+Constant WINDOWTYPE_GIZMO     = 65536
+///@}
+
 /// @name Panel tag codes to identify panel types, set in creation macro as main window userdata($EXPCONFIG_UDATA_PANELTYPE)
 /// @anchor panelTags
 ///@{
@@ -2125,6 +2140,7 @@ StrConstant SF_META_TRACE_MODE         = "/TraceMode"        // number, one of @
 StrConstant SF_META_TRACETOFRONT       = "/TraceToFront"     // number, boolean, defaults to false (0)
 StrConstant SF_META_DONOTPLOT          = "/DoNotPlot"        // number, boolean, defaults to false (0)
 StrConstant SF_META_WINDOW_HOOK        = "/WindowHook"       // string
+StrConstant SF_META_FORMULA            = "/Formula"          // string
 
 /// A color group allows to have matching colors for sweep data with the same channel type/number and sweep.
 /// It is applied before the matching headstage/average colors in #SF_GetTraceColor().
@@ -2519,12 +2535,15 @@ StrConstant SF_OP_SELECTIVSCCSWEEPQC  = "selivsccsweepqc"
 StrConstant SF_OP_SELECTIVSCCSETQC    = "selivsccsetqc"
 StrConstant SF_OP_SELECTRANGE         = "selrange"
 StrConstant SF_OP_POWERSPECTRUM       = "powerspectrum"
+StrConstant SF_OP_TABLE               = "table"
 StrConstant SF_OP_TPSS                = "tpss"
 StrConstant SF_OP_TPINST              = "tpinst"
 StrConstant SF_OP_TPBASE              = "tpbase"
 StrConstant SF_OP_TPFIT               = "tpfit"
 ///@}
 
+StrConstant SF_PROPERTY_TABLE = "Table"
+
 /// @name SF operations shorts
 ///
 /// @anchor SFOperationsShorts

Packages/MIES/MIES_GlobalStringAndVariableAccess.ipf

@@ -818,3 +818,9 @@ Function/S GetDeviceADCConfig(string device)
 
 	return GetNVARAsString(GetDevicePath(device), "ADCConfig", initialValue = NaN)
 End
+
+/// @brief Returns the last right clicked sweep formula display (plot/table) window
+Function/S GetSweepFormulaLastRightClickedDisplayWindow()
+
+	return GetSVARAsString(GetSweepFormulaPath(), "LastRightClickedDisplayWindow", initialValue = "")
+End

Packages/MIES/MIES_GuiUtilities.ipf

@@ -1864,33 +1864,45 @@ End
 /// @brief Recursively build a list of windows, including all child
 ///        windows, starting with wName.
 ///
-/// @param wName parent window name to start with
+/// @param wName parent window name to start with, if wName is empty then all graphs, tables, layouts, notebooks and panels
+///              with subwindows (possible for graphs and panels) are returned
 /// @return A string containing names of windows.  This list is a semicolon separated list.  It will include the window
-///         wName and all of its children and children of children, etc.
+///         wName, if wName was not empty, and all of its children and children of children, etc.
 Function/S GetAllWindows(string wName)
 
 	string windowList = ""
-	GetAllWindowsImpl(wName, windowList)
+	[windowList] = GetAllWindowsImpl(wName)
 
 	return windowList
 End
 
-static Function GetAllWindowsImpl(string wName, string &windowList)
+static Function [string windowList] GetAllWindowsImpl(string wName)
 
-	string children
-	variable i, numChildren, err
+	string children, topLevelWindows, win
+	variable windowsWithUserdata
 
-	windowList = AddListItem(wName, windowList, ";", Inf)
+	if(IsEmpty(wName))
+		windowsWithUserdata = WINDOWTYPE_GRAPH | WINDOWTYPE_TABLE | WINDOWTYPE_LAYOUT | WINDOWTYPE_NOTEBOOK | WINDOWTYPE_PANEL | WINDOWTYPE_GIZMO
+		topLevelWindows     = WinList("*", ";", "WIN:" + num2istr(windowsWithUserdata))
+		WAVE/T wList = ListToTextWave(topLevelWindows, ";")
+		for(win : wList)
+			[windowList] = GetAllWindowsImpl(win)
+		endfor
+	else
+		windowList = AddListItem(wName, windowList, ";", Inf)
 
-	if(!WindowTypeCanHaveChildren(wName))
-		return NaN
+		if(!WindowTypeCanHaveChildren(wName))
+			return [windowList]
+		endif
+
+		children = ChildWindowList(wName)
+		WAVE/T wList = ListToTextWave(children, ";")
+		for(win : wList)
+			[windowList] = GetAllWindowsImpl(wName + "#" + win)
+		endfor
 	endif
 
-	children    = ChildWindowList(wName)
-	numChildren = ItemsInList(children, ";")
-	for(i = 0; i < numChildren; i += 1)
-		GetAllWindowsImpl(wName + "#" + StringFromList(i, children, ";"), windowList)
-	endfor
+	return [windowList]
 End
 
 Function IsSubwindow(string win)