Implementated Output Naming System for One Variable Graph

IDEMSInternational · Nov 27, 2024 · 6928710 · 6928710
1 parent d6b907f
commit 6928710
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/instat/dlgOneVariableGraph.vb b/instat/dlgOneVariableGraph.vb
@@ -169,4 +169,9 @@ Public Class dlgOneVariableGraph
     Private Sub Controls_ControlContentsChanged(ucrChangedControl As ucrCore) Handles ucrSelectorOneVarGraph.ControlContentsChanged, ucrReceiverOneVarGraph.ControlContentsChanged, ucrSaveGraph.ControlContentsChanged
         TestOkEnabled()
     End Sub
+
+    Private Sub ucrSelectorOneVarGraph_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrSelectorOneVarGraph.ControlValueChanged
+        Dim clsGetDataFrameFunction As RFunction = ucrSelectorOneVarGraph.ucrAvailableDataFrames.clsCurrDataFrame.Clone
+        clsOneVarGraph.AddParameter("data", clsRFunctionParameter:=clsGetDataFrameFunction, iPosition:=0)
+    End Sub
 End Class