The Trunk: Morphic-mt.782.mcz

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

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

Name: Morphic-mt.782
Author: mt
Time: 17 March 2015, 8:15:39.339 pm
UUID: 3c169184-e60f-094b-8076-6f1cd03780ee
Ancestors: Morphic-mt.781

Layout for label area in system windows fixed. It is now as tall as its label -- as intended.

=============== Diff against Morphic-mt.781 ===============

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 windowBorderWidth |
  labelArea ifNil: [^ self].
  labelArea
  layoutPolicy: TableLayout new;
  listDirection: #leftToRight;
  hResizing: #spaceFill;
  layoutInset: 0.
  label hResizing: #spaceFill.
  labelArea
  ifNotNil: [frame := LayoutFrame new.
  frame leftFraction: 0;
  topFraction: 0;
  rightFraction: 1;
+ bottomFraction: 0;
  topOffset: self labelHeight negated.
  windowBorderWidth := self class borderWidth.
  frame leftOffset: windowBorderWidth;
  rightOffset: windowBorderWidth negated;
  topOffset: self labelHeight negated + windowBorderWidth;
  bottomOffset: windowBorderWidth negated.
  labelArea layoutFrame: frame]!