Add half of a coder

2022-04-17 21:39:50 +02:00
parent 64a8353006
commit 8f48fc25c3
4 changed files with 77 additions and 55 deletions
--- a/src/Carp/CarpExpression.class.st
+++ b/src/Carp/CarpExpression.class.st
@@ -7,6 +7,11 @@ Class {
 	#category : #'Carp-IDE'
 }

+{ #category : #accessing }
+CarpExpression >> asElement [
+	^ (GtCarpCoderModel new sourceCode: (GtCoderExplicitStringSource new source: self toCarp)) asElement
+]
+
 { #category : #accessing }
 CarpExpression >> documentation [
 	^ documentation ifNil: ['']