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. !
squeak-dev@lists.squeakfoundation.org