The Trunk: ToolBuilder-Morphic-ar.66.mcz

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.!