Jens Lincke uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-jl.1308.mcz

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

Name: Morphic-jl.1308
Author: jl
Time: 21 September 2016, 5:09:23.877628 pm
UUID: 9e56c715-6e6d-d447-85fb-cf1869058d6b
Ancestors: Morphic-jl.1307

Make magic halos great again.

=============== Diff against Morphic-jl.1307 ===============

Item was changed:
  ----- Method: HaloMorph>>addHandle:on:send:to: (in category 'private') -----
  addHandle: handleSpec on: eventName send: selector to: recipient 
  	"Add a handle within the halo box as per the haloSpec, and set 
  	it up to respond to the given event by sending the given 
  	selector to the given recipient. Return the handle."
  	| handle aPoint |
  
  	aPoint := self
  				positionIn: haloBox
  				horizontalPlacement: handleSpec horizontalPlacement
  				verticalPlacement: handleSpec verticalPlacement.
  
  	handle := self
  				addHandleAt: aPoint
  				color: (Color colorFrom: handleSpec color)
  				icon: handleSpec iconSymbol
  				on: eventName
  				send: selector
  				to: recipient.
  
- 	self isMagicHalo
- 		ifTrue: [
- 			handle on: #mouseEnter send: #handleEntered to: self.
- 			handle on: #mouseLeave send: #handleLeft to: self].
- 
  	^ handle!

Item was changed:
  ----- Method: HaloMorph>>isMagicHalo: (in category 'accessing') -----
  isMagicHalo: aBool
  	self setProperty: #isMagicHalo toValue: aBool.
+ 	aBool
+ 		ifTrue: [
+ 			self on: #mouseEnter send: #handleEntered to: self.
+ 			self on: #mouseLeave send: #handleLeft to: self]
+ 		ifFalse:[
+ 			"Reset everything"
+ 			self eventHandler ifNotNil: [:eh |
+ 				eh forgetDispatchesTo: #handleEntered;
+ 					forgetDispatchesTo: #handleLeft].
+ 			self stopStepping. "get rid of all"
+ 			self startStepping. "only those of interest"].!
- 	aBool ifFalse:[
- 		"Reset everything"
- 		self stopStepping. "get rid of all"
- 		self startStepping. "only those of interest"
- 	].!