From b6fb3d19d34a5f4b2335e084bb8beee29bbd0886 Mon Sep 17 00:00:00 2001
From: Yann Le Goff <y.legoff97@gmail.com>
Date: Mon, 24 Jun 2024 09:07:27 +0200
Subject: [PATCH] Fix playground

---
 ...ramidSpCodeObjectInteractionModel.class.st | 21 ++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

diff --git a/src/Pyramid/PyramidSpCodeObjectInteractionModel.class.st b/src/Pyramid/PyramidSpCodeObjectInteractionModel.class.st
index d43ed647..7f132ae8 100644
--- a/src/Pyramid/PyramidSpCodeObjectInteractionModel.class.st
+++ b/src/Pyramid/PyramidSpCodeObjectInteractionModel.class.st
@@ -12,31 +12,38 @@ Class {
 { #category : 'accessing' }
 PyramidSpCodeObjectInteractionModel >> doItReceiver [
 
-	self projectModel selection ifEmpty: [ ^ self projectModel firstLevelElements ].
-	self projectModel selection size = 1 ifTrue: [ ^self projectModel selection first ].
+	self projectModel selection ifEmpty: [
+		^ self projectModel firstLevelElements ].
+	self projectModel selection size = 1 ifTrue: [
+		^ self projectModel selection first ].
 	^ self projectModel selection asArray
 ]
 
 { #category : 'as yet unclassified' }
 PyramidSpCodeObjectInteractionModel >> doItReceiverString [
 
-	self projectModel selection ifEmpty: [ ^ 'the collection of first level elements' ].
+	self projectModel selection ifEmpty: [
+		^ 'the collection of first level elements' ].
 	self projectModel selection size = 1 ifTrue: [
 		^ 'the selected element' ].
 	^ 'an array of <1p> selected elements' expandMacrosWith:
 		  self projectModel selection size
 ]
 
+{ #category : 'as yet unclassified' }
+PyramidSpCodeObjectInteractionModel >> isScripting [
+
+	^ true
+]
+
 { #category : 'accessing' }
 PyramidSpCodeObjectInteractionModel >> projectModel [
 
 	^ projectModel
-	
 ]
 
 { #category : 'accessing' }
-PyramidSpCodeObjectInteractionModel >> projectModel: aProjectModel [
-
-	projectModel := aProjectModel.
+PyramidSpCodeObjectInteractionModel >> projectModel: anObject [
 
+	projectModel := anObject
 ]