The Inbox: Morphic-tfel.396.mcz

A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/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-tfel.394 ===============

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)!

Item was changed:
  (PackageInfo named: 'Morphic') postscript: 'MenuMorph initialize.
  Preferences setPreference: #roundedMenuCorners toValue: true.
- Preferences setWindowTitleFontTo: (StrikeFont familyName: ''DejaVuSans'' pointSize: 10 emphasized: 1).
- SystemWindow withAllSubclasses do: [:c | c allInstances do: [:w | w initializeLabelArea]].
- DockingBarMorph allInstances do: #delete.
  TheWorldMainDockingBar updateInstances
  '!