I represent a ParagraphEditor for a single paragraph of text, omitting alignment commands. I provide items in the yellow button menu so that the text selection can be evaluated and so that the contents of the model can be stored or restored.
doIt evaluate the text selection as an expression
printIt same as doIt but insert a description of the result after the selection
accept store the contents of the StringHolder into the model
cancel store the contents of the model into the StringHolder

	compiler access
	bindingOf:

	edit flag
	hasUnacceptedEdits: userHasEdited userHasNotEdited

	editing keys

	menu messages
	accept cancel objectsReferencingIt performMenuMessage:

	private
	closeTypeIn zapSelectionWith:

	accessing	top
	changeText: The paragraph to be edited is changed to aText.
	model: Controller|model: and Controller|view: are sent by View|controller: in order to coordinate the links between the model, view, and controller. In ordinary usage, the receiver is created and passed as the parameter to View|controller: so that the receiver's model and view links can be set up by the view.

	compiler access	top
	bindingOf:

	edit flag	top
	hasUnacceptedEdits:
	userHasEdited Note that the user has edited my text.
	userHasNotEdited Note that my text is free of user edits.

editing keys

top

	menu messages	top
	accept Refer to the comment in ParagraphEditor|accept.
	cancel Refer to the comment in ParagraphEditor|cancel.
	objectsReferencingIt Open a list inspector on all objects that reference the object that results when the current selection is evaluated.
	performMenuMessage: Intercept #again so the model does not get locked by keying the search text.

	private	top
	closeTypeIn Note edit if something actually was typed.
	zapSelectionWith: Note edit except during typeIn, which notes edits at close.