12 lines
340 B
Smalltalk
12 lines
340 B
Smalltalk
Extension { #name : #LeTextCoderSnippetElement }
|
|
|
|
{ #category : #'*MiniDocs' }
|
|
LeTextCoderSnippetElement >> moveToPageTitled: pageName [
|
|
| db origin destination |
|
|
db := self page database.
|
|
destination := db pageNamed: pageName.
|
|
origin := db pageNamed: self page title.
|
|
origin removeSnippet: self.
|
|
destination addSnippet: self .
|
|
]
|