David T. Lewis uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-dtl.424.mcz

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

Name: System-dtl.424
Author: dtl
Time: 28 February 2011, 8:34:47.116 pm
UUID: cd349651-cc8e-40b1-b8ae-7a8615107eb1
Ancestors: System-ul.423

Update #dispatchTo:addPrefixAndSend:withArguments: to flag usage in debugger opening (indicates opportunity for tool builder support to replace this usage).

=============== Diff against System-ul.423 ===============

Item was changed:
  ----- Method: Project>>dispatchTo:addPrefixAndSend:withArguments: (in category 'dispatching') -----
  dispatchTo: requestor addPrefixAndSend: baseSelector withArguments: arguments
  	"Sender wants to perform a method with dependencies on the type of project.
  	Dispatch to an appropriate method for the current project.
  	
  	This method is a workaround for lack of proper ToolBuilder support in the sender,
  	and should be eliminated when possible (dtl Feb 2010)"
  
  	| selector |
  	"Flag target selectors to help identify senders"
+ 	true ifFalse: [
+ 		self flag: #mvcOpenLabel:in: .
+ 		self flag: #morphicOpenLabel:in: .
+ 		self flag: #mvcStartUpLeftFlush .
+ 		self flag: #morphicStartUpLeftFlush .
+ 		self flag: #mvcStartUpWithCaption:icon:at:allowKeyboard: .
+ 		self flag: #morphicStartUpWithCaption:icon:at:allowKeyboard: .
+ 		self flag: #mvcOpen: .
+ 		self flag: #morphicOpen: .
+ 		self flag: #mvcOpen .
+ 		self flag: #morphicOpen .
+ 		self flag: #mvcOpenOn:context:label:contents:fullView: .
+ 		self flag: #morphicOpenOn:context:label:contents:fullView:
+ 	].
- 	self flag: #mvcOpenLabel:in: .
- 	self flag: #morphicOpenLabel:in: .
- 	self flag: #mvcStartUpLeftFlush .
- 	self flag: #morphicStartUpLeftFlush .
- 	self flag: #mvcStartUpWithCaption:icon:at:allowKeyboard: .
- 	self flag: #morphicStartUpWithCaption:icon:at:allowKeyboard: .
- 	self flag: #mvcOpen: .
- 	self flag: #morphicOpen: .
- 	self flag: #mvcOpen .
- 	self flag: #morphicOpen .
- 	
  	selector := (self selectorPrefixForDispatch, baseSelector) asSymbol.
  	^ requestor perform: selector withArguments: arguments!