The Trunk: ST80-mt.213.mcz

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!