Andreas Raab uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-ar.66.mcz

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

Name: ToolBuilder-Morphic-ar.66
Author: ar
Time: 22 July 2010, 8:00:14.791 pm
UUID: d8c9f589-e7d0-5349-9e38-b4c06f023b3f
Ancestors: ToolBuilder-Morphic-eem.65

Fix UIManager>>edit:label:accept: to not evaluate the accept block initially.

=============== Diff against ToolBuilder-Morphic-eem.65 ===============

Item was changed:
  ----- Method: MorphicUIManager>>edit:label:accept: (in category 'ui requests') -----
  edit: aText label: labelString accept: anAction
  	"Open an editor on the given string/text"
  	| window |
  	window := Workspace open.
  	labelString ifNotNil: [ window setLabel: labelString ].
  	"By default, don't style in UIManager edit: requests"
  	window model
  		shouldStyle: false;
+ 		acceptContents:  aText;
+ 		acceptAction: anAction.
- 		acceptAction: anAction;
- 		acceptContents:  aText.
  	^window.!