The Trunk: Morphic-mt.1249.mcz

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

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

Name: Morphic-mt.1249
Author: mt
Time: 10 August 2016, 1:13:27.141966 pm
UUID: 3e93588c-4b1e-3145-a6ad-7ddf5247a1b9
Ancestors: Morphic-mt.1248

Adapt to latest changes in menus and docking bars.

Deprecate MenuLineMorph.

=============== Diff against Morphic-mt.1248 ===============

Item was removed:
- Morph subclass: #MenuLineMorph
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Morphic-Menus'!

Item was removed:
- ----- Method: MenuLineMorph>>drawOn: (in category 'drawing') -----
- drawOn: aCanvas
- | baseColor |
- baseColor := Preferences menuColorFromWorld
- ifTrue: [owner color twiceDarker]
- ifFalse: [Preferences menuAppearance3d
- ifTrue: [owner color]
- ifFalse: [MenuMorph menuLineColor]].
- Preferences menuAppearance3d
- ifTrue: [
- aCanvas
- fillRectangle: (bounds topLeft corner: bounds rightCenter)
- color: baseColor twiceDarker.
-
- aCanvas
- fillRectangle: (bounds leftCenter corner: bounds bottomRight)
- color: baseColor twiceLighter]
- ifFalse: [
- aCanvas
- fillRectangle: ((bounds topLeft corner: bounds bottomRight) insetBy: (0@0 corner: 0@ 1))
- color: baseColor]!

Item was removed:
- ----- Method: MenuLineMorph>>initialize (in category 'initialization') -----
- initialize
- super initialize.
- self hResizing: #spaceFill; vResizing: #spaceFill.!

Item was removed:
- ----- Method: MenuLineMorph>>minHeight (in category 'layout') -----
- minHeight
- "answer the receiver's minHeight"
- ^ self isInDockingBar
- ifTrue: [owner isVertical
- ifTrue: [2]
- ifFalse: [10]]
- ifFalse: [2]!

Item was removed:
- ----- Method: MenuLineMorph>>minWidth (in category 'layout') -----
- minWidth
- "answer the receiver's minWidth"
- ^ self isInDockingBar
- ifTrue: [owner isVertical
- ifTrue: [10]
- ifFalse: [2]]
- ifFalse: [10]!

Item was removed:
- ----- Method: MenuLineMorph>>noteNewOwner: (in category 'submorphs-accessing') -----
- noteNewOwner: aMorph
- "I have just been added as a submorph of aMorph"
- super noteNewOwner: aMorph.
- self updateLayoutInDockingBar!

Item was removed:
- ----- Method: MenuLineMorph>>ownerChanged (in category 'change reporting') -----
- ownerChanged
- "The receiver's owner, some kind of a pasteup, has changed its
- layout."
- super ownerChanged.
- self updateLayoutInDockingBar!

Item was removed:
- ----- Method: MenuLineMorph>>updateLayoutInDockingBar (in category 'private') -----
- updateLayoutInDockingBar
- self isInDockingBar
- ifFalse: [^ self].
- ""
- owner isVertical
- ifFalse: [""
- self hResizing: #shrinkWrap.
- self vResizing: #spaceFill]
- ifTrue: [""
- self hResizing: #spaceFill.
- self vResizing: #shrinkWrap].
- self extent: self minWidth @ self minHeight!

Item was changed:
  ----- Method: MenuMorph>>addAllFrom: (in category 'construction') -----
  addAllFrom: aMenuMorph
  aMenuMorph submorphs
  do: [:each |
  (each isKindOf: MenuItemMorph)
  ifTrue: [self
  add: each contents
  target: each target
  selector: each selector
  argumentList: each arguments].
+ (each knownName = #line)
- (each isKindOf: MenuLineMorph)
  ifTrue: [self addLine]] !