The Trunk: Tools-tpr.842.mcz

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