Add half of a coder

2022-04-17 20:49:42 +02:00
parent 199758d97d
commit 64a8353006
7 changed files with 343 additions and 6 deletions
--- a/src/Carp/CarpModuleCoder.class.st
+++ b/src/Carp/CarpModuleCoder.class.st
@@ -0,0 +1,30 @@
+Class {
+	#name : #CarpModuleCoder,
+	#superclass : #GtCoderModel,
+	#traits : 'TGtCoderTrait',
+	#classTraits : 'TGtCoderTrait classTrait',
+	#instVars : [
+		'module'
+	],
+	#category : #'Carp-Coder'
+}
+
+{ #category : #'instance creation' }
+CarpModuleCoder class >> forModule: aCarpModule [
+	^ self new module: aCarpModule
+]
+
+{ #category : #accessing }
+CarpModuleCoder >> asCoderViewModel [
+	^ CarpModuleCoderViewModel new coder: self
+]
+
+{ #category : #'instance creation' }
+CarpModuleCoder >> module [
+	^ module
+]
+
+{ #category : #'instance creation' }
+CarpModuleCoder >> module: aCarpModule [ 
+	module := aCarpModule
+]