The Inbox: ST80-ct.237.mcz

A new version of ST80 was added to project The Inbox:
http://source.squeak.org/inbox/ST80-ct.237.mcz

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

Name: ST80-ct.237
Author: ct
Time: 9 August 2019, 5:34:24.269365 pm
UUID: 15408bcb-839c-164d-b912-96c8a0feabea
Ancestors: ST80-pre.236

Handle insert key to avoid an invisible character being displayed

=============== Diff against ST80-pre.236 ===============

Item was changed:
  ----- Method: ParagraphEditor class>>initializeCmdKeyShortcuts (in category 'keyboard shortcut tables') -----
  initializeCmdKeyShortcuts
  "Initialize the (unshifted) command-key (or alt-key) shortcut table."
 
  "NOTE: if you don't know what your keyboard generates, use Sensor kbdTest"
 
  "ParagraphEditor initialize"
 
  | cmdMap |
 
  cmdMap := Array new: 256 withAll: #noop:. "use temp in case of a crash"
 
  cmdMap at: 1 + 1 put: #cursorHome:. "home key"
  cmdMap at: 4 + 1 put: #cursorEnd:. "end key"
+ cmdMap at: 5 + 1 put: #cursorInsert:. "insert key"
  cmdMap at: 8 + 1 put: #backspace:. "ctrl-H or delete key"
  cmdMap at: 11 + 1 put: #cursorPageUp:. "page up key"
  cmdMap at: 12 + 1 put: #cursorPageDown:. "page down key"
  cmdMap at: 13 + 1 put: #crWithIndent:. "cmd-Return"
  cmdMap at: 27 + 1 put: #offerMenuFromEsc:. "escape key"
  cmdMap at: 28 + 1 put: #cursorLeft:. "left arrow key"
  cmdMap at: 29 + 1 put: #cursorRight:. "right arrow key"
  cmdMap at: 30 + 1 put: #cursorUp:. "up arrow key"
  cmdMap at: 31 + 1 put: #cursorDown:. "down arrow key"
  cmdMap at: 32 + 1 put: #selectWord:. "space bar key"
  cmdMap at: 127 + 1 put: #forwardDelete:. "del key"
 
  '0123456789-='
  do: [:char | cmdMap at: char asciiValue + 1 put: #changeEmphasis:].
 
  '([<{|"''' do: [:char | cmdMap at: char asciiValue + 1 put: #enclose:].
 
  "triplet = {character. comment selector. novice appropiated}"
  #(
  ($a #selectAll: true)
  ($b #browseIt: false)
  ($c #copySelection: true)
  ($d #doIt: false)
  ($e #exchange: true)
  ($f #find: true)
  ($g #findAgain: true)
  ($h #setSearchString: true)
  ($i #inspectIt: false)
  ($j #doAgainOnce: true)
  ($k #offerFontMenu: true)
  ($l #cancel: true)
  ($m #implementorsOfIt: false)
  ($n #sendersOfIt: false)
  ($o #spawnIt: false)
  ($p #printIt: false)
  ($q #querySymbol: false)
  ($s #save: true)
  ($t #tempCommand: false)
  ($u #align: true)
  ($v #paste: true)
  ($w #backWord: true)
  ($x #cut: true)
  ($y #swapChars: true)
  ($z #undo: true)
  )
  select:[:triplet | Preferences noviceMode not or:[triplet third]]
  thenDo:[:triplet | cmdMap at: triplet first asciiValue + 1 put: triplet second].
 
  CmdActions := cmdMap.
  !

Item was changed:
  ----- Method: ParagraphEditor class>>initializeShiftCmdKeyShortcuts (in category 'keyboard shortcut tables') -----
  initializeShiftCmdKeyShortcuts
  "Initialize the shift-command-key (or control-key) shortcut table."
  "NOTE: if you don't know what your keyboard generates, use Sensor kbdTest"
  "wod 11/3/1998: Fix setting of cmdMap for shifted keys to actually use the
  capitalized versions of the letters.
  TPR 2/18/99: add the plain ascii values back in for those VMs that don't return the shifted values."
 
  | cmdMap |
 
  "shift-command and control shortcuts"
  cmdMap := Array new: 256 withAll: #noop:.  "use temp in case of a crash"
 
  cmdMap at: ( 1 + 1) put: #cursorHome:. "home key"
  cmdMap at: ( 4 + 1) put: #cursorEnd:. "end key"
+ cmdMap at: ( 5 + 1) put: #cursorInsert:. "insert key"
  cmdMap at: ( 8 + 1) put: #forwardDelete:. "ctrl-H or delete key"
  cmdMap at: (11 + 1) put: #cursorPageUp:. "page up key"
  cmdMap at: (12 + 1) put: #cursorPageDown:. "page down key"
  cmdMap at: (13 + 1) put: #crWithIndent:. "ctrl-Return"
  cmdMap at: (27 + 1) put: #offerMenuFromEsc:. "escape key"
  cmdMap at: (28 + 1) put: #cursorLeft:. "left arrow key"
  cmdMap at: (29 + 1) put: #cursorRight:. "right arrow key"
  cmdMap at: (30 + 1) put: #cursorUp:. "up arrow key"
  cmdMap at: (31 + 1) put: #cursorDown:. "down arrow key"
  cmdMap at: (32 + 1) put: #selectWord:. "space bar key"
  cmdMap at: (45 + 1) put: #changeEmphasis:. "cmd-sh-minus"
  cmdMap at: (61 + 1) put: #changeEmphasis:. "cmd-sh-plus"
  cmdMap at: (127 + 1) put: #forwardDelete:. "del key"
 
  "On some keyboards, these characters require a shift"
  '([<{|"''' do: [:char | cmdMap at: char asciiValue + 1 put: #enclose:].
 
  "NB: sw 12/9/2001 commented out the idiosyncratic line just below, which was grabbing shift-esc in the text editor and hence which argued with the wish to have shift-esc be a universal gesture for escaping the local context and calling up the desktop menu."  
  "cmdMap at: (27 + 1) put: #shiftEnclose:." "ctrl-["
 
  "'""''(' do: [ :char | cmdMap at: (char asciiValue + 1) put: #enclose:]."
 
  "triplet = {character. comment selector. novice appropiated}"
  #(
  ($a argAdvance: false)
  ($b browseItHere: false)
  ($c compareToClipboard: false)
  ($e methodStringsContainingIt: false)
  ($f displayIfFalse: false)
  ($g fileItIn: false)
  ($h cursorTopHome: true)
  ($i exploreIt: false)
  ($j doAgainMany: true)
  ($k changeStyle: true)
  ($m selectCurrentTypeIn: true)
  ($n referencesToIt: false)
  ($p makeProjectLink: true)
  ($s search: true)
  ($t displayIfTrue: false)
  ($u changeLfToCr: false)
  ($v pasteInitials: false)
  ($w methodNamesContainingIt: false)
  ($x makeLowercase: true)
  ($y makeUppercase: true)
  ($z makeCapitalized: true)
  )
  select:[:triplet | Preferences noviceMode not or:[triplet third]]
  thenDo:[:triplet |
  cmdMap at: (triplet first asciiValue         + 1) put: triplet second. "plain keys"
  cmdMap at: (triplet first asciiValue - 32 + 1) put: triplet second. "shifted keys"
  cmdMap at: (triplet first asciiValue - 96 + 1) put: triplet second. "ctrl keys"
  ].
 
  ShiftCmdActions := cmdMap!

Item was changed:
  ----- Method: ParagraphEditor class>>specialShiftCmdKeys (in category 'keyboard shortcut tables') -----
  specialShiftCmdKeys
 
  "Private - return array of key codes that represent single keys acting
  as if shift-command were also being pressed"
 
  ^#(
  1 "home"
  3 "enter"
  4 "end"
+ 5 "insert"
  8 "backspace"
  11 "page up"
  12 "page down"
  27 "escape"
  28 "left arrow"
  29 "right arrow"
  30 "up arrow"
  31 "down arrow"
  127 "delete"
  )!

Item was added:
+ ----- Method: ParagraphEditor>>cursorInsert: (in category 'nonediting/nontyping keys') -----
+ cursorInsert: aKeyboardEvent
+
+ "Catch character, but do nothing"
+ ^ true!