Tim Felgentreff uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tfel.1318.mcz
==================== Summary ====================
Name: Morphic-tfel.1318 Author: tfel Time: 23 January 2017, 9:29:29.465369 am UUID: 0a89c742-2294-8146-9196-afa7557a1cc4 Ancestors: Morphic-tfel.1317
- put font resizing on command key, so it works across platforms - when we update the label area of a system window, also update the boxes
=============== Diff against Morphic-tfel.1317 ===============
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"!
Item was changed: ----- Method: SystemWindow>>setFramesForLabelArea (in category 'initialization') ----- setFramesForLabelArea "an aid to converting old instances, but then I found convertAlignment (jesse welton's note)" | frame | labelArea ifNil: [^ self]. labelArea layoutPolicy: TableLayout new; listDirection: #leftToRight; hResizing: #spaceFill; layoutInset: 0. label hResizing: #spaceFill. + {closeBox. menuBox. expandBox. collapseBox} do: [:box | + box ifNotNil: [box extent: self boxExtent]]. + frame := LayoutFrame new. + frame leftFraction: 0; + topFraction: 0; + rightFraction: 1; + bottomFraction: 0; + topOffset: self labelHeight negated. + labelArea layoutFrame: frame! - labelArea - ifNotNil: [frame := LayoutFrame new. - frame leftFraction: 0; - topFraction: 0; - rightFraction: 1; - bottomFraction: 0; - topOffset: self labelHeight negated. - labelArea layoutFrame: frame]!
packages@lists.squeakfoundation.org