tim Rowledge uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-tpr.250.mcz

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

Name: MorphicExtras-tpr.250
Author: tpr
Time: 8 January 2019, 4:25:24.828334 pm
UUID: 32e17974-a168-43f6-8444-0394c4f29638
Ancestors: MorphicExtras-kfr.249

Use FileServices as the registry instead of FileList

=============== Diff against MorphicExtras-kfr.249 ===============

Item was changed:
  ----- Method: AnimatedImageMorph class>>initialize (in category 'class initialization') -----
  initialize
  	"register the receiver in the global registries"
  	self environment
+ 		at: #FileServices
- 		at: #FileList
  		ifPresent: [:cl | cl registerFileReader: self]!

Item was changed:
  ----- Method: AnimatedImageMorph class>>unload (in category 'class initialization') -----
  unload
  	"Unload the receiver from global registries"
  	self environment
+ 		at: #FileServices
- 		at: #FileList
  		ifPresent: [:cl | cl unregisterFileReader: self]!

Item was changed:
  ----- Method: BookMorph class>>unload (in category 'initialize-release') -----
  unload
  	"Unload the receiver from global registries"
  
  	self environment
+ 		at: #FileServices
- 		at: #FileList
  		ifPresent: [:cl | cl unregisterFileReader: self].
  	self environment
  		at: #Flaps
  		ifPresent: [:cl | cl unregisterQuadsWithReceiver: self]!

Item was changed:
  ----- Method: EventRecorderMorph class>>initialize (in category 'class initialization') -----
  initialize
  
+ 	FileServices registerFileReader: self!
- 	FileList registerFileReader: self!

Item was changed:
  ----- Method: EventRecorderMorph class>>unload (in category 'initialize-release') -----
  unload
  
+ 	FileServices unregisterFileReader: self !
- 	FileList unregisterFileReader: self !

Item was changed:
  ----- Method: MessageNames class>>unload (in category '*MorphicExtras-class initialization') -----
  unload
  	"Unload the receiver from global registries"
  
+ 	self environment at: #FileServices ifPresent: [:cl |
+ 		cl unregisterFileReader: self].
- 	self environment at: #FileList ifPresent: [:cl |
- 	cl unregisterFileReader: self].
  	self environment at: #Flaps ifPresent: [:cl |
+ 		cl unregisterQuadsWithReceiver: self] !
- 	cl unregisterQuadsWithReceiver: self] !