Smalltalk › Pharo › Pharo Smalltalk Users

Creating a Class in a Temporary Environment

_‹ Previous Topic Next Topic _›

Classic

List

Threaded

6 messages Options

Sean P. DeNigris

May 12, 2015; 10:45am

Creating a Class in a Temporary Environment

Administrator

5777 posts

I used to have

creatingAClassInATemporaryNamespace

| testingEnvironment morph |
testingEnvironment := SystemDictionary new.

ClassBuilder new
name: #AClassForTesting
inEnvironment: testingEnvironment
subclassOf: Object
type: Object typeOfClass
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'TemporaryTesting'.

How do I do this with Slots?

I tried:

creatingAClassInATemporaryNamespace

| testingEnvironment morph |
testingEnvironment := SystemDictionary new.

PharoClassInstaller make: [ :builder |
builder
superclass: Object;
name: #AClassForTesting;
environment: testingEnvironment;
category: 'TemporaryTesting' ].

but got "key #SystemOrganization not found in SystemDictionary".

Cheers,
Sean

Mariano Martinez Peck

May 12, 2015; 12:08pm

Re: Creating a Class in a Temporary Environment

9001 posts

Sean,

Maybe it is not exactly what you asked but when it is about creating classes/traits for testing I always used ClassFactoryForTestCase (see it is used by Fuel). You can even check how that class currently creates the stuff.

Cheers,

On Tue, May 12, 2015 at 7:45 AM, Sean P. DeNigris <[hidden email]> wrote:

I used to have

creatingAClassInATemporaryNamespace

| testingEnvironment morph |
testingEnvironment := SystemDictionary new.

ClassBuilder new
name: #AClassForTesting
inEnvironment: testingEnvironment
subclassOf: Object
type: Object typeOfClass
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'TemporaryTesting'.

How do I do this with Slots?

I tried:

creatingAClassInATemporaryNamespace

| testingEnvironment morph |
testingEnvironment := SystemDictionary new.

PharoClassInstaller make: [ :builder |
builder
superclass: Object;
name: #AClassForTesting;
environment: testingEnvironment;
category: 'TemporaryTesting' ].

but got "key #SystemOrganization not found in SystemDictionary".

-----
Cheers,
Sean
--
View this message in context: http://forum.world.st/Creating-a-Class-in-a-Temporary-Environment-tp4825963.html
Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.

... [show rest of quote]

Mariano
http://marianopeck.wordpress.com

camille teruel

May 12, 2015; 12:41pm

Re: Creating a Class in a Temporary Environment

281 posts

In reply to this post by Sean P. DeNigris

Hi Sean,

You can use AnonymousClassInstaller instead of PharoClassInstaller.
We should improve it because it has limitations: the environment is not used and you won’t be able to change the slots or the superclass after creation.

