Modularizing the code under proper responsable classes.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-10-31 16:02:18 -05:00
parent 372c6a6a55
commit f52e027edd

View File

@ -9,21 +9,8 @@ OrderedDictionary >> addErrata: noteString [
OrderedDictionary >> asLepiterSnippet [
| response |
self at: 'className' ifAbsent: [ ^ nil ].
(self at: 'className') = 'LeTextSnippet'
ifTrue: [
response := LeTextSnippet new.
response string: (self at: 'content')
].
(self at: 'className') = 'LePharoSnippet'
ifTrue: [
response := LePharoSnippet new.
response code: (self at: 'content')
].
(self at: 'className') = 'LePictureSnippet'
ifTrue: [
response := LePictureSnippet new.
response fromString: (self at: 'content')
].
response := (self at: 'className') asClass new.
response fromString: (self at: 'content').
response
uid: (LeUID new uidString: (self at: 'id'));
parent: (self at: 'parent');