Implementing functionality at subclass level.

2023-01-01 13:26:20 -05:00 · 2023-01-01 13:26:20 -05:00 · 1d58571d39
parent 1ea7736b0f
commit 1d58571d39
1 changed files with 6 additions and 1 deletions
--- 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 .
 ]