diff --git a/repository/Grafoscopio-Utils/LeTextSnippet.extension.st b/repository/Grafoscopio-Utils/LeTextSnippet.extension.st index 8e11f2d..ee1c666 100644 --- a/repository/Grafoscopio-Utils/LeTextSnippet.extension.st +++ b/repository/Grafoscopio-Utils/LeTextSnippet.extension.st @@ -20,6 +20,7 @@ LeTextSnippet >> metadataInit [ ^ OrderedDictionary new at: 'id' put: self uidString; + at: 'parent' put: self parentId; at: 'created' put: self createTime asString; at: 'modified' put: self latestEditTime asString; at: 'creator' put: self createEmail asString; @@ -31,3 +32,9 @@ LeTextSnippet >> metadataInit [ LeTextSnippet >> options [ ^ options ] + +{ #category : #'*Grafoscopio-Utils-Core' } +LeTextSnippet >> parentId [ + self parent ifNil: [ ^ self ]. + ^ self parent uidString. +]