Implementing functionality at subclass level.
This commit is contained in:
parent
1ea7736b0f
commit
1d58571d39
@ -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 .
|
||||||
]
|
]
|
||||||
|
Loading…
Reference in New Issue
Block a user