The Trunk: Morphic-mt.811.mcz

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@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.
  !