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