]> gerrit.simantics Code Review - simantics/platform.git/commitdiff
Support subrelations of DIA.Flag.ConnectionPoint in Diagram.setElements 45/3145/4
authorJussi Koskela <jussi.koskela@semantum.fi>
Thu, 22 Aug 2019 11:20:01 +0000 (14:20 +0300)
committerTuukka Lehtonen <tuukka.lehtonen@semantum.fi>
Fri, 23 Aug 2019 11:34:54 +0000 (11:34 +0000)
gitlab #359

Change-Id: I070a1615057c7f17a55e43bdb975712201f3d710

bundles/org.simantics.modeling/scl/Simantics/Diagram.scl

index 14a558bec05c0b549ddd5600e4c3ebec224e6cab..451bda827d64c910d20f328689d72406bc46136a 100644 (file)
@@ -512,10 +512,7 @@ setElements (DiagramInfo diagram configuration componentMap) joinMap elementSpec
         Just connection
     createNode connection (Terminal elementName terminal) = do
         element = newOrMappedElement elementName
-        if terminal == DIA.Flag.ConnectionPoint then
-            createConnector connection element terminal DIA.HasPlainConnector
-        else        
-            createConnector connection element terminal DIA.HasPlainConnector
+        createConnector connection element terminal DIA.HasPlainConnector
     createNode connection (RouteLine isHorizontal position) = do
         newEntity [
             hasName (freshElementName ()),
@@ -552,7 +549,7 @@ setElements (DiagramInfo diagram configuration componentMap) joinMap elementSpec
         claim a DIA.AreConnected b
     // Returns (connectionRelation :: Maybe Resource, connector attachment relation :: Resource)  
     resolveAttachmentRelation element terminal defaultAttachmentRelation =
-        if terminal == DIA.Flag.ConnectionPoint then
+        if isSubrelationOf terminal DIA.Flag.ConnectionPoint then
             (Nothing, flagTypeToAttachmentRelation element)
         else
             match possibleObject terminal MOD.DiagramConnectionRelationToConnectionRelation with