The Trunk: 51Deprecated-mt.41.mcz

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

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

Name: 51Deprecated-mt.41
Author: mt
Time: 10 August 2016, 1:14:10.995966 pm
UUID: bf4d66b9-dfa1-f944-b218-072aa4e11957
Ancestors: 51Deprecated-mt.40

Deprecate MenuLineMorph.

=============== Diff against 51Deprecated-mt.40 ===============

Item was changed:
  SystemOrganization addCategory: #'51Deprecated-Files-Kernel'!
  SystemOrganization addCategory: #'51Deprecated-Morphic-Support'!
  SystemOrganization addCategory: #'51Deprecated-Morphic-Text Support'!
  SystemOrganization addCategory: #'51Deprecated-PreferenceBrowser'!
  SystemOrganization addCategory: #'51Deprecated-System-Support'!
+ SystemOrganization addCategory: #'51Deprecated-Morphic-Menus'!

Item was added:
+ Morph subclass: #MenuLineMorph
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: '51Deprecated-Morphic-Menus'!

Item was added:
+ ----- 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 added:
+ ----- Method: MenuLineMorph>>initialize (in category 'initialization') -----
+ initialize
+ super initialize.
+ self hResizing: #spaceFill; vResizing: #spaceFill.!

Item was added:
+ ----- 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 added:
+ ----- 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 added:
+ ----- 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 added:
+ ----- 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 added:
+ ----- 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!