'From etoys3.0 of 28 February 2008 [latest update: #1996] on 9 May 2008 at 7:07:07 pm'!
"Change Set:		nilSelectionFix-sw
Date:			9 May 2008
Author:			Scott Wallace

Fix for TRAC 6972: 
Paste with yellow menu in FillInTheBlank to find class"!


!PluggableTextMorph methodsFor: 'editor access' stamp: 'sw 5/9/2008 19:06'!
handleEdit: editBlock
	"Apply an editBlock to the text selection."

	| result |
	selectionInterval ifNil:
		[selectionInterval := 1 to: textMorph text string size].
	textMorph editor selectFrom: selectionInterval first to: selectionInterval last;
						model: model.  "For, eg, evaluateSelection"
	textMorph handleEdit: [result _ editBlock value].   "Update selection after edit"
	self scrollSelectionIntoView.
	^ result! !