[Pkg] SystemEditor: SystemEditor-mtf.123.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.123.mcz

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

Name: SystemEditor-mtf.123
Author: mtf
Time: 3 October 2008, 5:01:12 pm
UUID: badc72c7-0ff5-4400-873d-e879cc4099b3
Ancestors: SystemEditor-mtf.122

3.8 compatability fix

=============== Diff against SystemEditor-mtf.122 ===============

Item was changed:
  ----- Method: MethodEditor>>compileFor: (in category 'building') -----
  compileFor: aClassEditor
  [
  	| node method |
  	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 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 install the fixed code into the system"
  	ex outer.
  	"Now fetch and use that code instead"
  	source := aClassEditor product sourceCodeAt: self selector ifAbsent: [^ nil].
  	^ aClassEditor product compiledMethodAt: self selector
  ]!