AnonymousClassInstaller make: [ :builder |
builder
superclass: Object;
name: #AClassForTesting ].

Camille

> On 12 May 2015, at 12:45, Sean P. DeNigris <[hidden email]> wrote:
>
> I used to have
>
> creatingAClassInATemporaryNamespace
>
> | testingEnvironment morph |
> testingEnvironment := SystemDictionary new.
>
> ClassBuilder new
> name: #AClassForTesting
> inEnvironment: testingEnvironment
> subclassOf: Object
> type: Object typeOfClass
> instanceVariableNames: ''
> classVariableNames: ''
> poolDictionaries: ''
> category: 'TemporaryTesting'.
>
> How do I do this with Slots?
>
> I tried:
>
> creatingAClassInATemporaryNamespace
>
> | testingEnvironment morph |
> testingEnvironment := SystemDictionary new.
>
> PharoClassInstaller make: [ :builder |
> builder
> superclass: Object;
> name: #AClassForTesting;
> environment: testingEnvironment;
> category: 'TemporaryTesting' ].
>
> but got "key #SystemOrganization not found in SystemDictionary”.
>
> -----
> Cheers,
> Sean
> --
> View this message in context: http://forum.world.st/Creating-a-Class-in-a-Temporary-Environment-tp4825963.html
> Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.
>

... [show rest of quote]

Marcus Denker-4

May 19, 2015; 6:24am

Re: Creating a Class in a Temporary Environment

7582 posts

> On 12 May 2015, at 14:57, Camille <[hidden email]> wrote:
>
> Hi Sean,
>
> You can use AnonymousClassInstaller instead of PharoClassInstaller.

Hmmm… I don’t like that. It is for anonymous classes.

We should fix the class builder itself… and check that Opal can use environments, too.

It is already on my TODO...

> We should improve it because it has limitations: the environment is not used and you won’t be able to change the slots or the superclass after creation.
>
> AnonymousClassInstaller make: [ :builder |
> builder
> superclass: Object;
> name: #AClassForTesting ].
>
> Camille
>
>
>> On 12 May 2015, at 12:45, Sean P. DeNigris <[hidden email]> wrote:
>>
>> I used to have
>>
>> creatingAClassInATemporaryNamespace
>>
>> | testingEnvironment morph |
>> testingEnvironment := SystemDictionary new.
>>
>> ClassBuilder new
>> name: #AClassForTesting
>> inEnvironment: testingEnvironment
>> subclassOf: Object
>> type: Object typeOfClass
>> instanceVariableNames: ''
>> classVariableNames: ''
>> poolDictionaries: ''
>> category: 'TemporaryTesting'.
>>
>> How do I do this with Slots?
>>
>> I tried:
>>
>> creatingAClassInATemporaryNamespace
>>
>> | testingEnvironment morph |
>> testingEnvironment := SystemDictionary new.
>>
>> PharoClassInstaller make: [ :builder |
>> builder
>> superclass: Object;
>> name: #AClassForTesting;
>> environment: testingEnvironment;
>> category: 'TemporaryTesting' ].
>>
>> but got "key #SystemOrganization not found in SystemDictionary”.
>>
>> -----
>> Cheers,
>> Sean
>> --
>> View this message in context: http://forum.world.st/Creating-a-Class-in-a-Temporary-Environment-tp4825963.html
>> Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.
>>
>
>

... [show rest of quote]

Marcus Denker-4

Sep 04, 2015; 2:12pm

Re: Creating a Class in a Temporary Environment

7582 posts

In reply to this post by Sean P. DeNigris

Hi,

I fixed it:

https://pharo.fogbugz.com/f/cases/16479/Creating-a-class-in-an-empty-environment

On Tue, May 12, 2015 at 12:45 PM, Sean P. DeNigris <[hidden email]> wrote:

I used to have

creatingAClassInATemporaryNamespace

| testingEnvironment morph |
testingEnvironment := SystemDictionary new.

ClassBuilder new
name: #AClassForTesting
inEnvironment: testingEnvironment
subclassOf: Object
type: Object typeOfClass
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'TemporaryTesting'.

How do I do this with Slots?

I tried:

creatingAClassInATemporaryNamespace

| testingEnvironment morph |
testingEnvironment := SystemDictionary new.

PharoClassInstaller make: [ :builder |
builder
superclass: Object;
name: #AClassForTesting;
environment: testingEnvironment;
category: 'TemporaryTesting' ].

but got "key #SystemOrganization not found in SystemDictionary".

-----
Cheers,
Sean
--
View this message in context: http://forum.world.st/Creating-a-Class-in-a-Temporary-Environment-tp4825963.html
Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.

... [show rest of quote]

--
Marcus Denker -- [hidden email]
http://www.marcusdenker.de

Sean P. DeNigris

Sep 05, 2015; 2:57am

Re: Creating a Class in a Temporary Environment

Administrator

5777 posts

Marcus Denker-4 wrote

I fixed it:

Cool! Thanks :)

Cheers,
Sean