The Trunk: Morphic-nice.641.mcz

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

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

Name: Morphic-nice.641
Author: nice
Time: 24 February 2013, 7:46:46.389 pm
UUID: d7085035-2ec9-4937-a927-80ad6419a36c
Ancestors: Morphic-nice.640

Correct blinkPrevParen: (only in absence of Shout).
simplify an initialization.

=============== Diff against Morphic-nice.640 ===============

Item was changed:
  ----- Method: MorphicProject>>initializeMenus (in category 'enter') -----
  initializeMenus
+ "Menu setting for these classes may have been modified by another
- "Menu setting for these classes may have have been modified by another
  Morphic project, e.g. SimpleMorphic. Ensure that they are restored to the
  expected menus."
 
+ Editor initialize.!
- TextEditor initialize.
- SmalltalkEditor initialize!

Item was changed:
  ----- Method: TextEditor>>blinkPrevParen: (in category 'parenblinking') -----
+ blinkPrevParen: aCharacter
- blinkPrevParen: aKeyboardEvent
  "Used if not Shout"
  | openDelimiter closeDelimiter level string here hereChar |
  string := paragraph string.
  here := pointBlock stringIndex.
+ openDelimiter := aCharacter.
- openDelimiter := aKeyboardEvent keyCharacter.
  closeDelimiter := '([{' at: (')]}' indexOf: openDelimiter).
  level := 1.
  [level > 0 and: [here > 1]]
  whileTrue:
  [hereChar := string at: (here := here - 1).
  hereChar = closeDelimiter
  ifTrue:
  [level := level - 1.
  level = 0
  ifTrue: [^ self blinkParenAt: here]]
  ifFalse:
  [hereChar = openDelimiter
  ifTrue: [level := level + 1]]]!