Colin Putney uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-cwp.83.mcz

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

Name: ToolBuilder-Morphic-cwp.83
Author: cwp
Time: 22 November 2011, 9:22:53.997 pm
UUID: a68565e9-cad9-439f-a9fb-85c5f168cd74
Ancestors: ToolBuilder-Morphic-cmm.82

Extended PluggableTextMorphPlus to support a getMenuSelector with 3 arguments. The third argument, if present, will be the current selection interval.

=============== Diff against ToolBuilder-Morphic-cmm.82 ===============

Item was added:
+ ----- Method: PluggableTextMorphPlus>>getMenu: (in category 'menu') -----
+ getMenu: shiftKeyState
+ 	"Answer the menu for this text view. We override the superclass implementation to
+ 	so we can give the selection interval to the model."
+ 	
+ 	| menu aMenu |
+ 	getMenuSelector == nil ifTrue: [^ nil].
+ 	getMenuSelector numArgs < 3 ifTrue: [^ super getMenu: shiftKeyState].
+ 	menu := MenuMorph new defaultTarget: model.
+ 	getMenuSelector numArgs = 3 ifTrue:
+ 		[aMenu := model 
+ 			perform: getMenuSelector 
+ 			with: menu 
+ 			with: shiftKeyState 
+ 			with: self selectionInterval.
+ 		getMenuTitleSelector ifNotNil: 
+ 			[aMenu addTitle: (model perform: getMenuTitleSelector)].
+ 		^ aMenu].
+ 	^ self error: 'The getMenuSelector must be a 1- or 2 or 3-keyword symbol'!