Commits

Ryan Macnak committed 3dd6e12

Template for NS3 class no longer declaring a superclass. Use class declaration rather than class header as the production for adding nested classes.

Comments (0)

Files changed (2)

 )
 classTemplateText = (
 ^
-'class ClassNameHere = NewspeakObject (
+'class ClassNameHere = (
 "Describe the class in this comment."
 |
 	slot1

Newspeak3Browsing.ns3

 
 	| builder newMirror |
 	builder:: MixinBuilder reflecting: model enclosingMixin reflectee.
-	builder nestedClasses addFromSource:
-			(classDefinitionFromHeaderPart: aString).
+	builder nestedClasses addFromSource: aString.
 	builder declaration install.
 			
 	successBlock value
 	^NS3Colorizer new
 		parseText: sourceText asString
 		fromClass: model enclosingMixin declaration reflectee definingClass
-		usingSelector: #classDefinitionTemplate
+		usingSelector: "#classDefinitionTemplate" #classDeclaration
 )
 createPresenter = (
 ^NestedClassGroupPresenter onSubject: self
 modelMirrorCollection = (
 	^super modelMirrorCollection asSortedList: [:a :b | a simpleName < b simpleName]
 )'private'
-classDefinitionFromHeaderPart: headerPart <String> ^<String> = (
-
-	^headerPart, ' ()'
-)
 classDefinitionHeaderPartTemplate = (
 ^
 'class ClassNameHere = (
 	slot1
 	slot2
 |
-)'
+) ()'
 )
 elementSubjectClass = (