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

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

Name: Morphic-ct.1541
Author: ct
Time: 23 September 2019, 7:20:12.900577 pm
UUID: 5662f3d6-138a-3f4a-82e1-3fada9c32f37
Ancestors: Morphic-ct.1540

Revise changes from ancestor: Provide as utility instead of preference, only store MethodReferences, optimization

Thanks to Marcel :)

=============== Diff against Morphic-ct.1540 ===============

Item was changed:
+ ----- Method: Morph class>>rememberProvenance (in category 'misc') -----
- ----- Method: Morph class>>rememberProvenance (in category 'preferences') -----
  rememberProvenance
  
- 	<preference: 'Remember provenance of each morph'
- 		categoryList: #(Morphic)
- 		description: 'If enabled, each morph will contain a debug item to view its creator stack. This allows you to explore its provenance later. May affect performance.'
- 		type: #Boolean>
  	^ RememberProvenance ifNil: [false]!

Item was removed:
- ----- Method: Morph class>>rememberProvenance: (in category 'preferences') -----
- rememberProvenance: aBoolean
- 
- 	RememberProvenance := aBoolean.!

Item was added:
+ ----- Method: Morph class>>rememberProvenanceDuring: (in category 'misc') -----
+ rememberProvenanceDuring: aBlock
+ 	"self rememberProvenanceDuring: [self inform: 'Test']"
+ 
+ 	| wasRemembering |
+ 	wasRemembering := RememberProvenance.
+ 	[RememberProvenance := true.
+ 	^ aBlock value]
+ 		ensure: [RememberProvenance := wasRemembering].!

Item was changed:
  ----- Method: Morph>>initialize (in category 'initialization') -----
  initialize
  	"initialize the state of the receiver"
  	owner := nil.
  	submorphs := Array empty.
  	bounds := self defaultBounds.
  	color := self defaultColor.
  	self class rememberProvenance ifTrue: [
+ 		| creatorStack officialCreator |
+ 		creatorStack := OrderedCollection new.
+ 		officialCreator := nil.
+ 		thisContext home stack do: [:context |
+ 			creatorStack add: context method methodReference.
+ 			(officialCreator isNil and: [context method hasPragma: #example])
+ 				ifTrue: [officialCreator := creatorStack last]].
- 		| creatorStack |
- 		creatorStack := thisContext home stack collect: #method.
  		self setProperty: #creatorStack toValue: creatorStack.
+ 		officialCreator ifNotNil: [
+ 			self setProperty: #officialCreator toValue: officialCreator]].!
- 		creatorStack
- 			detect: [:method | method hasPragma: #example]
- 			ifFound: [:method | self setProperty: #officialCreator toValue: method]].!