diff --git a/src/MiniDocs/LeTextCoderSnippetElement.extension.st b/src/MiniDocs/LeTextCoderSnippetElement.extension.st index a76a8e3..aebc06a 100644 --- a/src/MiniDocs/LeTextCoderSnippetElement.extension.st +++ b/src/MiniDocs/LeTextCoderSnippetElement.extension.st @@ -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 . ]