Added the code in fillItemType to populate the already saved graphs

IDEMSInternational · Jun 16, 2016 · db5287b · db5287b
1 parent d6e7036
commit db5287b
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 3 deletions.
diff --git a/instat/dlgDotPlot.vb b/instat/dlgDotPlot.vb
@@ -55,6 +55,8 @@ Public Class dlgDotPlot
 
         ucrSaveDotPlot.SetDataFrameSelector(ucrDotPlotSelector.ucrAvailableDataFrames)
         ucrSaveDotPlot.strPrefix = "Graph"
+        ucrSaveDotPlot.ucrInputGraphName.SetItemsTypeAsGraphs()
+        ucrSaveDotPlot.ucrInputGraphName.SetDefaultTypeAsGraph()
     End Sub
 
     Private Sub TestOkEnabled()

diff --git a/instat/ucrInputComboBox.vb b/instat/ucrInputComboBox.vb
@@ -49,16 +49,23 @@ Public Class ucrInputComboBox
     End Sub
 
     Private Sub FillItemTypes()
-        Dim strItems As String()
+        Dim strItems As String()
+
         Select Case strItemsType
             Case "Columns"
                 If ucrDataFrameSelector IsNot Nothing Then
                     frmMain.clsRLink.FillColumnNames(ucrDataFrameSelector.cboAvailableDataFrames.Text, cboColumns:=cboInput)
                 End If
             Case "Data Frames"
             Case "Models"
-                cboInput.Items.Add(frmMain.clsRLink.GetModelNames().ToArray)
-            Case "Graphs"
+                cboInput.Items.Add(frmMain.clsRLink.GetModelNames().ToArray)
+
+            Case "Graphs"
+                If ucrDataFrameSelector IsNot Nothing Then
+                    cboInput.Items.Clear()
+                    cboInput.Items.AddRange(frmMain.clsRLink.GetGraphNames(ucrDataFrameSelector.cboAvailableDataFrames.Text).ToArray())
+                End If
+
             Case "Filters"
                 If ucrDataFrameSelector IsNot Nothing Then
                     cboInput.Items.Clear()