', self name, '
-Probando
+ ', self body, '
diff --git a/repository/Brea/BreaApp.class.st b/repository/Brea/BreaApp.class.st index c0c47a6..855aaac 100644 --- a/repository/Brea/BreaApp.class.st +++ b/repository/Brea/BreaApp.class.st @@ -4,7 +4,8 @@ Class { #instVars : [ 'name', 'folder', - 'server' + 'server', + 'body' ], #category : #Brea } @@ -14,6 +15,11 @@ BreaApp >> appName [ ^ self name asCamelCase ] +{ #category : #accessing } +BreaApp >> body [ + ^ body ifNil: [ body := '' writeStream contents ] +] + { #category : #accessing } BreaApp >> defaultView [ ^ ' @@ -27,8 +33,7 @@ BreaApp >> defaultView [
Probando
+ ', self body, '