[Pkg] The Trunk: Morphic-mt.1249.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Aug 10 11:14:09 UTC 2016


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



More information about the Packages mailing list