Fix errors when a TLStyleSheet doesn't have all properties fill

TelescopeSt · May 16, 2022 · fa42a2e · fa42a2e
1 parent c0de9df
commit fa42a2e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Telescope-Cytoscape/TLStyleSheet.extension.st b/src/Telescope-Cytoscape/TLStyleSheet.extension.st
@@ -49,7 +49,7 @@ TLStyleSheet >> cytoscapeConnectionStyleFor: aConnection [
 	(#head -> #'target-arrow-').
 	(#middle -> #'mid-target-arrow-')}
 		do: [ :substyleAndCytoStyle | 
-			(self copyWithout: #(#shape)) + (self > substyleAndCytoStyle key)
+			(self copySafeWithout: #(#shape)) + (self > substyleAndCytoStyle key)
 				fillStyleDictionary: styleDictionary
 				with:
 					{((substyleAndCytoStyle value , #color) -> #color).
@@ -79,7 +79,7 @@ TLStyleSheet >> cytoscapeGenericConnectionStyle [
 	(#head -> #'target-arrow-').
 	(#middle -> #'mid-target-arrow-')}
 		do: [ :substyleAndCytoStyle | 
-			 (self > substyleAndCytoStyle key)
+			(self copySafeWithout: #(#shape)) + (self > substyleAndCytoStyle key)
 				fillStyleDictionary: styleDictionary
 				with:
 					{((substyleAndCytoStyle value , #color) -> #color).