Merge pull request #12 from OpenSmock/fix_innerimageid

Fix inner image id

Author: Nyan11

src/Toplo-Serialization-Stash/ToImage.extension.st

@@ -4,5 +4,10 @@ Extension { #name : #ToImage }
 ToImage >> stashAccessorsForInnerImage [
 
 	<stashAccessors>
-	^ { #innerImage }
+	self innerImage ifNil: [ ^ {  } ].
+	^ {
+		  #innerImage.
+		  [ :e |
+		  'innerImageDo: [ :i | i id: <1p> ]' expandMacrosWith:
+			  self innerImage id ] onlySetOnStash }
 ]

src/Toplo-Serialization-Tests/ToSerializerTest.class.st

@@ -317,6 +317,29 @@ ToSerializerTest >> testToCheckbox4 [
 				 (element childAt: 3)) ]
 ]
 
+{ #category : #tests }
+ToSerializerTest >> testToImage1 [
+
+	| origin |
+	origin := ToImage new.
+
+	self
+		test: origin
+		on: [ :element |
+		self assert: element innerImage id equals: #emptyImage ]
+]
+
+{ #category : #tests }
+ToSerializerTest >> testToImage2 [
+
+	| origin |
+	origin := ToImage inner: (ToSandBox pathCheckSVG).
+
+	self
+		test: origin
+		on: [ :element | self assert: element innerImage id equals: #svgPath ]
+]
+
 { #category : #tests }
 ToSerializerTest >> testToLabel [