The Trunk: Morphic-mt.1073.mcz

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1073.mcz

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

Name: Morphic-mt.1073
Author: mt
Time: 5 February 2016, 3:15:09.830028 pm
UUID: e62ff44d-02cd-4e0a-987b-1b3a58a82ab2
Ancestors: Morphic-mt.1072

Fixes print-and-find bug. Now you can find things in the print-it string via CMD+F without having the print-it string removed from the text field.

=============== Diff against Morphic-mt.1072 ===============

Item was changed:
  ----- Method: TextEditor>>setSearchFromSelectionOrHistory (in category 'accessing') -----
  setSearchFromSelectionOrHistory
  "Updates the current string to find with the current selection or the last change if it replaced something and thus had a prior selection."
 
  self hasSelection
  ifTrue: [FindText := self selection]
  ifFalse: [self history hasReplacedSomething
  ifTrue: [FindText := self history previous contentsBefore]
+ ifFalse: [(self history hasInsertedSomething and: [(self history hasCursorMoved: self stopIndex) not])
- ifFalse: [self history hasInsertedSomething
  ifTrue: [
  FindText := self history previous contentsAfter.
  self removePreviousInsertion. "Undoable."]]]!

Item was added:
+ ----- Method: TextEditorCommandHistory>>hasCursorMoved: (in category 'testing') -----
+ hasCursorMoved: cursorIndex
+
+ ^ self hasPrevious and: [self previous intervalAfter first ~= cursorIndex]!