Provide facilities when a TLStyleSheet doesn't have all properties fill

TelescopeSt · May 16, 2022 · 0a8eeb0 · 0a8eeb0
1 parent bd4c187
commit 0a8eeb0
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/src/Telescope-Core/TLStyleSheet.class.st b/src/Telescope-Core/TLStyleSheet.class.st
@@ -172,6 +172,11 @@ TLStyleSheet >> connectionStyle: aConnectionStyle [
 	^ self at: #connectionStyle put: aConnectionStyle
 ]
 
+{ #category : #copying }
+TLStyleSheet >> copySafeWithout: aCollectionOfProperties [
+	^ self copy removeSafeAll: aCollectionOfProperties; yourself
+]
+
 { #category : #connection }
 TLStyleSheet >> curveStyle [
 	^ self get: #curveStyle
@@ -342,6 +347,20 @@ TLStyleSheet >> position: aPosition [
 	self at: #position put: aPosition
 ]
 
+{ #category : #removing }
+TLStyleSheet >> removeIfPresent: aString [ 
+	[self remove: #shape] on: KeyNotFound do: []
+]
+
+{ #category : #removing }
+TLStyleSheet >> removeSafeAll: aCollectionOfAttributes [
+	aCollectionOfAttributes
+		do: [ :anAttribute | 
+			[ self remove: anAttribute ]
+				on: KeyNotFound
+				do: [  ] ]
+]
+
 { #category : #shape }
 TLStyleSheet >> shape [
 	^ self get: #shape