No comment. Sorry.

	mouse handling
	handlesMouseDown: mouseDownPriority mouseStillDown:

	private
	line1:

	user interface
	acceptNewLiteral: arrowAction: initialize literal: offerAllChoicesInAPopUp setLiteralInitially: updateLiteralLabel wantsKeyboardFocusFor:

	initialization	top
	choices:dataType: Initialize the receiver with the given choice-list and data type

	mouse handling	top
	handlesMouseDown: Answer whether the receiver handles mouse-down
	mouseDownPriority Higher-priority than parts donor, so that the tile can offer a popup even when it is in a larger structure, such as a PhraseTileMorph, that itself behaves as a parts donor
	mouseStillDown: The mouse is still down on the receiver. Copied down uningratiatingly to get an urgently-needed asSymbol call interjected where you see the arrow below

	private	top
	line1: Emblazon the receiver with the requested label. If the receiver already has a label, make the new label be of the same class

	user interface	top
	acceptNewLiteral: Accept the new literal
	arrowAction: Do what is appropriate when an arrow on the tile is pressed; delta will be +1 or -1
	initialize initialize the receiver. Set up an event handler so that a click on the tile will produce a pop-up of alternatives
	literal: Set the receiver's literal as indicated
	offerAllChoicesInAPopUp Offer all choices in a pop-up menu
	setLiteralInitially: Establish the initial literal. Get the label correct, but do *not* send the value back to the target via the setter (unlike #literal:)
	updateLiteralLabel Update the wording emblazoned on the tile, if needed. Copied down, for jimmying, unfortunately
	wantsKeyboardFocusFor: Answer whether a plain mouse click on aSubmorph, a text-edit-capable thing, should result in a text selection there