[Pkg] The Trunk: Morphic-mt.2001.mcz

[commits at source.squeak.org]

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

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

Name: Morphic-mt.2001
Author: mt
Time: 8 June 2022, 10:29:15.761735 am
UUID: 7a31acaf-9eb6-6244-8e53-0edd2be3d932
Ancestors: Morphic-mt.2000

Revise previous commit. Sorry for the noise.

=============== Diff against Morphic-mt.2000 ===============

Item was changed:
  ----- Method: LegacyShortcutsFilter class>>filterEvent:for: (in category 'event filter') -----
  filterEvent: aKeyboardEvent for: textMorph
  
  
  	aKeyboardEvent isKeystroke ifFalse: [^ aKeyboardEvent].
  	aKeyboardEvent commandKeyPressed ifFalse: [^ aKeyboardEvent].
  	Preferences cmdKeysInText ifFalse: [^ aKeyboardEvent].
  	
  	(Smalltalk platformName = 'Mac OS' and: [aKeyboardEvent shiftPressed])
  		ifTrue: ["Work around an issue in the VM where SHIFT is not honored
  			in the KeyChar event's character. This should only be the case for
  			KeyDown events to encode virtual-key presses. The VM should not
  			do this for KeyChar events. Works for U.S. keyboard layout only."
  			aKeyboardEvent keyValue: (
  				aKeyboardEvent keyCharacter caseOf: {
  					[$9] -> [$(]. [$0] -> [$)].
  					[$,] -> [$<]. [$.] -> [$>].
  					[$[] -> [${]. [$]] -> [$}].
  					[$'] -> [$"] }
  						otherwise: [aKeyboardEvent keyCharacter]) asInteger].
  	
  	('()[]{}|''"<>' includes: aKeyboardEvent keyCharacter)
  		ifTrue: [textMorph
+ 				handleInteraction: [(textMorph editor enclose: aKeyboardEvent toggleOnly: true)
+ 					ifTrue: [aKeyboardEvent ignore]]
- 				handleInteraction: [(textMorph editor enclose: aKeyboardEvent) ifTrue: [aKeyboardEvent ignore]]
  				fromEvent: aKeyboardEvent].
  
  	^ aKeyboardEvent
  
  "
  Preferences cmdKeysInText
  Preferences cmdGesturesEnabled
  Preferences honorDesktopCmdKeys
  PasteUpMorph globalCommandKeysEnabled.
  "!

Item was changed:
  Editor subclass: #TextEditor
  	instanceVariableNames: 'model paragraph markBlock pointBlock beginTypeInIndex emphasisHere lastParenLocation otherInterval oldInterval typeAhead history'
  	classVariableNames: 'AutoEnclose AutoIndent ChangeText EncloseSelection FindText InteractivePrintIt'
+ 	poolDictionaries: ''
- 	poolDictionaries: 'LegacyShortcutsFilter'
  	category: 'Morphic-Text Support'!
  TextEditor class
  	instanceVariableNames: 'cmdActions shiftCmdActions yellowButtonMenu shiftedYellowButtonMenu'!
  
  !TextEditor commentStamp: '<historical>' prior: 0!
  See comment in Editor.
  
  My instances edit Text, this is, they support multiple lines and TextAttributes.
  They have no specific facilities for editing Smalltalk code. Those are found in SmalltalkEditor.!
  TextEditor class
  	instanceVariableNames: 'cmdActions shiftCmdActions yellowButtonMenu shiftedYellowButtonMenu'!

Item was changed:
  ----- Method: TextEditor>>enclose: (in category 'editing keys') -----
  enclose: aKeyboardEvent
  
+ 	^ self enclose: aKeyboardEvent toggleOnly: false!
- 	^ self enclose: aKeyboardEvent toggleOnly: LegacyShortcutsEnabled == true!