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] !
packages@lists.squeakfoundation.org