The Trunk: System-ar.370.mcz

Andreas Raab uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ar.370.mcz

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

Name: System-ar.370
Author: ar
Time: 5 September 2010, 11:21:53.256 am
UUID: 0eb21940-9cd1-b648-a6a2-f190364eaef8
Ancestors: System-eem.369

Restructurings to reduce package depencencies.

=============== Diff against System-eem.369 ===============

Item was changed:
  ----- Method: DefaultExternalDropHandler>>handle:in:dropEvent: (in category 'event handling') -----
  handle: dropStream in: pasteUp dropEvent: anEvent
  "the file was just droped, let's do our job"
+ | fileName services theOne chosen |
- | fileName services theOne |
  fileName := dropStream name.
- ""
  services := self servicesForFileNamed: fileName.
+
- ""
  "no service, default behavior"
+ services isEmpty
+ ifTrue: [^UIManager default edit: dropStream contentsOfEntireFile].
- services isEmpty
- ifTrue: [""
- dropStream edit.
- ^ self].
- ""
- theOne := self chooseServiceFrom: services.
- theOne isNil
 
+ chosen := self chooseServiceFrom: services.
+ chosen ifNotNil:[theOne performServiceFor: dropStream]!
- ifFalse: [theOne performServiceFor: dropStream]!