Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.584.mcz
==================== Summary ====================
Name: System-fbs.584 Author: fbs Time: 9 August 2013, 5:35:57.791 pm UUID: 4a39339f-7bd6-ec4d-ad0d-96343e52b1d8 Ancestors: System-ul.583
Using FileServices means not depending on Tools.
=============== Diff against System-ul.583 ===============
Item was changed: ----- Method: DefaultExternalDropHandler>>servicesForFileNamed: (in category 'private') ----- servicesForFileNamed: aString "private - answer a collection of file-services for the file named aString" | allServices | + allServices := FileServices itemsForFile: aString. - allServices := FileList itemsForFile: aString. ^ allServices reject: [:svc | self unwantedSelectors includes: svc selector]!
Item was changed: ----- Method: ExternalDropHandler class>>lookupServiceBasedHandler: (in category 'accessing') ----- lookupServiceBasedHandler: dropStream + "The file was just dropped; let's do our job" - "the file was just droped, let's do our job" | fileName services theOne | fileName := dropStream name.
+ services := (FileServices itemsForFile: fileName) - services := (FileList itemsForFile: fileName) reject: [:svc | self unwantedSelectors includes: svc selector].
"no service, default behavior" services isEmpty ifTrue: [^nil].
theOne := self chooseServiceFrom: services. ^theOne ifNotNil: [ExternalDropHandler type: nil extension: nil action: [:stream | theOne performServiceFor: stream]]!
Item was changed: ----- Method: MczInstaller class>>registerForFileList (in category 'services') ----- registerForFileList + Smalltalk at: #MCReader ifAbsent: [FileServices registerFileReader: self]! - Smalltalk at: #MCReader ifAbsent: [FileList registerFileReader: self]!
Item was changed: ----- Method: SARInstaller class>>initialize (in category 'class initialization') ----- initialize "SARInstaller initialize" + FileServices registerFileReader: self.! - (FileList respondsTo: #registerFileReader:) - ifTrue: [ FileList registerFileReader: self ]!
Item was changed: ----- Method: SARInstaller class>>unload (in category 'class initialization') ----- unload + FileServices unregisterFileReader: self.! - - (FileList respondsTo: #unregisterFileReader:) - ifTrue: [ FileList unregisterFileReader: self ]!
squeak-dev@lists.squeakfoundation.org