Implementing functionality at subclass level.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-01-01 13:26:20 -05:00
parent 1ea7736b0f
commit 1d58571d39

View File

@ -2,5 +2,10 @@ Extension { #name : #LeTextCoderSnippetElement }
{ #category : #'*MiniDocs' } { #category : #'*MiniDocs' }
LeTextCoderSnippetElement >> moveTo: pageName [ LeTextCoderSnippetElement >> moveTo: pageName [
LeSnippet new moveTo: pageName | db origin destination |
db := self page database.
destination := db pageNamed: pageName.
origin := db pageNamed: self page title.
origin removeSnippet: self.
destination addSnippet: self .
] ]