Ryan Macnak avatar Ryan Macnak committed 6ab353e

Manually classify classes when inserting into the system dictionary, since the Kernel`Class does not trigger this.

Comments (0)

Files changed (3)

 		klass:: Smalltalk removeKey: oldName.
 		klass setName: newName.
 		Smalltalk at: newName put: klass.
+		blackMarket SystemOrganization classify: newName under: klass category.
 		blackMarket SystemOrganization removeMissingClasses.
 	].
 
 	klass:: mixin apply: Object withName: builder simpleName.
 	Smalltalk at: klass name put: klass.
 	klass category: model.
+	SystemOrganization classify: klass name under: klass category.
 	^true
 )
 colorizeClassSource: sourceText <String | Text> ^<Text> = (

Newspeak3CompilerAdaptor.ns3

 	klass:: mixinMirror reflectee apply: NewspeakObject withName: mixinMirror simpleName.
 	Smalltalk at: klass name put: klass.
 	klass category: mixinMirror reflectee definingClass category.
+	blackMarket SystemOrganization at: klass name put: klass category.
 	^klass
 )
 evaluate: textOrStream in: aContext to: receiver notifying: aRequestor ifFail: failBlock logged: logFlag = (
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.