--- a/ApplicationModel.st	Sat Feb 01 15:29:18 1997 +0100
+++ b/ApplicationModel.st	Sat Feb 01 15:30:08 1997 +0100
@@ -599,6 +599,27 @@
     ^ 'Application'
 ! !
 
+!ApplicationModel methodsFor:'srag & drop'!
+
+canDrop:anObjectOrCollection in:aComponent
+    "drop manager asked if a drop is possible
+     - should be redefined by apps which can do it, to return true"
+
+    ^ false
+
+
+!
+
+drop:anObjectOrCollection in:aComponent at:aPoint
+    "drop manager wants to drop.
+     This is ony sent, if #canDrop:in: returned true.
+     Must be redefined in apps which return true to #canDrop."
+
+    self subclassResponsibility
+
+
+! !
+
 !ApplicationModel methodsFor:'startup'!
 
 allButOpenFrom:aSpec
@@ -788,6 +809,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.34 1997-01-28 11:32:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.35 1997-02-01 14:30:08 ca Exp $'
 ! !
 ApplicationModel initialize!