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

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

Name: Tools-tpr.842
Author: tpr
Time: 8 January 2019, 4:28:24.671414 pm
UUID: 646b9708-3bc3-440e-8db6-3cb7c314ca03
Ancestors: Tools-tpr.841

Use FileServices as the registry instead of FileList

=============== Diff against Tools-tpr.841 ===============

Item was changed:
  ----- Method: ArchiveViewer class>>initialize (in category 'class initialization') -----
  initialize
  	"ArchiveViewer initialize"
  
+ 	FileServices registerFileReader: self.
- 	FileList registerFileReader: self.
  	Smalltalk addToShutDownList: self.!

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

Item was changed:
  ----- Method: ArchiveViewer>>memberMenu:shifted: (in category 'member list') -----
  memberMenu: menu shifted: shifted
  	| services |
  
  	menu
  		add: 'Comment archive' target: self selector: #commentArchive;
  		balloonTextForLastItem: 'Add a comment for the entire archive'.
  
  	self selectedMember ifNotNil: [ :member |
  		menu
  			addLine;
  			add: 'Inspect member' target: self selector: #inspectMember;
  			balloonTextForLastItem: 'Inspect the selected member';
  			add: 'Comment member' target: self selector: #commentMember;
  			balloonTextForLastItem: 'Add a comment for the selected member';
  			addLine;
  			add: 'member go up in order ' target: self selector: #upMember;
  			add: 'member go down in order ' target: self selector: #downMember;
  			add: 'select member order ' target: self selector: #toIndexPlace;
  			addLine.
+ 		services := FileServices itemsForFile: member fileName.
- 		services := FileList itemsForFile: member fileName.
  		menu addServices2: services for: self extraLines: #().
  	].
  
  
  	^menu!

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

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

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

Item was changed:
  ----- Method: ChangeSorter class>>unload (in category 'deprecated') -----
  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] !

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

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

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

Item was changed:
  ----- Method: FileList class>>initialize (in category 'class initialization') -----
  initialize
  	"FileList initialize"
  
+ 	RecentDirs := OrderedCollection new!
- 	RecentDirs := OrderedCollection new.
- 	(self systemNavigation allClassesImplementing: #fileReaderServicesForFile:suffix:) do: 		[:providerMetaclass |
- 			self registerFileReader: providerMetaclass soleInstance]!