[Pkg] SystemEditor: SystemEditor-mtf.142.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of SystemEditor was added to project SystemEditor:
http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.142.mcz

==================== Summary ====================

Name: SystemEditor-mtf.142
Author: mtf
Time: 25 October 2008, 8:35:08 pm
UUID: 1b1f863f-aa29-4623-9f57-536f29a057ce
Ancestors: SystemEditor-mtf.141

fixed a bug for new classes using custom compilers

=============== Diff against SystemEditor-mtf.141 ===============

Item was changed:
  ----- Method: MethodEditor>>compileFor: (in category 'building') -----
  compileFor: aClassEditor
  [
  	| node method |
+ 	node := aClassEditor product compilerClass new
- 	node := aClassEditor compilerClass new
  				compile: source
  				in: aClassEditor product
  				notifying: requestor
  				ifFail: nil.
  	node encoder requestor: self.
  	method := node generate: #(0 0 0 0).
  	(method respondsTo: #selector:) "set selector on 3.9 and above"
  		ifTrue: [method selector: node selector].
  	^ method
  ] on: SyntaxErrorNotification do: [:ex |
  	"In 3.10, the class category needs to be set"
  	ex instVarNamed: #category put: aClassEditor category.
  	"Let the user fix and install the fixed code into the class's old or temporary MethodDictionary"
  	ex outer.
  	"Now fetch and use that code instead"
  	source := aClassEditor product sourceCodeAt: self selector ifAbsent: [^ nil].
  	^ aClassEditor product compiledMethodAt: self selector
  ]!