'From Cuis 1.0 of 28 November 2009 [latest update: #337] on 11 December 2009 at 1:08:54 am'!

!SmalltalkEditor methodsFor: 'do-its' stamp: 'jmv 12/11/2009 01:08'!
compileSelectionFor: anObject in: evalContext
	| methodNode method |
	methodNode := [Compiler new
		compileNoPattern: self selectionAsStream
		in: anObject class
		context: evalContext
		notifying: self
		ifFail: [^nil]]
			on: OutOfScopeNotification
			do: [:ex | ex resume: true].
	method := methodNode generate: #(0 0 0 0).
	^method copyWithTempsFromMethodNode: methodNode! !

