[Pkg] The Trunk: ST80-mt.213.mcz

[commits at source.squeak.org]

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

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

Name: ST80-mt.213
Author: mt
Time: 15 June 2016, 8:00:00.958664 am
UUID: 6a865b4f-20e9-1147-b4b7-2dd6d08eca27
Ancestors: ST80-mt.212

Appendix to Kernel-mt.1028.

=============== Diff against ST80-mt.212 ===============

Item was changed:
  ----- Method: ParagraphEditor>>backspace: (in category 'typing/selecting keys') -----
  backspace: characterStream 
  	"Backspace over the last character."
  
  	| startIndex |
  	sensor leftShiftDown ifTrue: [^ self backWord: characterStream].
  
  	startIndex := self markIndex + (self hasCaret ifTrue: [0] ifFalse: [1]).
  	[sensor keyboardPressed and:
+ 			 [sensor peekKeyboard asciiValue = 8]] whileTrue: [
- 			 [sensor keyboardPeek asciiValue = 8]] whileTrue: [
  				"process multiple backspaces"
  				sensor keyboard.
  				startIndex := 1 max: startIndex - 1.
  			].
  	self backTo: startIndex.
  		
  	^false!

Item was changed:
  ----- Method: ParagraphEditor>>blinkPrevParen (in category 'parenblinking') -----
  blinkPrevParen
  
  	self deprecated: 'Use #blinkPrevParen:'.
+ 	self blinkPrevParen: sensor peekKeyboard!
- 	self blinkPrevParen: sensor keyboardPeek!

Item was changed:
  ----- Method: ParagraphEditor>>readKeyboard (in category 'typing support') -----
  readKeyboard
  	"Key struck on the keyboard. Find out which one and, if special, carry 
  	out the associated special action. Otherwise, add the character to the 
  	stream of characters.  Undoer & Redoer: see closeTypeIn."
  
  	| typeAhead char |
  	typeAhead := WriteStream on: (String new: 128).
  	[sensor keyboardPressed] whileTrue: 
  		[self deselect.
  		 sensor keyboardPressed ifTrue: 
+ 			[char := sensor peekKeyboard.
- 			[char := sensor keyboardPeek.
  			(self dispatchOnCharacter: char with: typeAhead) ifTrue:
  				[self doneTyping.
  				self setEmphasisHere.
  				^self selectAndScroll; updateMarker].
  			self openTypeIn].
  		self hasSelection ifTrue: "save highlighted characters"
  			[UndoSelection := self selection]. 
  		self zapSelectionWithCompositionWith: typeAhead contents.
  		typeAhead reset.
  		self unselect.
  		sensor keyboardPressed ifFalse: 
  			[self selectAndScroll.
  			sensor keyboardPressed
  				ifFalse: [self updateMarker]]]!

Item was changed:
  ----- Method: ScrollController>>scrollByKeyboard (in category 'scrolling') -----
  scrollByKeyboard
  	| keyEvent |
+ 	keyEvent := sensor peekKeyboard.
- 	keyEvent := sensor keyboardPeek.
  	keyEvent ifNil: [^ false].
  	(sensor controlKeyPressed or:[sensor commandKeyPressed]) ifFalse: [^ false].
  	keyEvent asciiValue = 30
  		ifTrue: 
  			[sensor keyboard.
  			self scrollViewDown ifTrue: [self moveMarker].
  			^ true].
  	keyEvent asciiValue = 31
  		ifTrue: 
  			[sensor keyboard.
  			self scrollViewUp ifTrue: [self moveMarker].
  			^ true].
  	^ false!