We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent daaf85e commit b156b53Copy full SHA for b156b53
repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/defineClass.superclass..st
@@ -2,10 +2,18 @@ accessing-code
2
defineClass: aClassSymbol superclass: aSuperSymbol
3
4
| class |
5
- class := factory silentlyMake: [ :aBuilder |
6
- aBuilder
7
- superclass: (Smalltalk at: aSuperSymbol);
8
- package: self category ].
+ class := SystemVersion current major >= 12
+ ifTrue: [
+ factory make: [ :aBuilder |
+ aBuilder
9
+ superclass: (Smalltalk at: aSuperSymbol);
10
+ package: self category ] ]
11
+ ifFalse: [
12
+ factory
13
+ newSubclassOf: (Smalltalk at: aSuperSymbol)
14
+ instanceVariableNames: ''
15
+ classVariableNames: 'classVarsString'
16
+ category: self category ].
17
environment
18
addClass: class;
19
addClass: class theMetaClass.
0 commit comments