[squeak-dev] The Trunk: System-mt.1187.mcz

Thiede, Christoph Christoph.Thiede at student.hpi.uni-potsdam.de
Mon Nov 2 13:54:41 UTC 2020


Thanks for merging! This was a duplicate of System-ct.1156 (inbox), or are there any differences? :-)


Best,

Christoph

<http://www.hpi.de/>
________________________________
Von: Squeak-dev <squeak-dev-bounces at lists.squeakfoundation.org> im Auftrag von commits at source.squeak.org <commits at source.squeak.org>
Gesendet: Montag, 2. November 2020 14:42:55
An: squeak-dev at lists.squeakfoundation.org; packages at lists.squeakfoundation.org
Betreff: [squeak-dev] The Trunk: System-mt.1187.mcz

Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.1187.mcz

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

Name: System-mt.1187
Author: mt
Time: 2 November 2020, 2:42:51.691816 pm
UUID: fb19b021-de9d-284a-bdea-0d3fd23508c4
Ancestors: System-tpr.1186

Minor code clean-up. Thanks to Christoph (ct)!

=============== Diff against System-tpr.1186 ===============

Item was changed:
  ----- Method: DefaultExternalDropHandler>>chooseServiceFrom: (in category 'private') -----
  chooseServiceFrom: aCollection
+        "private - choose a service from aCollection asking the user if needed"
+        ^ aCollection size = 1
-        "private - choose a service from aCollection asking the user if  needed"
-        ^aCollection size = 1
                 ifTrue: [aCollection anyOne]
+                ifFalse: [UIManager default
+                        chooseFrom: (aCollection collect: [:each | each label])
-                ifFalse:[UIManager default
-                        chooseFrom: (aCollection collect:[:each| each label])
                         values: aCollection
                         title: 'You dropped a file. Please choose a service:' translated withCRs].!

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 chosen |
         fileName := dropStream name.
         services := self servicesForFileNamed: fileName.
+
-
         "no service, default behavior"
+        services ifEmpty: [
+                ^ UIManager default edit: dropStream contentsOfEntireFile].
+
-        services isEmpty
-                ifTrue: [^UIManager default edit: dropStream contentsOfEntireFile].
-
         chosen := self chooseServiceFrom: services.
+        chosen ifNotNil: [chosen performServiceFor: dropStream].!
-        chosen ifNotNil:[chosen performServiceFor: dropStream]!

Item was changed:
  ----- Method: DefaultExternalDropHandler>>servicesForFileNamed: (in category 'private') -----
  servicesForFileNamed: aString
+        "private - answer a collection of file-services for the file named aString"
+
+        ^ (FileServices itemsForFile: aString)
+                copyWithoutAll: self unwantedSelectors!
-        "private - answer a collection of file-services for the file named
-        aString"
-        | allServices |
-        allServices := FileServices itemsForFile: aString.
-        ^ allServices
-                reject: [:svc | self unwantedSelectors includes: svc selector]!


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20201102/713db381/attachment.html>


More information about the Squeak-dev mailing list