categorize in RGEnvironment

fixes pharo-project#9369
hogoww · May 31, 2021 · 8bd7d3f · 8bd7d3f
1 parent 94b3690
commit 8bd7d3f
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/src/Ring-Core/RGEnvironment.class.st b/src/Ring-Core/RGEnvironment.class.st
@@ -104,7 +104,7 @@ RGEnvironment >> bindingOf: aSymbol [
 	^ result
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #events }
 RGEnvironment >> child: aChildDefinition renamedFrom: oldName to: newName [
 
 	self queryInterface behaviorsDictionary removeKey: oldName ifAbsent: [].
@@ -228,7 +228,7 @@ RGEnvironment >> compileANewClassFrom: aString notifying: aMorph startingFrom: a
 	^ aClass
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #utility }
 RGEnvironment >> createDefaultEnvironment [
 
 	| protoobject protoobjectClass object objectClass class classClass classDescription classDescriptionClass behavior behaviorClass metaclass metaclassClass kernelPackage |
@@ -328,7 +328,7 @@ RGEnvironment >> definitionFor: anObject [
 	^ self backend definitionFor: anObject.
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #cleaning }
 RGEnvironment >> ensureClassNamed: aSymbol [
 
 	self assert: (aSymbol endsWith: ' classTrait') not.
@@ -414,7 +414,7 @@ RGEnvironment >> ensureMetaclass: aProposedName [
 	^ aMetaclass.
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #cleaning }
 RGEnvironment >> ensureMetaclassTraitNamed: aSymbol [
 
 	| found newTrait newMetaclassTrait similarMetaclass similarMetaclassName siblingName sibling originalMetaclass  |
@@ -491,7 +491,7 @@ RGEnvironment >> ensureMetaclassTraitNamed: aSymbol [
 
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #cleaning }
 RGEnvironment >> ensurePackageNamed: aSymbol [
 
 	^ self ask packages 
@@ -523,7 +523,7 @@ RGEnvironment >> ensureTrait [
 	^ aTrait.
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #cleaning }
 RGEnvironment >> ensureTraitNamed: aSymbol [
 
 	| found siblingName sibling |
@@ -584,14 +584,14 @@ RGEnvironment >> environment [
 	^ self
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #cleaning }
 RGEnvironment >> fixProtoObjectClassSuperclass [
 
 	(self ask classNamed: #'ProtoObject class') superclass: (self ask classNamed: #Class).
 
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #binding }
 RGEnvironment >> globalVariablesBindings [
 
 	^ self propertyNamed: #globalVariablesBindings ifAbsentPut: [ IdentityDictionary new.]
@@ -603,7 +603,7 @@ RGEnvironment >> globalVariablesDo: aBlock [
 	self backend forBehavior globalVariablesFor: self do: aBlock
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #testing }
 RGEnvironment >> hasTraits [
 
 	self behaviorsDo: [ :each |