Commits

Ryan Macnak  committed 6ab353e

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

  • Participants
  • Parent commits ac13009

Comments (0)

Files changed (3)

File Browsing.ns3

 		klass:: Smalltalk removeKey: oldName.
 		klass setName: newName.
 		Smalltalk at: newName put: klass.
+		blackMarket SystemOrganization classify: newName under: klass category.
 		blackMarket SystemOrganization removeMissingClasses.
 	].
 

File MiscBrowsing.ns3

 	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> = (

File 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 = (