[squeak-dev] The Trunk: Morphic-nice.641.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Feb 24 18:48:16 UTC 2013


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



More information about the Squeak-dev mailing list