'From Cuis 5.0 [latest update: #4456] on 15 November 2020 at 8:22:19 pm'!

!SmalltalkEditor methodsFor: 'do-its' stamp: 'jmv 11/15/2020 20:22:08'!
printIt
	"Treat the current text selection as an expression; evaluate it. Insert the 
	description of the result of evaluation after the selection and then make 
	this description the new text selection."
	| rpt |

	self
		evaluateSelectionAndDo: [ :result |
			rpt _ result printTextLimitedTo: 10000.
			self afterSelectionInsertAndSelect: 
				((' ', rpt, ' ') initialFontFrom: emphasisHere)]
		ifFail: [ morph flash ]
		profiled: false.! !

