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

[commits at source.squeak.org]

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

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

Name: Morphic-mt.811
Author: mt
Time: 2 April 2015, 11:46:28.024 am
UUID: 9490b7c4-b15f-6847-a334-637b0543c8dc
Ancestors: Morphic-mt.810

Some fixes in system windows regarding labels.

=============== Diff against Morphic-mt.810 ===============

Item was removed:
- ----- Method: SystemWindow>>externalName (in category 'label') -----
- externalName
- 	"Answer the name by which the receiver is known in the UI"
- 
- 	^ labelString!

Item was added:
+ ----- Method: SystemWindow>>knownName (in category 'label') -----
+ knownName
+ 
+ 	^ self label!

Item was changed:
  ----- Method: SystemWindow>>setLabel: (in category 'label') -----
  setLabel: aString
  	| frame |
  	labelString := aString.
  	label ifNil: [^ self].
+ 	label contents: (aString ifNil: ['']).
- 	label contents: aString.
  	self labelWidgetAllowance.  "Sets it if not already"
  	self isCollapsed
  		ifTrue: [self extent: (label width + labelWidgetAllowance) @ (self labelHeight + 2)]
  		ifFalse: [label fitContents; setWidth: (label width min: bounds width - labelWidgetAllowance).
  				label align: label bounds topCenter with: bounds topCenter + (0 at borderWidth).
  				collapsedFrame ifNotNil:
  					[collapsedFrame := collapsedFrame withWidth: label width + labelWidgetAllowance]].
  	frame := LayoutFrame new.
  	frame leftFraction: 0.5;
  		 topFraction: 0.5;
  		 leftOffset: label width negated // 2;
  		 topOffset: label height negated // 2.
  	label layoutFrame: frame.
  !