#DOCUMENTATION by cg
authorClaus Gittinger <cg@exept.de>
Wed, 15 Nov 2017 11:11:19 +0100
changeset 17755 d21521405bce
parent 17754 ccb938c027f8
child 17756 44c3b97cf0e0
#DOCUMENTATION by cg class: FileApplicationNoteBook::ArchiveViewApplication comment/format in: #dropEnter:
FileApplicationNoteBook.st
--- a/FileApplicationNoteBook.st	Wed Nov 15 11:11:07 2017 +0100
+++ b/FileApplicationNoteBook.st	Wed Nov 15 11:11:19 2017 +0100
@@ -2589,13 +2589,17 @@
     (aContext dropSource receiver == self) ifTrue:[^ self].
     dropObjects := aContext dropObjects.
 
-    dropObjects do:[:aObject| |checkObject checkObjectString|
-        aObject isFileObject ifFalse:[^ self].
-        checkObject := aObject theObject.
+    dropObjects do:[:eachDropObject| 
+        |checkObject checkObjectString|
+
+        eachDropObject isFileObject ifFalse:[^ self].
+        checkObject := eachDropObject theObject.
         checkObject isFilename ifFalse:[^ self].
         checkObject isSpecialFile ifTrue:[^ self].
     ].
     inDropMode := true.
+
+    "Modified (format): / 15-11-2017 / 11:10:07 / cg"
 !
 
 dropLeave:aContext