[NewUI] CSTR fix

DanWBR · Jan 2, 2018 · ef59564 · ef59564
1 parent a8b3cbd
commit ef59564
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/DWSIM.Drawing.SkiaSharp/GraphicObjects/Shapes/CSTR.vb b/DWSIM.Drawing.SkiaSharp/GraphicObjects/Shapes/CSTR.vb
@@ -52,6 +52,11 @@ Namespace GraphicObjects.Shapes
             myOC1.Position = New Point(X + Width, Y + 0.5 * Height)
             myOC1.Type = ConType.ConOut
 
+            Dim myOC2 As New ConnectionPoint
+            myOC2.Position = New Point(X + 0.5 * Width, Y)
+            myOC2.Type = ConType.ConOut
+            myOC2.Direction = ConDir.Up
+
             Me.EnergyConnector.Position = New Point(X + 0.5 * Width, Y + Height)
             Me.EnergyConnector.Type = ConType.ConEn
             Me.EnergyConnector.Direction = ConDir.Up
@@ -77,14 +82,18 @@ Namespace GraphicObjects.Shapes
                 If .Count <> 0 Then
                     If Me.FlippedH Then
                         .Item(0).Position = New Point(X, Y + 0.5 * Height)
+                        .Item(1).Position = New Point(X + 0.5 * Width, Y)
                     Else
                         .Item(0).Position = New Point(X + Width, Y + 0.5 * Height)
+                        .Item(1).Position = New Point(X + 0.5 * Width, Y)
                     End If
                 Else
                     .Add(myOC1)
+                    .Add(myOC2)
                 End If
 
-                .Item(0).ConnectorName = "Outlet"
+                .Item(0).ConnectorName = "Liquid Outlet"
+                .Item(1).ConnectorName = "Vapor Outlet (Optional)"
 
             End With