Bert Freudenberg uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-bf.553.mcz

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

Name: Morphic-bf.553
Author: bf
Time: 30 June 2011, 11:59:55.988 pm
UUID: d9302a11-c4d7-4f5a-be1a-61eb94c07684
Ancestors: Morphic-bf.552, Morphic-yo.520

merge "Button for it" feature

=============== Diff against Morphic-bf.552 ===============

Item was added:
+ ----- Method: PluggableTextMorph>>buttonForIt (in category 'menu commands') -----
+ buttonForIt
+ 	self handleEdit: [textMorph editor buttonForIt]!

Item was added:
+ ----- Method: SmalltalkEditor>>buttonForIt (in category 'do-its') -----
+ buttonForIt
+ 
+ 	^ self doItButtonFromSelection ifNotNilDo: [:e | e openInHand]!

Item was added:
+ ----- Method: SmalltalkEditor>>doItButtonFromSelection (in category 'do-its') -----
+ doItButtonFromSelection
+ 
+ 	| button string cm |
+ 	self lineSelectAndEmptyCheck: [^ nil].
+ 	button := SimpleButtonMorph new.
+ 	string := self selection.
+ 	(model respondsTo: #doItReceiver) 
+ 		ifTrue: [
+ 			button setProperty: #rcvr toValue: model doItReceiver.
+ 			button setProperty: #ctxt toValue: model doItContext].
+ 
+ 	cm := (button valueOfProperty: #rcvr) class compilerClass new 
+ 			compiledMethodFor: string readStream
+ 			in: (button valueOfProperty: #ctxt)
+ 			to: (button valueOfProperty: #rcvr)
+ 			notifying: nil
+ 			ifFail: [^ nil]
+ 			logged: false.
+ 	button setProperty: #cm toValue: cm.
+ 	button target: [:b |
+ 		[(b valueOfProperty: #cm) valueWithReceiver: (b valueOfProperty: #rcvr) arguments: 
+ 			((b valueOfProperty: #ctxt) ifNotNil: [{(b valueOfProperty: #ctxt) }] ifNil: [#()])]
+ 		on: OutOfScopeNotification 
+ 		do: [ :ex | ex resume: true]];
+ 		actionSelector: #value:;
+ 		arguments: {button}.
+ 	button label: string.
+ 	^ button.
+ !