[Pkg] The Trunk: 51Deprecated-mt.41.mcz

[commits at source.squeak.org]

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