The Trunk: Morphic-jl.1308.mcz

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"
- ].!