The Trunk: Morphic-nice.307.mcz

Nicolas Cellier uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-nice.307.mcz

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

Name: Morphic-nice.307
Author: nice
Time: 17 January 2010, 9:57:27.972 pm
UUID: 8f29688d-01a3-4313-b782-015845c88ac3
Ancestors: Morphic-ar.306

let handleEdit: answer the result of evaluating its block argument

=============== Diff against Morphic-ar.306 ===============

Item was changed:
  ----- Method: PluggableTextMorph>>handleEdit: (in category 'editor access') -----
  handleEdit: editBlock
  | result |
  textMorph editor selectFrom: selectionInterval first to: selectionInterval last;
  model: model.  "For, eg, evaluateSelection"
+ result := textMorph handleEdit: editBlock.   "Update selection after edit"
- textMorph handleEdit: [result := editBlock value].   "Update selection after edit"
  self scrollSelectionIntoView.
  ^ result!

Item was changed:
  ----- Method: TextMorph>>handleEdit: (in category 'editing') -----
  handleEdit: editBlock
  "Ensure that changed areas get suitably redrawn"
+ | result |
  self selectionChanged.  "Note old selection"
+ result := editBlock value.
- editBlock value.
  self selectionChanged.  "Note new selection"
+ self updateFromParagraph.  "Propagate changes as necessary"
+ ^result!
- self updateFromParagraph  "Propagate changes as necessary"!

Item was changed:
  ----- Method: PluggableTextMorph>>printIt (in category 'menu commands') -----
  printIt
  | result oldEditor |
 
  textMorph editor selectFrom: selectionInterval first to: selectionInterval last;
  model: model.  "For, eg, evaluateSelection"
+ result := textMorph handleEdit: [(oldEditor := textMorph editor) evaluateSelection].
- textMorph handleEdit: [result := (oldEditor := textMorph editor) evaluateSelection].
  ((result isKindOf: FakeClassPool) or: [result == #failedDoit]) ifTrue: [^self flash].
  selectionInterval := oldEditor selectionInterval.
  textMorph installEditorToReplace: oldEditor.
  textMorph handleEdit: [oldEditor afterSelectionInsertAndSelect: result printString].
  selectionInterval := oldEditor selectionInterval.
 
  textMorph editor selectFrom: selectionInterval first to: selectionInterval last.
  self scrollSelectionIntoView.
 
  !