Implementing functionality at subclass level.
This commit is contained in:
parent
1ea7736b0f
commit
1d58571d39
@ -2,5 +2,10 @@ Extension { #name : #LeTextCoderSnippetElement }
|
||||
|
||||
{ #category : #'*MiniDocs' }
|
||||
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 .
|
||||
]
|
||||
|
Loading…
Reference in New Issue
Block a user