[squeak-dev] The Trunk: Morphic-tfel.1317.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Jan 18 09:04:04 UTC 2017


Tim Felgentreff uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-tfel.1317.mcz

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

Name: Morphic-tfel.1317
Author: tfel
Time: 18 January 2017, 10:03:40.884167 am
UUID: 8a50cc7e-f401-4381-a1ce-97d0423370b1
Ancestors: Morphic-bp.1316

add Ctrl +, Ctrl -, and Ctrl = (as in Emacs) for quick font size changes

=============== Diff against Morphic-bp.1316 ===============

Item was changed:
  ----- Method: PasteUpMorph>>filterEvent:for: (in category 'events-processing') -----
  filterEvent: aKeyboardEvent for: anObject
  	"Provide keyboard shortcuts."
+ 
- 	
  	"Delegate keyboard shortcuts to my docking bars."
  	self submorphsDo: [:ea | ea isDockingBar ifTrue: [
  		ea filterEvent: aKeyboardEvent for: anObject. "No support for converting events here!!"
  		aKeyboardEvent wasIgnored ifTrue: [^ aKeyboardEvent "early out"]]].
  	
  	aKeyboardEvent isKeystroke
  		ifFalse: [^ aKeyboardEvent].
  	
  	aKeyboardEvent commandKeyPressed ifTrue: [
  		aKeyboardEvent keyCharacter caseOf: {
  			[$R] -> [Utilities browseRecentSubmissions].
  			[$L] -> [self findAFileList: aKeyboardEvent].
  			[$O] -> [self findAMonticelloBrowser].
  			[$P] -> [self findAPreferencesPanel: aKeyboardEvent].
  			"[$Z] -> [ChangeList browseRecentLog]."
  			[$]] -> [Smalltalk snapshot: true andQuit: false].
  		} otherwise: [^ aKeyboardEvent "no hit"].
  		^ aKeyboardEvent ignore "hit!!"].
+ 	aKeyboardEvent controlKeyPressed ifTrue: [
+ 		aKeyboardEvent keyCharacter caseOf: {
+ 			[$+] -> [Preferences increaseFontSize].
+ 			[$-] -> [Preferences decreaseFontSize].
+ 			[$=] -> [Preferences restoreDefaultFonts].
+ 		} otherwise: [^ aKeyboardEvent "no hit"].
+ 		^ aKeyboardEvent ignore "hit!!"].
- 
  	^ aKeyboardEvent "no hit"!



More information about the Squeak-dev mailing list