The Trunk: ToolBuilder-Morphic-fbs.58.mcz

A new version of ToolBuilder-Morphic was added to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-fbs.58.mcz

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

Name: ToolBuilder-Morphic-fbs.58
Author: fbs
Time: 28 April 2010, 10:32:38.987 pm
UUID: 5f1f5812-f1d8-824f-8aed-a884428b9fdd
Ancestors: ToolBuilder-Morphic-ar.57

Support for Mantis 7517: a spawned workspace has no context menu. Instead of building the Workspace's model by hand, just ask the Workspace to do it itself.

=============== Diff against ToolBuilder-Morphic-ar.57 ===============

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.
+ window model acceptContents:  aText.
+ window model acceptAction: anAction.
+ ^window.!
- | window holder text |
- holder := Workspace  new.
- holder contents: aText.
- holder shouldStyle: false.
- text := PluggableTextMorphPlus
- on: holder
- text: #contents
- accept: #acceptContents:
- readSelection: nil
- menu: nil.
- text useDefaultStyler.
- text acceptAction: anAction.
- window := SystemWindow new.
- labelString ifNotNil:[window setLabel: labelString].
- window model: holder .
- window addMorph: text frame: (0@0 extent: 1@1).
- window openInWorld.
- ^window!