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!