The Trunk: MorphicExtras-tpr.250.mcz

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