--- a/Tools_BrowserList.st	Tue Jul 03 16:00:11 2007 +0200
+++ b/Tools_BrowserList.st	Tue Jul 03 16:00:34 2007 +0200
@@ -700,6 +700,18 @@
 
 !BrowserList methodsFor:'drag & drop'!
 
+canDrop: aDropContext
+    ^ self canDropContext: aDropContext
+
+    "Created: / 03-07-2007 / 15:59:06 / cg"
+!
+
+doDrop: aDropContext
+    ^ self doDropContext: aDropContext
+
+    "Created: / 03-07-2007 / 15:59:33 / cg"
+!
+
 dropClassFiles:files
     files do:[:fn |
         (Dialog confirm:(resources string:'FileIn %1 ?' with:fn baseName allBold)) ifTrue:[
@@ -1325,5 +1337,5 @@
 !BrowserList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.21 2007-03-13 17:58:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.22 2007-07-03 14:00:34 cg Exp $'
 ! !