drag and drop cleanup
authorClaus Gittinger <cg@exept.de>
Fri, 13 Oct 2006 18:24:17 +0200
changeset 7405 3a8bb25701b7
parent 7404 8acee0521e83
child 7406 a749af299d5d
drag and drop cleanup
FileBrowser.st
--- a/FileBrowser.st	Fri Oct 13 14:09:08 2006 +0200
+++ b/FileBrowser.st	Fri Oct 13 18:24:17 2006 +0200
@@ -1853,16 +1853,16 @@
 
 !FileBrowser methodsFor:'drag & drop'!
 
-canDrop:aCollectionOfDropObjects
+canDropObjects:aCollectionOfDropObjects
     "I accept file- and textObjects only"
 
     ^ (aCollectionOfDropObjects 
         conform:[:aDropObject | (aDropObject isFileObject or:[aDropObject isTextObject])])
 
-    "Modified: / 13-10-2006 / 11:36:57 / cg"
-!
-
-drop:aCollectionOfDropObjects at:aPoint
+    "Created: / 13-10-2006 / 16:00:49 / cg"
+!
+
+dropObjects:aCollectionOfDropObjects at:aPoint
     "handle drops"
 
     "/ for now ... only allow single drop
@@ -1878,7 +1878,7 @@
         self dropSingleObject:aDropObject at:aPoint
     ]
 
-    "Modified: 11.4.1997 / 12:43:36 / cg"
+    "Created: / 13-10-2006 / 16:01:00 / cg"
 !
 
 dropSingleObject:someObject at:aPoint
@@ -7494,5 +7494,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.618 2006-10-13 09:49:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.619 2006-10-13 16:24:17 cg Exp $'
 ! !