add BlTextAttribute

src/Stash-Serializer/BlAttributeRope.extension.st

@@ -0,0 +1,25 @@
+Extension { #name : #BlAttributeRope }
+
+{ #category : #'*Stash-Serializer' }
+BlAttributeRope >> allSetterAndGettersForMyStash [
+
+	^ {
+		  #attributes.
+		  #rope }
+]
+
+{ #category : #'*Stash-Serializer' }
+BlAttributeRope >> asStashContructor [
+
+	^ self class printString
+]
+
+{ #category : #'*Stash-Serializer' }
+BlAttributeRope >> asStashObject [
+
+	^ StashBlAttributeRope new
+		  object: self;
+		rope: self rope;
+		attributes: self attributes;
+		  yourself
+]

src/Stash-Serializer/BlCollectionRope.extension.st

@@ -0,0 +1,7 @@
+Extension { #name : #BlCollectionRope }
+
+{ #category : #'*Stash-Serializer' }
+BlCollectionRope >> allSetterAndGettersForMyStash [
+
+	^ { #collection }
+]

src/Stash-Serializer/BlFontFamilyAttribute.extension.st

@@ -0,0 +1,7 @@
+Extension { #name : #BlFontFamilyAttribute }
+
+{ #category : #'*Stash-Serializer' }
+BlFontFamilyAttribute >> allSetterAndGettersForMyStash [
+
+	^ { #name }
+]

src/Stash-Serializer/BlFontFamilyDefaultAttribute.extension.st

@@ -0,0 +1,7 @@
+Extension { #name : #BlFontFamilyDefaultAttribute }
+
+{ #category : #'*Stash-Serializer' }
+BlFontFamilyDefaultAttribute >> allSetterAndGettersForMyStash [
+
+	^ { #name }
+]

src/Stash-Serializer/BlFontSizeAttribute.extension.st

@@ -0,0 +1,7 @@
+Extension { #name : #BlFontSizeAttribute }
+
+{ #category : #'*Stash-Serializer' }
+BlFontSizeAttribute >> allSetterAndGettersForMyStash [
+
+	^ { #size }
+]

src/Stash-Serializer/BlFontSizeDefaultAttribute.extension.st

@@ -0,0 +1,7 @@
+Extension { #name : #BlFontSizeDefaultAttribute }
+
+{ #category : #'*Stash-Serializer' }
+BlFontSizeDefaultAttribute >> allSetterAndGettersForMyStash [
+
+	^ { #size }
+]

src/Stash-Serializer/BlFontWeightAttribute.extension.st

@@ -0,0 +1,7 @@
+Extension { #name : #BlFontWeightAttribute }
+
+{ #category : #'*Stash-Serializer' }
+BlFontWeightAttribute >> allSetterAndGettersForMyStash [
+
+	^ { #weight }
+]

src/Stash-Serializer/BlRopedText.extension.st

@@ -0,0 +1,7 @@
+Extension { #name : #BlRopedText }
+
+{ #category : #'*Stash-Serializer' }
+BlRopedText >> allSetterAndGettersForMyStash [
+
+	^ { #rope }
+]

src/Stash-Serializer/BlTextBackgroundAttribute.extension.st

@@ -0,0 +1,7 @@
+Extension { #name : #BlTextBackgroundAttribute }
+
+{ #category : #'*Stash-Serializer' }
+BlTextBackgroundAttribute >> allSetterAndGettersForMyStash [
+
+	^ { #paint }
+]

src/Stash-Serializer/BlTextDecorationAttribute.extension.st

@@ -0,0 +1,7 @@
+Extension { #name : #BlTextDecorationAttribute }
+
+{ #category : #'*Stash-Serializer' }
+BlTextDecorationAttribute >> allSetterAndGettersForMyStash [
+
+	^ { #decoration }
+]

src/Stash-Serializer/BlTextForegroundAttribute.extension.st

@@ -0,0 +1,7 @@
+Extension { #name : #BlTextForegroundAttribute }
+
+{ #category : #'*Stash-Serializer' }
+BlTextForegroundAttribute >> allSetterAndGettersForMyStash [
+
+	^ { #paint }
+]

src/Stash-Serializer/BlTextSpacingAttribute.extension.st

@@ -0,0 +1,7 @@
+Extension { #name : #BlTextSpacingAttribute }
+
+{ #category : #'*Stash-Serializer' }
+BlTextSpacingAttribute >> allSetterAndGettersForMyStash [
+
+	^ { #spacing }
+]

src/Stash-Serializer/StashBlAttributeRope.class.st

@@ -0,0 +1,41 @@
+Class {
+	#name : #StashBlAttributeRope,
+	#superclass : #StashObject,
+	#instVars : [
+		'rope',
+		'attributes'
+	],
+	#category : #'Stash-Serializer-stash-objects'
+}
+
+{ #category : #accessing }
+StashBlAttributeRope >> attributes [
+
+	^ attributes
+]
+
+{ #category : #accessing }
+StashBlAttributeRope >> attributes: anObject [
+
+	attributes := anObject
+]
+
+{ #category : #'stash - step' }
+StashBlAttributeRope >> constructForGeneralObjectStep: aStashContructGeneralObjectsStep on: aStash [
+
+	aStashContructGeneralObjectsStep
+		constructBlAttributeRope: self
+		on: aStash
+]
+
+{ #category : #accessing }
+StashBlAttributeRope >> rope [
+
+	^ rope
+]
+
+{ #category : #accessing }
+StashBlAttributeRope >> rope: anObject [
+
+	rope := anObject
+]

src/Stash-Serializer/StashContructGeneralObjectsStep.class.st

@@ -24,6 +24,22 @@ StashContructGeneralObjectsStep >> constructAssociation: aStashAssociation on: a
 
 ]
 
+{ #category : #actions }
+StashContructGeneralObjectsStep >> constructBlAttributeRope: aStashObject on: aStash [
+
+	aStash addOnSourceCode: aStashObject constructorOrTag.
+	aStashObject isPropertiesSet ifTrue: [ ^ self ].
+
+	aStashObject propertiesAreSet.
+	aStash addOnSourceCode: '<r>'.
+	self
+		setProperty: #attributes asStashProperty
+		ofObject: aStashObject object
+		on: aStash.
+	aStash addOnSourceCode: '<r>'.
+	self setProperty: #rope asStashProperty ofObject: aStashObject object on: aStash
+]
+
 { #category : #'as yet unclassified' }
 StashContructGeneralObjectsStep >> constructBlLayoutConstraints: aStashObject on: aStash [
 	"horizontal - vertical"