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

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

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

Name: ToolBuilder-Morphic-ar.57
Author: ar
Time: 21 April 2010, 9:38:46.991 pm
UUID: 816ab07d-c643-c14f-ace6-f8d22b086a4f
Ancestors: ToolBuilder-Morphic-ar.56

Fix syntax highlighting in UIManager's use of edit:label:accept:. It should allow syntax highlighting but turn it off by default, yet it didn't allow it but had it turned on. This fixes it, allowing workspaces created that way to be styled, if and only if, enabled by the user.

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

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