A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-ct.1684.mcz

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

Name: Morphic-ct.1684
Author: ct
Time: 17 September 2020, 5:33:51.858813 pm
UUID: 439b6c83-ed50-784c-83f2-bda2edbd6a03
Ancestors: Morphic-mt.1683

Refactors halo handle creation logic, increasing reusability in subclass SelectionMorph. Adds lasso icon to #addOrRemoveItems: handle. Also includes minor refactorings of two other Morph methods.

=============== Diff against Morphic-mt.1683 ===============

Item was changed:
  ----- Method: Morph>>addHandlesTo:box: (in category 'halos and balloon help') -----
  addHandlesTo: aHaloMorph box: box
+ 	"Add halo handles to the halo. Apply the halo filter if appropriate."
- 	"Add halo handles to the halo.  Apply the halo filter if appropriate"
  
- 	
  	aHaloMorph haloBox: box.
+ 	
+ 	Preferences haloSpecifications
+ 		select: [:spec | self
+ 			filterHaloSelector: spec addHandleSelector
+ 			inHalo: aHaloMorph]
+ 		thenDo: [:spec |
+ 			aHaloMorph
+ 				perform: spec addHandleSelector
+ 				with: spec].
+ 	
+ 	aHaloMorph innerTarget addOptionalHandlesTo: aHaloMorph box: box.!
- 	Preferences haloSpecifications  do:
- 		[:aSpec | | wantsIt aSelector | 
- 			aSelector :=  aSpec addHandleSelector.
- 			wantsIt := Preferences selectiveHalos
- 				ifTrue:
- 					[self wantsHaloHandleWithSelector: aSelector inHalo: aHaloMorph]
- 				ifFalse:
- 					[true].
- 			wantsIt ifTrue:
- 				[(#(addMakeSiblingHandle: addDupHandle:) includes: aSelector) ifTrue:
- 					[wantsIt := self preferredDuplicationHandleSelector = aSelector].
- 			wantsIt ifTrue:
- 				[aHaloMorph perform: aSelector with: aSpec]]].
- 
- 	aHaloMorph innerTarget addOptionalHandlesTo: aHaloMorph box: box!

Item was changed:
  ----- Method: Morph>>changeProportionalLayout (in category 'layout-menu') -----
  changeProportionalLayout
+ 
  	| layout |
+ 	((layout := self layoutPolicy) notNil and: [layout isProportionalLayout])
+ 		ifTrue: [^ self]. "already proportional layout"
+ 	self layoutPolicy: ProportionalLayout new.!
- 	((layout := self layoutPolicy) notNil and:[layout isProportionalLayout])
- 		ifTrue:[^self]. "already proportional layout"
- 	self layoutPolicy: ProportionalLayout new.
- 	self layoutChanged.!

Item was added:
+ ----- Method: Morph>>filterHaloSelector:inHalo: (in category 'halos and balloon help') -----
+ filterHaloSelector: aSelector inHalo: aHaloMorph
+ 
+ 	^ Preferences selectiveHalos ==> [
+ 		self wantsHaloHandleWithSelector: aSelector inHalo: aHaloMorph]
+ 			and: [(#(addMakeSiblingHandle: addDupHandle:) includes: aSelector) ==> [
+ 				self preferredDuplicationHandleSelector = aSelector]]!

Item was changed:
  ----- Method: Morph>>referencePosition: (in category 'rotate scale and flex') -----
  referencePosition: aPosition
  	"Move the receiver to match its reference position with aPosition"
+ 
  	| newPos intPos |
  	newPos := self position + (aPosition - self referencePosition).
  	intPos := newPos asIntegerPoint.
+ 	self position: (newPos = intPos 
+ 		ifTrue: [intPos]
+ 		ifFalse: [newPos]).!
- 	newPos = intPos 
- 		ifTrue:[self position: intPos]
- 		ifFalse:[self position: newPos].!

Item was removed:
- ----- Method: SelectionMorph>>addHandlesTo:box: (in category 'halos and balloon help') -----
- addHandlesTo: aHaloMorph box: box
- 	| onlyThese |
- 	aHaloMorph haloBox: box.
- 	onlyThese := #(addDismissHandle: addMenuHandle: addGrabHandle: addDragHandle: addDupHandle: addHelpHandle: addGrowHandle: addFontSizeHandle: addFontStyleHandle: addFontEmphHandle: addRecolorHandle:).
- 	Preferences haloSpecifications do:
- 		[:aSpec | (onlyThese includes: aSpec addHandleSelector) ifTrue:
- 				[aHaloMorph perform: aSpec addHandleSelector with: aSpec]].
- 	aHaloMorph innerTarget addOptionalHandlesTo: aHaloMorph box: box!

Item was changed:
  ----- Method: SelectionMorph>>addOptionalHandlesTo:box: (in category 'halos and balloon help') -----
  addOptionalHandlesTo: aHalo box: box
+ 
+ 	aHalo
+ 		addHandleAt: box leftCenter
+ 		color: Color lightBlue
+ 		icon: #Lasso
+ 		on: #mouseUp
+ 		send: #addOrRemoveItems:
+ 		to: self.!
- 	aHalo addHandleAt: box leftCenter color: Color blue icon: nil
- 		on: #mouseUp send: #addOrRemoveItems: to: self.!

Item was added:
+ ----- Method: SelectionMorph>>filterHaloSelector:inHalo: (in category 'halos and balloon help') -----
+ filterHaloSelector: aSelector inHalo: aHaloMorph
+ 
+ 	^ self permittedHaloHandles includes: aSelector!

Item was added:
+ ----- Method: SelectionMorph>>permittedHaloHandles (in category 'halos and balloon help') -----
+ permittedHaloHandles
+ 
+ 	^ #(addDebugHandle: addDismissHandle: addMenuHandle: addGrabHandle: addDragHandle: addDupHandle: addHelpHandle: addGrowHandle: addFontSizeHandle: addFontStyleHandle: addFontEmphHandle: addRecolorHandle:)!