--- a/AbstractDirectoryBrowser.st	Thu Oct 30 14:35:35 2003 +0100
+++ b/AbstractDirectoryBrowser.st	Thu Oct 30 14:36:10 2003 +0100
@@ -55,18 +55,6 @@
 
 !AbstractDirectoryBrowser methodsFor:'drag & drop'!
 
-autoScrollDownForDrop:aDropContext
-    aDropContext saveDraw:[
-        browser scrollDown
-    ]
-!
-
-autoScrollUpForDrop:aDropContext
-    aDropContext saveDraw:[
-        browser scrollUp
-    ]
-!
-
 canDrop:aContext
 
     ^ inDropMode and:[canDropItem]
@@ -129,6 +117,11 @@
     inDropMode := false.
 !
 
+dropTargetItemChangedTo:anItem in:aContext
+
+    self subclassResponsibility
+!
+
 getDropObjects:anArgument
 
     ^ self selectedFiles collect:[:file| DropObject newFile:file].
@@ -141,14 +134,6 @@
     ^ browser yVisibleToRowNr:yVisible.
 !
 
-initiateAutoScrollDownFor:aDropContext
-    self pushUserEvent:#autoScrollDownForDrop: withArgument:aDropContext.
-!
-
-initiateAutoScrollUpFor:aDropContext
-    self pushUserEvent:#autoScrollUpForDrop: withArgument:aDropContext
-!
-
 pushUserEvent:selector withArgument:argument
     self window sensor 
         pushUserEvent:selector 
@@ -216,5 +201,5 @@
 !AbstractDirectoryBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.7 2003-08-29 19:24:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.8 2003-10-30 13:36:01 penk Exp $'
 ! !

--- a/DirectoryTreeBrowser.st	Thu Oct 30 14:35:35 2003 +0100
+++ b/DirectoryTreeBrowser.st	Thu Oct 30 14:36:10 2003 +0100
@@ -865,21 +865,13 @@
 dropOver:aDropContext 
     "called during drag & drop while moving over the widget."
 
-    |lineNr newDest pointerY|
+    |lineNr newDest|
 
     inDropMode ifFalse:[^ self].
 
     lineNr  := self getLineNumberFor:aDropContext.
     lineNr notNil ifTrue:[
         newDest := self fileList at:lineNr ifAbsent:nil.
-        pointerY := aDropContext targetPoint y.
-        pointerY <= 3 ifTrue:[
-            self initiateAutoScrollUpFor:aDropContext.
-        ] ifFalse:[
-            pointerY >= (browser height - 3) ifTrue:[
-                self initiateAutoScrollDownFor:aDropContext
-            ].
-        ].
     ].
     (newDest isNil or:[newDest == self fileList draggedItem]) ifTrue:[
         ^ self
@@ -1313,5 +1305,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.78 2003-10-15 09:38:59 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.79 2003-10-30 13:36:10 penk Exp $'
 ! !