[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
|