The Trunk: Morphic-tfel.396.mcz

Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-tfel.396.mcz

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

Name: Morphic-tfel.396
Author: tfel
Time: 27 March 2010, 1:30:57.846 pm
UUID: d0248473-d575-4dd1-aa58-5fed900f8bf2
Ancestors: Morphic-ar.395

SystemWindowWithButton needs to adjust the button position if the menu button is on the right

=============== Diff against Morphic-ar.395 ===============

Item was changed:
+ ----- Method: SystemWindowWithButton>>buttonInTitle: (in category 'label') -----
- ----- Method: SystemWindowWithButton>>buttonInTitle: (in category 'as yet unclassified') -----
  buttonInTitle: aButton
  buttonInTitle := aButton.
  self addMorphFront: aButton!

Item was added:
+ ----- Method: SystemWindowWithButton class>>hideExpandButton (in category 'preferences') -----
+ hideExpandButton
+
+ ^ true!

Item was changed:
+ ----- Method: SystemWindowWithButton>>adjustExtraButton (in category 'geometry') -----
- ----- Method: SystemWindowWithButton>>adjustExtraButton (in category 'as yet unclassified') -----
  adjustExtraButton
+ | leftMargin |
  buttonInTitle ifNil: [^ self].
+ leftMargin := self boxExtent x + 3.
+ self class moveMenuButtonRight ifTrue: [leftMargin := leftMargin * 2].
+ buttonInTitle align: buttonInTitle topRight with: self innerBounds topRight - (leftMargin@0)!
- buttonInTitle align: buttonInTitle topLeft with:  self innerBounds topRight - (buttonInTitle width + 20 @ -3)!