#DOCUMENTATION by cg
class: FileApplicationNoteBook::ArchiveViewApplication
comment/format in: #dropEnter:
--- 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