[Pkg] The Trunk: Morphic-mt.782.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Mar 17 19:16:34 UTC 2015

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:

==================== 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') -----
  	"an aid to converting old instances, but then I found  
  	convertAlignment (jesse welton's note)"
  	| frame windowBorderWidth |
  	labelArea ifNil: [^ self].	
  		layoutPolicy: TableLayout new;
  		listDirection: #leftToRight;
  		hResizing: #spaceFill;
  		layoutInset: 0.
  	label hResizing: #spaceFill.
  		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]!

More information about the Packages mailing list