The Trunk: Morphic-tfel.1318.mcz

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]!